Changeset 504

Timestamp:

Dec 24, 2023, 12:57:24 PM (11 months ago)

Author:

chronos

Message:

• Fixed: ScrollBar was not visible on Windows due to not set Width.
• Modified: Code cleanup.

Location:

trunk

Files:

• Integrated.lpi (modified) (1 diff)
• LocalPlayer/PVSB.pas (modified) (1 diff)
• MiniMap.pas (modified) (1 diff)
• Packages/CevoComponents/DrawDlg.pas (modified) (2 diffs)

trunk/Integrated.lpi

@@ -418 +418 @@
       <CustomOptions Value="-dDEBUG
 -dDPI"/>
+      <OtherDefines Count="2">
+        <Define0 Value="DEBUG"/>
+        <Define1 Value="DPI"/>
+      </OtherDefines>
     </Other>
   </CompilerOptions>

trunk/LocalPlayer/PVSB.pas

@@ -189 +189 @@
   ScrollBar.OnChange := ScrollBarChanged;
   ScrollBar.Parent := Parent;
+  ScrollBar.Width := 24;
 end;
 

trunk/MiniMap.pas

@@ -149 +149 @@
         if (MapRow[x] and fTerrain) in [fGrass, fPrairie, fTundra, fSwamp,
           fForest, fHills] then
-          inc(nMapLandTiles);
+          Inc(nMapLandTiles);
         if MapRow[x] and (fPrefStartPos or fStartPos) <> 0 then
-          inc(nMapStartPositions);
+          Inc(nMapStartPositions);
       end
     end;

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -240 +240 @@
   r0 := CreateRectRgn(0, 0, ClientWidth, ClientHeight);
   for i := 0 to ControlCount - 1 do
-    if not(Controls[i] is TArea) and Controls[i].Visible then
+    if not (Controls[i] is TArea) and Controls[i].Visible then
     begin
       with Controls[i].BoundsRect do
@@ -320 +320 @@
     end;
     Start := Stop + 2;
-    inc(LinesCount);
+    Inc(LinesCount);
   end;
   if Preview then