|
<< Click to Display Table of Contents >> Navigation: Demos > XI > Guess > Main.dfm |
object formMain: TformMain
Left = 0
Top = 0
Width = 381
Height = 238
Visible = False
RenderInvisibleControls = False
AllowPageAccess = True
ConnectionMode = cmAny
Title = 'Guess the Number'
SupportedBrowsers = [brNetscape7, brIE, brOpera, brChrome, brIE4, brNetscape6]
OnCreate = IWFormModuleBaseCreate
ActiveControl = editGuess
Background.Fixed = False
HandleTabs = False
LeftToRight = True
LockUntilLoaded = True
LockOnSubmit = True
ShowHint = True
XPTheme = True
DesignSize = (
381
238)
DesignLeft = 8
DesignTop = 8
object linkQuit: TIWLink
Left = 355
Top = 221
Width = 25
Height = 17
Cursor = crAuto
Anchors = [akRight, akBottom]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
StyleRenderOptions.RenderSize = True
StyleRenderOptions.RenderPosition = True
StyleRenderOptions.RenderFont = True
StyleRenderOptions.RenderZIndex = True
StyleRenderOptions.RenderVisibility = True
StyleRenderOptions.RenderStatus = True
StyleRenderOptions.RenderAbsolute = True
Alignment = taLeftJustify
Color = clNone
Font.Color = clNone
Font.Size = 10
Font.Style = [fsUnderline]
ScriptEvents = <>
DoSubmitValidation = False
FriendlyName = 'linkQuit'
OnAsyncClick = linkQuitAsyncClick
TabOrder = 0
RawText = False
Caption = 'Quit'
ExplicitLeft = 257
ExplicitTop = 130
end
object IWRegion1: TIWRegion
Left = 54
Top = 44
Width = 272
Height = 122
Cursor = crAuto
HorzScrollBar.Range = 255
HorzScrollBar.Visible = False
VertScrollBar.Range = 88
VertScrollBar.Visible = False
RenderInvisibleControls = False
TabOrder = 0
Anchors = []
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clWebGRAY
Color = clWebWHITESMOKE
ParentShowHint = False
ShowHint = True
ZIndex = -1
Splitter = False
ExplicitLeft = 5
ExplicitTop = 4
object editGuess: TIWEdit
Left = 66
Top = 33
Width = 65
Height = 21
Cursor = crAuto
IW50Hint = True
ParentShowHint = False
ShowHint = False
StatusText = 'Enter your guess please!'
ZIndex = 0
RenderSize = True
StyleRenderOptions.RenderSize = True
StyleRenderOptions.RenderPosition = True
StyleRenderOptions.RenderFont = True
StyleRenderOptions.RenderZIndex = True
StyleRenderOptions.RenderVisibility = True
StyleRenderOptions.RenderStatus = True
StyleRenderOptions.RenderAbsolute = True
Alignment = taLeftJustify
BGColor = clNone
FocusColor = clNone
DoSubmitValidation = True
Editable = True
NonEditableAsLabel = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
FriendlyName = 'Guess'
MaxLength = 3
ReadOnly = False
Required = True
ScriptEvents = <>
SubmitOnAsyncEvent = True
TabOrder = 1
PasswordPrompt = False
end
object IWLabel1: TIWLabel
Left = 8
Top = 33
Width = 46
Height = 16
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
StyleRenderOptions.RenderSize = True
StyleRenderOptions.RenderPosition = True
StyleRenderOptions.RenderFont = True
StyleRenderOptions.RenderZIndex = True
StyleRenderOptions.RenderVisibility = True
StyleRenderOptions.RenderStatus = True
StyleRenderOptions.RenderAbsolute = True
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.Size = 10
Font.Style = []
NoWrap = False
ConvertSpaces = False
HasTabOrder = False
AutoSize = False
FriendlyName = 'IWLabel1'
Caption = 'Guess:'
RawText = False
end
object butnGuess: TIWButton
Left = 162
Top = 33
Width = 81
Height = 25
Cursor = crAuto
Hint = 'Press to guess!'
IW50Hint = False
ParentShowHint = False
ShowHint = True
StatusText = 'Press this button when ready.'
ZIndex = 0
RenderSize = True
StyleRenderOptions.RenderSize = True
StyleRenderOptions.RenderPosition = True
StyleRenderOptions.RenderFont = True
StyleRenderOptions.RenderZIndex = True
StyleRenderOptions.RenderVisibility = True
StyleRenderOptions.RenderStatus = True
StyleRenderOptions.RenderAbsolute = True
Caption = 'Guess'
DoSubmitValidation = True
Color = 13160660
Font.Color = clNone
Font.Size = 10
Font.Style = []
FriendlyName = 'butnGuess'
ScriptEvents = <>
TabOrder = 2
OnAsyncClick = butnGuessAsyncClick
end
object lablResponse: TIWLabel
Left = 8
Top = 89
Width = 245
Height = 16
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
StyleRenderOptions.RenderSize = True
StyleRenderOptions.RenderPosition = True
StyleRenderOptions.RenderFont = True
StyleRenderOptions.RenderZIndex = True
StyleRenderOptions.RenderVisibility = True
StyleRenderOptions.RenderStatus = True
StyleRenderOptions.RenderAbsolute = True
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clWebGREEN
Font.Size = 10
Font.Style = [fsBold]
NoWrap = False
ConvertSpaces = False
HasTabOrder = False
AutoSize = False
FriendlyName = 'lablResponse'
Caption = 'Response'
RawText = False
end
object lablGuessNo: TIWLabel
Left = 8
Top = 65
Width = 245
Height = 16
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
StyleRenderOptions.RenderSize = True
StyleRenderOptions.RenderPosition = True
StyleRenderOptions.RenderFont = True
StyleRenderOptions.RenderZIndex = True
StyleRenderOptions.RenderVisibility = True
StyleRenderOptions.RenderStatus = True
StyleRenderOptions.RenderAbsolute = True
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.Size = 10
Font.Style = []
NoWrap = False
ConvertSpaces = False
HasTabOrder = False
AutoSize = False
FriendlyName = 'lablGuessNo'
Caption = 'Guess #1'
RawText = False
end
object IWRectangle1: TIWRectangle
Left = 1
Top = 1
Width = 270
Height = 18
Cursor = crAuto
Align = alTop
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
StyleRenderOptions.RenderSize = True
StyleRenderOptions.RenderPosition = True
StyleRenderOptions.RenderFont = True
StyleRenderOptions.RenderZIndex = True
StyleRenderOptions.RenderVisibility = True
StyleRenderOptions.RenderStatus = True
StyleRenderOptions.RenderAbsolute = True
Text = 'Please guess the number from 1 to 100:'
Font.Color = clWebWHITE
Font.FontName = 'Arial Bold'
Font.Size = 10
Font.Style = [fsBold]
BorderOptions.Color = clNone
BorderOptions.Width = 0
FriendlyName = 'IWRectangle1'
Color = clWebDEEPSKYBLUE
Alignment = taLeftJustify
VAlign = vaMiddle
end
end
end