Changeset 73 for trunk/Forms

Timestamp:

Oct 27, 2016, 3:00:47 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember position and size of main form after close of application.
• Modified: Updated Common package to latest version.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (13 diffs)
• UFormMain.pas (modified) (3 diffs)
• UFormOptions.pas (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 860
   Caption = 'LazFuck'
-  ClientHeight = 558
+  ClientHeight = 561
   ClientWidth = 860
   Menu = MainMenu1
+  OnClose = FormClose
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.7'
+  LCLVersion = '1.6.0.4'
   WindowState = wsMaximized
   object StatusBarMain: TStatusBar
     Left = 0
-    Height = 24
-    Top = 534
+    Height = 28
+    Top = 533
     Width = 860
     Panels = <    
@@ -130 +131 @@
   object PageControlRight: TPageControl
     Left = 467
-    Height = 508
+    Height = 507
     Top = 26
     Width = 393
@@ -140 +141 @@
     object TabSheetDebug: TTabSheet
       Caption = 'Debug'
-      ClientHeight = 504
-      ClientWidth = 313
+      ClientHeight = 499
+      ClientWidth = 359
       object PanelInput: TPanel
         Left = 0
         Height = 64
         Top = 0
-        Width = 313
+        Width = 359
         Align = alTop
         BevelOuter = bvNone
@@ -156 +157 @@
         Height = 5
         Top = 64
-        Width = 313
+        Width = 359
         Align = alTop
         ResizeAnchor = akTop
@@ -164 +165 @@
         Height = 259
         Top = 69
-        Width = 313
+        Width = 359
         Align = alTop
         BevelOuter = bvNone
@@ -174 +175 @@
         Height = 5
         Top = 328
-        Width = 313
+        Width = 359
         Align = alTop
         ResizeAnchor = akTop
@@ -182 +183 @@
         Height = 86
         Top = 333
-        Width = 313
+        Width = 359
         Align = alTop
         BevelOuter = bvNone
@@ -192 +193 @@
         Height = 5
         Top = 419
-        Width = 313
+        Width = 359
         Align = alTop
         ResizeAnchor = akTop
@@ -198 +199 @@
       object PanelMemory: TPanel
         Left = 0
-        Height = 80
+        Height = 75
         Top = 424
-        Width = 313
+        Width = 359
         Align = alClient
         BevelOuter = bvNone
@@ -209 +210 @@
   object Splitter1: TSplitter
     Left = 462
-    Height = 508
+    Height = 507
     Top = 26
     Width = 5
@@ -217 +218 @@
   object PanelLeft: TPanel
     Left = 0
-    Height = 508
+    Height = 507
     Top = 26
     Width = 462
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 508
+    ClientHeight = 507
     ClientWidth = 462
     TabOrder = 4
     object PageControlMain: TPageControl
       Left = 0
-      Height = 385
+      Height = 384
       Top = 0
       Width = 462
@@ -245 +246 @@
       Left = 0
       Height = 118
-      Top = 390
+      Top = 389
       Width = 462
       ActivePage = TabSheetMessages
@@ -260 +261 @@
       Left = 0
       Height = 5
-      Top = 385
+      Top = 384
       Width = 462
       Align = alBottom

trunk/Forms/UFormMain.pas

@@ -135 +135 @@
     procedure AViewInterpretterExecute(Sender: TObject);
     procedure AViewLogExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
@@ -200 +201 @@
   UpdateTargetList;
   DockInit;
+  Core.PersistentForm1.Load(Self);
 end;
 
@@ -439 +441 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm1.Save(Self);
+end;
+
 procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
 begin

trunk/Forms/UFormOptions.pas

@@ -86 +86 @@
 procedure TOptionsForm.Save;
 begin
-  Core.ScaleDPI.DPI.X := SpinEditDPIX.Value;
-  Core.ScaleDPI.DPI.Y := SpinEditDPIY.Value;
+  Core.ScaleDPI.DPI := Point(SpinEditDPIX.Value, SpinEditDPIY.Value);
   Core.ScaleDPI.AutoDetect := CheckBoxDPIAuto.Checked;
   Core.OptimizationLevel := TCompilerOptimization(ComboBoxOptimizatipn.ItemIndex);