Changeset 9 for trunk/LocalPlayer/Select.pas

Timestamp:

Jan 7, 2017, 1:28:56 PM (7 years ago)

Author:

chronos

Message:

• Modified: Converted to Lazarus project. Application can be run with errors.

Location:

trunk

Files:

• . (modified) (1 prop)
• LocalPlayer/Select.pas (modified) (4 diffs)

trunk

@@ -6 +6 @@
 Win32
 *.~dsk
+C-evo.exe
+Integrated.compiled
+Integrated.lps
+lib

@@ -6 +6 @@
 Win32
 *.~dsk
+C-evo.exe
+Integrated.compiled
+Integrated.lps
+lib

trunk/LocalPlayer/Select.pas

@@ -1 @@
-{$INCLUDE switches}
+{$INCLUDE switches.pas}
 unit Select;
 
@@ -7 +7 @@
   Protocol, ClientTools, Term, ScreenTools, IsoEngine, PVSB, BaseWin,
 
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
-  ExtCtrls, ButtonB, ButtonBase, Menus;
+  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms,
+  ExtCtrls, ButtonB, ButtonBase, Menus, Types;
 
 const
@@ -89 +89 @@
   CityScreen, Help, UnitStat, Tribes, Inp;
 
-{$R *.DFM}
+{$R *.lfm}
 
 const
@@ -761 +761 @@
     for i := -1 to DispLines do
       if (i + sb.si.npos >= 0) and (i + sb.si.npos < Lines[Layer]) then
-        line(offscreen.Canvas, i, true, false)
+        Self.line(offscreen.Canvas, i, true, false)
   end;
   MarkUsedOffscreen(InnerWidth, 8 + 48 + DispLines * LineDistance);

@@ -6 +6 @@
 Win32
 *.~dsk
+C-evo.exe
+Integrated.compiled
+Integrated.lps
+lib