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

trunk/Start.pas

@@ -374 +374 @@
   EmptyPicture := TBitmap.Create;
   EmptyPicture.PixelFormat := pf24bit;
-  EmptyPicture.width := 64;
-  EmptyPicture.height := 64;
+  EmptyPicture.SetSize(64, 64);
+  EmptyPicture.Canvas.FillRect(0, 0, EmptyPicture.Width, EmptyPicture.Height);
   LogoBuffer := TBitmap.Create;
   LogoBuffer.PixelFormat := pf24bit;
-  LogoBuffer.width := wBuffer;
-  LogoBuffer.height := 56;
+  LogoBuffer.SetSize(wBuffer, 56);
+  LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
 
   Mini := TBitmap.Create;