PC World 2007 March/PCWorld_2007-03_cd.bin/komunikace/acehtml/acehtmlfreeware.exe/acehtmlfree.exe/0/RCDATA/TFRMEDITTABLE/TFRMEDITTABLE.txt

Text File | 2006-09-21 | 22KB | 860 lines

object frmEditTable: TfrmEditTable
  Left = 194
  Top = 108
  ActiveControl = gridHTMLTable
  BorderIcons = [biSystemMenu, biMaximize]
  ClientHeight = 399
  ClientWidth = 580
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  KeyPreview = True
  Menu = menuMainMenu
  OldCreateOrder = True
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Panel2: TPanel
    Left = 0
    Top = 161
    Width = 580
    Height = 238
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 0
    object PnlCaption: TPanel
      Left = 0
      Top = 0
      Width = 580
      Height = 18
      Align = alTop
      BevelOuter = bvNone
      Color = clActiveCaption
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clCaptionText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      object Panel8: TPanel
        Left = 560
        Top = 0
        Width = 20
        Height = 18
        Align = alRight
        BevelOuter = bvNone
        Color = clActiveCaption
        TabOrder = 0
        object SpdBtnMaximize: TSpeedButton
          Left = 0
          Top = 2
          Width = 17
          Height = 15
          Layout = blGlyphTop
          OnClick = SpdBtnMaximizeClick
        end
      end
    end
    object PnlPreview: TPanel
      Left = 0
      Top = 18
      Width = 580
      Height = 220
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 1
      object gridHTMLTable: THTMLGrid
        Left = 1
        Top = 1
        Width = 574
        Height = 214
        HelpContext = 5380
        Alignment = talLeft
        BorderSize = 1
        CellPadding = 1
        CellSpacing = 2
        BackColor = -1
        BorderColor = -1
        LightBorderColor = -1
        DarkBorderColor = -1
        ColCount = 1
        RowCount = 1
        ExternalBorders = [ebLeft, ebRight, ebTop, ebBottom]
        InternalBorders = ibAll
        ShowNBSP = False
        TagCase = tcUpper
        AttrCase = tcUpper
        UseNamedColors = False
        Align = alClient
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        PopupMenu = popupTable
        ShowHint = True
        TabOrder = 0
        TabStop = True
        OnEnter = gridHTMLTableEnter
        OnExit = gridHTMLTableExit
        OnChangeSelection = gridHTMLTableChangeSelection
        OnCellChanged = gridHTMLTableCellChanged
        OnChange = gridHTMLTableChange
        AlwaysShowBorder = True
      end
    end
  end
  object PnlTop: TPanel
    Left = 0
    Top = 0
    Width = 580
    Height = 161
    Align = alTop
    BevelOuter = bvNone
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object gbProperties: TGroupBox
      Left = 8
      Top = 8
      Width = 477
      Height = 86
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object lblWidth: TLabel
        Left = 8
        Top = 29
        Width = 3
        Height = 13
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblBorder: TLabel
        Left = 162
        Top = 29
        Width = 3
        Height = 13
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblCellPadding: TLabel
        Left = 282
        Top = 29
        Width = 3
        Height = 13
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblCellSpacing: TLabel
        Left = 282
        Top = 56
        Width = 3
        Height = 13
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblHeight: TLabel
        Left = 8
        Top = 56
        Width = 3
        Height = 13
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object CheckWidth: TCheckBox
        Left = 120
        Top = 29
        Width = 31
        Height = 13
        HelpContext = 228
        Caption = '%'
        TabOrder = 0
        OnClick = CheckWidthClick
      end
      object CheckHeight: TCheckBox
        Left = 120
        Top = 56
        Width = 31
        Height = 13
        HelpContext = 228
        Caption = '%'
        TabOrder = 1
        OnClick = CheckHeightClick
      end
      object spinWidth: TcxSpinEdit
        Left = 64
        Top = 25
        ParentFont = False
        Properties.ClearKey = 46
        Properties.ImmediatePost = True
        Properties.MaxValue = 9999.000000000000000000
        Properties.OnChange = spinWidthChange
        TabOrder = 2
        Width = 50
      end
      object spinHeight: TcxSpinEdit
        Left = 64
        Top = 52
        ParentFont = False
        Properties.ClearKey = 46
        Properties.ImmediatePost = True
        Properties.MaxValue = 9999.000000000000000000
        Properties.OnChange = spinHeightChange
        TabOrder = 3
        Width = 50
      end
      object spinBorder: TcxSpinEdit
        Left = 213
        Top = 25
        ParentFont = False
        Properties.ClearKey = 46
        Properties.ImmediatePost = True
        Properties.MaxValue = 9999.000000000000000000
        Properties.OnChange = spinBorderChange
        TabOrder = 4
        Width = 50
      end
      object spinPadding: TcxSpinEdit
        Left = 404
        Top = 25
        ParentFont = False
        Properties.ClearKey = 46
        Properties.ImmediatePost = True
        Properties.MaxValue = 9999.000000000000000000
        Properties.OnChange = spinCellPaddingCellChange
        TabOrder = 5
        Value = 1
        Width = 50
      end
      object spinSpacing: TcxSpinEdit
        Left = 404
        Top = 52
        ParentFont = False
        Properties.ClearKey = 46
        Properties.ImmediatePost = True
        Properties.MaxValue = 9999.000000000000000000
        Properties.OnChange = spinCellSpacingChange
        TabOrder = 6
        Value = 2
        Width = 50
      end
    end
    object BorderPnl: TPanel
      Left = 502
      Top = 0
      Width = 78
      Height = 161
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 2
      object btnCancel: TButton
        Left = 0
        Top = 37
        Width = 72
        Height = 22
        HelpContext = 44
        Cancel = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ModalResult = 2
        ParentFont = False
        TabOrder = 1
        OnClick = btnCancelClick
      end
      object btnOk: TButton
        Left = 0
        Top = 12
        Width = 72
        Height = 22
        HelpContext = 49
        Default = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ModalResult = 1
        ParentFont = False
        TabOrder = 0
        OnClick = btnOkClick
      end
      object btnHelp: TButton
        Left = 0
        Top = 66
        Width = 72
        Height = 22
        HelpContext = 7
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = btnHelpClick
      end
    end
    object gbColors: TGroupBox
      Left = 9
      Top = 100
      Width = 290
      Height = 51
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object lblBackColor: TLabel
        Left = 8
        Top = 24
        Width = 3
        Height = 13
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblBorderColor: TLabel
        Left = 158
        Top = 24
        Width = 3
        Height = 13
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object exp1: TImage
        Left = 144
        Top = 24
        Width = 13
        Height = 12
        AutoSize = True
      end
      object cboxBackColor: TcxColorComboBox
        Left = 83
        Top = 21
        ParentFont = False
        Properties.AllowSelectColor = True
        Properties.ClearKey = 46
        Properties.ColorBoxWidth = 17
        Properties.ColorComboStyle = cxccsComboList
        Properties.ColorDialogType = cxcdtCustom
        Properties.CustomColors = <>
        Properties.ImmediatePost = True
        Properties.ImmediateUpdateText = True
        Properties.NamingConvention = cxncHTML4
        Properties.PrepareList = cxplHTML4
        Properties.Revertable = True
        Properties.ShowDescriptions = False
        Properties.OnChange = colbtnBackColorColorChange
        Properties.OnSelectCustomColor = cboxBackColorPropertiesSelectCustomColor
        TabOrder = 0
        Width = 55
      end
      object cboxBorderColor: TcxColorComboBox
        Left = 204
        Top = 20
        ParentFont = False
        Properties.AllowSelectColor = True
        Properties.ClearKey = 46
        Properties.ColorBoxWidth = 17
        Properties.ColorComboStyle = cxccsComboList
        Properties.ColorDialogType = cxcdtCustom
        Properties.CustomColors = <>
        Properties.ImmediatePost = True
        Properties.ImmediateUpdateText = True
        Properties.NamingConvention = cxncHTML4
        Properties.PrepareList = cxplHTML4
        Properties.Revertable = True
        Properties.ShowDescriptions = False
        Properties.OnChange = colbtnBorderColorColorChange
        Properties.OnSelectCustomColor = cboxBackColorPropertiesSelectCustomColor
        TabOrder = 1
        Width = 55
      end
    end
    object gbAlign: TGroupBox
      Left = 305
      Top = 100
      Width = 180
      Height = 51
      TabOrder = 3
      object ComboAlign: TComboBox
        Left = 8
        Top = 20
        Width = 165
        Height = 21
        HelpContext = 1037
        Style = csDropDownList
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Microsoft Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 0
        OnChange = rgAlignClick
      end
    end
  end
  object popupTable: TPopupMenu
    OnPopup = popupTablePopup
    Left = 525
    Top = 274
    object miEditTable: TMenuItem
      ImageIndex = 36
      OnClick = mmiEditTableExecute
    end
    object mnuEditCell: TMenuItem
      OnClick = mnuEditCellClick
    end
    object mnuFormat: TMenuItem
      object mnuFont: TMenuItem
        ImageIndex = 73
        ShortCut = 16452
        OnClick = mnuFontClick
      end
      object mnuHeader: TMenuItem
        ImageIndex = 77
        object mnuH1: TMenuItem
          ShortCut = 24625
          OnClick = mmiBoldExecute
        end
        object mnuH2: TMenuItem
          ShortCut = 24626
          OnClick = mmiBoldExecute
        end
        object mnuH3: TMenuItem
          ShortCut = 24627
          OnClick = mmiBoldExecute
        end
        object mnuH4: TMenuItem
          ShortCut = 24628
          OnClick = mmiBoldExecute
        end
        object mnuH5: TMenuItem
          ShortCut = 24629
          OnClick = mmiBoldExecute
        end
        object mnuH6: TMenuItem
          ShortCut = 24630
          OnClick = mmiBoldExecute
        end
      end
      object mnuBold: TMenuItem
        ImageIndex = 74
        ShortCut = 16455
        OnClick = mmiBoldExecute
      end
      object mnuItalic: TMenuItem
        ImageIndex = 75
        ShortCut = 16457
        OnClick = mmiBoldExecute
      end
      object mnuUnderline: TMenuItem
        ImageIndex = 76
        ShortCut = 16469
        OnClick = mmiBoldExecute
      end
      object mnuAlignLeft: TMenuItem
        ImageIndex = 79
        ShortCut = 24647
        OnClick = mmiBoldExecute
      end
      object mnuAlignCenter: TMenuItem
        ImageIndex = 78
        ShortCut = 16453
        OnClick = mmiBoldExecute
      end
      object mnuAlignRight: TMenuItem
        ImageIndex = 80
        ShortCut = 24644
        OnClick = mmiBoldExecute
      end
      object mnuJustify: TMenuItem
        ImageIndex = 81
        ShortCut = 24650
        OnClick = mmiBoldExecute
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mnuBR: TMenuItem
        ImageIndex = 83
        ShortCut = 16450
        OnClick = mmiBoldExecute
      end
      object mnuNoBr: TMenuItem
        ImageIndex = 92
        OnClick = mmiBoldExecute
      end
      object mnuPara: TMenuItem
        ImageIndex = 84
        ShortCut = 16464
        OnClick = mmiBoldExecute
      end
      object mnuComment: TMenuItem
        ImageIndex = 86
        ShortCut = 49229
        OnClick = mmiBoldExecute
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mnuImage: TMenuItem
        ImageIndex = 44
        ShortCut = 41031
        OnClick = mnuImageClick
      end
      object mnuImageMap: TMenuItem
        ImageIndex = 45
        ShortCut = 41037
        OnClick = mnuImageMapClick
      end
      object mnuLink: TMenuItem
        ImageIndex = 46
        ShortCut = 41048
        OnClick = mnuLinkClick
      end
      object mnuInternalLink: TMenuItem
        ImageIndex = 47
        ShortCut = 41033
        OnClick = mnuInternalLinkClick
      end
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object miUndo: TMenuItem
      ImageIndex = 5
      ShortCut = 16474
      OnClick = mmiUndoExecute
    end
    object miRedo: TMenuItem
      ImageIndex = 6
      ShortCut = 16473
      OnClick = mmiRedoExecute
    end
    object miCut: TMenuItem
      ImageIndex = 7
      ShortCut = 16472
      OnClick = mmiCutExecute
    end
    object miCopy: TMenuItem
      ImageIndex = 8
      ShortCut = 16451
      OnClick = mmiCopyExecute
    end
    object miPaste: TMenuItem
      ImageIndex = 9
      ShortCut = 16470
      OnClick = mmiPasteExecute
    end
    object miErase: TMenuItem
      OnClick = mmiEraseExecute
    end
    object miLine1: TMenuItem
      Caption = '-'
    end
    object miSelectRows: TMenuItem
      OnClick = mmiSelectRowExecute
    end
    object miSelectColumns: TMenuItem
      OnClick = mmiSelectColumnExecute
    end
    object miSelectTable: TMenuItem
      OnClick = mmiSelectTableExecute
    end
    object miLine2: TMenuItem
      Caption = '-'
    end
    object miInsertCells: TMenuItem
      OnClick = mmiInsertCellsExecute
    end
    object miInsertRows: TMenuItem
      OnClick = mmiInsertRowsExecute
    end
    object miInsertColumns: TMenuItem
      OnClick = mmiInsertColumnsExecute
    end
    object miDeleteCells: TMenuItem
      OnClick = mmiDeleteCellsExecute
    end
    object miDeleteRows: TMenuItem
      OnClick = mmiDeleteRowsExecute
    end
    object miDeleteColumns: TMenuItem
      OnClick = mmiDeleteColumnsExecute
    end
    object miSplitCells: TMenuItem
      OnClick = mmiSplitCellsExecute
    end
    object miMergeCells: TMenuItem
      OnClick = mmiMergeCellsExecute
    end
    object miMergeRows: TMenuItem
      OnClick = mmiMergeRowsExecute
    end
    object miMergeColumns: TMenuItem
      OnClick = mmiMergeColumnsExecute
    end
    object miDistrRows: TMenuItem
      OnClick = mmiDistrRowsExecute
    end
    object miDistrColumns: TMenuItem
      OnClick = attrDistrColumnsExecute
    end
    object miLine3: TMenuItem
      Caption = '-'
    end
    object miAddTableProp: TMenuItem
      OnClick = mmiAddTablePropExecute
    end
    object miCellProp: TMenuItem
      OnClick = mmiCellPropExecute
    end
    object miRowProp: TMenuItem
      OnClick = mmiRowPropExecute
    end
    object miColumnProp: TMenuItem
      OnClick = mmiColPropExecute
    end
    object miHeader: TMenuItem
      OnClick = mmiHeaderExecute
    end
    object miFooter: TMenuItem
      OnClick = mmiFooterExecute
    end
  end
  object menuMainMenu: TMainMenu
    Left = 543
    Top = 96
    object mmiFile: TMenuItem
      object mmiNewtable: TMenuItem
        ImageIndex = 36
        ShortCut = 16462
        OnClick = mmiNewTableExecute
      end
      object mmiLoadtable: TMenuItem
        ImageIndex = 1
        ShortCut = 16463
        OnClick = mmiLoadtableExecute
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object mmiSavetable: TMenuItem
        ImageIndex = 3
        ShortCut = 16467
        OnClick = mmiSavetableClick
      end
      object mmiSaveAsTable: TMenuItem
        OnClick = mmiSavetableClick
      end
      object mmiLine1: TMenuItem
        Caption = '-'
      end
      object mmiClose: TMenuItem
        ShortCut = 16499
        OnClick = mmiCloseClick
      end
    end
    object mmiEdit: TMenuItem
      object mmiUndo: TMenuItem
        ImageIndex = 5
        ShortCut = 16474
        OnClick = mmiUndoExecute
      end
      object mmiRedo: TMenuItem
        ImageIndex = 6
        ShortCut = 16473
        OnClick = mmiRedoExecute
      end
      object mmiLine2: TMenuItem
        Caption = '-'
      end
      object mmiCut: TMenuItem
        ImageIndex = 7
        ShortCut = 16472
        OnClick = mmiCutExecute
      end
      object mmiCopy: TMenuItem
        ImageIndex = 8
        ShortCut = 16451
        OnClick = mmiCopyExecute
      end
      object mmiPaste: TMenuItem
        ImageIndex = 9
        ShortCut = 16470
        OnClick = mmiPasteExecute
      end
      object mmiLine3: TMenuItem
        Caption = '-'
      end
      object mmiErase: TMenuItem
        OnClick = mmiEraseExecute
      end
      object mmiEraserow: TMenuItem
        OnClick = mmiEraserowExecute
      end
      object mmiErasecolumn: TMenuItem
        OnClick = mmiEraseColumnExecute
      end
      object mmiErasetable: TMenuItem
        OnClick = mmiEraseTableExecute
      end
      object mmiLine4: TMenuItem
        Caption = '-'
      end
      object mmiSelectRow: TMenuItem
        OnClick = mmiSelectRowExecute
      end
      object mmiSelectcolumn: TMenuItem
        OnClick = mmiSelectColumnExecute
      end
      object mmiSelecttable: TMenuItem
        OnClick = mmiSelectTableExecute
      end
    end
    object mmiOptions: TMenuItem
      object mmiShowNoBreakSpace: TMenuItem
        OnClick = mmiShowNoBreakSpaceExecute
      end
      object mmiForceAllTags: TMenuItem
        OnClick = mmiForceAllTagsClick
      end
      object mmiAlwaysShowBorders: TMenuItem
        Checked = True
        OnClick = mmiAlwaysShowBordersClick
      end
      object mmiUseNamedColors: TMenuItem
        OnClick = mmiUseNamedColorsExecute
      end
    end
    object mmiTable: TMenuItem
      OnClick = popupTablePopup
      object mmiEditTable: TMenuItem
        ImageIndex = 36
        OnClick = mmiEditTableExecute
      end
      object mmiEditCell: TMenuItem
        OnClick = mnuEditCellClick
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object mmiInsertcells: TMenuItem
        OnClick = mmiInsertCellsExecute
      end
      object mmiDeletecells: TMenuItem
        OnClick = mmiDeleteCellsExecute
      end
      object mmiMergecells: TMenuItem
        OnClick = mmiMergeCellsExecute
      end
      object mmiSplitcells: TMenuItem
        OnClick = mmiSplitCellsExecute
      end
      object mmiLine5: TMenuItem
        Caption = '-'
      end
      object mmiInsertcolumns: TMenuItem
        OnClick = mmiInsertColumnsExecute
      end
      object mmiDeletecolumns: TMenuItem
        OnClick = mmiDeleteColumnsExecute
      end
      object mmiMergecolumns: TMenuItem
        OnClick = mmiMergeColumnsExecute
      end
      object mmiLine6: TMenuItem
        Caption = '-'
      end
      object mmiInsertrows: TMenuItem
        OnClick = mmiInsertRowsExecute
      end
      object mmiDeleterows: TMenuItem
        OnClick = mmiDeleteRowsExecute
      end
      object mmiMergerows: TMenuItem
        OnClick = mmiMergeRowsExecute
      end
      object mmiLine7: TMenuItem
        Caption = '-'
      end
      object mmiCellProp: TMenuItem
        OnClick = mmiCellPropExecute
      end
      object mmiRowProp: TMenuItem
        OnClick = mmiRowPropExecute
      end
      object mmiColumnProp: TMenuItem
        OnClick = mmiColPropExecute
      end
      object mmiLine8: TMenuItem
        Caption = '-'
      end
      object mmiAdditionalTableProp: TMenuItem
        OnClick = mmiAddTablePropExecute
      end
    end
  end
end