win32_makefile/gui_delphi/logosring.pas

   1 unit LogosRing;\r
   2 \r
   3 interface\r
   4 \r
   5 uses\r
   6   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,\r
   7   Dialogs, StdCtrls,GnokiiAPI,MainUnit;\r
   8 \r
   9 type\r
  10   TLogosRingForm = class(TForm)\r
  11     Button1: TButton;\r
  12     Button2: TButton;\r
  13     ComboBox3: TComboBox;\r
  14     Label1: TLabel;\r
  15     procedure Button1Click(Sender: TObject);\r
  16     procedure Button2Click(Sender: TObject);\r
  17   private\r
  18     { Private declarations }\r
  19   public\r
  20     { Public declarations }\r
  21   end;\r
  22 \r
  23 var\r
  24   LogosRingForm: TLogosRingForm;\r
  25 \r
  26 implementation\r
  27 \r
  28 {$R *.dfm}\r
  29 \r
  30 procedure TLogosRingForm.Button1Click(Sender: TObject);\r
  31 begin\r
  32   ComboBox3.Visible:=true;\r
  33   LogosRingForm.Close;\r
  34 end;\r
  35 \r
  36 procedure TLogosRingForm.Button2Click(Sender: TObject);\r
  37 begin\r
  38   ComboBox3.Visible:=false;\r
  39   LogosRingForm.Close;\r
  40 end;\r
  41 \r
  42 end.\r