Changeset 145 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 12, 2017, 1:47:20 PM (7 years ago)

Author:

chronos

Message:

• Modified: Do not create settings form on application start but just if form is opened.
• Fixed: Removed various compilation warnings.

File:

• trunk/Forms/UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  UGame, LCLType, Menus, ActnList, ComCtrls, types, dateutils, XMLConf;
+  UGame, LCLType, Menus, ActnList, ComCtrls, types, dateutils, XMLConf, DOM;
 
 const
@@ -193 +193 @@
 begin
   with Config do begin
-    AToolBarBigIcons.Checked := GetValue(Path + '/LargeIcons', False);
-    AToolBarVisible.Checked := GetValue(Path + '/ToolBarVisible', True);
-    AStatusBarVisible.Checked := GetValue(Path + '/StatusBarVisible', False);
+    AToolBarBigIcons.Checked := GetValue(DOMString(Path + '/LargeIcons'), False);
+    AToolBarVisible.Checked := GetValue(DOMString(Path + '/ToolBarVisible'), True);
+    AStatusBarVisible.Checked := GetValue(DOMString(Path + '/StatusBarVisible'), False);
   end;
 end;
@@ -202 +202 @@
 begin
   with Config do begin
-    SetValue(Path + '/LargeIcons', AToolBarBigIcons.Checked);
-    SetValue(Path + '/ToolBarVisible', AToolBarVisible.Checked);
-    SetValue(Path + '/StatusBarVisible', AStatusBarVisible.Checked);
+    SetValue(DOMString(Path + '/LargeIcons'), AToolBarBigIcons.Checked);
+    SetValue(DOMString(Path + '/ToolBarVisible'), AToolBarVisible.Checked);
+    SetValue(DOMString(Path + '/StatusBarVisible'), AStatusBarVisible.Checked);
   end;
 end;
@@ -289 +289 @@
 
 procedure TFormMain.AZoomOutExecute(Sender: TObject);
-var
-  D: TPoint;
+//var
+//  D: TPoint;
 begin
   with Core.CurrentClient do begin