opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 20:00:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

VirtualTree's internal text edit link has the bad habit of passing keyboard actions to its parent tree. Use our own editor instead which doesn't do that. Fixes issue #1297.

Browse Source
This commit is contained in:
Ansgar Becker
2009-08-17 17:42:42 +00:00
parent 3fdad1fd9d
commit 0eb09779e0
2 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
source/connections.dfm
View File

@ -104,6 +104,7 @@ object connform: Tconnform
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
OnCreateEditor = ListSessionsCreateEditor
OnDblClick = btnOpenClick
OnFocusChanged = ListSessionsFocusChanged
OnFocusChanging = ListSessionsFocusChanging

12
source/connections.pas
View File

@ -76,6 +76,8 @@ type
procedure FormDestroy(Sender: TObject);
procedure TimerStatisticsTimer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ListSessionsCreateEditor(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
out EditLink: IVTEditLink);
private
{ Private declarations }
FLoaded: Boolean;
@ -96,7 +98,7 @@ type
implementation
uses Main, helpers, MysqlQueryThread;
uses Main, helpers, MysqlQueryThread, grideditlinks;
{$I const.inc}
@ -339,6 +341,14 @@ begin
end;
procedure Tconnform.ListSessionsCreateEditor(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; out EditLink: IVTEditLink);
begin
// Use our own text editor to rename a session
EditLink := TInplaceEditorLink.Create(Sender as TVirtualStringTree);
end;
procedure Tconnform.ListSessionsFocusChanged(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex);
var