From af12663634fe8a12f67d5ec4ce4f13f8279b973a Mon Sep 17 00:00:00 2001
From: zeljan1 <zeljko@holobit.hr>
Date: Mon, 27 Jan 2025 07:57:50 +0100
Subject: [PATCH] IDE: changing control font in paint event triggers another
 paint event. Only canvas.Font should be changed. Patch by Bald Zhang. issue
 #41361

---
 ide/ideoptionsdlg.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/ideoptionsdlg.pas b/ide/ideoptionsdlg.pas
index cbdb4f1284..c9590b2993 100644
--- a/ide/ideoptionsdlg.pas
+++ b/ide/ideoptionsdlg.pas
@@ -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);