Changeset 47 for trunk/LocalPlayer/Term.pas

Timestamp:

Jan 11, 2017, 8:31:41 AM (7 years ago)

Author:

chronos

Message:

• Fixed: All fonts were slightly bigger then under Delphi. Compensated font size using coefficient.

File:

• trunk/LocalPlayer/Term.pas (modified) (3 diffs)

trunk/LocalPlayer/Term.pas

@@ -9 +9 @@
 {$ENDIF}
   Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase,
-
-  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls,
-  Forms, Menus,
-  ExtCtrls, dateutils, Platform,
-  ButtonA, ButtonB, ButtonC, EOTButton, Area;
+  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls,
+  Forms, Menus, ExtCtrls, dateutils, Platform, ButtonB, ButtonC, EOTButton, Area;
 
 const
@@ -431 +428 @@
 uses
   Directories, IsoEngine, CityScreen, Draft, MessgEx, Select, CityType, Help,
-  UnitStat, Diplomacy, Inp, Log, Diagram, NatStat, Wonders, Enhance, Nego,
-  Battle, Rates,
-  TechTree,
-
-  Registry;
+  UnitStat, Log, Diagram, NatStat, Wonders, Enhance, Nego,
+  Battle, Rates, TechTree, Registry;
 
 {$R *.lfm}
@@ -4958 +4952 @@
   GotoOnly: boolean;
 begin
+  Dist := 0;
   if ClientMode >= scContact then
     exit;