home *** CD-ROM | disk | FTP | other *** search
- object frmImage: TfrmImage
- Left = 340
- Top = 183
- HelpContext = 107
- ActiveControl = cmbURL
- BorderStyle = bsDialog
- Caption = 'Image'
- ClientHeight = 412
- ClientWidth = 479
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- Position = poScreenCenter
- ShowHint = True
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnDeactivate = FormDeactivate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 4
- Top = 4
- Width = 469
- Height = 213
- Shape = bsFrame
- IsControl = True
- end
- object lblAltText: TLabel
- Left = 15
- Top = 134
- Width = 32
- Height = 13
- Caption = '&Alt text'
- FocusControl = txtAltText
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblSrc: TLabel
- Left = 15
- Top = 20
- Width = 16
- Height = 13
- Caption = '&Src'
- FocusControl = cmbURL
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblAlignment: TLabel
- Left = 15
- Top = 160
- Width = 46
- Height = 13
- Caption = 'Ali&gnment'
- FocusControl = cmbAlign
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblWidth: TLabel
- Left = 15
- Top = 188
- Width = 28
- Height = 13
- Caption = '&Width'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblHeight: TLabel
- Left = 146
- Top = 188
- Width = 31
- Height = 13
- Alignment = taRightJustify
- Caption = '&Height'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblBorder: TLabel
- Left = 256
- Top = 188
- Width = 31
- Height = 13
- Alignment = taRightJustify
- Caption = '&Border'
- FocusControl = txtBorder
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblHSpace: TLabel
- Left = 248
- Top = 160
- Width = 39
- Height = 13
- Alignment = taRightJustify
- Caption = 'HSpa&ce'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblVSpace: TLabel
- Left = 363
- Top = 160
- Width = 38
- Height = 13
- Alignment = taRightJustify
- Caption = '&VSpace'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblClear: TLabel
- Left = 153
- Top = 160
- Width = 24
- Height = 13
- Alignment = taRightJustify
- Caption = 'Cl&ear'
- FocusControl = cmbClear
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblMessage: TLabel
- Left = 406
- Top = 130
- Width = 46
- Height = 26
- Caption = '&Message Digest'
- FocusControl = txtMD
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Visible = False
- WordWrap = True
- end
- object lblUnits: TLabel
- Left = 377
- Top = 188
- Width = 24
- Height = 13
- Alignment = taRightJustify
- Caption = '&Units'
- FocusControl = cmbUnits
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblLowSrc: TLabel
- Left = 15
- Top = 76
- Width = 36
- Height = 13
- Caption = '&LowSrc'
- FocusControl = cmbLowSrc
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblLinkTo: TLabel
- Left = 15
- Top = 48
- Width = 36
- Height = 13
- Caption = 'Lin&k To'
- FocusControl = cmbLinkTo
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblXAltSrc: TLabel
- Left = 15
- Top = 104
- Width = 38
- Height = 13
- Caption = '&X-AltSrc'
- FocusControl = cmbXAltSrc
- end
- object bbtnImage: TBitBtn
- Left = 227
- Top = 383
- Width = 77
- Height = 25
- Hint = 'Insert standard <IMG> tag'
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 19
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object CancelBtn: TBitBtn
- Left = 311
- Top = 383
- Width = 77
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 20
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object HelpBtn: TBitBtn
- Left = 395
- Top = 383
- Width = 77
- Height = 25
- Caption = 'Help'
- TabOrder = 21
- OnClick = HelpBtnClick
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object txtAltText: TEdit
- Left = 68
- Top = 128
- Width = 313
- Height = 21
- Hint = 'Alternate text for non-graphical browsers'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 8
- end
- object cmbURL: TComboBox
- Left = 68
- Top = 16
- Width = 313
- Height = 21
- Hint = 'URL of image/figure; usually a .JPG or .GIF file'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- Sorted = True
- TabOrder = 0
- OnChange = cmbURLChange
- end
- object cmbAlign: TComboBox
- Left = 68
- Top = 156
- Width = 61
- Height = 21
- Hint = 'Alignment of image/figure'
- Style = csDropDownList
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'default'
- 'absbottom'
- 'absmiddle'
- 'baseline'
- 'bleedleft'
- 'bleedright'
- 'bottom'
- 'left'
- 'middle'
- 'right'
- 'text'
- 'top')
- ParentFont = False
- TabOrder = 9
- end
- object txtBorder: TMaskEdit
- Left = 291
- Top = 185
- Width = 61
- Height = 21
- Hint = 'Border thickness in units'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 0
- ParentFont = False
- TabOrder = 15
- OnKeyPress = NumericKeyPress
- end
- object bbtnURL: TBitBtn
- Left = 388
- Top = 12
- Width = 77
- Height = 27
- Hint = 'Open the URL Builder'
- Caption = 'URL'
- TabOrder = 1
- OnClick = bbtnURLClick
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000012000000110000000100
- 040000000000CC00000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777070000007777777777777770000000000000000000007700070000000FFF
- FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700
- 00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778
- 7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF
- FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700
- 00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777
- 777777000000}
- end
- object cmbClear: TComboBox
- Left = 180
- Top = 156
- Width = 61
- Height = 21
- Hint = 'Forces the image to display below other images'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'all'
- 'left'
- 'right')
- ParentFont = False
- Sorted = True
- TabOrder = 10
- end
- object txtMD: TEdit
- Left = 416
- Top = 134
- Width = 41
- Height = 21
- Hint =
- 'Checksum for the associated graphic specified by the SRC attribu' +
- 'te'
- TabStop = False
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 22
- Visible = False
- end
- object cmbUnits: TComboBox
- Left = 403
- Top = 185
- Width = 61
- Height = 21
- Hint = 'Units of measure for width, etc.'
- Style = csDropDownList
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'default'
- 'en'
- 'pixels')
- ParentFont = False
- TabOrder = 16
- end
- object cmbLowSrc: TComboBox
- Left = 68
- Top = 72
- Width = 313
- Height = 21
- Hint = 'NetScape-only quick-load small .GIF for image tags'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- Sorted = True
- TabOrder = 4
- end
- object bbtnLowURL: TBitBtn
- Left = 388
- Top = 68
- Width = 77
- Height = 27
- Hint = 'Open the URL Builder'
- Caption = 'URL'
- TabOrder = 5
- OnClick = bbtnLowURLClick
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000012000000110000000100
- 040000000000CC00000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777070000007777777777777770000000000000000000007700070000000FFF
- FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700
- 00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778
- 7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF
- FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700
- 00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777
- 777777000000}
- end
- object cmbLinkTo: TComboBox
- Left = 68
- Top = 44
- Width = 313
- Height = 21
- Hint =
- 'Fill out this URL if you also want the image to be a link to ano' +
- 'ther resource'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- Sorted = True
- TabOrder = 2
- end
- object bbtnLinkToURL: TBitBtn
- Left = 388
- Top = 40
- Width = 77
- Height = 27
- Hint = 'Open the URL Builder'
- Caption = 'URL'
- TabOrder = 3
- OnClick = bbtnLinkToURLClick
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000012000000110000000100
- 040000000000CC00000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777070000007777777777777770000000000000000000007700070000000FFF
- FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700
- 00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778
- 7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF
- FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700
- 00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777
- 777777000000}
- end
- object gbAVI: TGroupBox
- Left = 5
- Top = 272
- Width = 469
- Height = 105
- Caption = 'AVI Video'
- TabOrder = 18
- object lblDynSrc: TLabel
- Left = 8
- Top = 20
- Width = 35
- Height = 13
- Caption = 'DynSrc'
- FocusControl = cmbAVI
- end
- object lblStart: TLabel
- Left = 8
- Top = 49
- Width = 22
- Height = 13
- Caption = 'Start'
- FocusControl = cmbStart
- end
- object lblLoop: TLabel
- Left = 8
- Top = 78
- Width = 24
- Height = 13
- Caption = 'Loop'
- FocusControl = txtLoop
- end
- object lblLoopDelay: TLabel
- Left = 232
- Top = 77
- Width = 70
- Height = 13
- Alignment = taRightJustify
- Caption = 'Loop Delay'
- end
- object cmbAVI: TComboBox
- Left = 64
- Top = 16
- Width = 313
- Height = 21
- Hint = 'URL of AVI video'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- Sorted = True
- TabOrder = 0
- end
- object cmbStart: TComboBox
- Left = 64
- Top = 45
- Width = 145
- Height = 21
- Hint = 'On what event does the video start?'
- ItemHeight = 13
- Items.Strings = (
- 'FileOpen'
- 'MouseOver'
- 'FileOpen,MouseOver')
- TabOrder = 2
- end
- object chkControls: TCheckBox
- Left = 293
- Top = 46
- Width = 97
- Height = 17
- Hint = 'Show a control panel for the AVI?'
- Caption = 'Show Controls'
- TabOrder = 3
- end
- object txtLoop: TEdit
- Left = 64
- Top = 74
- Width = 58
- Height = 21
- Hint = 'Number of times the video repeats'
- TabOrder = 4
- Text = '0'
- end
- object chkInfinite: TCheckBox
- Left = 152
- Top = 76
- Width = 97
- Height = 17
- Hint = 'Should the video repeat forever?'
- Caption = 'Infinite Loop'
- TabOrder = 5
- OnClick = chkInfiniteClick
- end
- object txtDelay: TEdit
- Left = 306
- Top = 74
- Width = 58
- Height = 21
- Hint = 'Delay in milliseconds before replaying AVI'
- TabOrder = 6
- Text = '0'
- end
- object bbtnAVIURL: TBitBtn
- Left = 384
- Top = 12
- Width = 77
- Height = 27
- Hint = 'Open the URL Builder'
- Caption = 'URL'
- TabOrder = 1
- OnClick = bbtnAVIURLClick
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000012000000110000000100
- 040000000000CC00000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777070000007777777777777770000000000000000000007700070000000FFF
- FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700
- 00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778
- 7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF
- FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700
- 00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777
- 777777000000}
- end
- object udLoopDelay: TUpDown
- Left = 364
- Top = 74
- Width = 7
- Height = 21
- Associate = txtDelay
- Min = 0
- Max = 10000
- Position = 0
- TabOrder = 7
- Wrap = False
- end
- object udLoop: TUpDown
- Left = 122
- Top = 74
- Width = 7
- Height = 21
- Associate = txtLoop
- Min = 0
- Max = 10000
- Position = 0
- TabOrder = 8
- Wrap = False
- end
- end
- object gbMapping: TGroupBox
- Left = 5
- Top = 219
- Width = 469
- Height = 51
- Caption = 'Client Side Mapping'
- TabOrder = 17
- object lblMapLocation: TLabel
- Left = 104
- Top = 21
- Width = 68
- Height = 13
- Alignment = taRightJustify
- Caption = 'Map Location:'
- Enabled = False
- FocusControl = txtMapLocation
- end
- object memMap: TRichEdit
- Left = 264
- Top = 20
- Width = 49
- Height = 17
- TabOrder = 3
- Visible = False
- WordWrap = False
- end
- object chkUseMap: TCheckBox
- Left = 10
- Top = 19
- Width = 81
- Height = 17
- Hint = 'Identify this image as a client side mapped image'
- Caption = 'Use Mapping'
- TabOrder = 0
- OnClick = chkUseMapClick
- end
- object bbtnMap: TBitBtn
- Left = 383
- Top = 14
- Width = 77
- Height = 27
- Hint = 'Set areas of an image as hotspots'
- Caption = 'Map &Picture'
- Enabled = False
- TabOrder = 2
- OnClick = bbtnMapClick
- end
- object txtMapLocation: TEdit
- Left = 176
- Top = 18
- Width = 201
- Height = 21
- Hint = 'Location of the map file in the format: path-and-file#map-name'
- Enabled = False
- TabOrder = 1
- end
- end
- object cmbXAltSrc: TComboBox
- Left = 68
- Top = 100
- Width = 313
- Height = 21
- Hint = 'An image adhering to the ART standard'
- ItemHeight = 13
- TabOrder = 6
- end
- object bbtnXAltSrc: TBitBtn
- Left = 388
- Top = 96
- Width = 77
- Height = 27
- Hint = 'Open the URL Builder'
- Caption = 'URL'
- TabOrder = 7
- OnClick = bbtnXAltSrcClick
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000012000000110000000100
- 040000000000CC00000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777070000007777777777777770000000000000000000007700070000000FFF
- FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700
- 00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778
- 7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF
- FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700
- 00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777
- 777777000000}
- end
- object txtWidth: TEdit
- Left = 68
- Top = 184
- Width = 61
- Height = 21
- Hint = 'Width of image/figure in units'
- TabOrder = 13
- end
- object txtHeight: TEdit
- Left = 180
- Top = 184
- Width = 61
- Height = 21
- Hint = 'Height of image/figure in units'
- TabOrder = 14
- end
- object txtHSpace: TEdit
- Left = 291
- Top = 156
- Width = 61
- Height = 21
- Hint = 'Extra horizontal space'
- TabOrder = 11
- end
- object txtVSpace: TEdit
- Left = 403
- Top = 156
- Width = 61
- Height = 21
- Hint = 'Extra vertical space'
- TabOrder = 12
- end
- object imgHeightWidth: TPMultiImage
- Left = 56
- Top = 384
- Width = 25
- Height = 25
- Color = clBtnFace
- ImageName = 'file not found'
- ImageDither = True
- ImageReadRes = lAutoMatic
- ImageWriteRes = sAutoMatic
- TifSaveCompress = sNONE
- JPegSaveQuality = 25
- JPegSaveSmooth = 0
- TextLeft = 0
- TextTop = 0
- TextRotate = 0
- TabOrder = 23
- TabStop = False
- Visible = False
- end
- end
-