X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=win32_makefile%2Fgui_delphi%2Fpbkedit.pas;fp=win32_makefile%2Fgui_delphi%2Fpbkedit.pas;h=7611e987daef74eef0cbf6376c6eed524408bb15;hb=5d49fe8eea4e11457b4f9904eb0d5db435679841;hp=0000000000000000000000000000000000000000;hpb=a51604573a1dfaaad4304ffbf918e91617acf468;p=gnokii.git

diff --git a/win32_makefile/gui_delphi/pbkedit.pas b/win32_makefile/gui_delphi/pbkedit.pas
new file mode 100644
index 0000000..7611e98
--- /dev/null
+++ b/win32_makefile/gui_delphi/pbkedit.pas
@@ -0,0 +1,39 @@
+unit pbkedit;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ComCtrls, MainUnit, GnokiiAPI, Menus;
+
+type
+  TPbkForm = class(TForm)
+    ListView1: TListView;
+    Button1: TButton;
+    Button2: TButton;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  PbkForm: TPbkForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TPbkForm.Button1Click(Sender: TObject);
+begin
+  Pbkform.Close;
+end;
+
+procedure TPbkForm.Button2Click(Sender: TObject);
+begin
+  Pbkform.Close;
+end;
+
+end.