Changeset 465 for branches/highdpi/LocalPlayer/Enhance.pas

Timestamp:

Nov 30, 2023, 10:16:14 PM (5 months ago)

Author:

chronos

Message:

• Modified: Updated high dpi branch from trunk.
• Modified: Use generics.collections instead of fgl.
• Modified: Compile with Delphi syntax.

File:

• branches/highdpi/LocalPlayer/Enhance.pas (modified) (16 diffs)

branches/highdpi/LocalPlayer/Enhance.pas

@@ -5 +5 @@
 
 uses
-  UDpiControls, ScreenTools, BaseWin, Protocol, ClientTools, Term, LCLIntf, LCLType,
-
-  SysUtils, Classes, Graphics, Controls, Forms, IsoEngine,
-  ButtonB, ButtonC, Menus;
+  UDpiControls, ScreenTools, BaseWin, Protocol, ClientTools, LCLIntf, LCLType, SysUtils,
+  Classes, Graphics, Controls, Forms, IsoEngine, ButtonB, ButtonC, Menus;
 
 type
@@ -39 +37 @@
     NoMap: TIsoMap;
   public
-    procedure ShowNewContent(NewMode: integer; TerrType: integer = -1);
+    procedure ShowNewContent(NewMode: TWindowMode; TerrType: Integer = -1);
   protected
-    Page: integer;
+    Page: Integer;
     procedure OffscreenPaint; override;
   end;
 
-var
-  EnhanceDlg: TEnhanceDlg;
-
 
 implementation
 
 uses
-  Help, UKeyBindings;
+  Help, KeyBindings, Term;
 
 {$R *.lfm}
@@ -58 +53 @@
 procedure TEnhanceDlg.FormCreate(Sender: TObject);
 var
-  TerrType: integer;
-  m: TDpiMenuItem;
+  TerrType: Integer;
+  M: TDpiMenuItem;
 begin
   inherited;
@@ -73 +68 @@
     if TerrType <> fJungle then
     begin
-      m := TDpiMenuItem.Create(Popup);
-      m.RadioItem := true;
+      M := TDpiMenuItem.Create(Popup);
+      M.RadioItem := True;
       if TerrType = fGrass then
