Changeset 62 for trunk/LocalPlayer/Draft.pas

Timestamp:

Jan 13, 2017, 7:45:16 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Replaced ScanLine access be linux supported pixel access.

File:

• trunk/LocalPlayer/Draft.pas (modified) (3 diffs)

trunk/LocalPlayer/Draft.pas

@@ -19 +19 @@
     AirArea: TArea;
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure CloseBtnClick(Sender: TObject);
@@ -26 +27 @@
     procedure PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; x, y: integer);
-    procedure FormDestroy(Sender: TObject);
   public
     procedure ShowNewContent(NewMode: integer);
@@ -232 +232 @@
 begin
   inherited;
+  // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
+  Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
 
   ClientHeight := Template.Height - Cut;