Changeset 9 for trunk/LocalPlayer/IsoEngine.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/IsoEngine.pas (modified) (5 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/IsoEngine.pas

@@ -1 @@
-{$INCLUDE switches}
+{$INCLUDE switches.pas}
 unit IsoEngine;
 
@@ -7 +7 @@
   Protocol, ClientTools, ScreenTools, Tribes,
 {$IFNDEF SCR}Term, {$ENDIF}
-  Windows, SysUtils, Classes, Graphics;
+  LCLIntf, LCLType, LMessages, SysUtils, Classes, Graphics;
 
 type
@@ -504 +504 @@
             exit;
 
-          Windows.BitBlt(FOutput.Canvas.Handle, x, y, Width, Height,
+          LCLIntf.BitBlt(FOutput.Canvas.Handle, x, y, Width, Height,
             Src.Canvas.Handle, xSrc, ySrc, Rop);
         end;
@@ -546 +546 @@
             exit;
 
-          Windows.BitBlt(OutDC, xDst, yDst, Width, Height, MaskDC, xSrc,
+          LCLIntf.BitBlt(OutDC, xDst, yDst, Width, Height, MaskDC, xSrc,
             ySrc, SRCAND);
           if not PureBlack then
-            Windows.BitBlt(OutDC, xDst, yDst, Width, Height, DataDC, xSrc, ySrc,
+            LCLIntf.BitBlt(OutDC, xDst, yDst, Width, Height, DataDC, xSrc, ySrc,
               SRCPAINT);
         end;
@@ -1004 +1004 @@
                 if BordersOK and (1 shl p1) = 0 then
                 begin
-                  Windows.BitBlt(Borders.Canvas.Handle, 0, p1 * (yyt * 2),
+                  LCLIntf.BitBlt(Borders.Canvas.Handle, 0, p1 * (yyt * 2),
                     xxt * 2, yyt * 2, GrExt[HGrTerrain].Data.Canvas.Handle,
                     1 + 8 * (xxt * 2 + 1),

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