# Gambas Form File 3.0 { Form Form MoveScaled(0,0,83,65) Resizable = False { Wizard1 Wizard MoveScaled(1,1,81,63) Count = 6 TextFont = Font["Bold,Italic,+3"] ShowIndex = True Index = 0 Text = ("Introduction") { TextLabel1 TextLabel MoveScaled(2,2,76,48) Font = Font["+1"] Text = ("Most of the properties of this wizard are selected in the properties window, not by code. This is because for designing the wizard you need the properties window anyway. \n
\n
\nTo see the properties window, you have to do save the project in your home directory so that it is not write protected anymore.\n
\nTo design the pages of the wizard (or to see the properties), just click in the IDE on the \"Next\" button.\n
\nThe essential property of the wizard container is Count. This defines the number of steps the user will have to click through. On the last page the button \"Next\" changes automatically to \"OK\" to finish the task.\n
\nIn some situations you might want to skip steps of the wizard. You find this in the code of the CheckBoxes in step 2.\n
\n")
}
Index = 1
Text = ("Your order")
{ TextLabel5 TextLabel
MoveScaled(2,2,75,7)
Font = Font["Bold,+1"]
Text = ("I order, according to the terms & conditions, the following items:")
}
{ Label1 Label
MoveScaled(2,8,11,4)
Font = Font["+1"]
Text = ("Amount")
}
{ vbCode ValueBox
MoveScaled(2,13,8,4)
}
{ Label2 Label
MoveScaled(13,8,11,4)
Font = Font["+1"]
Text = ("Article")
}
{ lblCode Label
MoveScaled(13,13,63,4)
Text = ("lines of code from gambas 3")
}
{ vbFrozen ValueBox
MoveScaled(2,18,8,4)
}
{ lblFrozen Label
MoveScaled(13,18,63,4)
Text = ("kg of frozen shrimps")
}
{ vbImg ValueBox
MoveScaled(2,23,8,4)
}
{ lblImg Label
MoveScaled(13,23,63,4)
Text = ("image files of the Gambas logo")
}
{ chbTerms CheckBox
MoveScaled(2,31,75,5)
Text = ("I want to read the terms and conditions")
Value = CheckBox.True
}
{ chbSave CheckBox
MoveScaled(2,37,40,4)
Text = ("I want to save my order")
Value = CheckBox.True
}
Index = 2
Text = ("Terms and Conditions")
{ TextLabel6 TextLabel
MoveScaled(2,2,76,41)
Font = Font["Serif,Bold,Italic,+1"]
Background = Color.TextBackground
Padding = 8
Text = ("As this is only an example,
nothing will be ordered,
nothing will be saved,
and nothing will be sent.")
Border = Border.Plain
}
Index = 3
Text = ("Your address")
{ Label3 Label
MoveScaled(2,2,41,3)
Text = ("Please enter your address here:")
}
{ txaAddress TextArea
MoveScaled(2,6,76,15)
}
Index = 4
Text = ("Save your order")
{ Label4 Label
MoveScaled(2,1,66,4)
Font = Font["Bold"]
Text = ("Where do you want to save your order?")
}
{ DirChooser1 DirChooser
MoveScaled(2,5,76,38)
}
Index = 5
Text = ("Send your order")
{ txlOrder TextLabel
MoveScaled(4,13,70,8)
}
{ Label6 Label
MoveScaled(2,9,22,3)
Text = ("The following items:")
}
{ Label7 Label
MoveScaled(2,23,25,3)
Text = ("will be delivered to:")
}
{ txlAddress TextLabel
MoveScaled(4,27,72,15)
}
{ TextLabel2 TextLabel
MoveScaled(2,1,75,7)
Font = Font["Bold,+1"]
Text = ("Your order is now ready to be sent. Please check if everything is correct.")
}
Index = 0
}
}