This commit was manufactured by cvs2svn to create tag

[gnokii.git] / win32_makefile / gui_delphi / mainunit.pas

diff --git a/win32_makefile/gui_delphi/mainunit.pas b/win32_makefile/gui_delphi/mainunit.pas
index 6461f68..b88de77 100644 (file)
--- a/win32_makefile/gui_delphi/mainunit.pas
+++ b/win32_makefile/gui_delphi/mainunit.pas
@@ -241,6 +241,12 @@ type
     Edit20: TMenuItem;\r
     Button23: TButton;\r
     CopyphonebooktoPC1: TMenuItem;\r
+    GroupBox26: TGroupBox;\r
+    CheckBox3: TCheckBox;\r
+    TrackBar1: TTrackBar;\r
+    Label46: TLabel;\r
+    CheckBox4: TCheckBox;\r
+    CheckBox5: TCheckBox;\r
     procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;\r
       Shift: TShiftState; X, Y: Integer);\r
     procedure FormCreate(Sender: TObject);\r
@@ -357,6 +363,8 @@ type
     procedure Button23Click(Sender: TObject);\r
     procedure CopyphonebooktoPC1Click(Sender: TObject);\r
     procedure PCPBKTabSheetShow(Sender: TObject);\r
+    procedure FormShow(Sender: TObject);\r
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);\r
   private\r
     { Private declarations }\r
   public\r
@@ -521,6 +529,19 @@ begin
   Result:= S;\r
 end;\r
 \r
+procedure SaveMainConfig;\r
+var\r
+  MyIniFile: TIniFile;\r
+begin\r
+  MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\gnokiirc');\r
+  MyIniFile.WriteString('win32gui', 'x', inttostr(MainForm.Left));\r
+  MyIniFile.WriteString('win32gui', 'y', inttostr(MainForm.Top));\r
+  MyIniFile.WriteString('win32gui', 'width', inttostr(MainForm.Width));\r
+  MyIniFile.WriteString('win32gui', 'height', inttostr(MainForm.Height));\r
+  MyIniFile.WriteString('win32gui', 'treewidth', inttostr(MainForm.Treeview1.Width));\r
+  MyIniFile.Free;\r
+end;\r
+\r
 function DayOFweek3(date:TDateTime):string;\r
 var\r
   days: array[1..7] of string;\r
@@ -1497,6 +1518,7 @@ end;
 procedure TMainForm.Quit1Click(Sender: TObject);\r
 begin\r
   if GSMPhoneConnected then GSM_Terminate();\r
+  SaveMainConfig;\r
   Halt;\r
 end;\r
 \r
@@ -4636,4 +4658,35 @@ begin
   end;\r
 end;\r
 \r
+procedure TMainForm.FormShow(Sender: TObject);\r
+var\r
+  MyIniFile: TIniFile;\r
+  x:string;\r
+begin\r
+  MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\gnokiirc');\r
+\r
+  x:=MyInifile.ReadString('win32gui', 'x', '100');\r
+  MainForm.Left:=strtoint(x);\r
+\r
+  x:=MyInifile.ReadString('win32gui', 'y', '100');\r
+  MainForm.Top:=strtoint(x);\r
+\r
+  x:=MyInifile.ReadString('win32gui', 'treewidth', '93');\r
+  MainForm.TreeView1.Width:=strtoint(x);\r
+\r
+  x:=MyInifile.ReadString('win32gui', 'width', '655');\r
+  MainForm.Width:=strtoint(x);\r
+\r
+  x:=MyInifile.ReadString('win32gui', 'height', '431');\r
+  MainForm.Height:=strtoint(x);\r
+\r
+  MyIniFile.Free;\r
+\r
+end;\r
+\r
+procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);\r
+begin\r
+  SaveMainConfig;\r
+end;\r
+\r
 end.\r