Changeset 10 for trunk/Forms/UFormMain.lfm

Timestamp:

Sep 22, 2014, 3:07:02 AM (10 years ago)

Author:

chronos

Message:

• Added: Zooming and moving image.
• Added: Color format 4-bit gray.
• Added: Image operation for generating test gradient image.

File:

• trunk/Forms/UFormMain.lfm (modified) (5 diffs)

trunk/Forms/UFormMain.lfm

@@ -2 +2 @@
   Left = 664
   Height = 640
-  Top = 443
+  Top = 382
   Width = 920
   Caption = 'LibrePaint'
@@ -8 +8 @@
   ClientWidth = 920
   Menu = MainMenu1
+  OnActivate = FormActivate
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
   LCLVersion = '1.3'
   object PaintBox1: TPaintBox
@@ -15 +19 @@
     Width = 920
     Align = alClient
+    OnMouseDown = PaintBox1MouseDown
+    OnMouseMove = PaintBox1MouseMove
+    OnMouseUp = PaintBox1MouseUp
+    OnMouseLeave = PaintBox1MouseLeave
+    OnMouseWheelDown = PaintBox1MouseWheelDown
+    OnMouseWheelUp = PaintBox1MouseWheelUp
     OnPaint = PaintBox1Paint
     OnResize = PaintBox1Resize
@@ -23 +33 @@
     Top = 588
     Width = 920
-    Panels = <>
+    Panels = <    
+      item
+        Width = 50
+      end>
+    SimplePanel = False
   end
   object MainMenu1: TMainMenu
@@ -85 +99 @@
         Action = Core.AImageFlip
       end
+      object MenuItem19: TMenuItem
+        Action = Core.AImageGradient
+      end
     end
   end