Changeset 496 for trunk/Start.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Start.pas (modified) (11 diffs)

trunk/Start.pas

@@ -264 +264 @@
   for I := 0 to PlayerSlots.Count - 1 do
   with PlayerSlots[I] do begin
-    DiffUpBtn := TButtonC.Create(self);
+    DiffUpBtn := TButtonC.Create(Self);
     DiffUpBtn.Graphic := HGrSystem.Data;
-    DiffUpBtn.left := xBrain[I] - 18;
-    DiffUpBtn.top := yBrain[I] + 39;
+    DiffUpBtn.Left := xBrain[I] - 18;
+    DiffUpBtn.Top := yBrain[I] + 39;
     DiffUpBtn.ButtonIndex := 1;
-    DiffUpBtn.Parent := self;
+    DiffUpBtn.Parent := Self;
     DiffUpBtn.OnClick := DiffBtnClick;
-    DiffDownBtn := TButtonC.Create(self);
+    DiffDownBtn := TButtonC.Create(Self);
     DiffDownBtn.Graphic := HGrSystem.Data;
-    DiffDownBtn.left := xBrain[I] - 18;
-    DiffDownBtn.top := yBrain[I] + 51;
+    DiffDownBtn.Left := xBrain[I] - 18;
+    DiffDownBtn.Top := yBrain[I] + 51;
     DiffDownBtn.ButtonIndex := 0;
-    DiffDownBtn.Parent := self;
+    DiffDownBtn.Parent := Self;
     DiffDownBtn.OnClick := DiffBtnClick;
   end;
   for I := 6 to 8 do
   with PlayerSlots[I] do begin
-    MultiBtn := TButtonC.Create(self);
+    MultiBtn := TButtonC.Create(Self);
     MultiBtn.Graphic := HGrSystem.Data;
-    MultiBtn.left := xBrain[I] - 18;
-    MultiBtn.top := yBrain[I];
-    MultiBtn.Parent := self;
+    MultiBtn.Left := xBrain[I] - 18;
+    MultiBtn.Top := yBrain[I];
+    MultiBtn.Parent := Self;
     MultiBtn.OnClick := MultiBtnClick;
     OfferMultiple := True;
@@ -291 +291 @@
 
   X := BiColorTextWidth(Canvas, Phrases.Lookup('STARTCONTROLS', 7)) div 2;
-  CustomizeBtn.left := x0Brain + 32 - 16 - X;
+  CustomizeBtn.Left := x0Brain + 32 - 16 - X;
   if AutoDiff < 0 then
     CustomizeBtn.ButtonIndex := 3
@@ -352 +352 @@
     begin
       with Controls[I].BoundsRect do
-        r1 := CreateRectRgn(left, top, Right, Bottom);
+        r1 := CreateRectRgn(Left, Top, Right, Bottom);
       CombineRgn(r0, r0, r1, RGN_DIFF);
       DeleteObject(r1);
@@ -619 +619 @@
   if Tab = tbMain then
   begin
-    PaintBackground(self, 3, TabHeight - 1, TabSize - 4 - 3 + TabOffset + 3, 4);
+    PaintBackground(Self, 3, TabHeight - 1, TabSize - 4 - 3 + TabOffset + 3, 4);
     Canvas.Pixels[2, TabHeight] := MainTexture.ColorBevelLight;
   end
   else
   begin
