Changeset 457 for trunk/LocalPlayer/TechTree.pas

Timestamp:

Nov 27, 2023, 12:10:57 AM (6 months ago)

Author:

chronos

Message:

• Modified: Use enumeration type in Help unit for better readability.
• Fixed: Corruption external help image referenced with incorrect file name case.
• Fixed: Chinese translation converted to UTF-8.
• Modified: Code cleanup.

File:

• trunk/LocalPlayer/TechTree.pas (modified) (6 diffs)

trunk/LocalPlayer/TechTree.pas

@@ -140 +140 @@
 
     with Image.Canvas do begin
-      // write advance names
+      // Write advance names
       Font.Assign(UniFont[ftSmall]);
       Font.Color := clBlack;
       Brush.Style := bsClear;
-      for X := 0 to (Image.width - xStart) div xPitch do
-        for Y := 0 to (Image.height - yStart) div yPitch do
+      for X := 0 to (Image.Width - xStart) div xPitch do
+        for Y := 0 to (Image.Height - yStart) div yPitch do
         begin
           ad := Pixels[xStart + X * xPitch + 10, yStart + Y * yPitch - 1];
@@ -156 +156 @@
             Pixels[xStart + X * xPitch + 10, yStart + Y * yPitch - 1]
               := TransparentColor2;
-          end
+          end;
         end;
 
-      // write legend
+      // Write legend
       TextOut(xLegend, yLegend, Phrases2.Lookup('ADVTREE_UP0'));
       TextOut(xLegend, yLegend + yLegendPitch, Phrases2.Lookup('ADVTREE_UP1'));
@@ -173 +173 @@
   end;
 
-  // fit window to image, center image in window, center window to screen
+  // Fit window to image, center image in window, center window to screen
   NewWidth := Min(Screen.Width - 40, Image.Width + LeftBorder + RightBorder + 2 * BlackBorder);
   NewHeight := Min(Screen.Height - 40, Image.Height + TopBorder + BottomBorder + 2 * BlackBorder);
@@ -191 +191 @@
   if Button = mbLeft then
   begin
-    dragging := True;
+    Dragging := True;
     xDown := X;
     yDown := Y;
@@ -200 +200 @@
   Shift: TShiftState; X, Y: Integer);
 begin
-  dragging := False;
+  Dragging := False;
 end;
 
@@ -206 +206 @@
   X, Y: Integer);
 begin
-  if dragging then
+  if Dragging then
   begin
     xOffset := xOffset + X - xDown;