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

trunk/Components/EOTButton.pas

@@ -123 +123 @@
     if FGraphic <> nil then
     begin
-      BitBlt(Buffer.Canvas.Handle, 0, 0, 48, 48, Back.Canvas.Handle, 0,
-        0, SRCCOPY);
+      // TODO: For some reason BitBlt is not working with gray background here
+      //BitBlt(Buffer.Canvas.Handle, 0, 0, 48, 48, Back.Canvas.Handle, 0,
+      //  0, SRCCOPY);
+      Buffer.Canvas.Draw(0, 0, Back);
       ImageOp_CBC(Buffer, Template, 0, 0, 133, 149 + 48 * Byte(FDown), 48, 48,
         $000000, $FFFFFF);