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;
|
