object FieldDlg: TFieldDlg Left = 180 Top = 182 Width = 465 Height = 365 HorzScrollBar.Visible = False VertScrollBar.Visible = False Caption = 'Edit Field' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter ShowHint = True OnClose = FormClose OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object Img1: TMultiImgControl Left = 0 Top = 0 Width = 346 Height = 338 Align = alClient Caption = 'Img1' TabOrder = 3 Visible = False SpeedBarHeight = 24 end object DBMemo1: TDBMemo Left = 0 Top = 0 Width = 346 Height = 338 Align = alClient DataSource = DataSource1 PopupMenu = PopupMenu1 ScrollBars = ssBoth TabOrder = 2 Visible = False end object DBEdit1: TDBEdit Left = 16 Top = 32 Width = 297 Height = 24 DataSource = DataSource1 TabOrder = 0 Visible = False end object Panel1: TPanel Left = 346 Top = 0 Width = 111 Height = 338 Align = alRight TabOrder = 1 object BitBtn1: TBitBtn Left = 14 Top = 8 Width = 81 Height = 25 Caption = '&OK' TabOrder = 0 OnClick = BitBtn1Click Kind = bkOK end object BitBtn2: TBitBtn Left = 15 Top = 38 Width = 81 Height = 25 Caption = '&Cancel' TabOrder = 1 OnClick = BitBtn2Click Kind = bkCancel end object CheckBox1: TCheckBox Left = 4 Top = 128 Width = 82 Height = 17 Caption = 'Auto-Wrap' TabOrder = 2 Visible = False OnClick = CheckBox1Click end end object DataSource1: TDataSource Left = 360 Top = 232 end object PopupMenu1: TPopupMenu Left = 360 Top = 201 object LoadFromFile1: TMenuItem Caption = 'Load From File' OnClick = LoadFromFile1Click end object SaveToFile1: TMenuItem Caption = 'Save To File' OnClick = SaveToFile1Click end object Clear1: TMenuItem Caption = 'Clear' OnClick = Clear1Click end object HTMLTags1: TMenuItem Caption = 'HTML Tags:' Enabled = False end object Bold1: TMenuItem Caption = 'Text Attributes' object Bold2: TMenuItem Caption = 'Bold' OnClick = Bold2Click end object EndBold1: TMenuItem Caption = 'End Bold' OnClick = EndBold1Click end object Italic1: TMenuItem Caption = 'Italic' OnClick = Italic1Click end object EndItalic1: TMenuItem Caption = 'End Italic' OnClick = EndItalic1Click end object Underlined1: TMenuItem Caption = 'Underlined' OnClick = Underlined1Click end object EndUnderlined1: TMenuItem Caption = 'End Underlined' OnClick = EndUnderlined1Click end object Blink1: TMenuItem Caption = 'Blink' OnClick = Blink1Click end object EndBlink1: TMenuItem Caption = 'End Blink' OnClick = EndBlink1Click end end object HStyles1: TMenuItem Caption = 'Heading Styles' object Normal1: TMenuItem Caption = 'Heading 1' OnClick = Normal1Click end object EndHeading11: TMenuItem Caption = 'End Heading 1' OnClick = EndHeading11Click end object Heading21: TMenuItem Caption = 'Heading 2' OnClick = Heading21Click end object EndHeading21: TMenuItem Caption = 'End Heading 2' OnClick = EndHeading21Click end object Heading31: TMenuItem Caption = 'Heading 3' OnClick = Heading31Click end object EndHeading31: TMenuItem Caption = 'End Heading 3' OnClick = EndHeading31Click end object Heading41: TMenuItem Caption = 'Heading 4' OnClick = Heading41Click end object EndHeading41: TMenuItem Caption = 'End Heading 4' OnClick = EndHeading41Click end object Heading51: TMenuItem Caption = 'Heading 5' OnClick = Heading51Click end object EndHeading51: TMenuItem Caption = 'End Heading 5' OnClick = EndHeading51Click end object Heading61: TMenuItem Caption = 'Heading 6' OnClick = Heading61Click end object EndHeading61: TMenuItem Caption = 'End Heading 6' OnClick = EndHeading61Click end end object DefinitionLists1: TMenuItem Caption = 'Definition Lists' object BeginList1: TMenuItem Caption = 'Begin List' OnClick = BeginList1Click end object EndList1: TMenuItem Caption = 'End List' OnClick = EndList1Click end object ListItem1: TMenuItem Caption = 'Definition Item' OnClick = ListItem1Click end object DefinitionData1: TMenuItem Caption = 'Definition Data' OnClick = DefinitionData1Click end end object OrderedLists1: TMenuItem Caption = 'Ordered Lists' object BeginList2: TMenuItem Caption = 'Begin List' OnClick = BeginList2Click end object EndList2: TMenuItem Caption = 'End List' OnClick = EndList2Click end object ListItem2: TMenuItem Caption = 'List Item' OnClick = ListItem2Click end end object FontSize1: TMenuItem Caption = 'Font Size' object Normal2: TMenuItem Caption = 'Normal' OnClick = Normal2Click end object Size1Smallest1: TMenuItem Tag = 1 Caption = 'Size 1 (Smallest)' OnClick = Normal2Click end object Size21: TMenuItem Tag = 2 Caption = 'Size 2' OnClick = Normal2Click end object Size31: TMenuItem Tag = 3 Caption = 'Size 3' OnClick = Normal2Click end object Size41: TMenuItem Tag = 4 Caption = 'Size 4' OnClick = Normal2Click end object Size51: TMenuItem Tag = 5 Caption = 'Size 5' OnClick = Normal2Click end object Size61: TMenuItem Tag = 6 Caption = 'Size 6' OnClick = Normal2Click end object Size7Largest1: TMenuItem Caption = 'Size 7 (Largest)' OnClick = Normal2Click end end object NewLine1: TMenuItem Caption = 'New Line' OnClick = NewLine1Click end object HorizontalRule1: TMenuItem Caption = 'Horizontal Rule' OnClick = HorizontalRule1Click end object Picture1: TMenuItem Caption = 'Picture' OnClick = Picture1Click end object Hyperlink1: TMenuItem Caption = 'Hyperlink' OnClick = Hyperlink1Click end end object OpenDialog1: TOpenDialog DefaultExt = 'htm' Filter = 'HTML Files|*.htm;*.html' Left = 360 Top = 265 end object SaveDialog1: TSaveDialog DefaultExt = 'htm' Filter = 'HTML Files|*.htm;*.html' Left = 361 Top = 296 end end