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 r4003, as issue #2651 could easily be caused by an assigned-check of FPreferencesDialog, which is freed in Toptionsform.FormClose in any case, but leaves the FPreferencesDialog assigned.

Browse Source
This commit is contained in:
Ansgar Becker
2013-09-24 22:07:17 +00:00
parent 6091da3ed8
commit 6c45158f31
1 changed files with 5 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
source/main.pas
View File

@ -950,7 +950,6 @@ type
FDBObjectsMaxSize: Int64;
FDBObjectsMaxRows: Int64;
FSearchReplaceDialog: TfrmSearchReplace;
FPreferencesDialog: Toptionsform;
FGridEditFunctionMode: Boolean;
FClipboardHasNull: Boolean;
FTimeZoneOffset: Integer;
@ -1957,10 +1956,13 @@ begin
end;
procedure TMainForm.actPreferencesExecute(Sender: TObject);
var
Dialog: Toptionsform;
begin
// Preferences
FPreferencesDialog := Toptionsform.Create(Self);
FPreferencesDialog.ShowModal;
Dialog := Toptionsform.Create(Self);
Dialog.ShowModal;
// Gets freed in Dialog.FormClose
end;
procedure TMainForm.actReadmeExecute(Sender: TObject);
@ -10244,8 +10246,6 @@ begin
Editors.Add(SynMemoSQLLog);
if Assigned(ActiveObjectEditor) then
FindEditors(ActiveObjectEditor);
if Assigned(FPreferencesDialog) then
Editors.Add(FPreferencesDialog.SynMemoSQLSample);
if AppSettings.ReadBool(asTabsToSpaces) then
BaseEditor.Options := BaseEditor.Options + [eoTabsToSpaces]
@ -10253,12 +10253,7 @@ begin
BaseEditor.Options := BaseEditor.Options - [eoTabsToSpaces];
ActiveLineColor := StringToColor(AppSettings.ReadString(asSQLColActiveLine));
for i:=0 to Editors.Count-1 do begin
// See issue #2651:
if Editors[i]=nil then
Continue;
Editor := Editors[i] as TSynMemo;
if Editor = nil then
continue;
LogSQL('Setting up TSynMemo "'+Editor.Name+'"', lcDebug);
Editor.Font.Name := AppSettings.ReadString(asFontName);
Editor.Font.Size := AppSettings.ReadInt(asFontSize);