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 #937: * disable the call to Tree.SetFocus in TBaseVirtualTree.DoEndEdit, which ends the grid editor when tabbed into a new cell. See de863b4417

Browse Source 
* reveal exception messages happening in the main control's WindowProc to the SQL log panel
This commit is contained in:
Ansgar Becker
2020-07-17 07:47:52 +02:00
parent 9abdbb5993
commit bcce290a57
2 changed files with 18 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/grideditlinks.pas
View File

@ -22,6 +22,7 @@ type
TBaseGridEditorLink = class(TInterfacedObject, IVTEditLink)
private
FInstanceId: Integer;
FParentForm: TWinControl; // A back reference to the main form
FTree: TVirtualStringTree; // A back reference to the tree calling.
FNode: PVirtualNode; // The node to be edited.
@ -38,6 +39,7 @@ type
FModified: Boolean;
FAllowEdit: Boolean;
FBeginEditTime: Cardinal;
procedure Log(Msg: String);
procedure TempWindowProc(var Message: TMessage);
procedure DoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure DoEndEdit(Sender: TObject);
@ -219,6 +221,9 @@ var
implementation
uses
main;
procedure TAllKeysRadioButton.WMGetDlgCode(var Msg: TMessage);
begin
@ -233,6 +238,11 @@ begin
Msg.Result := Msg.Result or DLGC_WANTALLKEYS;
end;
procedure TBaseGridEditorLink.Log(Msg: String);
begin
MainForm.LogSQL('#'+FInstanceId.ToString+': '+Msg);
end;
constructor TBaseGridEditorLink.Create;
begin
@ -243,6 +253,7 @@ end;
constructor TBaseGridEditorLink.Create(Tree: TVirtualStringTree; AllowEdit: Boolean);
begin
inherited Create;
FInstanceId := Random(100);
FTree := Tree;
// Enable mouse scrolling, plus ensure the editor component
// is not partly hidden when it pops up in a bottom cell
@ -363,6 +374,9 @@ begin
FOldWindowProc(Message);
except
// EAccessViolation occurring in some cases
on E:Exception do begin
Log(E.Message+' Message CharCode:'+TWMChar(Message).CharCode.ToString+' Msg:'+Message.Msg.ToString);
end;
end;
end;
end;