paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 16:38:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: set default values for TCustomTrayIcon properties

Browse Source 
git-svn-id: trunk@17610 -
This commit is contained in:
paul 2008-11-27 04:46:42 +00:00
parent cdb0d3c467
commit 2f2f3b5c11
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/extctrls.pp
View File

@ -1135,7 +1135,7 @@ type
procedure ShowBalloonHint;
function GetPosition: TPoint;
{ Properties }
property BalloonFlags: TBallonFlags read FBalloonFlags write FBalloonFlags;
property BalloonFlags: TBallonFlags read FBalloonFlags write FBalloonFlags default bfNone;
property BalloonHint: string read FBalloonHint write FBalloonHint;
property BalloonTimeout: Integer read FBalloonTimeout write FBalloonTimeout default 3000;
property BalloonTitle: string read FBalloonTitle write FBalloonTitle;
@ -1144,7 +1144,7 @@ type
property Icon: TIcon read FIcon write SetIcon;
property Hint: string read FHint write SetHint;
property ShowIcon: Boolean read FShowIcon write FShowIcon default True;
property Visible: Boolean read FVisible write SetVisible;
property Visible: Boolean read FVisible write SetVisible default False;
{ Events }
property OnClick: TNotifyEvent read FOnClick write FOnClick;
property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;

2
lcl/include/customtrayicon.inc
View File

@ -41,6 +41,8 @@ begin
{ Default property values }
FBalloonTimeout := 3000;
FShowIcon := True;
FBalloonFlags := bfNone;
FVisible := False;
FIcon := TIcon.Create;
FIcon.OnChange := @IconChanged;