paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 00:35:56 +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; procedure ShowBalloonHint;
function GetPosition: TPoint; function GetPosition: TPoint;
{ Properties } { 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 BalloonHint: string read FBalloonHint write FBalloonHint;
property BalloonTimeout: Integer read FBalloonTimeout write FBalloonTimeout default 3000; property BalloonTimeout: Integer read FBalloonTimeout write FBalloonTimeout default 3000;
property BalloonTitle: string read FBalloonTitle write FBalloonTitle; property BalloonTitle: string read FBalloonTitle write FBalloonTitle;
@ -1144,7 +1144,7 @@ type
property Icon: TIcon read FIcon write SetIcon; property Icon: TIcon read FIcon write SetIcon;
property Hint: string read FHint write SetHint; property Hint: string read FHint write SetHint;
property ShowIcon: Boolean read FShowIcon write FShowIcon default True; 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 } { Events }
property OnClick: TNotifyEvent read FOnClick write FOnClick; property OnClick: TNotifyEvent read FOnClick write FOnClick;
property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick; property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;

2
lcl/include/customtrayicon.inc
View File

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