From: Erik B. <eb...@us...> - 2007-03-23 08:51:16
|
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; |