Changeset 118 for trunk/LocalPlayer/BaseWin.pas

Timestamp:

Feb 3, 2018, 3:29:17 PM (6 years ago)

Author:

chronos

Message:

• Modified: Set Bitmap size at once.

File:

• trunk/LocalPlayer/BaseWin.pas (modified) (2 diffs)

trunk/LocalPlayer/BaseWin.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, Messg,
-
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, DrawDlg;
+  ScreenTools, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
+  DrawDlg;
 
 type
@@ -471 +470 @@
   Offscreen := TBitmap.Create;
   Offscreen.PixelFormat := pf24bit;
-  Offscreen.Width := Screen.Width;
   if Screen.Height - yUnused < 480 then
-    Offscreen.Height := 480
-  else
-    Offscreen.Height := Screen.Height - yUnused;
+    Offscreen.SetSize(Screen.Width, 480)
+  else
+    Offscreen.SetSize(Screen.Width, Screen.Height - yUnused);
   Offscreen.Canvas.FillRect(0, 0, Offscreen.Width, OffScreen.Height);
   Offscreen.Canvas.Brush.Style := bsClear;