PRIM_MD.Alert - duration
Posted: Wed Apr 02, 2025 11:59 pm
I am having an issue with the PRIM_MD.Alert parm "duration" in a current VL web application. The "duration" time does not seem to have any impact, as the Alert just stays present until closed via user intervention.
If it makes a difference I am at EPC 150070.
Am I handling the duration parm incorrectly either in the Define, or in the Evtroutine?
I have left the Duration parm in the Define, I have also removed the Duration parm in the Define, but either way it doesn't seem to make a difference.
Is there some other parm I have that might be in conflict with the Duration?
Simple vl web page sample:
If it makes a difference I am at EPC 150070.
Am I handling the duration parm incorrectly either in the Define, or in the Evtroutine?
I have left the Duration parm in the Define, I have also removed the Duration parm in the Define, but either way it doesn't seem to make a difference.
Is there some other parm I have that might be in conflict with the Duration?
Simple vl web page sample:
Code: Select all
* Test web page with an Alert in web page, may need to create in a view, or dialog?
BEGIN_COM Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME<MaterialDesignBlue>)
DEFINE_COM Class(#PRIM_MD.Alert) Name(#Alert) Caption('Info! This Alert could indicate a neutral information change or action') Displayposition(1) Duration(3000) Left(72) Parent(#COM_OWNER) Tabposition(1) Themedrawstyle('LightTitle') Top(120)
DEFINE_COM Class(#PRIM_MD.RaisedButton) Name(#Button) Caption('SHOW ALERT') Displayposition(2) Left(72) Parent(#COM_OWNER) Tabposition(2) Themedrawstyle('MediumTitle') Top(50)
EVTROUTINE Handling(#Com_owner.Initialize)
ENDROUTINE
EVTROUTINE Handling(#Button.Click)
#Alert.Visible := True
#Alert.Duration := 1500
#Alert.Caption := 'Alert to display for 1.5 seconds'
ENDROUTINE
END_COM