home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1999 January
/
pcwk_01_1999.iso
/
Top100sh
/
Internet
/
Htmltool
/
HTMLTOOL.exe
/
0
/
RCDATA
/
TFRMOPTIONS
/
TFRMOPTIONS.txt
Wrap
Text File
|
1998-01-30
|
11KB
|
442 lines
object FrmOptions: TFrmOptions
Left = 241
Top = 202
BorderStyle = bsDialog
Caption = 'Options'
ClientHeight = 233
ClientWidth = 313
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object btnOK: TButton
Left = 120
Top = 200
Width = 89
Height = 25
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 0
end
object btnCancel: TButton
Left = 216
Top = 200
Width = 89
Height = 25
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
end
object tnbOptions: TTabbedNotebook
Left = 8
Top = 8
Width = 297
Height = 185
TabFont.Color = clBtnText
TabFont.Height = -11
TabFont.Name = 'MS Sans Serif'
TabFont.Style = []
TabOrder = 2
object TTabPage
Left = 4
Top = 24
Caption = 'General'
object cbTipAssistant: TCheckBox
Left = 8
Top = 88
Width = 161
Height = 17
Hint = 'Do you want to see the Tip Assistant every startup ?'
Caption = ' Show &Tip Assistant at startup'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object cbNewDoc: TCheckBox
Left = 8
Top = 64
Width = 163
Height = 17
Hint = 'Open a new document at startup ?'
Caption = ' &New document at startup'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object cbLowerCase: TCheckBox
Left = 8
Top = 40
Width = 153
Height = 17
Hint = 'Indicates whether to insert all tags lowercase or not'
Caption = ' Insert tags &lowercase'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object cbWordWrap: TCheckBox
Left = 8
Top = 16
Width = 81
Height = 17
Caption = ' &Word wrap'
ParentShowHint = False
ShowHint = False
TabOrder = 3
end
end
object TTabPage
Left = 4
Top = 24
Caption = 'Toolbars'
object cbStandard: TCheckBox
Left = 8
Top = 16
Width = 113
Height = 17
Hint = 'Indicates whether to show the Standard Speedbar or not'
Caption = ' &Standard Speedbar'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object cbQuickHTML: TCheckBox
Left = 8
Top = 40
Width = 137
Height = 17
Hint = 'Indicates whether to show the Quick HTML Toolbar or not'
Caption = ' &Quick HTML Toolbar'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object cbTags: TCheckBox
Left = 8
Top = 64
Width = 121
Height = 17
Hint = 'Indicates whether to show the Tags Toolbar or not'
Caption = ' HTML &Tags'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object cbColors: TCheckBox
Left = 8
Top = 88
Width = 97
Height = 17
Hint = 'Indicates whether to show the Color Speedbar or not'
Caption = ' &Color Speedbar'
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object cbStatusLine: TCheckBox
Left = 8
Top = 112
Width = 80
Height = 17
Hint = 'Indicates whether to show the Status Line or not'
Caption = ' Status &Line'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
end
object TTabPage
Left = 4
Top = 24
Caption = 'Browser'
object lblBrowserPath: TLabel
Left = 8
Top = 16
Width = 22
Height = 13
Caption = 'Path'
FocusControl = EditBrowser
end
object EditBrowser: TEdit
Left = 8
Top = 40
Width = 273
Height = 21
Hint = 'Path of browser to use with '#39'Preview'#39' funtion'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object btnBrowse: TBitBtn
Left = 192
Top = 72
Width = 89
Height = 22
Hint = 'Browse for a file on the local computer'
Caption = 'B&rowse ...'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = btnBrowseClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777777777777777000000000007777700333333333077770B0333333333
07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
7007777777770777070777777777700077777777777777777777}
end
end
object TTabPage
Left = 4
Top = 24
Caption = 'Help File'
object lblExternalHelpFilePath: TLabel
Left = 8
Top = 16
Width = 22
Height = 13
Caption = 'Path'
FocusControl = EditExternalHelpFile
end
object lblCaption: TLabel
Left = 8
Top = 100
Width = 36
Height = 13
Caption = 'Caption'
FocusControl = EditCaption
end
object EditExternalHelpFile: TEdit
Left = 8
Top = 40
Width = 273
Height = 21
Hint = 'The help file that will be called when F1 is pressed'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = EditExternalHelpFileChange
end
object EditCaption: TEdit
Left = 8
Top = 124
Width = 273
Height = 21
Hint =
'Text to appear in the help menu for the menu item that calls the' +
' help file'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object btnBrowse2: TBitBtn
Left = 192
Top = 72
Width = 89
Height = 22
Caption = 'Browse ...'
TabOrder = 2
OnClick = btnBrowse2Click
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777777777777777000000000007777700333333333077770B0333333333
07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
7007777777770777070777777777700077777777777777777777}
end
end
object TTabPage
Left = 4
Top = 24
Caption = 'Filer'
object Align: TLabel
Left = 8
Top = 72
Width = 46
Height = 13
Caption = 'Alignment'
end
object cbImages: TCheckBox
Left = 8
Top = 16
Width = 161
Height = 17
Hint = 'use the <IMG> tag instead of <A> (only for images)'
Caption = ' Use <&IMG> tag with images'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object cbText: TCheckBox
Left = 8
Top = 40
Width = 97
Height = 17
Hint =
'don'#39't use the <A> tag with text files, but insert their content ' +
'in the current file'
Caption = ' Insert &text files'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object rbLeft: TRadioButton
Left = 64
Top = 72
Width = 57
Height = 17
Caption = '&Left'
TabOrder = 2
end
object rbRight: TRadioButton
Left = 64
Top = 88
Width = 57
Height = 17
Caption = '&Right'
TabOrder = 3
end
end
object TTabPage
Left = 4
Top = 24
Caption = 'Font'
object btnFont: TButton
Left = 8
Top = 16
Width = 75
Height = 25
Caption = '&Font'
TabOrder = 0
OnClick = btnFontClick
end
object btnColor: TButton
Left = 8
Top = 48
Width = 75
Height = 25
Caption = '&Color'
TabOrder = 1
OnClick = btnColorClick
end
object btnBackground: TButton
Left = 8
Top = 80
Width = 75
Height = 25
Caption = 'Background'
TabOrder = 2
OnClick = btnBackgroundClick
end
object Memo: TMemo
Left = 96
Top = 16
Width = 185
Height = 129
TabStop = False
Lines.Strings = (
'<HTML><HEAD></HEAD>'
'<BODY>'
'This is some sample text to show how '
'it will look like in every window <BR>'
'</BODY>'
'</HTML>')
ReadOnly = True
TabOrder = 3
end
end
object TTabPage
Left = 4
Top = 24
Caption = 'Other'
object lblAutoSave: TLabel
Left = 8
Top = 16
Width = 72
Height = 13
Caption = ' &Autosave after'
FocusControl = seMinutes
end
object lblMinutes: TLabel
Left = 149
Top = 16
Width = 36
Height = 13
Caption = 'minutes'
end
object seMinutes: TSpinEdit
Left = 88
Top = 16
Width = 49
Height = 22
Hint = 'enter 0 to disable autosaving'
MaxValue = 1000
MinValue = 0
ParentShowHint = False
ShowHint = True
TabOrder = 0
Value = 0
end
object cbLimitFileSize: TCheckBox
Left = 8
Top = 48
Width = 97
Height = 17
Hint =
'Indicates whether to limit the maximum size of files to edit. Ch' +
'eck if you have trouble entering text into douments.'
Caption = '&Limit File Size'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
end
end
object DlgBrowser: TOpenDialog
DefaultExt = 'exe'
FileEditStyle = fsEdit
FileName = '*.exe'
Filter = 'Executables|*.exe'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
Title = 'Select a browser'
Left = 400
Top = 544
end
object DlgHelpFile: TOpenDialog
DefaultExt = 'hlp'
FileEditStyle = fsEdit
FileName = '*.hlp'
Filter = 'Help files|*.hlp'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
Title = 'Select a help file'
Left = 472
Top = 544
end
object DlgFont: TFontDialog
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Options = [fdForceFontExist]
Left = 20
Top = 160
end
object DlgColor: TColorDialog
Ctl3D = True
Left = 52
Top = 160
end
end