X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=win32_makefile%2Fgui_delphi%2Flogosring.pas;fp=win32_makefile%2Fgui_delphi%2Flogosring.pas;h=0000000000000000000000000000000000000000;hb=472b70e710ac48afb0d2831c00d26043b1843047;hp=c0c6b94cdbffd4bcf6c917c43114c5e9855318d2;hpb=833e1c7c90e13ceaba3dde8e7a36fcc8dfb1db3c;p=gnokii.git diff --git a/win32_makefile/gui_delphi/logosring.pas b/win32_makefile/gui_delphi/logosring.pas deleted file mode 100644 index c0c6b94..0000000 --- a/win32_makefile/gui_delphi/logosring.pas +++ /dev/null @@ -1,42 +0,0 @@ -unit LogosRing; - -interface - -uses - Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls,GnokiiAPI,MainUnit; - -type - TLogosRingForm = class(TForm) - Button1: TButton; - Button2: TButton; - ComboBox3: TComboBox; - Label1: TLabel; - procedure Button1Click(Sender: TObject); - procedure Button2Click(Sender: TObject); - private - { Private declarations } - public - { Public declarations } - end; - -var - LogosRingForm: TLogosRingForm; - -implementation - -{$R *.dfm} - -procedure TLogosRingForm.Button1Click(Sender: TObject); -begin - ComboBox3.Visible:=true; - LogosRingForm.Close; -end; - -procedure TLogosRingForm.Button2Click(Sender: TObject); -begin - ComboBox3.Visible:=false; - LogosRingForm.Close; -end; - -end.