Changeset 29 for trunk/Forms/UFormNew.pas

Timestamp:

Dec 22, 2016, 9:46:17 PM (8 years ago)

Author:

chronos

Message:

• Modified: Load image data from file quickly using Bitmap RawImage.
• Modified: Remember last selected color format.

File:

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

trunk/Forms/UFormNew.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin,
-  StdCtrls, ActnList, UFGraphics;
+  StdCtrls, ActnList, UFGraphics, URegistry;
 
 type
@@ -32 +32 @@
     { private declarations }
   public
-    { public declarations }
   end;
 
@@ -71 +70 @@
     ComboBoxColorFormat.ItemIndex := 0;
 
+  if ComboBoxColorFormat.Items.IndexOf(Core.LastColorFormat) <> -1 then
+    ComboBoxColorFormat.ItemIndex := ComboBoxColorFormat.Items.IndexOf(Core.LastColorFormat);
+
   // Default
   SpinEditWidth.Value := 200;
@@ -79 +81 @@
 procedure TFormNew.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
+  Core.LastColorFormat := ComboBoxColorFormat.Items[ComboBoxColorFormat.ItemIndex];
   Core.PersistentForm1.Save(Self);
 end;