Changeset 104 for trunk/Messg.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/Messg.pas (modified) (1 diff)

trunk/Messg.pas

@@ -156 +156 @@
 procedure TBaseMessgDlg.FormCreate(Sender: TObject);
 begin
-  Left := (Screen.Width - ClientWidth) div 2;
+  Left := (Screen.Width - Width) div 2;
   Canvas.Font.Assign(UniFont[ftNormal]);
   Canvas.Brush.Style := bsClear;