Графический интерфейс в 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

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.