Changeset 456 for trunk/LocalPlayer/Term.pas

Timestamp:

May 30, 2023, 11:31:10 AM (18 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.

File:

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

trunk/LocalPlayer/Term.pas

@@ -14 +14 @@
   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, DrawDlg, Types,
   Forms, Menus, ExtCtrls, dateutils, Platform, ButtonB, ButtonC, EOTButton, Area,
-  UGraphicSet, UMiniMap, IsoEngine;
+  GraphicSet, MiniMap, IsoEngine;
 
 const
@@ -591 +591 @@
 uses
   Directories, CityScreen, Draft, MessgEx, Select, CityType, Help,
-  UnitStat, Log, Diagram, NatStat, Wonders, Enhance, Nego, UPixelPointer, Sound,
-  Battle, Rates, TechTree, Registry, Global, UKeyBindings, CmdList;
+  UnitStat, Log, Diagram, NatStat, Wonders, Enhance, Nego, PixelPointer, Sound,
+  Battle, Rates, TechTree, Registry, Global, KeyBindings, CmdList;
 
 {$R *.lfm}
@@ -680 +680 @@
   for ix := 0 to BigImp.Width div xSizeBig - 1 do
     for iy := 0 to BigImp.Height div ySizeBig - 1 do begin
-      PixelPtr := PixelPointer(BigImp, ScaleToNative(ix * xSizeBig),
+      PixelPtr := TPixelPointer.Create(BigImp, ScaleToNative(ix * xSizeBig),
         ScaleToNative(Cut + iy * ySizeBig));
       for Y := 0 to ScaleToNative(ySizeBig - 2 * Cut) - 1 do begin
@@ -718 +718 @@
   SmallImp.SetSize(nx, ny);
   SmallImp.BeginUpdate;
-  PixelPtr := PixelPointer(SmallImp);
+  PixelPtr := TPixelPointer.Create(SmallImp);
   for Y := 0 to ScaleToNative(ny) - 1 do begin
     for X := 0 to ScaleToNative(nx) - 1 do begin
@@ -6877 +6877 @@
         begin
           BrushType := trix[I];
-          PanelPaint
+          PanelPaint;
         end
         else if (TroopLoc >= 0) then