Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
|
|
@ -0,0 +1,27 @@
|
|||
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
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
Module CheckIt {
|
||||
Declare Simple Form
|
||||
With Simple, "Title", "Hello World"
|
||||
Method Simple, "Show", 1
|
||||
Declare Simple Nothing
|
||||
}
|
||||
CheckIt
|
||||
Loading…
Add table
Add a link
Reference in a new issue