wplabelfrm.dfm

wptools5 pro 完整源代码 Msword界面的文本编辑器源代码

object WPLabelForm: TWPLabelForm
  Left = 33
  Top = 208
  Width = 511
  Height = 350
  ActiveControl = Button4
  Caption = 'Print Label'
  Color = clBtnFace
  Constraints.MinHeight = 350
  Constraints.MinWidth = 511
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 120
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 503
    Height = 275
    ActivePage = AddressTab
    Align = alClient
    TabOrder = 0
    object AddressTab: TTabSheet
      Caption = 'Address'
      object WPRichText1: TWPRichText
        Left = 0
        Top = 26
        Width = 495
        Height = 177
        RTFVariables = <>
        WPRuler = WPRuler1
        XOffset = 144
        YOffset = 144
        XBetween = 144
        YBetween = 144
        AutoZoom = wpAutoZoomAdjustColumnCount
        LayoutMode = wplayFullLayout
        ColorDesktop = clBtnFace
        ScrollBars = ssBoth
        EditOptions = [wpTableResizing, wpTableColumnResizing, wpObjectMoving, wpObjectResizingWidth, wpObjectResizingHeight, wpObjectResizingKeepRatio, wpObjectSelecting, wpObjectDeletion, wpSpreadsheetCursorMovement, wpActivateUndo, wpActivateUndoHotkey, wpMoveCPOnPageUpDown]
        ClipboardOptions = []
        ProtectedProp = []
        HyperLinkCursor = crArrow
        TextObjectCursor = crHandPoint
        InsertPointAttr.Bold = tsIgnore
        InsertPointAttr.Italic = tsIgnore
        InsertPointAttr.DoubleUnderline = False
        InsertPointAttr.Underline = tsIgnore
        InsertPointAttr.StrikeOut = tsIgnore
        InsertPointAttr.StrikeOutColor = clBlack
        InsertPointAttr.SuperScript = tsIgnore
        InsertPointAttr.SubScript = tsIgnore
        InsertPointAttr.Hidden = False
        InsertPointAttr.UnderlineColor = clBlack
        InsertPointAttr.TextColor = clRed
        InsertPointAttr.BackgroundColor = clBlack
        InsertPointAttr.UseUnderlineColor = False
        InsertPointAttr.UseTextColor = True
        InsertPointAttr.UseBackgroundColor = False
        HyperlinkTextAttr.Bold = tsIgnore
        HyperlinkTextAttr.Italic = tsIgnore
        HyperlinkTextAttr.DoubleUnderline = False
        HyperlinkTextAttr.Underline = tsTRUE
        HyperlinkTextAttr.StrikeOut = tsIgnore
        HyperlinkTextAttr.StrikeOutColor = clBlack
        HyperlinkTextAttr.SuperScript = tsIgnore
        HyperlinkTextAttr.SubScript = tsIgnore
        HyperlinkTextAttr.Hidden = False
        HyperlinkTextAttr.UnderlineColor = clBlue
        HyperlinkTextAttr.TextColor = clBlack
        HyperlinkTextAttr.BackgroundColor = clBlack
        HyperlinkTextAttr.UseUnderlineColor = True
        HyperlinkTextAttr.UseTextColor = False
        HyperlinkTextAttr.UseBackgroundColor = False
        HyperlinkTextAttr.HotUnderlineColor = clRed
        HyperlinkTextAttr.UseHotUnderlineColor = True
        HyperlinkTextAttr.HotTextColor = clRed
        HyperlinkTextAttr.UseHotTextColor = True
        HyperlinkTextAttr.HotUnderline = tsTRUE
        HyperlinkTextAttr.HotStyleIsActive = True
        BookmarkTextAttr.Bold = tsIgnore
        BookmarkTextAttr.Italic = tsIgnore
        BookmarkTextAttr.DoubleUnderline = False
        BookmarkTextAttr.Underline = tsIgnore
        BookmarkTextAttr.StrikeOut = tsIgnore
        BookmarkTextAttr.StrikeOutColor = clBlack
        BookmarkTextAttr.SuperScript = tsIgnore
        BookmarkTextAttr.SubScript = tsIgnore
        BookmarkTextAttr.Hidden = False
        BookmarkTextAttr.UnderlineColor = clBlack
        BookmarkTextAttr.TextColor = clBlack
        BookmarkTextAttr.BackgroundColor = clBlack
        BookmarkTextAttr.UseUnderlineColor = False
        BookmarkTextAttr.UseTextColor = False
        BookmarkTextAttr.UseBackgroundColor = False
        SPANObjectTextAttr.Bold = tsIgnore
        SPANObjectTextAttr.Italic = tsIgnore
        SPANObjectTextAttr.DoubleUnderline = False
        SPANObjectTextAttr.Underline = tsIgnore
        SPANObjectTextAttr.StrikeOut = tsIgnore
        SPANObjectTextAttr.StrikeOutColor = clBlack
        SPANObjectTextAttr.SuperScript = tsIgnore
        SPANObjectTextAttr.SubScript = tsIgnore
        SPANObjectTextAttr.Hidden = False
        SPANObjectTextAttr.UnderlineColor = clBlack
        SPANObjectTextAttr.TextColor = clBlack
        SPANObjectTextAttr.BackgroundColor = clBlack
        SPANObjectTextAttr.UseUnderlineColor = False
        SPANObjectTextAttr.UseTextColor = False
        SPANObjectTextAttr.UseBackgroundColor = False
        HiddenTextAttr.Bold = tsIgnore
        HiddenTextAttr.Italic = tsIgnore
        HiddenTextAttr.DoubleUnderline = False
        HiddenTextAttr.Underline = tsIgnore
        HiddenTextAttr.StrikeOut = tsIgnore
        HiddenTextAttr.StrikeOutColor = clBlack
        HiddenTextAttr.SuperScript = tsIgnore
        HiddenTextAttr.SubScript = tsIgnore
        HiddenTextAttr.Hidden = True
        HiddenTextAttr.UnderlineColor = clBlack
        HiddenTextAttr.TextColor = clBlack
        HiddenTextAttr.BackgroundColor = clBlack
        HiddenTextAttr.UseUnderlineColor = False
        HiddenTextAttr.UseTextColor = False
        HiddenTextAttr.UseBackgroundColor = False
        AutomaticTextAttr.Bold = tsIgnore
        AutomaticTextAttr.Italic = tsIgnore
        AutomaticTextAttr.DoubleUnderline = False
        AutomaticTextAttr.Underline = tsIgnore
        AutomaticTextAttr.StrikeOut = tsIgnore
        AutomaticTextAttr.StrikeOutColor = clBlack
        AutomaticTextAttr.SuperScript = tsIgnore
        AutomaticTextAttr.SubScript = tsIgnore
        AutomaticTextAttr.Hidden = False
        AutomaticTextAttr.UnderlineColor = clBlack
        AutomaticTextAttr.TextColor = clBlack
        AutomaticTextAttr.BackgroundColor = clBlack
        AutomaticTextAttr.UseUnderlineColor = False
        AutomaticTextAttr.UseTextColor = False
        AutomaticTextAttr.UseBackgroundColor = False
        ProtectedTextAttr.Bold = tsIgnore
        ProtectedTextAttr.Italic = tsIgnore
        ProtectedTextAttr.DoubleUnderline = False
        ProtectedTextAttr.Underline = tsIgnore
        ProtectedTextAttr.StrikeOut = tsIgnore
        ProtectedTextAttr.StrikeOutColor = clBlack
        ProtectedTextAttr.SuperScript = tsIgnore
        ProtectedTextAttr.SubScript = tsIgnore
        ProtectedTextAttr.Hidden = False
        ProtectedTextAttr.UnderlineColor = clBlack
        ProtectedTextAttr.TextColor = clBlack
        ProtectedTextAttr.BackgroundColor = clBlack
        ProtectedTextAttr.UseUnderlineColor = False
        ProtectedTextAttr.UseTextColor = False
        ProtectedTextAttr.UseBackgroundColor = False
        FieldObjectTextAttr.Bold = tsIgnore
        FieldObjectTextAttr.Italic = tsIgnore
        FieldObjectTextAttr.DoubleUnderline = False
        FieldObjectTextAttr.Underline = tsIgnore
        FieldObjectTextAttr.StrikeOut = tsIgnore
        FieldObjectTextAttr.StrikeOutColor = clBlack
        FieldObjectTextAttr.SuperScript = tsIgnore
        FieldObjectTextAttr.SubScript = tsIgnore
        FieldObjectTextAttr.Hidden = False
        FieldObjectTextAttr.UnderlineColor = clBlack
        FieldObjectTextAttr.TextColor = clBlack
        FieldObjectTextAttr.BackgroundColor = clBlack
        FieldObjectTextAttr.UseUnderlineColor = False
        FieldObjectTextAttr.UseTextColor = False
        FieldObjectTextAttr.UseBackgroundColor = False
        WriteObjectMode = wobStandard
        OneClickHyperlink = False
        Align = alClient
        TabOrder = 0
      end
      object WPRuler1: TWPRuler
        Left = 0
        Top = 0
        Width = 495
        Height = 26
        Design = wpRulerSimple
        Units = wrCentimeter
        DrawOptions = [wrUseSmallNumbers]
        TabKind = tkLeft
        Options = [wrShowIndents, wpUseIntervalls, wpNoVertRulerAttached]
        ColorMargin = clAppWorkSpace
        ColorBack = clBtnFace
        ColorBorder = clBtnFace
        Align = alTop
      end
      object Panel3: TPanel
        Left = 0
        Top = 203
        Width = 495
        Height = 41
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 2
        object Label8: TLabel
          Left = 284
          Top = 17
          Width = 43
          Height = 16
          Caption = 'Copies'
        end
        object Label5: TLabel
          Left = 157
          Top = 17
          Width = 57
          Height = 16
          Caption = 'Start Row'
        end
        object Label4: TLabel
          Left = 7
          Top = 17
          Width = 75
          Height = 16
          Caption = 'Start Column'
        end
        object Button4: TButton
          Left = 399
          Top = 8
          Width = 93
          Height = 25
          Caption = 'Select Font'
          TabOrder = 0
          OnClick = Button4Click
        end
        object Copies: TWPValueEdit
          Left = 330
          Top = 7
          Width = 59
          Height = 26
          Hint = 'Row Count'
          AvailableUnits = []
          UnitType = euStandard
          Precision = 0
          TabOrder = 1
          OnChange = ColCountChange
          AllowNegative = False
          Value = 1
          IntValue = 1
          Undefined = False
        end
        object StartRow: TWPValueEdit
          Left = 219
          Top = 7
          Width = 59
          Height = 26
          Hint = 'Row Count'
          AvailableUnits = []
          UnitType = euStandard
          Precision = 0
          TabOrder = 2
          OnChange = ColCountChange
          AllowNegative = False
          Value = 1
          IntValue = 1
          Undefined = False
        end
        object StartCol: TWPValueEdit
          Left = 87
          Top = 7
          Width = 61
          Height = 26
          Hint = 'Column Count'
          AvailableUnits = []
          UnitType = euStandard
          Precision = 0
          TabOrder = 3
          OnChange = ColCountChange
          AllowNegative = False
          Value = 1
          IntValue = 1
          Undefined = False
        end
      end
    end
    object LabelDef: TTabSheet
      Caption = 'Label'
      ImageIndex = 1
      DesignSize = (
        495
        244)
      object grpMarginsPages: TGroupBox
        Left = 6
        Top = 38
        Width = 318
        Height = 196
        TabOrder = 0
        object Label1: TLabel
          Left = 221
          Top = 89