opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Include sample editor on preferences dialog in SetupSynEditors, so settings get applied when preferences dialog opens. Fixes issue #2568

Browse Source
This commit is contained in:
Ansgar Becker
2011-10-08 16:41:06 +00:00
parent deb75f5c6a
commit d7dd1886dc
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/main.pas
View File

@ -853,6 +853,7 @@ type
FDBObjectsMaxSize: Int64;
FDBObjectsMaxRows: Int64;
FSearchReplaceDialog: TfrmSearchReplace;
FPreferencesDialog: Toptionsform;
// Host subtabs backend structures
FHostListResults: TDBQueryList;
@ -1898,12 +1899,10 @@ begin
end;
procedure TMainForm.actPreferencesExecute(Sender: TObject);
var
Dialog: Toptionsform;
begin
// Preferences
Dialog := Toptionsform.Create(Self);
Dialog.ShowModal;
FPreferencesDialog := Toptionsform.Create(Self);
FPreferencesDialog.ShowModal;
end;
procedure TMainForm.actReadmeExecute(Sender: TObject);
@ -9212,6 +9211,8 @@ begin
Editors.Add(SynMemoSQLLog);
if Assigned(ActiveObjectEditor) then
FindEditors(ActiveObjectEditor);
if Assigned(FPreferencesDialog) then
Editors.Add(FPreferencesDialog.SynMemoSQLSample);
FontName := GetRegValue(REGNAME_FONTNAME, DEFAULT_FONTNAME);
FontSize := GetRegValue(REGNAME_FONTSIZE, DEFAULT_FONTSIZE);