Changeset 40 for trunk/LocalPlayer/Draft.pas

Timestamp:

Jan 9, 2017, 8:28:51 PM (7 years ago)

Author:

chronos

Message:

• Fixed: More bitmaps to solve black background problem.
• Fixed: Bad drawing of gradient lines.

File:

• trunk/LocalPlayer/Draft.pas (modified) (1 diff)

trunk/LocalPlayer/Draft.pas

@@ -88 +88 @@
   Back := TBitmap.Create;
   Back.PixelFormat := pf24bit;
-  Back.Width := ClientWidth;
-  Back.Height := ClientHeight;
+  Back.SetSize(ClientWidth, ClientHeight);
+  Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
   Template := TBitmap.Create;
   LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'MiliRes', gfNoGamma);