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

Fix crash in SynMemoQueryStatusChange when resizing main window with no active query tab

Browse Source
This commit is contained in:
Ansgar Becker
2021-01-08 11:00:17 +01:00
parent 3b381b642a
commit fdd73b1ffb
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/main.pas
View File

@ -6707,6 +6707,9 @@ procedure TMainForm.SynMemoQueryStatusChange(Sender: TObject; Changes:
var
Edit: TSynMemo;
begin
// Crashed with scTopLine and an non-set ActiveQueryTab while resizing main window, so limit to modifications
if not (scModified in Changes) then
Exit;
// Don't ask for saving empty contents. See issue #614
Edit := Sender as TSynMemo;
if Edit.GetTextLen = 0 then begin