27 lines
859 B
Text
27 lines
859 B
Text
Module CheckIt {
|
|
Declare Simple Form
|
|
\\ we can define form before open
|
|
Layer Simple {
|
|
\\ center Window with 12pt font, 12000 twips width and 6000 twips height
|
|
\\ ; at the end command to center the form in current screen
|
|
Window 12, 12000, 6000;
|
|
\\ make layer gray and split screen 0
|
|
Cls #333333, 0
|
|
\\ set split screen to 3rd line, like Cls ,2 without clear screen
|
|
Scroll Split 2
|
|
Cursor 0, 2
|
|
}
|
|
With Simple, "Title", "Hello Form"
|
|
Function Simple.Click {
|
|
Layer Simple {
|
|
\\ open msgbox
|
|
Print Ask("Hello World")
|
|
Refresh
|
|
}
|
|
}
|
|
\\ now open as modal
|
|
Method Simple, "Show", 1
|
|
\\ now form deleted
|
|
Declare Simple Nothing
|
|
}
|
|
CheckIt
|