Changeset 16

Timestamp:

Sep 29, 2014, 4:12:21 PM (10 years ago)

Author:

chronos

Message:

• Modified: Do not clear entire form background. Do not clear paintbox background by control itself. This should speed drawing slightly.

Location:

trunk

Files:

• Forms/UFormMain.pas (modified) (4 diffs)
• LibrePaint.lpi (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ExtCtrls, ComCtrls, types;
+  ExtCtrls, ComCtrls, types, LCLType;
 
 type
@@ -64 +64 @@
     MousePos: TPoint;
     Activated: Boolean;
+    procedure EraseBackground(DC: HDC); override;
   public
     procedure UpdateStatusBar;
@@ -91 +92 @@
   PaintBox1.Repaint;
   UpdateStatusBar;
+end;
+
+procedure TFormMain.EraseBackground(DC: HDC);
+begin
+  // Do nothing, completely covered by paintbox
 end;
 
@@ -128 +134 @@
 begin
   TempBitmap := TBitmap.Create;
+  ControlStyle := ControlStyle + [csOpaque];
+  PaintBox1.ControlStyle := PaintBox1.ControlStyle + [csOpaque];
 end;
 

trunk/LibrePaint.lpi

@@ -92 +92 @@
         <Filename Value="UProject.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UProject"/>
       </Unit3>
       <Unit4>
@@ -128 +127 @@
         <Filename Value="UMemory.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UMemory"/>
       </Unit9>
       <Unit10>
         <Filename Value="ColorFormats/UColorGray4.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UColorGray4"/>
       </Unit10>
       <Unit11>
         <Filename Value="ColorFormats/UColorRGB565.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UColorRGB565"/>
       </Unit11>
     </Units>