Changeset 7 for trunk/UCore.pas

Timestamp:

Sep 19, 2014, 9:25:56 AM (10 years ago)

Author:

chronos

Message:

• Added: Mono image color format. Pixels/channels with lower size then byte are not supported yet.
• Added: Slow image flip and mirror operation.

File:

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

trunk/UCore.pas

@@ -13 +13 @@
 
   TCore = class(TDataModule)
+    AImageMirror: TAction;
+    AImageFlip: TAction;
+    AImageRandom: TAction;
     AFileSaveAs: TAction;
     AFileSave: TAction;
@@ -21 +24 @@
     AZoomIn: TAction;
     AZoomOut: TAction;
-    AImageRandom: TAction;
     AImageClear: TAction;
     AExit: TAction;
@@ -29 +31 @@
     procedure AExitExecute(Sender: TObject);
     procedure AImageClearExecute(Sender: TObject);
+    procedure AImageFlipExecute(Sender: TObject);
+    procedure AImageMirrorExecute(Sender: TObject);
     procedure AImageRandomExecute(Sender: TObject);
     procedure AFileNewExecute(Sender: TObject);
@@ -49 +53 @@
 
 uses
-  UFormNew, UFormMain, Forms, UColorRGBA8, UColorGray8;
+  UFormNew, UFormMain, Forms, UColorRGBA8, UColorGray8, UColorGray1;
 
 { TCore }
@@ -59 +63 @@
   ColorManager.RegisterFormat(TGColorFormatRGBA8);
   ColorManager.RegisterFormat(TGColorFormatGray8);
+  ColorManager.RegisterFormat(TGColorFormatGray1);
 
   // Set default
@@ -112 +117 @@
 end;
 
+procedure TCore.AImageFlipExecute(Sender: TObject);
+begin
+  Project.Bitmap.Flip;
+  FormMain.Redraw;
+end;
+
+procedure TCore.AImageMirrorExecute(Sender: TObject);
+begin
+  Project.Bitmap.Mirror;
+  FormMain.Redraw;
+end;
+
 procedure TCore.AImageRandomExecute(Sender: TObject);
 begin