Changeset 33 for trunk/Forms/UFormNew.pas

Timestamp:

Jan 5, 2017, 11:48:36 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember last used image size and color format.
• Added: Automatically create blank image.

File:

• trunk/Forms/UFormNew.pas (modified) (6 diffs)

trunk/Forms/UFormNew.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin,
-  StdCtrls, ActnList, UFGraphics, URegistry;
+  StdCtrls, ActnList, Menus, UFGraphics, URegistry;
 
 type
@@ -27 +27 @@
     SpinEditHeight: TSpinEdit;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure SpinEditWidthChange(Sender: TObject);
@@ -32 +33 @@
     { private declarations }
   public
+    DefaultSize: TPoint;
   end;
 
@@ -50 +52 @@
   ColorFormat: TColorFormat;
 begin
-  ColorFormat := ColorFormatManager.Formats[ComboBoxColorFormat.ItemIndex];
+  ColorFormat := TColorFormat(ColorFormatManager.Formats.Items[ComboBoxColorFormat.ItemIndex]);
   LabelMemRequire.Caption := IntToStr(SpinEditWidth.Value * SpinEditHeight.Value *
     ColorFormat.BitDepth div 8) + ' bytes';
@@ -78 +80 @@
     SpinEditHeight.Value := Core.Project.Bitmap.Size.Y;
   end else begin
-    SpinEditWidth.Value := 200;
-    SpinEditHeight.Value := 100;
+    SpinEditWidth.Value := DefaultSize.X;
+    SpinEditHeight.Value := DefaultSize.X;
   end;
   SpinEditDPI.Value := 72;
@@ -90 +92 @@
 end;
 
+procedure TFormNew.FormCreate(Sender: TObject);
+begin
+  DefaultSize := Point(600, 200);
+end;
+
 end.