Changeset 104 for trunk/Start.pas

Timestamp:

Jan 25, 2018, 11:03:52 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Do not use ClientWidth and ClientHeight in FormCreate method.
• Fixed: Wrong background drawing of End of Turn button.

File:

• trunk/Start.pas (modified) (1 diff)

trunk/Start.pas

@@ -258 +258 @@
     Location := Point(Screen.Width, Screen.Height);
     Location := Point((Screen.width - 800) * 3 div 8,
-      Screen.height - ClientHeight - (Screen.height - 600) div 3);
+      Screen.height - Height - (Screen.height - 600) div 3);
     Left := Location.X;
     Top := Location.Y;
 
-    r0 := CreateRectRgn(0, 0, ClientWidth, ClientHeight);
-    r1 := CreateRectRgn(TabOffset + 4 * TabSize + 2, 0, ClientWidth, TabHeight);
+    r0 := CreateRectRgn(0, 0, Width, Height);
+    r1 := CreateRectRgn(TabOffset + 4 * TabSize + 2, 0, Width, TabHeight);
     CombineRgn(r0, r0, r1, RGN_DIFF);
     // DeleteObject(r1);