mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 11:39:09 +02:00
forgotten "var"
git-svn-id: trunk@13661 -
This commit is contained in:
parent
213353b06d
commit
24b1794ec1
@ -219,7 +219,7 @@ type
|
|||||||
property Width stored False;
|
property Width stored False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TGetDockCaptionEvent = procedure(Sender: TObject; AControl: TControl; ACaption: String) of Object;
|
TGetDockCaptionEvent = procedure(Sender: TObject; AControl: TControl; var ACaption: String) of Object;
|
||||||
|
|
||||||
{ TPageControl }
|
{ TPageControl }
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user