Permalink
Browse files

Dim text in database tree using the system color clGray instead of a …

…hardcoded one, so it hopefully gets theme compatible. See https://www.heidisql.com/forum.php?t=25952#p26172
  • Loading branch information...
ansgarbecker committed Dec 14, 2018
1 parent 94ae69e commit 4f3390d2230cece54ecb968020f0c6547313a309
Showing with 2 additions and 2 deletions.
  1. +2 −2 source/main.pas
@@ -8388,9 +8388,9 @@ procedure TMainForm.DBtreePaintText(Sender: TBaseVirtualTree; const
// Grey out non-current connection nodes, and rather unimportant "Size" column
DBObj := Sender.GetNodeData(Node);
if DBObj.Connection <> ActiveConnection then
TargetCanvas.Font.Color := $00999999
TargetCanvas.Font.Color := clGrayText
else if (Column = 1) and (DBObj.NodeType in [lntTable..lntEvent]) then
TargetCanvas.Font.Color := $00444444;
TargetCanvas.Font.Color := clGrayText;
end;


0 comments on commit 4f3390d

Please sign in to comment.