Changeset 462 for trunk/Start.pas

Timestamp:

Nov 29, 2023, 10:23:29 AM (6 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/Start.pas

@@ -505 +505 @@
     DeleteObject(r1);
     r1 := CreateRectRgn(QuitBtn.Left, QuitBtn.Top, QuitBtn.Left + QuitBtn.Width,
-      QuitBtn.top + QuitBtn.Height);
+      QuitBtn.Top + QuitBtn.Height);
     CombineRgn(r0, r0, r1, RGN_OR);
     DeleteObject(r1);
@@ -512 +512 @@
   end else begin
     BoundsRect := Bounds((Screen.Width - Width) div 2,
-      (Screen.Height - Height) div 2, Width, Height)
+      (Screen.Height - Height) div 2, Width, Height);
   end;
 end;