Changeset 29 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormMain.pas (modified) (1 diff)
• UFormNew.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -129 +129 @@
     TempBitmap.SetSize(View.SrcRect.Right - View.SrcRect.Left,
       View.SrcRect.Bottom - View.SrcRect.Top);
-    TempBitmap.BeginUpdate(True);
+    //TempBitmap.BeginUpdate(True);
     TempBitmap.Canvas.Brush.Color := clBlack;
     TempBitmap.Canvas.FillRect(0, 0, TempBitmap.Width, TempBitmap.Height);
     View.DestRect := Bounds(0, 0, PaintBox1.Width, PaintBox1.Height);
-    Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect);
+    //Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect);
     //Bitmap.PaintToBitmap(TempBitmap, View.SrcRect);
-    TempBitmap.EndUpdate(False);
+    //TempBitmap.EndUpdate(False);
     PaintBox1.Canvas.StretchDraw(View.DestRect, TempBitmap);
     //PaintBox1.Canvas.Draw(0, 0, TempBitmap);

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;