Changeset 28 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 22, 2016, 6:01:41 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember forms dimensions.
• Added: Remember recent opened files.

File:

• trunk/Forms/UFormMain.pas (modified) (8 diffs)

trunk/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ExtCtrls, ComCtrls, types, LCLType;
+  ExtCtrls, ComCtrls, types, LCLType, ULastOpenedList, URegistry, Registry;
 
 type
@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    LastOpenedList1: TLastOpenedList;
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
@@ -40 +41 @@
     Timer1: TTimer;
     procedure FormActivate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure LastOpenedList1Change(Sender: TObject);
     procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
@@ -64 +67 @@
     MousePos: TPoint;
     Activated: Boolean;
+    procedure OpenRecentClick(Sender: TObject);
   public
     procedure EraseBackground(DC: HDC); override;
@@ -94 +98 @@
 end;
 
+procedure TFormMain.OpenRecentClick(Sender: TObject);
+begin
+  Core.ProjectOpen(TMenuItem(Sender).Caption);
+end;
+
 procedure TFormMain.EraseBackground(DC: HDC);
 begin
@@ -120 +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.PaintToBitmap(TempBitmap, View.SrcRect);
-    //TempBitmap.EndUpdate(False);
+    Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect);
+    //Bitmap.PaintToBitmap(TempBitmap, View.SrcRect);
+    TempBitmap.EndUpdate(False);
     PaintBox1.Canvas.StretchDraw(View.DestRect, TempBitmap);
     //PaintBox1.Canvas.Draw(0, 0, TempBitmap);
@@ -147 +156 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm1.Save(Self);
+  LastOpenedList1.SaveToRegistry(RegContext(HKEY(Core.ApplicationInfo1.RegistryRoot),
+    Core.ApplicationInfo1.RegistryKey + '\RecentFiles'));
+end;
+
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
@@ -154 +170 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  Core.PersistentForm1.Load(Self);
+  LastOpenedList1.LoadFromRegistry(RegContext(HKEY(Core.ApplicationInfo1.RegistryRoot),
+    Core.ApplicationInfo1.RegistryKey + '\RecentFiles'));
+end;
+
+procedure TFormMain.LastOpenedList1Change(Sender: TObject);
+begin
+  LastOpenedList1.LoadToMenuItem(MenuItemRecentFiles, OpenRecentClick);
 end;