pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

2
components/spktoolbar/SpkToolbar/SpkToolbar.pas
View File

@ -294,7 +294,7 @@ type
function GetColor: TColor; function GetColor: TColor;
{ Setter for property Color } { Setter for property Color }
procedure SetColor(Value: TColor); procedure {%H-}SetColor(Value: TColor); // "override" will overflow the stack --> {%H-}
{ Setter for property TabIndex } { Setter for property TabIndex }
procedure SetTabIndex(const Value: integer); procedure SetTabIndex(const Value: integer);

2
components/spktoolbar/SpkToolbar/spkt_Appearance.pas
View File

@ -1605,7 +1605,7 @@ end;
procedure SetDefaultFont(AFont: TFont); procedure SetDefaultFont(AFont: TFont);
begin 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;
end. end.