opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

enhance: set font style and color of size column in tree

Browse Source
This commit is contained in:
Ansgar Becker
2025-12-09 15:45:16 +01:00
parent 42abf46ae3
commit f987c81cae
1 changed files with 30 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
source/main.pas
View File

@@ -10041,50 +10041,40 @@ begin
Exit;
end;
case Column of
0: begin
// Set bold text if painted node is in focused path
WalkNode := Sender.FocusedNode;
while Assigned(WalkNode) do begin
if WalkNode = Node then begin
TargetCanvas.Font.Style := TargetCanvas.Font.Style + [fsBold];
Break;
end;
try
// This crashes in some situations, which I could never reproduce.
// See uploaded crash reports and issue #1270.
WalkNode := Sender.NodeParent[WalkNode];
except
on E:EAccessViolation do begin
LogSQL('DBtreePaintText, NodeParent: '+E.Message, lcError);
Break;
end;
end;
end;
// Moved from OnGetImageIndex, where the icon used to be painted lighter if the node was yet unseen
Ghosted := (DBObj.NodeType = lntNone) and (not DBObj.Connection.Active);
Ghosted := Ghosted or ((DBObj.NodeType = lntDB)
and (not DBObj.Connection.DbObjectsCached(DBObj.Database))
);
Ghosted := Ghosted or ((DBObj.NodeType = lntGroup)
and Sender.ChildrenInitialized[Node]
and (Sender.ChildCount[Node] = 0)
);
Ghosted := Ghosted or ((DBObj.NodeType in [lntTable..lntEvent])
and (not DBObj.WasSelected)
);
if Ghosted then
TargetCanvas.Font.Color := clGrayText;
// Set bold text if painted node is in focused path
WalkNode := Sender.FocusedNode;
while Assigned(WalkNode) do begin
if WalkNode = Node then begin
TargetCanvas.Font.Style := TargetCanvas.Font.Style + [fsBold];
Break;
end;
1: begin
if DBObj.NodeType in [lntTable..lntEvent] then
TargetCanvas.Font.Color := clGrayText;
try
// This crashes in some situations, which I could never reproduce.
// See uploaded crash reports and issue #1270.
WalkNode := Sender.NodeParent[WalkNode];
except
on E:EAccessViolation do begin
LogSQL('DBtreePaintText, NodeParent: '+E.Message, lcError);
Break;
end;
end;
end;
// Moved from OnGetImageIndex, where the icon used to be painted lighter if the node was yet unseen
Ghosted := (DBObj.NodeType = lntNone) and (not DBObj.Connection.Active);
Ghosted := Ghosted or ((DBObj.NodeType = lntDB)
and (not DBObj.Connection.DbObjectsCached(DBObj.Database))
);
Ghosted := Ghosted or ((DBObj.NodeType = lntGroup)
and Sender.ChildrenInitialized[Node]
and (Sender.ChildCount[Node] = 0)
);
Ghosted := Ghosted or ((DBObj.NodeType in [lntTable..lntEvent])
and (not DBObj.WasSelected)
);
if Ghosted then
TargetCanvas.Font.Color := clGrayText;
end;