superpr.dfm

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

object WPSuperPrintTest: TWPSuperPrintTest
  Left = 122
  Top = 212
  Width = 774
  Height = 582
  Caption = 'SuperPrint with WPTools 5'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = WPDefAct.MainMenu
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 443
    Top = 41
    Width = 8
    Height = 486
    Align = alRight
  end
  object Panel1: TPanel
    Left = 451
    Top = 41
    Width = 315
    Height = 486
    Align = alRight
    BevelInner = bvLowered
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 2
      Top = 234
      Width = 311
      Height = 250
      ActivePage = ColRowTab
      Align = alBottom
      TabOrder = 0
      object ColRowTab: TTabSheet
        Caption = 'Columns and Rows '
        object labColCount: TLabel
          Left = 18
          Top = 3
          Width = 52
          Height = 16
          Caption = 'Columns'
        end
        object labRowCount: TLabel
          Left = 38
          Top = 32
          Width = 34
          Height = 16
          Caption = 'Rows'
        end
        object labCopyPages: TLabel
          Left = 178
          Top = 3
          Width = 43
          Height = 16
          Caption = 'Copies'
        end
        object valColCount: TWPValueEdit
          Left = 76
          Top = 3
          Width = 61
          Height = 26
          Hint = 'Column Count'
          AvailableUnits = []
          UnitType = euStandard
          Precision = 0
          TabOrder = 0
          OnChange = valColCountChange
          AllowNegative = False
          Value = 2
          IntValue = 2
          Undefined = False
        end
        object valRowCount: TWPValueEdit
          Left = 78
          Top = 32
          Width = 59
          Height = 26
          Hint = 'Row Count'
          AvailableUnits = []
          UnitType = euStandard
          Precision = 0
          TabOrder = 1
          OnChange = valColCountChange
          AllowNegative = False
          Value = 1
          IntValue = 1
          Undefined = False
        end
        object grpMarginsPages: TGroupBox
          Left = 12
          Top = 82
          Width = 282
          Height = 126
          Caption = 'Margins'
          TabOrder = 2
          object Label1: TLabel
            Left = 180
            Top = 14
            Width = 63
            Height = 16
            Caption = 'Horizontal:'
          end
          object Label2: TLabel
            Left = 180
            Top = 64
            Width = 48
            Height = 16
            Caption = 'Vertical:'
          end
          object valPTopMargin: TWPValueEdit
            Left = 49
            Top = 17
            Width = 70
            Height = 26
            AvailableUnits = [euInch, euCm, euPt]
            UnitType = euTwips
            OnUnitChange = valPBottomMarginUnitChange
            TabOrder = 0
            OnChange = valColCountChange
            AllowNegative = False
            Value = 0
            IntValue = 0
            Undefined = False
          end
          object valPLeftMargin: TWPValueEdit
            Left = 9
            Top = 49
            Width = 70
            Height = 26
            AvailableUnits = [euInch, euCm, euPt]
            UnitType = euTwips
            OnUnitChange = valPBottomMarginUnitChange
            TabOrder = 1
            OnChange = valColCountChange
            AllowNegative = False
            Value = 0
            IntValue = 0
            Undefined = False
          end
          object valPRightMargin: TWPValueEdit
            Left = 81
            Top = 49
            Width = 70
            Height = 26
            AvailableUnits = [euInch, euCm, euPt]
            UnitType = euTwips
            OnUnitChange = valPBottomMarginUnitChange
            TabOrder = 2
            OnChange = valColCountChange
            AllowNegative = False
            Value = 0
            IntValue = 0
            Undefined = False
          end
          object valPBottomMargin: TWPValueEdit
            Left = 50
            Top = 82
            Width = 71
            Height = 26
            AvailableUnits = [euInch, euCm, euPt]
            UnitType = euTwips
            OnUnitChange = valPBottomMarginUnitChange
            TabOrder = 3
            OnChange = valColCountChange
            AllowNegative = False
            Value = 0
            IntValue = 0
            Undefined = False
          end
          object valPHorzMargin: TWPValueEdit
            Left = 193
            Top = 33
            Width = 70
            Height = 26
            AvailableUnits = [euInch, euCm, euPt]
            UnitType = euTwips
            OnUnitChange = valPBottomMarginUnitChange
            TabOrder = 4
            OnChange = valColCountChange
            AllowNegative = False
            Value = 0
            IntValue = 0
            Undefined = False
          end
          object valPVertMargin: TWPValueEdit
            Left = 193
            Top = 84
            Width = 70
            Height = 26
            AvailableUnits = [euInch, euCm, euPt]
            UnitType = euTwips
            OnUnitChange = valPBottomMarginUnitChange
            TabOrder = 5
            OnChange = valColCountChange
            AllowNegative = False
            Value = 0
            IntValue = 0
            Undefined = False
          end
        end
        object valCopyCount: TWPValueEdit
          Left = 230
          Top = 3
          Width = 60
          Height = 26
          Hint = 'Copies'
          AvailableUnits = []
          UnitType = euStandard
          Precision = 0
          TabOrder = 3
          OnChange = valColCountChange
          AllowNegative = False
          Value = 1
          IntValue = 1
          Undefined = False
        end
        object TwoUpBooklet: TCheckBox
          Left = 171
          Top = 38
          Width = 118
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Two up Booklet'
          TabOrder = 4
          OnClick = TwoUpBookletClick
        end
        object AssignPrintToTextSize: TButton
          Left = 13
          Top = 64
          Width = 277
          Height = 18
          Caption = 'Assign print- to text size'
          TabOrder = 5
          OnClick = AssignPrintToTextSizeClick
        end
      end
      object BackGrTab: TTabSheet
        Caption = 'Background '
        ImageIndex = 1
        object Bevel1: TBevel
          Left = 9
          Top = 12
          Width = 110
          Height = 105
          Shape = bsFrame
        end
        object imgBackGrImage: TImage
          Left = 18
          Top = 17
          Width = 90
          Height = 90
          Stretch = True
        end
        object btnLockAR: TSpeedButton
          Left = 267
          Top = 129
          Width = 23
          Height = 22
          AllowAllUp = True
          GroupIndex = 33
          Down = True
          Glyph.Data = {
            E6000000424DE60000000000000076000000280000000E0000000E0000000100
            0400000000007000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F000000FFFFF
            FF00F00FF00FFFFFFF00F00FF00FFFFFFF00F000000FFFFFFF00F0FFFF0FFFFF
            FF00F0FFFF0FFFFFFF00F0FFFF0FFFFFFF00FF0000FFFF0FFF00FFFFFFFFFFF0
            FF00F0FFF0FFFFF0FF00FF0F0FFFFF0F0F00FFF0FFFFFF0F0F00FF0F0FFFFF0F
            0F00F0FFF0FFF0FFF000}
          OnClick = chkTileImageClick
        end
        object btnImageOnEachPage: TSpeedButton
          Left = 94
          Top = 124
          Width = 23
          Height = 22
          Hint = 'Graphic on each label'
          AllowAllUp = True
          GroupIndex = 44
          Down = True
          Glyph.Data = {