Changeset 4 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (3 diffs)
• UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 920
   Caption = 'LibrePaint'
-  ClientHeight = 611
+  ClientHeight = 614
   ClientWidth = 920
   Menu = MainMenu1
@@ -11 +11 @@
   object PaintBox1: TPaintBox
     Left = 0
-    Height = 611
+    Height = 614
     Top = 0
     Width = 920
@@ -35 +35 @@
         Action = Core.AImageClear
       end
+      object MenuItem6: TMenuItem
+        Action = Core.AImageRandom
+      end
     end
   end

trunk/Forms/UFormMain.pas

@@ -20 +20 @@
     MenuItem4: TMenuItem;
     MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
     PaintBox1: TPaintBox;
     Timer1: TTimer;