home *** CD-ROM | disk | FTP | other *** search
- object DlgExpert: TDlgExpert
- Left = 270
- Top = 132
- BorderStyle = bsDialog
- Caption = 'Dialog Wizard'
- ClientHeight = 161
- ClientWidth = 391
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Sample: TPaintBox
- Left = 8
- Top = 12
- Width = 92
- Height = 73
- OnPaint = SamplePaint
- end
- object CancelBtn: TButton
- Left = 304
- Top = 136
- Width = 77
- Height = 21
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 0
- OnClick = CancelClick
- end
- object PrevButton: TButton
- Left = 135
- Top = 136
- Width = 77
- Height = 21
- Caption = '< &Back'
- Enabled = False
- TabOrder = 1
- OnClick = PrevClick
- end
- object NextButton: TButton
- Left = 212
- Top = 136
- Width = 77
- Height = 21
- Caption = '&Next >'
- TabOrder = 2
- OnClick = NextClick
- end
- object PageControl: TPageControl
- Left = 112
- Top = 7
- Width = 269
- Height = 119
- ActivePage = Style
- TabOrder = 3
- TabStop = False
- object Style: TTabSheet
- Caption = 'Style'
- TabVisible = False
- object Label1: TLabel
- Left = 6
- Top = 8
- Width = 109
- Height = 13
- AutoSize = False
- Caption = 'Select dialog style:'
- end
- object rbSinglePage: TRadioButton
- Left = 22
- Top = 34
- Width = 197
- Height = 17
- Caption = 'Single page dialog'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = StyleClick
- end
- object rbMultPg: TRadioButton
- Left = 22
- Top = 58
- Width = 237
- Height = 17
- Caption = 'Multipage, using PageControl'
- TabOrder = 1
- OnClick = StyleClick
- end
- end
- object Pages: TTabSheet
- Caption = 'Pages'
- TabVisible = False
- object Label3: TLabel
- Left = 9
- Top = 6
- Width = 232
- Height = 13
- AutoSize = False
- Caption = 'Enter pages names for the mulit-page dialog:'
- FocusControl = PageNames
- end
- object PageNames: TMemo
- Left = 9
- Top = 22
- Width = 221
- Height = 81
- TabOrder = 0
- WordWrap = False
- end
- end
- object Buttons: TTabSheet
- Caption = 'Buttons'
- TabVisible = False
- object Label2: TLabel
- Left = 6
- Top = 11
- Width = 142
- Height = 13
- AutoSize = False
- Caption = 'Select button placement:'
- end
- object RadioButton1: TRadioButton
- Left = 22
- Top = 36
- Width = 120
- Height = 17
- Caption = 'No buttons'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = BtnClick
- end
- object rbBtnsV: TRadioButton
- Left = 22
- Top = 58
- Width = 212
- Height = 17
- Caption = 'Vertical along right edge'
- TabOrder = 1
- OnClick = BtnClick
- end
- object rbBtnsH: TRadioButton
- Left = 22
- Top = 80
- Width = 204
- Height = 17
- Caption = 'Horizontal along bottom'
- TabOrder = 2
- OnClick = BtnClick
- end
- end
- end
- end
-