From 713dd4bc780370541d5c682214494f049bbced50 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 5 Feb 2018 12:36:08 +0000
Subject: [PATCH] spktoolbar: Two comments for {%H-} locations.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6176 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/spktoolbar/SpkToolbar/SpkToolbar.pas      | 2 +-
 components/spktoolbar/SpkToolbar/spkt_Appearance.pas | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/spktoolbar/SpkToolbar/SpkToolbar.pas b/components/spktoolbar/SpkToolbar/SpkToolbar.pas
index 960e43d87..6176adbd0 100644
--- a/components/spktoolbar/SpkToolbar/SpkToolbar.pas
+++ b/components/spktoolbar/SpkToolbar/SpkToolbar.pas
@@ -294,7 +294,7 @@ type
     function GetColor: TColor;
 
     { Setter for property Color }
-    procedure SetColor(Value: TColor);
+    procedure {%H-}SetColor(Value: TColor);  // "override" will overflow the stack --> {%H-}
 
     { Setter for property TabIndex }
     procedure SetTabIndex(const Value: integer);
diff --git a/components/spktoolbar/SpkToolbar/spkt_Appearance.pas b/components/spktoolbar/SpkToolbar/spkt_Appearance.pas
index baf25e572..86a00f3fd 100644
--- a/components/spktoolbar/SpkToolbar/spkt_Appearance.pas
+++ b/components/spktoolbar/SpkToolbar/spkt_Appearance.pas
@@ -1605,7 +1605,7 @@ end;
 
 procedure SetDefaultFont(AFont: TFont);
 begin
-  //AFont.Assign(Screen.MenuFont);  // wp: why is this harmful?
+  //AFont.Assign(Screen.MenuFont);  // wp: If this really is harmful this proc should be removed.
 end;
 
 end.