object frmImage: TfrmImage Left = 335 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 = 11 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 = 11 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 = 11 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 WordWrap = True end object lblWidth: TLabel Left = 11 Top = 188 Width = 28 Height = 13 Caption = '&Width' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True 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 WordWrap = True 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 WordWrap = True 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 WordWrap = True 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 WordWrap = True 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 WordWrap = True 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 WordWrap = True end object lblLowSrc: TLabel Left = 11 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 = 11 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 = 11 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 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 = 269 Top = 77 Width = 62 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 = 277 Top = 46 Width = 97 Height = 17 Hint = 'Show a control panel for the AVI?' Alignment = taLeftJustify 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 = 89 Height = 17 Hint = 'Should the video repeat forever?' Caption = 'Infinite Loop' TabOrder = 5 OnClick = chkInfiniteClick end object txtDelay: TEdit Left = 336 Top = 74 Width = 28 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 = 11 Height = 21 Associate = txtDelay Min = 0 Max = 10000 Position = 0 TabOrder = 7 Wrap = False end object udLoop: TUpDown Left = 122 Top = 74 Width = 11 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 = 144 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 = 87 Height = 17 Hint = 'Identify this image as a client side mapped image' Caption = 'Use Mapping' TabOrder = 0 OnClick = chkUseMapClick end object bbtnMap: TBitBtn Left = 360 Top = 14 Width = 100 Height = 27 Hint = 'Set areas of an image as hotspots' Caption = 'Map &Picture' Enabled = False TabOrder = 2 OnClick = bbtnMapClick end object txtMapLocation: TEdit Left = 216 Top = 18 Width = 137 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