Changeset 3 for trunk/UCore.pas

Timestamp:

Sep 15, 2014, 11:13:21 PM (10 years ago)

Author:

chronos

Message:

• Modified: Specific TGColor implementation moved to ColorFormats directory.
• Added: Function to clear image with background color.
• Modified: Drawing project image to off screen bitmap to speed up drawing.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -13 +13 @@
 
   TCore = class(TDataModule)
+    AImageClear: TAction;
+    AExit: TAction;
     AProjectNew: TAction;
     ActionList1: TActionList;
+    procedure AExitExecute(Sender: TObject);
+    procedure AImageClearExecute(Sender: TObject);
     procedure AProjectNewExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
@@ -31 +35 @@
 
 uses
-  UFormNew, UFormMain;
+  UFormNew, UFormMain, UColorRGBA8, Forms;
 
 { TCore }
@@ -56 +60 @@
     Project.Bitmap.ColorFormat := ColorManager.Formats[FormNew.ComboBoxColorFormat.ItemIndex];
     Project.Bitmap.DPI := FormNew.SpinEditDPI.Value;
-    Project.Bitmap.PaintToCanvas(FormMain.PaintBox1.Canvas);
+    FormMain.Redraw;
   end;
+end;
+
+procedure TCore.AExitExecute(Sender: TObject);
+begin
+  Application.Terminate;
+end;
+
+procedure TCore.AImageClearExecute(Sender: TObject);
+begin
+  Project.Bitmap.Clear;
+  FormMain.Redraw;
 end;