Графический интерфейс в aria2c RPC
http://blindage.org/?p=5385
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 lines
1002 B
56 lines
1002 B
unit unitservers;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
Buttons;
|
|
|
|
type
|
|
|
|
{ TformServers }
|
|
|
|
TformServers = class(TForm)
|
|
btnSave: TBitBtn;
|
|
btnAdd: TBitBtn;
|
|
btnDel: TBitBtn;
|
|
ListBox1: TListBox;
|
|
procedure btnAddClick(Sender: TObject);
|
|
procedure btnDelClick(Sender: TObject);
|
|
procedure btnSaveClick(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
formServers: TformServers;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TformServers }
|
|
|
|
procedure TformServers.btnAddClick(Sender: TObject);
|
|
var new_server: string;
|
|
begin
|
|
if InputQuery('Add remote server', 'Example: http://myfileserver.com:6800', FALSE, new_server)
|
|
then ListBox1.Items.Add(new_server);
|
|
end;
|
|
|
|
procedure TformServers.btnDelClick(Sender: TObject);
|
|
begin
|
|
ListBox1.Items.Delete(ListBox1.ItemIndex);
|
|
end;
|
|
|
|
procedure TformServers.btnSaveClick(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
end.
|
|
|