setprint.dfm

delphi作得信息业进销存源码.功能全面,运行稳定.

                      Hint = #31895#20307
                      ImageIndex = 8
                      Style = tbsCheck
                      OnClick = BoldButtonClick
                    end
                    object YmItalicButton: TToolButton
                      Tag = 1
                      Left = 327
                      Top = 0
                      Hint = #26012#20307
                      ImageIndex = 9
                      Style = tbsCheck
                      OnClick = ItalicButtonClick
                    end
                    object YmUnderlineButton: TToolButton
                      Tag = 1
                      Left = 350
                      Top = 0
                      Hint = #19979#21010#32447
                      ImageIndex = 10
                      Style = tbsCheck
                      OnClick = UnderlineButtonClick
                    end
                    object ToolButton16: TToolButton
                      Left = 373
                      Top = 0
                      Width = 8
                      ImageIndex = 12
                      Style = tbsDivider
                    end
                    object YmFontColor: TPanel
                      Tag = 1
                      Left = 381
                      Top = 0
                      Width = 23
                      Height = 22
                      Cursor = crHandPoint
                      Hint = #39068#33394
                      BevelInner = bvRaised
                      BevelOuter = bvLowered
                      Color = clWhite
                      TabOrder = 3
                      OnClick = FontColorClick
                    end
                  end
                end
              end
              object TabSheet6: TTabSheet
                Caption = #26631#39064
                ImageIndex = 1
                object Bevel4: TBevel
                  Left = 2
                  Top = 180
                  Width = 416
                  Height = 13
                  Shape = bsTopLine
                end
                object Label6: TLabel
                  Left = 6
                  Top = 186
                  Width = 286
                  Height = 15
                  Caption = #25552#31034': '#27492#21306#22495#20250#22312#27599#19968#39029#30340#39029#22836#36827#34892#25171#21360#12290
                  Font.Charset = GB2312_CHARSET
                  Font.Color = clNavy
                  Font.Height = -15
                  Font.Name = #23435#20307
                  Font.Style = []
                  ParentFont = False
                end
                object Label7: TLabel
                  Left = 52
                  Top = 210
                  Width = 180
                  Height = 15
                  Caption = #20363#22914#25171#21360#34920#26684#21517#31216#31561#36164#26009#12290
                  Font.Charset = GB2312_CHARSET
                  Font.Color = clNavy
                  Font.Height = -15
                  Font.Name = #23435#20307
                  Font.Style = []
                  ParentFont = False
                end
                object Panel5: TPanel
                  Left = 0
                  Top = 0
                  Width = 419
                  Height = 179
                  Align = alTop
                  BevelOuter = bvNone
                  Caption = #23601#32490
                  TabOrder = 0
                  object Bevel21: TBevel
                    Left = 2
                    Top = 150
                    Width = 415
                    Height = 13
                    Shape = bsTopLine
                  end
                  object BtRich: TRichEdit
                    Left = 0
                    Top = 0
                    Width = 419
                    Height = 123
                    Align = alTop
                    Font.Charset = GB2312_CHARSET
                    Font.Color = clWindowText
                    Font.Height = -21
                    Font.Name = #23435#20307
                    Font.Style = [fsBold]
                    ParentFont = False
                    PopupMenu = pmnXm
                    TabOrder = 0
                    WordWrap = False
                    OnSelectionChange = RichSelectionChange
                  end
                  object ToolBar3: TToolBar
                    Left = 0
                    Top = 123
                    Width = 419
                    Height = 27
                    AutoSize = True
                    BorderWidth = 1
                    ButtonHeight = 23
                    EdgeInner = esNone
                    EdgeOuter = esNone
                    Flat = True
                    Images = ToolbarImages
                    Indent = 4
                    ParentShowHint = False
                    ShowHint = True
                    TabOrder = 1
                    Wrapable = False
                    object BtDy: TCheckBox
                      Left = 4
                      Top = 0
                      Width = 81
                      Height = 23
                      Caption = #26159#21542#25171#21360
                      Checked = True
                      State = cbChecked
                      TabOrder = 0
                    end
                    object ToolButton7: TToolButton
                      Left = 85
                      Top = 0
                      Width = 8
                      ImageIndex = 8
                      Style = tbsSeparator
                    end
                    object Label36: TLabel
                      Left = 93
                      Top = 0
                      Width = 38
                      Height = 15
                      Caption = #24213#33394':'
                      Layout = tlCenter
                    end
                    object BtColor: TPanel
                      Left = 131
                      Top = 0
                      Width = 23
                      Height = 23
                      Cursor = crHandPoint
                      BevelInner = bvRaised
                      BevelOuter = bvLowered
                      Color = clWhite
                      TabOrder = 1
                      OnClick = ColorClick
                    end
                    object ToolButton10: TToolButton
                      Left = 154
                      Top = 0
                      Width = 8
                      Caption = 'ToolButton2'
                      ImageIndex = 15
                      Style = tbsSeparator
                    end
                    object BtLeftAlign: TToolButton
                      Left = 162
                      Top = 0
                      Hint = #24038#23545#40784
                      Grouped = True
                      ImageIndex = 11
                      Style = tbsCheck
                      OnClick = SetPreviewPnl
                    end
                    object BtCenterAlign: TToolButton
                      Tag = 2
                      Left = 185
                      Top = 0
                      Hint = #20013#38388#23545#40784
                      Down = True
                      Grouped = True
                      ImageIndex = 12
                      Style = tbsCheck
                      OnClick = SetPreviewPnl
                    end
                    object BtRightAlign: TToolButton
                      Tag = 1
                      Left = 208
                      Top = 0
                      Hint = #21491#23545#40784
                      Grouped = True
                      ImageIndex = 13
                      Style = tbsCheck
                      OnClick = SetPreviewPnl
                    end
                    object ToolButton20: TToolButton
                      Left = 231
                      Top = 0
                      Width = 8
                      Caption = 'ToolButton20'
                      ImageIndex = 15
                      Style = tbsSeparator
                    end
                    object Label37: TLabel
                      Left = 239
                      Top = 0
                      Width = 38
                      Height = 15
                      Caption = #36793#26694':'
                      Layout = tlCenter
                    end
                    object BtHx: TComboBox
                      Left = 277
                      Top = 0
                      Width = 96
                      Height = 23
                      Style = csDropDownList
                      ItemHeight = 0
                      TabOrder = 2
                      Items.Strings = (
                        #22235#21608#30011#32447
                        #19978#19979#30011#32447
                        #24038#21491#30011#32447
                        #19981#30011#32447)
                    end
                    object ToolButton15: TToolButton
                      Left = 373
                      Top = 0
                      Width = 8
                      Caption = 'ToolButton3'
                      ImageIndex = 14
                      Style = tbsSeparator
                    end
                    object ToolButton25: TToolButton
                      Left = 381
                      Top = 0
                      Hint = #22686#21152#31995#32479#36164#26009
                      Caption = 'ToolButton25'
                      ImageIndex = 15
                      OnClick = AddSysItemClick
                    end
                  end
                  object ToolBar4: TToolBar
                    Left = 0
                    Top = 152
                    Width = 419
                    Height = 27
                    Align = alBottom
                    AutoSize = True
                    BorderWidth = 1
                    ButtonHeight = 23
                    EdgeInner = esNone
                    EdgeOuter = esNone
                    Flat = True
                    Images = ToolbarImages
                    Indent = 4
                    ParentShowHint = False
                    ShowHint = True
                    TabOrder = 2
                    Wrapable = False
                    object Label38: TLabel
                      Left = 4
                      Top = 0
                      Width = 38
                      Height = 15
                      Caption = #23383#20307':'
                      Layout = tlCenter
                    end
                    object BtFontName: TComboBox
                      Tag = 1
                      Left = 42
                      Top = 0
                      Width = 199
                      Height = 23
                      Ctl3D = False
                      DropDownCount = 10
                      ItemHeight = 0
                      ParentCtl3D = False
                      TabOrder = 0
                      OnChange = FontNameChange
                    end
                    object ToolButton17: TToolButton
                      Left = 241
                      Top = 0
                      Width = 8
                      ImageIndex = 8
                      Style = tbsSeparator
                    end
                    object BtFontSize: TEdit
                      Tag = 1
                      Left = 249
                      Top = 0
                      Width = 26
                      Height = 23
                      Hint = #23383#20307#22823#23567
                      TabOrder = 1
                      Text = '0'
                      OnChange = FontSizeChange
                    end
                    object UpDown2: TUpDown
                      Left = 275
                      Top = 0
                      Width = 21
                      Height = 23
                      Associate = BtFontSize
                      TabOrder = 2
                    end
                    object ToolButton18: TToolButton
                      Left = 296
                      Top = 0
                      Width = 8
                      Caption = 'ToolButton2'
                      ImageIndex = 15
                      Style = tbsSeparator
                    end
                    object BtBoldButton: TToolButton
                      Tag = 1
                      Left = 304
                      Top = 0
                      Hint = #31895#20307
                      ImageIndex = 8
                      Style = tbsCheck
                      OnClick = BoldButtonClick
                    end
                    object BtItalicButton: TToolButton
                      Tag = 1
                      Left = 327
                      Top = 0
                      Hint = #26012#20307
                      ImageIndex = 9
                      Style = tbsCheck
                      OnClick = ItalicButtonClick
                    end
                    object BtUnderlineButton: TToolButton
                      Tag = 1
                      Left = 350
                      Top = 0
                      Hint = #19979#21010#32447
                      ImageIndex = 10
                      Style = tbsCheck
                      OnClick = UnderlineButtonClick
                    end
                    object ToolButton22: TToolButton
                      Left = 373