Skip to content
Permalink
Browse files

Apply DBtree's OnPaintText code to dialog for selecting user privileg…

…e object, so we get bold focused path there as well. Related to #785
  • Loading branch information...
ansgarbecker committed Nov 1, 2019
1 parent 9198923 commit 9c6769196dd23d55447b4c7d103b98ab6de8784c
Showing with 11 additions and 0 deletions.
  1. +1 −0 source/selectdbobject.dfm
  2. +10 −0 source/selectdbobject.pas
@@ -53,6 +53,7 @@ object frmSelectDBObject: TfrmSelectDBObject
OnEnter = ValidateControls
OnFocusChanged = TreeDBOFocusChanged
OnGetText = TreeDBOGetText
OnPaintText = TreeDBOPaintText
OnGetImageIndex = TreeDBOGetImageIndex
OnGetNodeDataSize = TreeDBOGetNodeDataSize
OnInitChildren = TreeDBOInitChildren
@@ -31,6 +31,9 @@ TfrmSelectDBObject = class(TExtForm)
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 @@ procedure TfrmSelectDBObject.TreeDBOInitNode(Sender: TBaseVirtualTree;
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.

0 comments on commit 9c67691

Please sign in to comment.
You can’t perform that action at this time.