Changeset 104 for trunk/LocalPlayer

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/LocalPlayer

Files:

• BaseWin.pas (modified) (1 diff)
• Draft.pas (modified) (1 diff)
• NatStat.pas (modified) (1 diff)

trunk/LocalPlayer/BaseWin.pas

@@ -236 +236 @@
   ModalIndication := true;
   Canvas.Brush.Style := bsClear;
-  InnerWidth := ClientWidth - 2 * SideFrame;
-  InnerHeight := ClientHeight - TitleHeight - NarrowFrame;
+  InnerWidth := Width - 2 * SideFrame;
+  InnerHeight := Height - TitleHeight - NarrowFrame;
 end;
 

trunk/LocalPlayer/Draft.pas

@@ -88 +88 @@
   Back := TBitmap.Create;
   Back.PixelFormat := pf24bit;
-  Back.SetSize(ClientWidth, ClientHeight);
+  Back.SetSize(Width, Height);
   Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
   Template := TBitmap.Create;

trunk/LocalPlayer/NatStat.pas

@@ -89 +89 @@
   Back := TBitmap.Create;
   Back.PixelFormat := pf24bit;
-  Back.SetSize(ClientWidth, ClientHeight);
+  Back.SetSize(Width, Height);
   Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
   Template := TBitmap.Create;