Sub Information_Action
SetParentWindow
Dlg.OKButtonText = tfOKButtonText.Text
Dlg.OKButtonStyle = "-fx-font-size: 24px;-fx-background-color: indianred;"
Dlg.InformationDialog("InformationDialog Title", "Header", "Content")
End Sub
Sub Warning_Action
SetParentWindow
Dlg.OKButtonText = tfOKButtonText.Text
Dlg.OKButtonStyle = ""
Dlg.WarningDialog("WarningDialog Title", "Header", "Content")
End Sub
Sub Confirmation_Action
SetParentWindow
Dlg.OKButtonText = tfOKButtonText.Text
Dlg.OKButtonStyle = "-fx-font-size: 24px;-fx-background-color: green;"
Dlg.CancelButtonText = tfCancelButtonText.Text
Dlg.CancelButtonStyle = "-fx-font-size: 24px;-fx-background-color: red;"
taDialogResult.Text = Dlg.ConfirmationDialog("ConfirmationDialog Title", "Header", "Content")
End Sub
Sub YesNoCancel_Action
SetParentWindow
Dlg.YesButtonText = tfYESButtonText.Text
Dlg.YesButtonStyle = "-fx-font-size: 24px;-fx-background-color: green;"
Dlg.NoButtonText = tfNOButtonText.Text
Dlg.NoButtonStyle = "-fx-font-size: 24px;-fx-background-color: red;"
Dlg.CancelButtonText = tfCancelButtonText.Text
Dlg.CancelButtonStyle = "-fx-font-size: 24px;-fx-background-color: blue;"
taDialogResult.Text = Dlg.YesNoCancelDialog("YesNoCancelDialog Title", "Header", "Content")
End Sub