Changeset 4 for trunk/UCore.pas

Timestamp:

Sep 16, 2014, 11:55:35 AM (10 years ago)

Author:

chronos

Message:

• Added: Action to fill image with random image.
• Fixed: Pixel load/save to bitmap was using Move with pointers instead pointed value.

File:

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

trunk/UCore.pas

@@ -13 +13 @@
 
   TCore = class(TDataModule)
+    AImageRandom: TAction;
     AImageClear: TAction;
     AExit: TAction;
@@ -19 +20 @@
     procedure AExitExecute(Sender: TObject);
     procedure AImageClearExecute(Sender: TObject);
+    procedure AImageRandomExecute(Sender: TObject);
     procedure AProjectNewExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
@@ -75 +77 @@
 end;
 
+procedure TCore.AImageRandomExecute(Sender: TObject);
+begin
+  Project.Bitmap.Random;
+  FormMain.Redraw;
+end;
+
 end.