mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 10:39:30 +02:00
MG: editor option dlg size is now saved
git-svn-id: trunk@3318 -
This commit is contained in:
parent
66df007f01
commit
fd309629ca
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user