X-Git-Url: https://git.jankratochvil.net/?p=gnokii.git;a=blobdiff_plain;f=win32_makefile%2Fgui_delphi%2Fmainunit.pas;h=b88de77db9df0090ab29ca891451ce4cdbb1c02c;hp=6461f68917ee91f49e71a4be109f7f15ec29e4ca;hb=c70d730109945bd20579579213102ae02c764e21;hpb=9243ae4a92a0e97f3c850018930fc50ff3f75544

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