Changeset 111 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 27, 2016, 2:34:31 PM (7 years ago)

Author:

chronos

Message:

• Modified: Changed debian packages configuration files to support build on Launchpad.
• Fixed: Wrong zoom calculation in some case.
• Fixed: Set configuration file name explicitly.

File:

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

trunk/Forms/UFormMain.pas

@@ -257 +257 @@
     if Factor.X < Factor.Y then NewZoom := Factor.X
       else NewZoom := Factor.Y;
-    //if NewZoom <> 0 then
+    if NewZoom = 0 then NewZoom := 1;
     Zoom := NewZoom;
     CenterMap;
@@ -330 +330 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  Core.XMLConfig1.Filename := 'Config.xml';
   LoadConfig(Core.XMLConfig1, 'FormMain');
   Core.PersistentForm.Load(Self, True);