Sub Amanare_Click
Dim sf As Object = DialogAmanareStergere.ShowAsync("Amanare / refuzare oferta", "Ok", "Cancel", "", Null, True)
Dim w As Int = 100%x
Log(100%x & " Wide, " & 100%y & "High")
If 100%Y < 100%x Then w = 100%y
DialogAmanareStergere.SetSize(w, 550dip)
Wait For (sf) Dialog_Ready(pnl As Panel)
pnl.LoadLayout("DialogAmanareStergereLayout")
DateAmanare.Initialize
DateAmanare.Date = DateTime.Now
lDateAmanare.Text = $"Selected Date: $Date{DateAmanare.Date}"$
Dialog.Initialize(Activity)
Dim cs As CSBuilder
Dialog.Title = cs.Initialize.Size(24).Append("Select Date").PopAll
End Sub
Sub lDateAmanare_Click
Wait For (Dialog.ShowTemplate(DateAmanare, "", "", "CANCEL")) Complete (Result As Int)
lDateAmanare.Text = $"Selected Date: $Date{DateAmanare.Date}"$
End Sub