You've already forked lazarus-ccr
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:
@ -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);
|
||||
|
@ -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.
|
||||
|
Reference in New Issue
Block a user