-    PaintBackground(self, TabOffset + 3 + Integer(Tab) * TabSize, TabHeight - 1,
+    PaintBackground(Self, TabOffset + 3 + Integer(Tab) * TabSize, TabHeight - 1,
       TabSize - 4, 4);
     Canvas.Pixels[TabOffset + Integer(Tab) * TabSize + 2, TabHeight] :=
@@ -738 +738 @@
             Frame(Canvas, xBrain[I] - 19, yBrain[I] + 18, xBrain[I] - 18 + 12,
               yBrain[I] + (19 + 14), $000000, $000000);
-            RFrame(Canvas, PlayerSlots[I].DiffUpBtn.left - 1, PlayerSlots[I].DiffUpBtn.top - 1,
-              PlayerSlots[I].DiffUpBtn.left + 12, PlayerSlots[I].DiffUpBtn.top + 24,
+            RFrame(Canvas, PlayerSlots[I].DiffUpBtn.Left - 1, PlayerSlots[I].DiffUpBtn.Top - 1,
+              PlayerSlots[I].DiffUpBtn.Left + 12, PlayerSlots[I].DiffUpBtn.Top + 24,
               MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
             with Canvas do
@@ -750 +750 @@
             if PlayerSlots[I].OfferMultiple then
             begin
-              RFrame(Canvas, PlayerSlots[I].MultiBtn.left - 1, PlayerSlots[I].MultiBtn.top - 1,
-                PlayerSlots[I].MultiBtn.left + 12, PlayerSlots[I].MultiBtn.top + 12,
+              RFrame(Canvas, PlayerSlots[I].MultiBtn.Left - 1, PlayerSlots[I].MultiBtn.Top - 1,
+                PlayerSlots[I].MultiBtn.Left + 12, PlayerSlots[I].MultiBtn.Top + 12,
                 MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
               BitBltCanvas(Canvas, xBrain[I] - 31, yBrain[I], 13, 12,
@@ -850 +850 @@
     BtnFrame(Canvas, StartBtn.BoundsRect, MainTexture);
   if Up2Btn.Visible then
-    RFrame(Canvas, Up2Btn.left - 1, Up2Btn.top - 1, Up2Btn.left + 12,
-      Up2Btn.top + 24, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
+    RFrame(Canvas, Up2Btn.Left - 1, Up2Btn.Top - 1, Up2Btn.Left + 12,
+      Up2Btn.Top + 24, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
   if Up1Btn.Visible then
-    RFrame(Canvas, Up1Btn.left - 1, Up1Btn.top - 1, Up1Btn.left + 12,
-      Up1Btn.top + 24, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
+    RFrame(Canvas, Up1Btn.Left - 1, Up1Btn.Top - 1, Up1Btn.Left + 12,
+      Up1Btn.Top + 24, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
   if AutoDiffUpBtn.Visible then
-    RFrame(Canvas, AutoDiffUpBtn.left - 1, AutoDiffUpBtn.top - 1,
-      AutoDiffUpBtn.left + 12, AutoDiffUpBtn.top + 24, MainTexture.ColorBevelShade,
+    RFrame(Canvas, AutoDiffUpBtn.Left - 1, AutoDiffUpBtn.Top - 1,
+      AutoDiffUpBtn.Left + 12, AutoDiffUpBtn.Top + 24, MainTexture.ColorBevelShade,
       MainTexture.ColorBevelLight);
   if AutoEnemyUpBtn.Visible then
-    RFrame(Canvas, AutoEnemyUpBtn.left - 1, AutoEnemyUpBtn.top - 1,
-      AutoEnemyUpBtn.left + 12, AutoEnemyUpBtn.top + 24,
+    RFrame(Canvas, AutoEnemyUpBtn.Left - 1, AutoEnemyUpBtn.Top - 1,
+      AutoEnemyUpBtn.Left + 12, AutoEnemyUpBtn.Top + 24,
       MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
   if CustomizeBtn.Visible then
-    RFrame(Canvas, CustomizeBtn.left - 1, CustomizeBtn.top - 1,
-      CustomizeBtn.left + 12, CustomizeBtn.top + 12, MainTexture.ColorBevelShade,
+    RFrame(Canvas, CustomizeBtn.Left - 1, CustomizeBtn.Top - 1,
+      CustomizeBtn.Left + 12, CustomizeBtn.Top + 12, MainTexture.ColorBevelShade,
       MainTexture.ColorBevelLight);
   if List.Visible then
@@ -1176 +1176 @@
             end;
             SmartInvalidate(xBrain[I] - 31, yBrain[I] - 1, xBrain[I] + 64,
-              PlayerSlots[I].DiffUpBtn.top + 25);
+              PlayerSlots[I].DiffUpBtn.Top + 25);
           end;
         BrainTerm.Flags := BrainTerm.Flags and not fUsed;
@@ -1182 +1182 @@
     end;
     SmartInvalidate(xBrain[PlayerPopupIndex] - 31, yBrain[PlayerPopupIndex] - 1,
-      xBrain[PlayerPopupIndex] + 64, PlayerSlots[PlayerPopupIndex].DiffUpBtn.top + 25);
+      xBrain[PlayerPopupIndex] + 64, PlayerSlots[PlayerPopupIndex].DiffUpBtn.Top + 25);
   end;
 end;
@@ -1507 +1507 @@
         InitPopup(I);
         if yBrain[I] > y0Brain then
-          PopupMenu1.Popup(left + xBrain[I] + 4, top + yBrain[I] + 60)
+          PopupMenu1.Popup(Left + xBrain[I] + 4, Top + yBrain[I] + 60)
         else
-          PopupMenu1.Popup(left + xBrain[I] + 4, top + yBrain[I] + 4);
+          PopupMenu1.Popup(Left + xBrain[I] + 4, Top + yBrain[I] + 4);
       end;
   end
@@ -1520 +1520 @@
     begin
       InitPopup(-1);
-      PopupMenu1.Popup(left + xDefault + 4, top + yDefault + 4);
+      PopupMenu1.Popup(Left + xDefault + 4, Top + yDefault + 4);
     end
   else if (Page = pgLoad) and (LastTurn > 0) and (Y >= yTurnSlider) and