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

RxFPC: TRxPopupNotifier - fix update message text

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7387 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2020-04-17 11:14:55 +00:00
parent 79e39c6318
commit c8fb7ae1e8
1 changed files with 22 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
components/rx/trunk/rxcontrols/rxpopupnotifier.pas
View File

@ -65,6 +65,7 @@ type
protected protected
public public
constructor CreateNotifierForm(AOwnerItem:TRxPopupNotifierItem); constructor CreateNotifierForm(AOwnerItem:TRxPopupNotifierItem);
procedure SetMessage(AMessage:string);
end; end;
{ TCloseButtonItem } { TCloseButtonItem }
@ -112,6 +113,7 @@ type
procedure SetAlphaBlendValue(AValue: Byte); procedure SetAlphaBlendValue(AValue: Byte);
procedure SetCloseButton(AValue: TCloseButtonItem); procedure SetCloseButton(AValue: TCloseButtonItem);
procedure SetColor(AValue: TColor); procedure SetColor(AValue: TColor);
procedure SetMessage(AValue: string);
procedure SetShowCloseButton(AValue: boolean); procedure SetShowCloseButton(AValue: boolean);
procedure SetShowCloseTimer(AValue: boolean); procedure SetShowCloseTimer(AValue: boolean);
procedure UpdateCloseLabel; procedure UpdateCloseLabel;
@ -134,7 +136,7 @@ type
property ShowCloseTimer:boolean read FShowCloseTimer write SetShowCloseTimer default true; property ShowCloseTimer:boolean read FShowCloseTimer write SetShowCloseTimer default true;
property ShowCloseButton:boolean read GetShowCloseButton write SetShowCloseButton default true; property ShowCloseButton:boolean read GetShowCloseButton write SetShowCloseButton default true;
property Caption:string read FCaption write FCaption; property Caption:string read FCaption write FCaption;
property Message:string read FMessage write FMessage; property Message:string read FMessage write SetMessage;
property CloseButton:TCloseButtonItem read FCloseButton write SetCloseButton; property CloseButton:TCloseButtonItem read FCloseButton write SetCloseButton;
end; end;
@ -360,6 +362,17 @@ begin
ShowHint:=true; ShowHint:=true;
end; end;
procedure TRxNotifierForm.SetMessage(AMessage: string);
begin
if not Assigned(FMessageLabel) then
CreateMessage(AMessage)
else
begin
FMessageLabel.Caption:=AMessage;
DoUpdateControls;
end;
end;
{ TNotifierCollection } { TNotifierCollection }
function TNotifierCollection.GetItems(AIndex: Integer): TRxPopupNotifierItem; function TNotifierCollection.GetItems(AIndex: Integer): TRxPopupNotifierItem;
@ -454,6 +467,14 @@ begin
FNotifyForm.Color:=FColor; FNotifyForm.Color:=FColor;
end; end;
procedure TRxPopupNotifierItem.SetMessage(AValue: string);
begin
if FMessage=AValue then Exit;
FMessage:=AValue;
if Assigned(FNotifyForm) then
FNotifyForm.SetMessage(AValue);
end;
procedure TRxPopupNotifierItem.SetShowCloseButton(AValue: boolean); procedure TRxPopupNotifierItem.SetShowCloseButton(AValue: boolean);
begin begin
FCloseButton.Visible:=AValue; FCloseButton.Visible:=AValue;