Changeset 13 for trunk/UCore.pas

Timestamp:

Sep 22, 2014, 5:25:11 PM (10 years ago)

Author:

chronos

Message:

• Added: Image operation Negative image.
• Added: Partialy implemented Image load from and save to file.

File:

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

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, ActnList, UProject, UGraphic, Controls, Graphics;
+  Classes, SysUtils, FileUtil, ActnList, UProject, UGraphic, Controls, Graphics,
+  ExtDlgs, ExtCtrls;
 
 const
@@ -19 +20 @@
 
   TCore = class(TDataModule)
+    AImageNegative: TAction;
     AImageGradient: TAction;
     AImageMirror: TAction;
@@ -36 +38 @@
     ActionList1: TActionList;
     ImageList1: TImageList;
+    OpenPictureDialog1: TOpenPictureDialog;
+    SavePictureDialog1: TSavePictureDialog;
     procedure AExitExecute(Sender: TObject);
+    procedure AFileCloseExecute(Sender: TObject);
+    procedure AFileOpenExecute(Sender: TObject);
+    procedure AFileSaveAsExecute(Sender: TObject);
+    procedure AFileSaveExecute(Sender: TObject);
     procedure AImageClearExecute(Sender: TObject);
     procedure AImageFlipExecute(Sender: TObject);
     procedure AImageGradientExecute(Sender: TObject);
     procedure AImageMirrorExecute(Sender: TObject);
+    procedure AImageNegativeExecute(Sender: TObject);
     procedure AImageRandomExecute(Sender: TObject);
     procedure AFileNewExecute(Sender: TObject);
@@ -146 +155 @@
 end;
 
+procedure TCore.AFileCloseExecute(Sender: TObject);
+begin
+  if not Project.Saved then AFileSave.Execute;
+  Project.Free;
+  FormMain.Redraw;
+end;
+
+procedure TCore.AFileOpenExecute(Sender: TObject);
+var
+  Image: TImage;
+begin
+  if OpenPictureDialog1.Execute then begin
+    Image := TImage.Create(nil);
+    Image.Picture.LoadFromFile(OpenPictureDialog1.FileName);
+    Image.Picture.Bitmap.BeginUpdate(True);
+    Project.Bitmap.LoadFromCanvas(Image.Picture.Bitmap.Canvas,
+      Point(Image.Picture.Bitmap.Width, Image.Picture.Bitmap.Height));
+    Image.Picture.Bitmap.EndUpdate;
+    Image.Free;
+    FormMain.Redraw;
+    Project.FileName := OpenPictureDialog1.FileName;
+  end;
+end;
+
+procedure TCore.AFileSaveAsExecute(Sender: TObject);
+begin
+  SavePictureDialog1.FileName := Project.FileName;
+  if SavePictureDialog1.Execute then begin
+    Project.FileName := SavePictureDialog1.FileName;
+    AFileSave.Execute;
+  end;
+end;
+
+procedure TCore.AFileSaveExecute(Sender: TObject);
+var
+  Image: TImage;
+begin
+  if Project.FileName = '' then AFileSaveAs.Execute
+  else begin
+    Image := TImage.Create(nil);
+    Image.Picture.Bitmap.SetSize(Project.Bitmap.Size.X, Project.Bitmap.Size.Y);
+    Project.Bitmap.PaintToCanvas(Image.Picture.Bitmap.Canvas,
+      Rect(0, 0, Image.Picture.Bitmap.Width, Image.Picture.Bitmap.Height));
+    Image.Picture.SaveToFile(SavePictureDialog1.FileName);
+    Image.Free;
+    Project.Saved := True;
+  end;
+end;
+
 procedure TCore.AImageClearExecute(Sender: TObject);
 begin
@@ -174 +232 @@
 end;
 
+procedure TCore.AImageNegativeExecute(Sender: TObject);
+begin
+  Project.Bitmap.Negative;
+  FormMain.Redraw;
+end;
+
 procedure TCore.AImageRandomExecute(Sender: TObject);
 begin