Changeset 18 for trunk/UMainForm.pas

Timestamp:

Sep 27, 2011, 3:49:24 PM (13 years ago)

Author:

george

Message:

• Added: Persistent window position and size stored to registry.

File:

• trunk/UMainForm.pas (modified) (7 diffs)

trunk/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  ComCtrls, Menus, ActnList, UCore, UPlatform, Math, DateUtils, GraphType;
+  ComCtrls, Menus, ActnList, UCore, UPlatform, Math, DateUtils, GraphType,
+  UPersistentForm, UApplicationInfo;
 
 type
@@ -39 +40 @@
     procedure AShowMapExecute(Sender: TObject);
     procedure AShowRawImageDescExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDeactivate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
@@ -55 +58 @@
     Drawing: Boolean;
   public
-    { public declarations }
+    PersistentForm: TPersistentForm;
   end; 
 
@@ -96 +99 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
+  PersistentForm := TPersistentForm.Create;
+  PersistentForm.RegistryKey := '\Software\' + ApplicationInfo.CompanyName + '\' + ApplicationInfo.Name;
+
   Application.OnDeactivate := FormDeactivate;
   Randomize;
@@ -138 +144 @@
 begin
   Engine.KeyBoard.ClearAll;
+end;
+
+procedure TMainForm.FormDestroy(Sender: TObject);
+begin
+  PersistentForm.Free;
 end;
 
@@ -178 +189 @@
 
 procedure TMainForm.AShowRawImageDescExecute(Sender: TObject);
-var
-  List: TStringList;
-begin
-  with Image1.Picture.Bitmap.RawImage, Description do
-  try
-    List := TStringList.Create;
-    with List do begin
-      Add('Format: ' + RawImageColorFormatNames[Format]);
-      Add('Width: ' + IntToStr(Width));
-      Add('Height: ' + IntToStr(Height));
-      Add('Depth: ' + IntToStr(Depth));
-      Add('BitOrder: ' + RawImageBitOrderNames[BitOrder]);
-      Add('ByteOrder: ' + RawImageByteOrderNames[ByteOrder]);
-      Add('LineOrder: ' + RawImageLineOrderNames[LineOrder]);
-      Add('LineEnd: ' + RawImageLineEndNames[LineEnd]);
-      Add('BitsPerPixel: ' + IntToStr(BitsPerPixel));
-      Add('RedPrec: ' + IntToStr(RedPrec));
-      Add('RedShift: ' + IntToStr(RedShift));
-      Add('GreenPrec: ' + IntToStr(GreenPrec));
-      Add('GreenShift: ' + IntToStr(GreenShift));
-      Add('BluePrec: ' + IntToStr(BluePrec));
-      Add('BlueShift: ' + IntToStr(BlueShift));
-      Add('AlphaPrec: ' + IntToStr(AlphaPrec));
-      Add('AlphaShift: ' + IntToStr(AlphaShift));
-    end;
-    ShowMessage(List.Text);
-  finally
-    List.Free;
-  end;
+begin
+  ShowMessage(Image1.Picture.Bitmap.RawImage.Description.AsString);
+end;
+
+procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  PersistentForm.Save(Self);
 end;
 
@@ -229 +218 @@
 procedure TMainForm.FormShow(Sender: TObject);
 begin
+  PersistentForm.Load(Self);
 end;