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

@@ -1 @@
-{$INCLUDE switches}
+{$INCLUDE switches.pas}
 unit Term;
 
@@ -5 +5 @@
 
 uses
-  Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase,
-
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Menus,
+  Windows, Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase,
+
+  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, Menus,
   ExtCtrls,
   ButtonA, ButtonB, ButtonC, EOTButton, Area;
@@ -427 +427 @@
 uses
   Directories, IsoEngine, CityScreen, Draft, MessgEx, Select, CityType, Help,
-  UnitStat, Diplomacy, Inp, log, Diagram, NatStat, Wonders, Enhance, Nego,
+  UnitStat, Diplomacy, Inp, Log, Diagram, NatStat, Wonders, Enhance, Nego,
   Battle, Rates,
   TechTree,
 
-  Registry, ShellAPI;
-
-{$R *.DFM}
-{$R Res1.res}
+  Registry;
+
+{$R *.lfm}
+// TODO {$R Res1.res}
 
 const
@@ -4204 +4204 @@
       offscreen.Canvas.Font.Assign(UniFont[ftSmall]);
       rec := Rect(0, 0, MapWidth, MapHeight);
-      ScrollDC(offscreen.Canvas.Handle, (xwd - xw) * (xxt * 2),
-        (ywd - yw) * yyt, rec, rec, 0, nil);
+      { TODO ScrollDC(offscreen.Canvas.Handle, (xwd - xw) * (xxt * 2),
+        (ywd - yw) * yyt, rec, rec, 0, nil);}
       for DoInvalidate := false to FastScrolling do
       begin
@@ -4211 +4211 @@
         begin
           rec.Bottom := MapHeight - overlap;
-          ScrollDC(Canvas.Handle, (xwd - xw) * (xxt * 2), (ywd - yw) * yyt, rec,
-            rec, 0, nil);
+          { TODO ScrollDC(Canvas.Handle, (xwd - xw) * (xxt * 2), (ywd - yw) * yyt, rec,
+            rec, 0, nil);}
           ProcessOptions := prInvalidate;
         end
@@ -4372 +4372 @@
         if supervising then
         begin
-          Frame(Panel.Canvas, ClientWidth - xPalace - 1, yPalace - 1,
+          ScreenTools.Frame(Panel.Canvas, ClientWidth - xPalace - 1, yPalace - 1,
             ClientWidth - xPalace + xSizeBig, yPalace + ySizeBig,
             $B0B0B0, $FFFFFF);
@@ -4392 +4392 @@
 
       if GameMode = cMovie then
-        Frame(Panel.Canvas, xMini + 1, yMini + 1, xMini + 2 + G.lx * 2,
+        ScreenTools.Frame(Panel.Canvas, xMini + 1, yMini + 1, xMini + 2 + G.lx * 2,
           yMini + 2 + G.ly, $000000, $000000)
       else
       begin
-        Frame(Panel.Canvas, xMini + 1, yMini + 1, xMini + 2 + G.lx * 2,
+        ScreenTools.Frame(Panel.Canvas, xMini + 1, yMini + 1, xMini + 2 + G.lx * 2,
           yMini + 2 + G.ly, $B0B0B0, $FFFFFF);
         RFrame(Panel.Canvas, xMini, yMini, xMini + 3 + G.lx * 2,
@@ -4498 +4498 @@
             if BrushTypes[i] = BrushType then
             begin
-              Frame(Panel.Canvas, xTroop + 2 + x, yTroop + 7 - yyt div 2,
+              ScreenTools.Frame(Panel.Canvas, xTroop + 2 + x, yTroop + 7 - yyt div 2,
                 xTroop + 2 * xxt + x, yTroop + 2 * yyt + 11, $000000, $000000);
-              Frame(Panel.Canvas, xTroop + 1 + x, yTroop + 6 - yyt div 2,
+              ScreenTools.Frame(Panel.Canvas, xTroop + 1 + x, yTroop + 6 - yyt div 2,
                 xTroop + 2 * xxt - 1 + x, yTroop + 2 * yyt + 10,
                 MainTexture.clMark, MainTexture.clMark);
@@ -4655 +4655 @@
                         if uix = UnFocus then
                         begin
-                          Frame(Panel.Canvas, xTroop + 4 + x, yTroop + 3,
+                          ScreenTools.Frame(Panel.Canvas, xTroop + 4 + x, yTroop + 3,
                             xTroop + 64 + x, yTroop + 47, $000000, $000000);
-                          Frame(Panel.Canvas, xTroop + 3 + x, yTroop + 2,
+                          ScreenTools.Frame(Panel.Canvas, xTroop + 3 + x, yTroop + 2,
                             xTroop + 63 + x, yTroop + 46, MainTexture.clMark,
                             MainTexture.clMark);
@@ -4822 +4822 @@
       LineTo(ClientWidth, TopBarHeight - 3);
       Pen.Color := MainTexture.clBevelLight;
-      Frame(TopBar.Canvas, 40, -1, xTreasurySection - 1, TopBarHeight - 7,
+      ScreenTools.Frame(TopBar.Canvas, 40, -1, xTreasurySection - 1, TopBarHeight - 7,
         MainTexture.clBevelShade, MainTexture.clBevelLight);
-      Frame(TopBar.Canvas, xResearchSection + 332, -1, ClientWidth,
+      ScreenTools.Frame(TopBar.Canvas, xResearchSection + 332, -1, ClientWidth,
         TopBarHeight - 7, MainTexture.clBevelShade, MainTexture.clBevelLight);
     end;
@@ -6845 +6845 @@
           end
           else
-            with MessgExDlg do
+            // TODO with MessgExDlg do
             begin // revolution!
-              MessgText := Tribe[me].TPhrase('REVOLUTION');
-              Kind := mkYesNo;
-              IconKind := mikPureIcon;
-              IconIndex := 72; // anarchy palace
-              ShowModal;
+              MessgExDlg.MessgText := Tribe[me].TPhrase('REVOLUTION');
+              MessgExDlg.Kind := mkYesNo;
+              MessgExDlg.IconKind := mikPureIcon;
+              MessgExDlg.IconIndex := 72; // anarchy palace
+              MessgExDlg.ShowModal;
               if ModalResult = mrOK then
               begin
@@ -6868 +6868 @@
       end
       else if Sender = mWebsite then
-        ShellExecute(Handle, 'open', 'http://c-evo.org', '', '', SW_SHOWNORMAL)
+        OpenURL('http://c-evo.org'){ *Převedeno z ShellExecute* }
       else if Sender = mRandomMap then
       begin

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