paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:39:31 +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}
mwCustomEdit, mwPasSyn, mwHighlighter,
{$endif}
Laz_XMLCfg, CodeTemplateDialog, KeyMapping, InputHistory;
Laz_XMLCfg, CodeTemplateDialog, KeyMapping, InputHistory, IDEOptionDefs;
type
{$ifdef NEW_EDITOR_SYNEDIT}
@ -1845,9 +1845,8 @@ begin
FormCreating:=true;
if LazarusResources.Find(ClassName)=nil then begin
Width:=480;
Height:=459;
Position:=poScreenCenter;
IDEDialogLayoutList.ApplyLayout(Self,480,459);
Caption:='Editor Options';
OnResize:=@EditorOptionsFormResize;
@ -5082,6 +5081,7 @@ var res: TModalResult;
SynOptions: TSynEditorOptions;
i: integer;
begin
IDEDialogLayoutList.SaveLayout(Self);
SaveCurCodeTemplate;
// save all values
@ -5151,6 +5151,7 @@ end;
procedure TEditorOptionsForm.CancelButtonClick(Sender:TObject);
begin
IDEDialogLayoutList.SaveLayout(Self);
EditorOpts.Load;
ModalResult:=mrCancel;
end;