IT.SOFT 22/ITSOFTCD_22.iso/pc/shareware22/file/HTMLTOOL.ZIP/HTMLTOOL.exe/0/RCDATA/TFRMCHILD/TFRMCHILD.txt

Text File | 1998-01-30 | 5.9 KB | 265 lines

object FrmChild: TFrmChild
  Left = 201
  Top = 139
  Width = 448
  Height = 264
  Caption = ' '
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {<image000.ico>}
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object MemText: TRichEdit
    Left = 0
    Top = 0
    Width = 440
    Height = 228
    Align = alClient
    Font.Color = clNavy
    Font.Height = -96
    Font.Name = 'Wingdings'
    Font.Style = [fsBold, fsItalic]
    HideSelection = False
    HideScrollBars = False
    ParentFont = False
    PlainText = True
    PopupMenu = TextPopup
    ScrollBars = ssBoth
    TabOrder = 0
    WantTabs = True
    OnChange = MemTextChange
    OnDragDrop = MemTextDragDrop
    OnDragOver = MemTextDragOver
    OnKeyDown = MemTextKeyDown
    OnKeyUp = MemTextKeyUp
    OnMouseDown = MemTextMouseDown
  end
  object pnlStatus: TPanel
    Left = 0
    Top = 228
    Width = 440
    Height = 12
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object lblCaret: TLabel
      Left = 0
      Top = 0
      Width = 145
      Height = 12
      Align = alLeft
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lblModified: TLabel
      Left = 391
      Top = 0
      Width = 49
      Height = 12
      Align = alRight
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object TextPopup: TPopupMenu
    OnPopup = TextPopupPopup
    Left = 8
    Top = 128
    object RightClickItem: TMenuItem
      Caption = ' '
      Default = True
      ShortCut = 0
      Visible = False
    end
    object RightClickSpacer: TMenuItem
      Caption = '-'
      ShortCut = 0
      Visible = False
    end
    object FileMenu: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object MnuClose: TMenuItem
        Caption = '&Close'
        ShortCut = 0
        OnClick = MnuCloseClick
      end
      object New: TMenuItem
        Caption = '&New ...'
        ShortCut = 0
        OnClick = NewClick
      end
      object Open: TMenuItem
        Caption = '&Open ...'
        ShortCut = 0
        OnClick = OpenClick
      end
      object Save: TMenuItem
        Caption = '&Save'
        ShortCut = 0
        OnClick = SaveClick
      end
      object SaveAs: TMenuItem
        Caption = 'Save &as ...'
        ShortCut = 0
        OnClick = SaveAsClick
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object CloseAll: TMenuItem
        Caption = 'C&lose all'
        ShortCut = 0
        OnClick = CloseAllClick
      end
    end
    object N4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object MnuRemove: TMenuItem
      Caption = 'C&lear'
      ShortCut = 0
      OnClick = MnuRemoveClick
    end
    object MnuCut: TMenuItem
      Caption = '&Cut'
      ShortCut = 0
      OnClick = MnuCutClick
    end
    object MnuCopy: TMenuItem
      Caption = 'C&opy'
      ShortCut = 0
      OnClick = MnuCopyClick
    end
    object MnuPaste: TMenuItem
      Caption = 'P&aste'
      ShortCut = 0
      OnClick = MnuPasteClick
    end
    object SelectAll: TMenuItem
      Caption = '&Select all'
      ShortCut = 0
      OnClick = SelectAllClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object TestPage: TMenuItem
      Caption = '&Preview page'
      ShortCut = 120
      OnClick = TestPageClick
    end
    object FileWeight: TMenuItem
      Caption = 'File &weight ...'
      ShortCut = 0
      OnClick = FileWeightClick
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Tags: TMenuItem
      Caption = '&Tags'
      ShortCut = 0
      object Bold: TMenuItem
        Caption = '&Bold'
        ShortCut = 16450
        OnClick = BoldClick
      end
      object Italic: TMenuItem
        Caption = '&Italic'
        ShortCut = 0
        OnClick = ItalicClick
      end
      object Preformatted: TMenuItem
        Caption = 'Prefor&matted'
        ShortCut = 0
        OnClick = PreformattedClick
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object ListItem: TMenuItem
        Caption = '&List item'
        ShortCut = 0
        OnClick = ListItemClick
      end
      object UnorderedListTag: TMenuItem
        Caption = '&Unordered list ...'
        ShortCut = 0
        OnClick = UnorderedListTagClick
      end
    end
    object Selection: TMenuItem
      Caption = 'Select&ion'
      ShortCut = 0
      object MnuStripTags: TMenuItem
        Caption = '&Strip tags'
        ShortCut = 0
        OnClick = MnuStripTagsClick
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object OrderedList: TMenuItem
        Caption = 'Convert lines to &ordered list'
        ShortCut = 0
        OnClick = OrderedListClick
      end
      object UnorderedList: TMenuItem
        Caption = '&Convert lines to unordered list'
        ShortCut = 0
        OnClick = UnorderedListClick
      end
      object ConvertToTable: TMenuItem
        Caption = 'Convert lines to &table ...'
        ShortCut = 0
        OnClick = ConvertToTableClick
      end
      object AddBR: TMenuItem
        Caption = 'Add line &breaks'
        ShortCut = 0
        OnClick = AddBRClick
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object LowerCase: TMenuItem
        Caption = '&Lowercase'
        ShortCut = 0
        OnClick = LowerCaseClick
      end
      object UpperCase: TMenuItem
        Caption = '&Uppercase'
        ShortCut = 0
        OnClick = UpperCaseClick
      end
    end
    object MnuWordWrap: TMenuItem
      Caption = 'Wo&rd wrap'
      ShortCut = 0
      OnClick = MnuWordWrapClick
    end
  end
end