126 lines
1.5 KiB
QBasic
126 lines
1.5 KiB
QBasic
'encoding UTF-8 Do not remove or change this line!
|
|
sub main
|
|
' cMassentest
|
|
' DisplayHid
|
|
cTestdialog
|
|
cSysDlgTest
|
|
cFileOpenTest
|
|
SidWintree
|
|
|
|
FileExit
|
|
end sub
|
|
|
|
testcase cMassentest
|
|
|
|
DisplayHid
|
|
resetapplication
|
|
FileDialog
|
|
kontext "GrosserTestDlg"
|
|
dim c,t,lang,i
|
|
c = 0
|
|
lang = "0123456789abcdef"
|
|
lang = lang + lang
|
|
lang = lang + lang
|
|
lang = lang + lang
|
|
lang = lang + lang
|
|
lang = lang + lang
|
|
lang = lang + lang
|
|
|
|
lang = lang + lang
|
|
lang = lang + lang
|
|
nodebug
|
|
while 1
|
|
c = c + 1
|
|
t = str(c)
|
|
MultiLineEdit.SetText t
|
|
CheckBox.check lang
|
|
CheckBox.uncheck lang
|
|
for i = 1 to 200 : next
|
|
beep
|
|
wend
|
|
|
|
endcase
|
|
|
|
|
|
testcase cFileOpenTest
|
|
|
|
FileOpenTest
|
|
setclipboard wintree
|
|
kontext
|
|
active.cancel
|
|
|
|
endcase
|
|
|
|
|
|
testcase cSysDlgTest
|
|
|
|
SysDialogs
|
|
setclipboard wintree
|
|
kontext
|
|
active.yes
|
|
setclipboard wintree
|
|
active.ok
|
|
active.Cancel
|
|
|
|
SysDialogs
|
|
active.Cancel
|
|
active.ok
|
|
|
|
endcase
|
|
|
|
testcase cTestdialog
|
|
|
|
FileDialog
|
|
|
|
kontext "GrosserTestDlg"
|
|
CheckBox.uncheck
|
|
TriStateBox.tristate
|
|
'OKButton
|
|
' TimeField.settext("fhsdjk")
|
|
MultiLineEdit.SetText "Das war der Text: '"+MultiLineEdit.GetText+"'"
|
|
RadioButton1.check
|
|
RadioButton2.check
|
|
' MultiListBox.select 2
|
|
ComboBox.select("Dritter")
|
|
DateBox.select("1.1.91")
|
|
|
|
GrosserTestDlg.ok
|
|
|
|
endcase
|
|
|
|
|
|
sub LoadIncludeFiles
|
|
|
|
start "miniapp.exe", "-enableautomation"
|
|
|
|
use "test.win"
|
|
use "test.sid"
|
|
|
|
testexit
|
|
|
|
end sub
|
|
|
|
sub testenter
|
|
end sub
|
|
|
|
sub testexit
|
|
|
|
dim xx
|
|
xx = resetapplication
|
|
if xx > "" then warnlog xx
|
|
|
|
end sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|