spktoolbar: Two comments for {%H-} locations.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6176 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-02-05 12:36:08 +00:00
parent b12379211e
commit 713dd4bc78
2 changed files with 2 additions and 2 deletions

View File

@ -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);

View File

@ -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.