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

about.pas 640B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  1. unit about;
  2. {$mode objfpc}{$H+}
  3. interface
  4. uses
  5. Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  6. ExtCtrls;
  7. type
  8. { Tform_about }
  9. Tform_about = class(TForm)
  10. Button1: TButton;
  11. Label1: TLabel;
  12. Label2: TLabel;
  13. Label3: TLabel;
  14. Label4: TLabel;
  15. Label5: TLabel;
  16. Memo1: TMemo;
  17. Shape1: TShape;
  18. procedure Button1Click(Sender: TObject);
  19. private
  20. { private declarations }
  21. public
  22. { public declarations }
  23. end;
  24. var
  25. form_about: Tform_about;
  26. implementation
  27. {$R *.lfm}
  28. { Tform_about }
  29. procedure Tform_about.Button1Click(Sender: TObject);
  30. begin
  31. close;
  32. end;
  33. end.