TestDrive Super Store 2.3/TESTDRIVE_2.ISO/realizer/demos/preview/fdevover.rlz

Text File | 1992-09-30 | 5.4 KB | 148 lines

'***********************************************************************
'    FDevOver.RLZ
'
'    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
'    All rights reserved.
'
'***********************************************************************

IF NOT QVar(RollStart) THEN
    INPUT "Please run Preview.RLZ";
    EXIT PROGRAM
END IF
' Creating an Application
RollStart("FDevIcon")
FormSetObject(20, _CaptionCenter, "Creating an Application", fontHeading, _Center, 1 pct)
s1 = "Now you'll see how to create your own sample application."
s2 = "There are two ways you can do this:"
FormSetObject(21, _CaptionCenter, s1 + CRLF + s2, fontType, 10 pct, 15 pct, 80 pct, 33 pct)
Delay(title_delay)

FormSetObject(100, _Bitmap, "Editor2.BMP", 2 pct, 30 pct)
FormModifyObject(100, _Gray)
s1 = "You can type the program code into an editor"
FormSetObject(101, _CaptionLeft, s1, fontType, QR(100) + fontTypeHt, 36 pct, 60 pct, 20 pct)
Delay(read_delay)

FormSetObject(110, _Bitmap, "Tut04.BMP", 17 pct, 55 pct)
FormModifyObject(110, _Gray)
s1 = "Or you can use FormDev, the visual form designer"
FormSetObject(111, _CaptionLeft, s1, fontType, QR(110) + fontTypeHt, 65 pct, 42 pct, 25 pct)

IF NOT RollWait(1) THEN
    EXIT MACRO
END IF

' FDev Easy
FormSetObject(20, _CaptionCenter, "Creating programs", fontHeading, _Center, 1 pct)
FormSetObject(21, _CaptionCenter, "FormDev is easy", fontType, _Center, 13 pct)

FormSetObject(100, _Bitmap, "Tut03.BMP", 2 pct, 22 pct)
FormModifyObject(100, _Gray)
s1 = "Place them in a form to design the interface.  "
s2 = "You simply select controls from the Tool Palette."
CyanBox(200, fontHilite, _Right, 25 pct, 2, s1, s2)
Delay(read_delay)

FormSetObject(101, _Bitmap, "Tut04.BMP", 2 pct, 22 pct)
FormModifyObject(101, _Gray)
s2 = "Place them in a form to design the interface."
CyanBox(210, fontHilite, QL(200), QB(200) + fontHiliteHt\2, 1, s1, s2)
Delay(read_delay)

FormSetObject(100, _Bitmap, "Tut05.BMP", 2 pct, 22 pct)
FormModifyObject(100, _Gray)
s2 = "Assign action code to control what happens when the user interacts with the form."
CyanBox(220, fontHilite, QL(200), QB(210) + fontHiliteHt\2, 2, s1, s2)
Delay(read_delay)

FormSetObject(101, _Bitmap, "Tut06.BMP", 2 pct, 22 pct)
FormModifyObject(101, _Gray)
s2 = "Have FormDev create the program for you."
CyanBox(230, fontHilite, QL(200), QB(220) + fontHiliteHt\2, 1, s1, s2)
Delay(read_delay)

FormSetObject(100, _Bitmap, "Tut40.BMP", 17 pct, 43 pct)
FormModifyObject(100, _Gray)
s2 = "Then you can test and run your program, either from within FormDev or from Realizer itself."
CyanBox(240, fontHilite, QL(200), QB(230) + fontHiliteHt\2, 2, s1, s2)

IF NOT RollWait(1) THEN
    EXIT MACRO
END IF

' Parts of FormDev
FormSetObject(20, _CaptionCenter, "Parts of FormDev", fontHeading, _Center, 1 pct)
s1 = "FormDev contains three basic elements:"+Chr$(13)+Chr$(10)+"the form, the menu bar, and the Tool Palette."
FormSetObject(21, _CaptionCenter, s1, fontType, 10 pct, 11 pct, 80 pct, 15 pct)
Delay(title_delay)

FormSetObject(100, _Bitmap, "Tut20.BMP", 5 pct, 30 pct)
FormModifyObject(100, _Gray)
Delay(bmp_delay)

s1 = "The form is a blank form into which"
s2 = " you place objects such as buttons, checkboxes, and charts."
CyanBox(30, fontHilite, QR(100) + fontHiliteHt\4, QT(100) + (QH(100) - 4*fontHiliteHt)\2, 3, s1, s1 + s2)
Delay(read_delay)
FormModifyObject(31, _Close)
FormModifyObject(30, _Close)

s1 = "The menu bar contains commands for editing "
s2 = "the form, such as for setting object attributes, aligning objects, and setting the form's"
s2 = s2 + " background color."
CyanBox(30, fontHilite, QR(100), QT(100) - fontHiliteHt\2, 4, s1, s1 + s2)
Delay(read_delay)
FormModifyObject(31, _Close)
FormModifyObject(30, _Close)

s1 = "The tool palette is used to select"
s2 = " which objects to place in the form."
CyanBox(30, fontHilite, QR(100) + fontHiliteHt\4, QB(100) - 3*fontHiliteHt, 2, s2, s1 + s2)

IF NOT RollWait(1) THEN
    EXIT MACRO
END IF

' Parts of the Tool Palette
FormSetObject(20, _CaptionCenter, "The Tool Palette", fontHeading, _Center, 1 pct)
s1 = "Use the Tool Palette to select which objects to place in the form."
FormSetObject(21, _CaptionLeft, s1, fontType, _Center, 13 pct)

FormSetObject(100, _Bitmap, "Tut30.BMP", 100pct, 100pct)
tp = QT(100)
IF tp - QB(21) > 2 * QH(100) THEN
    FormSetObject(100, _Bitmap, "Tut30.BMP", 100pct, 100pct, 2*QW(100), 2*QH(100))
END IF
FormModifyObject(100, _Gray, _Center, QB(21) + (tp - QB(21) - QH(100))\3)

IF NOT RollWait(1) THEN
    EXIT MACRO
END IF

' Starting FormDev
FormSetObject(20, _CaptionCenter, "Starting FormDev", fontHeading, _Center, 1 pct)

s1 = "You can start the FormDev Tutorial now, from the Main Menu..."
CyanBox(30, fontHilite, _Left, 15 pct, 1, s1, s1)
Delay(2)

FormSetObject(100, _Bitmap, "ProgMgr.BMP", 2 pct, QB(30) + fontTypeHt)
FormModifyObject(100, _Gray)
s1 = "or you can start FormDev later, "
s2 = "from the Program Manager..."
CyanBox(40, fontHilite, QR(100) - QH(100)\2, QT(100) + QH(100)\2, 2, s1, s1 + s2)
Delay(read_delay)

s1 = "or you can start Realizer and execute "
s2 = "or run ""FormDev.RLZ"" from Realizer."
CyanBox(50, fontHilite, _Right, QB(100) + fontTypeHt, 2, s1, s1 + s2)
Delay(read_delay)

s1 = "You can find more information on "
s2 = "FormDev in the User's Guide."
CyanBox(60, fontHilite, _Left, _Bottom, 2, s1, s1 + s2)

IF RollWait(0) THEN
END IF