Changeset 21 for trunk/LocalPlayer/Nego.pas

Timestamp:

Jan 8, 2017, 3:12:18 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Run as 64-bit application. Can't load 32-bit StdAI library in 64-bit mode.
• Fixed: Various Warnings and Hints.

File:

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

trunk/LocalPlayer/Nego.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, BaseWin, Protocol, Term, LCLType,
-
-  Messages, SysUtils, Classes, Graphics, Controls, Forms, ButtonA,
-  ButtonBase, ButtonB, ButtonC, ButtonN;
+  ScreenTools, BaseWin, Protocol, Term, LCLType, SysUtils, Classes, Graphics,
+  Controls, Forms, ButtonA, ButtonB, ButtonN;
 
 const
@@ -101 +99 @@
 
 uses
-  Messg, ClientTools, Diplomacy, Inp, Select, NatStat, Help, Tribes, MessgEx;
+  Messg, ClientTools, Diplomacy, Inp, Select, NatStat, Tribes, MessgEx;
 
 {$R *.dfm}
@@ -290 +288 @@
   preview, Dot: boolean;
 begin
+  nLines := 0;
   for preview := true downto false do
   begin