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

10
source/selectdbobject.pas
View File

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