home *** CD-ROM | disk | FTP | other *** search
- object DlgExpert: TDlgExpert
- Left = 247
- Top = 150
- ActiveControl = NextButton
- BorderStyle = bsDialog
- Caption = 'Dialog Expert'
- ClientHeight = 174
- ClientWidth = 430
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- TextHeight = 13
- object Sample: TPaintBox
- Left = 8
- Top = 12
- Width = 92
- Height = 73
- OnPaint = SamplePaint
- end
- object Notebook: TNotebook
- Left = 112
- Top = 8
- Width = 309
- Height = 121
- TabOrder = 0
- object TPage
- Left = 0
- Top = 0
- Caption = 'Style'
- object Label1: TLabel
- Left = 20
- Top = 8
- Width = 109
- Height = 13
- AutoSize = False
- Caption = 'Select dialog style:'
- end
- object rbSinglePage: TRadioButton
- Left = 36
- Top = 36
- Width = 197
- Height = 17
- Caption = 'Single page dialog'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = StyleClick
- end
- object rbTabNot: TRadioButton
- Left = 36
- Top = 60
- Width = 253
- Height = 17
- Caption = 'Multipage, using TabbedNotebook'
- TabOrder = 1
- OnClick = StyleClick
- end
- object rbTabs: TRadioButton
- Left = 36
- Top = 84
- Width = 241
- Height = 17
- Caption = 'Multipage, using Tabs + Notebook'
- TabOrder = 2
- OnClick = StyleClick
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Pages'
- object Label3: TLabel
- Left = 20
- Top = 12
- Width = 254
- Height = 13
- AutoSize = False
- Caption = 'Enter pages names for the mulit-page dialog:'
- FocusControl = PageNames
- end
- object PageNames: TMemo
- Left = 20
- Top = 28
- Width = 221
- Height = 81
- TabOrder = 0
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Buttons'
- object Label2: TLabel
- Left = 20
- Top = 8
- Width = 143
- Height = 13
- AutoSize = False
- Caption = 'Select button placement:'
- end
- object rbBtnsV: TRadioButton
- Left = 36
- Top = 60
- Width = 213
- Height = 17
- Caption = 'Vertical along right edge'
- TabOrder = 0
- OnClick = BtnClick
- end
- object rbBtnsH: TRadioButton
- Left = 36
- Top = 84
- Width = 205
- Height = 17
- Caption = 'Horizontal along bottom'
- TabOrder = 1
- OnClick = BtnClick
- end
- object RadioButton1: TRadioButton
- Left = 36
- Top = 36
- Width = 121
- Height = 17
- Caption = 'No buttons'
- Checked = True
- TabOrder = 2
- TabStop = True
- OnClick = BtnClick
- end
- end
- end
- object NextButton: TBitBtn
- Left = 340
- Top = 140
- Width = 77
- Height = 27
- Caption = '&Next'
- TabOrder = 1
- OnClick = NextClick
- Margin = 2
- Spacing = -1
- end
- object PrevButton: TBitBtn
- Left = 256
- Top = 140
- Width = 77
- Height = 27
- Caption = '&Prev'
- Enabled = False
- TabOrder = 2
- OnClick = PrevClick
- Glyph.Data = {
- B6010000424DB601000000000000760000002800000028000000100000000100
- 0400000000004001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 44777777777777777777FF7777777777777777746477777777777777777F7F77
- 7777777777777746647777777777777777F77F77777777777777746664777777
- 777777777F777F7777777777777746666477777777777777F7777F7777777777
- 77746666647777777777777F77777F77777777777746666664777777777777F7
- 77777F7777777777746666666477777777777F7777777F77777777777E666666
- 647777777777787777777F777777777777E66666647777777777778777777F77
- 77777777777E6666647777777777777877777F77777777777777E66664777777
- 7777777787777F777777777777777E66647777777777777778777F7777777777
- 777777E6647777777777777777877F77777777777777777E6477777777777777
- 77787F777777777777777777E677777777777777777787777777}
- Margin = 2
- NumGlyphs = 2
- Spacing = -1
- end
- object BitBtn3: TBitBtn
- Left = 8
- Top = 140
- Width = 77
- Height = 27
- TabOrder = 3
- OnClick = CancelClick
- Kind = bkCancel
- Margin = 2
- Spacing = -1
- end
- end
-