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

Issue #1936: Attempt to fix EAbstractError when closing text editor

Browse Source
This commit is contained in:
Ansgar Becker
2024-04-29 16:04:34 +02:00
parent 604047f8d6
commit 358bee628c
2 changed files with 27 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/texteditor.pas
View File

@ -87,6 +87,7 @@ type
{ Private declarations }
FModified: Boolean;
FStopping: Boolean;
FClosingByApplyButton: Boolean;
FDetectedLineBreaks,
FSelectedLineBreaks: TLineBreaks;
FMaxLength: Integer;
@ -242,6 +243,7 @@ var
i: Integer;
begin
HasSizeGrip := True;
FClosingByApplyButton := False;
// Assign linebreak values to their menu item tags, to write less code later
menuWindowsLB.Tag := Integer(lbsWindows);
menuUnixLB.Tag := Integer(lbsUnix);
@ -505,21 +507,23 @@ begin
if FStopping then
Exit;
FStopping := True;
if Modified then
if Modified and FClosingByApplyButton then
DoPost := True
else if Modified then
DoPost := MessageDialog(_('Apply modifications?'), mtConfirmation, [mbYes, mbNo]) = mrYes
else
DoPost := False;
if DoPost then
TCustomVirtualStringTree(Owner).EndEditNode
ModalResult := mrOk
else
TCustomVirtualStringTree(Owner).CancelEditNode;
ModalResult := mrCancel;
end;
procedure TfrmTextEditor.btnApplyClick(Sender: TObject);
begin
FStopping := True;
TCustomVirtualStringTree(Owner).EndEditNode;
FClosingByApplyButton := True;
Close;
end;