paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 14:38:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: changing control font in paint event triggers another paint event. Only canvas.Font should be changed. Patch by Bald Zhang. issue #41361

Browse Source
This commit is contained in:
zeljan1 2025-01-27 07:57:50 +01:00
parent 3664d7bb93
commit af12663634
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/ideoptionsdlg.pas
View File

@ -320,9 +320,9 @@ procedure TIDEOptionsDialog.CategoryTreeCustomDrawItem(Sender: TCustomTreeView;
begin
// make group categories bold
if Node.Data = nil then // is group category
Node.TreeView.Font.Style := [fsBold]
Node.TreeView.Canvas.Font.Style := [fsBold]
else
Node.TreeView.Font.Style := [];
Node.TreeView.Canvas.Font.Style := [];
end;
procedure TIDEOptionsDialog.CategoryTreeExpanded(Sender: TObject; Node: TTreeNode);