Changeset 496 for trunk/LocalPlayer/TechTree.pas

Timestamp:

Dec 18, 2023, 10:31:54 PM (11 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/TechTree.pas

@@ -99 +99 @@
         ClientHeight - BlackBorder, -BlackBorder - xOffset,
         -BlackBorder - yOffset, Paper);
-    if xOffset + Image.width < ClientWidth - 2 * BlackBorder then
-      FillRectSeamless(Canvas, BlackBorder + xOffset + Image.width, BlackBorder,
+    if xOffset + Image.Width < ClientWidth - 2 * BlackBorder then
+      FillRectSeamless(Canvas, BlackBorder + xOffset + Image.Width, BlackBorder,
         ClientWidth - BlackBorder, ClientHeight - BlackBorder,
         -BlackBorder - xOffset, -BlackBorder - yOffset, Paper);
     X := Max(BlackBorder, BlackBorder + xOffset);
-    W := Min(BlackBorder + xOffset + Image.width, ClientWidth - BlackBorder);
+    W := Min(BlackBorder + xOffset + Image.Width, ClientWidth - BlackBorder);
     if yOffset > 0 then
       FillRectSeamless(Canvas, X, BlackBorder, W, BlackBorder + yOffset,
         -BlackBorder - xOffset, -BlackBorder - yOffset, Paper);
-    if yOffset + Image.height < ClientHeight - 2 * BlackBorder then
-      FillRectSeamless(Canvas, X, BlackBorder + yOffset + Image.height, W,
+    if yOffset + Image.Height < ClientHeight - 2 * BlackBorder then
+      FillRectSeamless(Canvas, X, BlackBorder + yOffset + Image.Height, W,
         ClientHeight - BlackBorder, -BlackBorder - xOffset,
         -BlackBorder - yOffset, Paper);
@@ -115 +115 @@
   BitBltCanvas(Canvas, Max(BlackBorder, BlackBorder + xOffset),
     Max(BlackBorder, BlackBorder + yOffset),
-    Min(Image.width, Min(Image.width + xOffset,
+    Min(Image.Width, Min(Image.Width + xOffset,
     Min(ClientWidth - 2 * BlackBorder, ClientWidth - 2 * BlackBorder - xOffset))
-    ), Min(Image.height, Min(Image.height + yOffset,
+    ), Min(Image.Height, Min(Image.Height + yOffset,
     Min(ClientHeight - 2 * BlackBorder, ClientHeight - 2 * BlackBorder -
     yOffset))), Image.Canvas, Max(0, -xOffset),
@@ -177 +177 @@
     (Screen.Height - NewHeight) div 2,
     NewWidth, NewHeight);
-  CloseBtn.Left := width - CloseBtn.width - BlackBorder - 8;
+  CloseBtn.Left := Width - CloseBtn.Width - BlackBorder - 8;
   CloseBtn.Top := BlackBorder + 8;
   xOffset := (ClientWidth - Image.Width + LeftBorder - RightBorder) div 2 -
@@ -213 +213 @@
     if xOffset > LeftBorder then
       xOffset := LeftBorder;
-    if xOffset < ClientWidth - 2 * BlackBorder - Image.width - RightBorder then
-      xOffset := ClientWidth - 2 * BlackBorder - Image.width - RightBorder;
+    if xOffset < ClientWidth - 2 * BlackBorder - Image.Width - RightBorder then
+      xOffset := ClientWidth - 2 * BlackBorder - Image.Width - RightBorder;
     if yOffset > TopBorder then
       yOffset := TopBorder;
-    if yOffset < ClientHeight - 2 * BlackBorder - Image.height - BottomBorder
+    if yOffset < ClientHeight - 2 * BlackBorder - Image.Height - BottomBorder
     then
-      yOffset := ClientHeight - 2 * BlackBorder - Image.height - BottomBorder;
+      yOffset := ClientHeight - 2 * BlackBorder - Image.Height - BottomBorder;
 
     SmartInvalidate;