[GExperts-CVS] gexperts/unstable/Src GX_IdeFormEnhancer.pas, 1.1, 1.2

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Src
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv30217

Modified Files:
	GX_IdeFormEnhancer.pas 
Log Message:
Support the Delphi 6 editor options dialog
Don't allow placing forms offscreen

Index: GX_IdeFormEnhancer.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_IdeFormEnhancer.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- GX_IdeFormEnhancer.pas	23 Mar 2007 02:39:01 -0000	1.1
+++ GX_IdeFormEnhancer.pas	23 Mar 2007 08:51:15 -0000	1.2
@@ -121,7 +121,7 @@
       ComboDropDownCount: 15;
     ),
     (
-      FormClassNames: 'TProjectOptionsDialog;TDelphiProjectOptionsDialog;TLoadProcessDialog;TDotNetOptionForm;TPasEnvironmentDialog';
+      FormClassNames: 'TProjectOptionsDialog;TDelphiProjectOptionsDialog;TLoadProcessDialog;TDotNetOptionForm;TPasEnvironmentDialog;TPasEditorPropertyDialog';
       MakeResizable: True;
       RememberSize: True;
       RememberWidth: False;
@@ -238,6 +238,8 @@
       Form.Top := Settings.ReadInteger(Section, TopIdent, Form.Top);
       Form.Left := Settings.ReadInteger(Section, LeftIdent, Form.Left);
     end;
+    if RememberSize or RememberPosition then
+      EnsureFormVisible(Form);
     if RememberSplitterPosition then
     begin
       Panel := FindSplitPanel(Form);
@@ -330,7 +332,7 @@
 
 destructor TFormChangeManager.Destroy;
 begin
-  FreeAndNil(FManagedForms);
+  FreeAndNil(FManagedForms); // This frees/unhooks any managed form objects
   if @Screen.OnActiveFormChange = @FNewActiveFormChanged then
     Screen.OnActiveFormChange := FOldActiveFormChanged;
   FOldActiveFormChanged := nil;