-        m.Caption := Format(Phrases.Lookup('TWOTERRAINS'),
+        M.Caption := Format(Phrases.Lookup('TWOTERRAINS'),
           [Phrases.Lookup('TERRAIN', fGrass), Phrases.Lookup('TERRAIN',
           fGrass + 12)])
       else if TerrType = fForest then
-        m.Caption := Format(Phrases.Lookup('TWOTERRAINS'),
+        M.Caption := Format(Phrases.Lookup('TWOTERRAINS'),
           [Phrases.Lookup('TERRAIN', fForest), Phrases.Lookup('TERRAIN',
           fJungle)])
       else
-        m.Caption := Phrases.Lookup('TERRAIN', TerrType);
-      m.Tag := TerrType;
-      m.OnClick := TerrClick;
-      Popup.Items.Add(m);
+        M.Caption := Phrases.Lookup('TERRAIN', TerrType);
+      M.Tag := TerrType;
+      M.OnClick := TerrClick;
+      Popup.Items.Add(M);
     end;
 end;
@@ -98 +93 @@
 procedure TEnhanceDlg.FormPaint(Sender: TObject);
 var
-  i: integer;
+  I: Integer;
 begin
   inherited;
@@ -105 +100 @@
   BtnFrame(Canvas, Rect(job3.Left, job3.Top, job9.Left + job9.Width,
     job3.Top + job3.Height), MainTexture);
-  for i := 0 to ControlCount - 1 do
-    if Controls[i] is TButtonC then
-      DpiBitCanvas(Canvas, Controls[i].Left + 2, Controls[i].Top - 11, 8, 8,
-        HGrSystem.Data.Canvas, 121 + Controls[i].Tag mod 7 * 9,
-        1 + Controls[i].Tag div 7 * 9);
+  for I := 0 to ControlCount - 1 do
+    if Controls[I] is TButtonC then
+      DpiBitBltCanvas(Canvas, Controls[I].Left + 2, Controls[I].Top - 11, 8, 8,
+        HGrSystem.Data.Canvas, 121 + Controls[I].Tag mod 7 * 9,
+        1 + Controls[I].Tag div 7 * 9);
 end;
 
@@ -117 +112 @@
 end;
 
-procedure TEnhanceDlg.ShowNewContent(NewMode, TerrType: integer);
+procedure TEnhanceDlg.ShowNewContent(NewMode: TWindowMode; TerrType: Integer);
 begin
   if (TerrType < fGrass) or (TerrType > fMountains) then
@@ -128 +123 @@
 procedure TEnhanceDlg.OffscreenPaint;
 var
-  i, stage, TerrType, TileImp, x, EndStage, Cost, LastJob: integer;
-  s: string;
-  Done: Set of jNone .. jTrans;
-  TypeChanged: boolean;
+  I, stage, TerrType, TileImp, X, EndStage, Cost, LastJob: Integer;
+  S: string;
+  Done: set of jNone .. jTrans;
+  TypeChanged: Boolean;
 begin
   OffscreenUser := self;
-  offscreen.Canvas.Font.Assign(UniFont[ftSmall]);
+  Offscreen.Canvas.Font.Assign(UniFont[ftSmall]);
   FillOffscreen(0, 0, InnerWidth, InnerHeight);
 
   EndStage := 0;
   while (EndStage < 5) and (MyData.EnhancementJobs[Page, EndStage] <> jNone) do
-    inc(EndStage);
+    Inc(EndStage);
   with NoMap do
-    x := InnerWidth div 2 - xxt - (xxt + 3) * EndStage;
+    X := InnerWidth div 2 - xxt - (xxt + 3) * EndStage;
 
   TerrType := Page;
@@ -151 +146 @@
     if stage > 0 then
     begin
-      Sprite(offscreen, HGrSystem, x - 10, 66, 14, 14, 80, 1);
+      Sprite(Offscreen, HGrSystem, X - 10, 66, 14, 14, 80, 1);
       case MyData.EnhancementJobs[Page, stage - 1] of
         jRoad:
           begin
-            inc(Cost, Terrain[TerrType].MoveCost * RoadWork);
+            Inc(Cost, Terrain[TerrType].MoveCost * RoadWork);
             TileImp := TileImp or fRoad;
           end;
         jRR:
           begin
-            inc(Cost, Terrain[TerrType].MoveCost * RRWork);
+            Inc(Cost, Terrain[TerrType].MoveCost * RRWork);
             TileImp := TileImp or fRR;
           end;
         jIrr:
           begin
-            inc(Cost, Terrain[TerrType].IrrClearWork);
+            Inc(Cost, Terrain[TerrType].IrrClearWork);
             TileImp := TileImp and not fTerImp or tiIrrigation;
           end;
         jFarm:
           begin
-            inc(Cost, Terrain[TerrType].IrrClearWork * FarmWork);
+            Inc(Cost, Terrain[TerrType].IrrClearWork * FarmWork);
             TileImp := TileImp and not fTerImp or tiFarm;
           end;
         jMine:
           begin
-            inc(Cost, Terrain[TerrType].MineAfforestWork);
+            Inc(Cost, Terrain[TerrType].MineAfforestWork);
             TileImp := TileImp and not fTerImp or tiMine;
           end;
         jClear:
           begin
-            inc(Cost, Terrain[TerrType].IrrClearWork);
+            Inc(Cost, Terrain[TerrType].IrrClearWork);
             TerrType := Terrain[TerrType].ClearTerrain;
           end;
         jAfforest:
           begin
-            inc(Cost, Terrain[TerrType].MineAfforestWork);
+            Inc(Cost, Terrain[TerrType].MineAfforestWork);
             TerrType := Terrain[TerrType].AfforestTerrain;
           end;
         jTrans:
           begin
-            inc(Cost, Terrain[TerrType].TransWork);
+            Inc(Cost, Terrain[TerrType].TransWork);
             TerrType := Terrain[TerrType].TransTerrain;
           end;
       end;
-      include(Done, MyData.EnhancementJobs[Page, stage - 1]);
+      Include(Done, MyData.EnhancementJobs[Page, stage - 1]);
     end;
 
     with NoMap do begin
       if TerrType < fForest then
-        Sprite(offscreen, HGrTerrain, x, 64 - yyt, xxt * 2, yyt * 2,
+        Sprite(Offscreen, HGrTerrain, X, 64 - yyt, xxt * 2, yyt * 2,
           1 + TerrType * (xxt * 2 + 1), 1 + yyt)
       else
       begin
-        Sprite(offscreen, HGrTerrain, x, 64 - yyt, xxt * 2, yyt * 2,
+        Sprite(Offscreen, HGrTerrain, X, 64 - yyt, xxt * 2, yyt * 2,
           1 + 2 * (xxt * 2 + 1), 1 + yyt + 2 * (yyt * 3 + 1));
-        Sprite(offscreen, HGrTerrain, x, 64 - yyt, xxt * 2, yyt * 2,
+        Sprite(Offscreen, HGrTerrain, X, 64 - yyt, xxt * 2, yyt * 2,
           1 + 7 * (xxt * 2 + 1), 1 + yyt + 2 * (2 + TerrType - fForest) *
           (yyt * 3 + 1));
       end;
       if TileImp and fTerImp = tiFarm then
-        Sprite(offscreen, HGrTerrain, x, 64 - yyt, xxt * 2, yyt * 2,
+        Sprite(Offscreen, HGrTerrain, X, 64 - yyt, xxt * 2, yyt * 2,
           1 + (xxt * 2 + 1), 1 + yyt + 12 * (yyt * 3 + 1))
       else if TileImp and fTerImp = tiIrrigation then
-        Sprite(offscreen, HGrTerrain, x, 64 - yyt, xxt * 2, yyt * 2, 1,
+        Sprite(Offscreen, HGrTerrain, X, 64 - yyt, xxt * 2, yyt * 2, 1,
           1 + yyt + 12 * (yyt * 3 + 1));
       if TileImp and fRR <> 0 then
       begin
-        Sprite(offscreen, HGrTerrain, x, 64 - yyt, xxt * 2, yyt * 2,
+        Sprite(Offscreen, HGrTerrain, X, 64 - yyt, xxt * 2, yyt * 2,
           1 + 6 * (xxt * 2 + 1), 1 + yyt + 10 * (yyt * 3 + 1));
-        Sprite(offscreen, HGrTerrain, x, 64 - yyt, xxt * 2, yyt * 2,
+        Sprite(Offscreen, HGrTerrain, X, 64 - yyt, xxt * 2, yyt * 2,
           1 + 2 * (xxt * 2 + 1), 1 + yyt + 10 * (yyt * 3 + 1));
       end
       else if TileImp and fRoad <> 0 then
       begin
-        Sprite(offscreen, HGrTerrain, x, 64 - yyt, xxt * 2, yyt * 2,
+        Sprite(Offscreen, HGrTerrain, X, 64 - yyt, xxt * 2, yyt * 2,
           1 + 6 * (xxt * 2 + 1), 1 + yyt + 9 * (yyt * 3 + 1));
-        Sprite(offscreen, HGrTerrain, x, 64 - yyt, xxt * 2, yyt * 2,
+        Sprite(Offscreen, HGrTerrain, X, 64 - yyt, xxt * 2, yyt * 2,
           1 + 2 * (xxt * 2 + 1), 1 + yyt + 9 * (yyt * 3 + 1));
       end;
       if TileImp and fTerImp = tiMine then
-        Sprite(offscreen, HGrTerrain, x, 64 - yyt, xxt * 2, yyt * 2,
+        Sprite(Offscreen, HGrTerrain, X, 64 - yyt, xxt * 2, yyt * 2,
           1 + 2 * (xxt * 2 + 1), 1 + yyt + 12 * (yyt * 3 + 1));
-      inc(x, xxt * 2 + 6);
-    end;
-  end;
-
-  for i := 0 to Popup.Items.Count - 1 do
-    if Popup.Items[i].Tag = Page then
-      s := Popup.Items[i].Caption;
+      Inc(X, xxt * 2 + 6);
+    end;
+  end;
+
+  for I := 0 to Popup.Items.Count - 1 do
+    if Popup.Items[I].Tag = Page then
+      S := Popup.Items[I].Caption;
   if Cost > 0 then
-    s := Format(Phrases.Lookup('ENHANCE'), [s, MovementToString(Cost)]);
-  LoweredTextOut(offscreen.Canvas, -1, MainTexture,
-    (InnerWidth - BiColorTextWidth(offscreen.Canvas, s)) div 2, 12, s);
+    S := Format(Phrases.Lookup('ENHANCE'), [S, MovementToString(Cost)]);
+  LoweredTextOut(Offscreen.Canvas, -1, MainTexture,
+    (InnerWidth - BiColorTextWidth(Offscreen.Canvas, S)) div 2, 12, S);
 
   if EndStage > 0 then
@@ -291 +286 @@
     (Terrain[TerrType].MineEff > 0);
   job3.Visible := not TypeChanged and (Terrain[TerrType].ClearTerrain >= 0) and
-    ((TerrType <> fDesert) or (MyRO.Wonder[woGardens].EffectiveOwner = me)) or
+    ((TerrType <> fDesert) or (MyRO.Wonder[woGardens].EffectiveOwner = Me)) or
     (LastJob = jClear);
   job6.Visible := not TypeChanged and (Terrain[TerrType].AfforestTerrain >= 0)
@@ -299 +294 @@
 
   MarkUsedOffscreen(InnerWidth, InnerHeight);
-end; { OffscreenPaint }
+end;
 
 procedure TEnhanceDlg.CloseBtnClick(Sender: TObject);
@@ -308 +303 @@
 procedure TEnhanceDlg.ToggleBtnClick(Sender: TObject);
 var
-  i: integer;
-begin
-  for i := 0 to Popup.Items.Count - 1 do
-    Popup.Items[i].Checked := Popup.Items[i].Tag = Page;
+  I: Integer;
+begin
+  for I := 0 to Popup.Items.Count - 1 do
+    Popup.Items[I].Checked := Popup.Items[I].Tag = Page;
   Popup.Popup(Left + ToggleBtn.Left, Top + ToggleBtn.Top + ToggleBtn.Height);
 end;
@@ -323 +318 @@
 procedure TEnhanceDlg.JobClick(Sender: TObject);
 var
-  stage, NewJob: integer;
+  Stage, NewJob: Integer;
   Done: Set of jNone .. jTrans;
 
-  procedure RemoveJob(j: integer);
+  procedure RemoveJob(J: Integer);
   begin // remove job
-    stage := 0;
-    while (stage < 5) and (MyData.EnhancementJobs[Page, stage] <> jNone) do
-    begin
-      if (MyData.EnhancementJobs[Page, stage] = j) or (j = jRoad) and
-        (MyData.EnhancementJobs[Page, stage] = jRR) or (j = jIrr) and
-        (MyData.EnhancementJobs[Page, stage] = jFarm) then
+    Stage := 0;
+    while (Stage < 5) and (MyData.EnhancementJobs[Page, Stage] <> jNone) do
+    begin
+      if (MyData.EnhancementJobs[Page, Stage] = J) or (J = jRoad) and
+        (MyData.EnhancementJobs[Page, Stage] = jRR) or (J = jIrr) and
+        (MyData.EnhancementJobs[Page, Stage] = jFarm) then
       begin
-        if stage < 4 then
-          move(MyData.EnhancementJobs[Page, stage + 1],
-            MyData.EnhancementJobs[Page, stage], 4 - stage);
+        if Stage < 4 then
+          Move(MyData.EnhancementJobs[Page, Stage + 1],
+            MyData.EnhancementJobs[Page, Stage], 4 - Stage);
         MyData.EnhancementJobs[Page, 4] := jNone;
       end
       else
-        inc(stage);
+        Inc(Stage);
     end;
   end;
@@ -348 +343 @@
   NewJob := TButtonC(Sender).Tag;
   Done := [];
-  stage := 0;
-  while (stage < 5) and (MyData.EnhancementJobs[Page, stage] <> jNone) do
+  Stage := 0;
+  while (Stage < 5) and (MyData.EnhancementJobs[Page, Stage] <> jNone) do
   begin
-    include(Done, MyData.EnhancementJobs[Page, stage]);
-    inc(stage);
+    Include(Done, MyData.EnhancementJobs[Page, Stage]);
+    Inc(Stage);
   end;
   if NewJob in Done then
@@ -364 +359 @@
     if (NewJob = jRR) and not(jRoad in Done) then
     begin
-      MyData.EnhancementJobs[Page, stage] := jRoad;
-      inc(stage);
+      MyData.EnhancementJobs[Page, Stage] := jRoad;
+      Inc(Stage);
     end;
     if (NewJob = jFarm) and not(jIrr in Done) then
     begin
-      MyData.EnhancementJobs[Page, stage] := jIrr;
-      inc(stage);
-    end;
-    MyData.EnhancementJobs[Page, stage] := NewJob;
+      MyData.EnhancementJobs[Page, Stage] := jIrr;
+      Inc(Stage);
+    end;
+    MyData.EnhancementJobs[Page, Stage] := NewJob;
   end;
   SmartUpdateContent;
@@ -384 +379 @@
   ShortCut := KeyToShortCut(Key, Shift);
   if BHelp.Test(ShortCut) then
-    HelpDlg.ShowNewContent(FWindowMode or wmPersistent, hkText,
-      HelpDlg.TextIndex('MACRO'))
+    MainScreen.HelpDlg.ShowNewContent(WindowModeMakePersistent(FWindowMode), hkText,
+      MainScreen.HelpDlg.TextIndex('MACRO'))
 end;