' ======================================= ' 
'		โปรแกรมตัวอย่างในการใช้ DialogBox 
' ======================================= ' 
$include "c:\rapidq\rapidq.inc"
$typecheck on
$escapechars on

dim form as qform
dim btn1 as qbutton, btn2 as qbutton
dim btn3 as qbutton, btn4 as qbutton, btn5 as qbutton

CONST progName$ ="program dialog example"

sub btn1Click
 showMessage "เปลี่ยนโปรแกรมเป็นชื่อเดิม"
 form.Caption = progName$
end sub 

sub btn2Click
' สามารถเปลี่ยน 1 เป็นอื่นๆ ได้โดยดูค่าต่างๆจากคู่มือ Windows API 
IF MessageBox("เลือกกดปุ่มใดปุ่มหนึ่ง", "MessageBox Example", 1) = 1 THEN
    ShowMessage "you select ok-btn"
    else
    ShowMessage "you select cancel-btn"
END IF
end sub

sub btn3Click
' สามารถเปลี่ยน mtWarning , mbOK และ mbCancel เป็นอย่างอื่นได้ ดูได้จากคู่มือของ Rapid-Q 
IF MessageDlg("เลือกกดปุ่มใดปุ่มหนึ่ง", mtWarning, mbOK OR mbCancel, 0) = mrOK THEN
	form.Caption = "you select ok"
	else
	form.Caption = "you select cancel"
END IF
end sub

sub btn4Click
	Application.Minimize
end sub

sub btn5Click
	Form.Close
end sub

'-- with เป็นตัวช่วยในการเขียนโปรแกรมให้เขียนถึงส่วนต่างๆ ของ object ได้ง่ายขึ้น 
'-- อย่างเช่นข้างล่าง .Align = alTop เป็นตัวย่อจาก btn1.Align = alTop 

with btn1:	.Parent = form
.Align = alTop
.Caption = "Dialog Box 1"
	.onClick = btn1Click
end with

with btn2:	.Parent = form
.Align = alTop
.Caption = "Dialog Box 2"
	.onClick = btn2Click
end with

with btn3:	.Parent = form
.Align = alClient
.Caption = "Dialog Box 3"
	.onClick = btn3Click
end with

with btn4:	.Parent = form
.Align = alBottom
.Caption = "ย่อส่วนโปรแกรม"
	.onClick = btn4Click
end with

with btn5:	.Parent = form
.Align = alBottom
.Caption = "ปิดโปรแกรม"
	.onClick = btn5Click
end with

form.Caption = progName$
form.center
form.showModal