Changeset 40 for trunk/LocalPlayer/UnitStat.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/UnitStat.pas (modified) (1 diff)

trunk/LocalPlayer/UnitStat.pas

@@ -80 +80 @@
   Back := TBitmap.Create;
   Back.PixelFormat := pf24bit;
-  Back.Width := 5 * wCommon;
-  Back.Height := hMax;
+  Back.SetSize(5 * wCommon, hMax);
+  Back.Canvas.FillRect(0, 0, Back.Width,Back.Height);
   Template := TBitmap.Create;
   LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'Unit', gfNoGamma);