home *** CD-ROM | disk | FTP | other *** search
- object FormHTMLAddress: TFormHTMLAddress
- Left = 221
- Top = 126
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Address'
- ClientHeight = 170
- ClientWidth = 338
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object PanelBottom: TPanel
- Left = 0
- Top = 117
- Width = 338
- Height = 53
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- object Bevel: TBevel
- Left = 0
- Top = 0
- Width = 338
- Height = 6
- Align = alTop
- Shape = bsTopLine
- end
- object ButtonInsert: TButton
- Left = 4
- Top = 8
- Width = 77
- Height = 25
- Hint = 'Use the HTML tag'
- Caption = '&OK'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = ButtonInsertClick
- end
- object ButtonCancel: TButton
- Left = 88
- Top = 8
- Width = 77
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 1
- OnClick = ButtonCancelClick
- end
- object ButtonHelp: TButton
- Left = 256
- Top = 8
- Width = 77
- Height = 25
- Caption = '&Help'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 3
- OnClick = ButtonHelpClick
- end
- object ButtonClearAll: TButton
- Left = 172
- Top = 8
- Width = 77
- Height = 25
- Hint = 'Clear and reset all attributes to defaults'
- Caption = 'Clear &All'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = ButtonClearAllClick
- end
- object PanelSaveReuseLevel: TPanel
- Left = 4
- Top = 40
- Width = 329
- Height = 9
- BevelOuter = bvLowered
- Caption = ' '
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnDblClick = PanelSaveReuseLevelDblClick
- OnMouseMove = PanelSaveReuseLevelMouseMove
- end
- end
- object EditHTMLTag: TEdit
- Left = 4
- Top = 0
- Width = 221
- Height = 21
- Hint = 'HTML tag to be used if '#39'OK'#39' is pressed'
- TabStop = False
- AutoSize = False
- ParentColor = True
- ParentShowHint = False
- ReadOnly = True
- ShowHint = True
- TabOrder = 1
- Text = 'EditHTMLTag'
- OnChange = EditHTMLTagChange
- end
- object GroupBoxAlign: TGroupBox
- Left = 124
- Top = 28
- Width = 95
- Height = 82
- Caption = 'ALIGN'
- TabOrder = 2
- object ListBoxALIGN: TListBox
- Left = 2
- Top = 15
- Width = 91
- Height = 43
- Align = alClient
- ExtendedSelect = False
- ItemHeight = 13
- Items.Strings = (
- '0'
- 'left'
- 'center'
- 'right')
- ParentShowHint = False
- ShowHint = False
- TabOrder = 0
- OnClick = ListBoxALIGNClick
- end
- object PanelALIGN: TPanel
- Left = 2
- Top = 58
- Width = 91
- Height = 22
- Hint = 'ALIGN attribute'
- Align = alBottom
- Alignment = taLeftJustify
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'PanelALIGN'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = PanelALIGNClick
- end
- end
- end
-