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

Apply DBtree's OnPaintText code to dialog for selecting user privilege object, so we get bold focused path there as well. Related to #785

Browse Source
This commit is contained in:
Ansgar Becker
2019-11-01 13:49:11 +01:00
parent 91989233f5
commit 9c6769196d
2 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
source/selectdbobject.dfm
View File

@ -53,6 +53,7 @@ object frmSelectDBObject: TfrmSelectDBObject
OnEnter = ValidateControls OnEnter = ValidateControls
OnFocusChanged = TreeDBOFocusChanged OnFocusChanged = TreeDBOFocusChanged
OnGetText = TreeDBOGetText OnGetText = TreeDBOGetText
OnPaintText = TreeDBOPaintText
OnGetImageIndex = TreeDBOGetImageIndex OnGetImageIndex = TreeDBOGetImageIndex
OnGetNodeDataSize = TreeDBOGetNodeDataSize OnGetNodeDataSize = TreeDBOGetNodeDataSize
OnInitChildren = TreeDBOInitChildren OnInitChildren = TreeDBOInitChildren

10
source/selectdbobject.pas
View File

@ -31,6 +31,9 @@ type
procedure TreeDBOInitNode(Sender: TBaseVirtualTree; ParentNode, Node: procedure TreeDBOInitNode(Sender: TBaseVirtualTree; ParentNode, Node:
PVirtualNode; var InitialStates: TVirtualNodeInitStates); PVirtualNode; var InitialStates: TVirtualNodeInitStates);
procedure ValidateControls(Sender: TObject); procedure ValidateControls(Sender: TObject);
procedure TreeDBOPaintText(Sender: TBaseVirtualTree;
const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType);
private private
{ Private declarations } { Private declarations }
FConnection: TDBConnection; FConnection: TDBConnection;
@ -201,4 +204,11 @@ begin
Include(InitialStates, ivsExpanded); Include(InitialStates, ivsExpanded);
end; end;
procedure TfrmSelectDBObject.TreeDBOPaintText(Sender: TBaseVirtualTree;
const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType);
begin
MainForm.DBtreePaintText(Sender, TargetCanvas, Node, Column, TextType);
end;
end. end.