paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: editor option dlg size is now saved

Browse Source 
git-svn-id: trunk@3318 -
This commit is contained in:
lazarus 2002-09-10 19:09:07 +00:00
parent 66df007f01
commit fd309629ca
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/editoroptions.pp
View File

@ -51,7 +51,7 @@ uses
{$else} {$else}
mwCustomEdit, mwPasSyn, mwHighlighter, mwCustomEdit, mwPasSyn, mwHighlighter,
{$endif} {$endif}
Laz_XMLCfg, CodeTemplateDialog, KeyMapping, InputHistory; Laz_XMLCfg, CodeTemplateDialog, KeyMapping, InputHistory, IDEOptionDefs;
type type
{$ifdef NEW_EDITOR_SYNEDIT} {$ifdef NEW_EDITOR_SYNEDIT}
@ -1845,9 +1845,8 @@ begin
FormCreating:=true; FormCreating:=true;
if LazarusResources.Find(ClassName)=nil then begin if LazarusResources.Find(ClassName)=nil then begin
Width:=480;
Height:=459;
Position:=poScreenCenter; Position:=poScreenCenter;
IDEDialogLayoutList.ApplyLayout(Self,480,459);
Caption:='Editor Options'; Caption:='Editor Options';
OnResize:=@EditorOptionsFormResize; OnResize:=@EditorOptionsFormResize;
@ -5082,6 +5081,7 @@ var res: TModalResult;
SynOptions: TSynEditorOptions; SynOptions: TSynEditorOptions;
i: integer; i: integer;
begin begin
IDEDialogLayoutList.SaveLayout(Self);
SaveCurCodeTemplate; SaveCurCodeTemplate;
// save all values // save all values
@ -5151,6 +5151,7 @@ end;
procedure TEditorOptionsForm.CancelButtonClick(Sender:TObject); procedure TEditorOptionsForm.CancelButtonClick(Sender:TObject);
begin begin
IDEDialogLayoutList.SaveLayout(Self);
EditorOpts.Load; EditorOpts.Load;
ModalResult:=mrCancel; ModalResult:=mrCancel;
end; end;