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

Revert a part of r4529, as that broke using the right font name+size in preferences dialog (SQL tab). Fixes issue #3378.

Browse Source
This commit is contained in:
Ansgar Becker
2013-10-10 19:22:34 +00:00
parent b6acb2b874
commit 24493f68aa
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

@ -950,6 +950,7 @@ type
FDBObjectsMaxSize: Int64;
FDBObjectsMaxRows: Int64;
FSearchReplaceDialog: TfrmSearchReplace;
FPreferencesDialog: Toptionsform;
FGridEditFunctionMode: Boolean;
FClipboardHasNull: Boolean;
FTimeZoneOffset: Integer;
@ -1955,12 +1956,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;
// Gets freed in Dialog.FormClose
end;
@ -10277,6 +10276,8 @@ begin
Editors.Add(SynMemoSQLLog);
if Assigned(ActiveObjectEditor) then
FindEditors(ActiveObjectEditor);
if FPreferencesDialog <> nil then
Editors.Add(FPreferencesDialog.SynMemoSQLSample);
if AppSettings.ReadBool(asTabsToSpaces) then
BaseEditor.Options := BaseEditor.Options + [eoTabsToSpaces]