setprint.dfm

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

                      Top = 0
                      Width = 8
                      ImageIndex = 12
                      Style = tbsDivider
                    end
                    object BtFontColor: TPanel
                      Tag = 1
                      Left = 381
                      Top = 0
                      Width = 23
                      Height = 23
                      Cursor = crHandPoint
                      Hint = #39068#33394
                      BevelInner = bvRaised
                      BevelOuter = bvLowered
                      Color = clWhite
                      TabOrder = 3
                      OnClick = FontColorClick
                    end
                  end
                end
              end
              object TabSheet7: TTabSheet
                Caption = #34920#22836
                ImageIndex = 2
                object Bevel5: TBevel
                  Left = 2
                  Top = 180
                  Width = 416
                  Height = 13
                  Shape = bsTopLine
                end
                object Label8: TLabel
                  Left = 6
                  Top = 186
                  Width = 316
                  Height = 15
                  Caption = #25552#31034': '#27492#21306#22495#20250#22312#27599#19968#39029#30340#26631#39064#19979#38754#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 Label9: TLabel
                  Left = 52
                  Top = 210
                  Width = 165
                  Height = 15
                  Caption = #20363#22914#25171#21360#26085#26399#12289#26102#38388#31561#12290
                  Font.Charset = GB2312_CHARSET
                  Font.Color = clNavy
                  Font.Height = -15
                  Font.Name = #23435#20307
                  Font.Style = []
                  ParentFont = False
                end
                object Panel11: TPanel
                  Left = 0
                  Top = 0
                  Width = 419
                  Height = 179
                  Align = alTop
                  BevelOuter = bvNone
                  TabOrder = 0
                  object Bevel22: TBevel
                    Left = 2
                    Top = 150
                    Width = 415
                    Height = 13
                    Shape = bsTopLine
                  end
                  object BgbtRich: TRichEdit
                    Left = 0
                    Top = 0
                    Width = 419
                    Height = 123
                    Align = alTop
                    Font.Charset = GB2312_CHARSET
                    Font.Color = clWindowText
                    Font.Height = -15
                    Font.Name = #23435#20307
                    Font.Style = []
                    ParentFont = False
                    PopupMenu = pmnXm
                    TabOrder = 0
                    WordWrap = False
                    OnSelectionChange = RichSelectionChange
                  end
                  object ToolBar5: TToolBar
                    Left = 0
                    Top = 123
                    Width = 419
                    Height = 26
                    AutoSize = True
                    BorderWidth = 1
                    EdgeInner = esNone
                    EdgeOuter = esNone
                    Flat = True
                    Images = ToolbarImages
                    Indent = 4
                    ParentShowHint = False
                    ShowHint = True
                    TabOrder = 1
                    Wrapable = False
                    object BgbtDy: TCheckBox
                      Left = 4
                      Top = 0
                      Width = 81
                      Height = 22
                      Caption = #26159#21542#25171#21360
                      Checked = True
                      State = cbChecked
                      TabOrder = 0
                    end
                    object ToolButton23: TToolButton
                      Left = 85
                      Top = 0
                      Width = 8
                      ImageIndex = 8
                      Style = tbsSeparator
                    end
                    object Label40: TLabel
                      Left = 93
                      Top = 0
                      Width = 38
                      Height = 22
                      Caption = #24213#33394':'
                      Layout = tlCenter
                    end
                    object BgbtColor: TPanel
                      Left = 131
                      Top = 0
                      Width = 23
                      Height = 22
                      Cursor = crHandPoint
                      BevelInner = bvRaised
                      BevelOuter = bvLowered
                      Color = clWhite
                      TabOrder = 1
                      OnClick = ColorClick
                    end
                    object ToolButton24: TToolButton
                      Left = 154
                      Top = 0
                      Width = 8
                      Caption = 'ToolButton2'
                      ImageIndex = 15
                      Style = tbsSeparator
                    end
                    object BgbtLeftAlign: TToolButton
                      Left = 162
                      Top = 0
                      Hint = #24038#23545#40784
                      Down = True
                      Grouped = True
                      ImageIndex = 11
                      Style = tbsCheck
                      OnClick = SetPreviewPnl
                    end
                    object BgbtCenterAlign: TToolButton
                      Tag = 2
                      Left = 185
                      Top = 0
                      Hint = #20013#38388#23545#40784
                      Grouped = True
                      ImageIndex = 12
                      Style = tbsCheck
                      OnClick = SetPreviewPnl
                    end
                    object BgbtRightAlign: TToolButton
                      Tag = 1
                      Left = 208
                      Top = 0
                      Hint = #21491#23545#40784
                      Grouped = True
                      ImageIndex = 13
                      Style = tbsCheck
                      OnClick = SetPreviewPnl
                    end
                    object ToolButton28: TToolButton
                      Left = 231
                      Top = 0
                      Width = 8
                      Caption = 'ToolButton3'
                      ImageIndex = 14
                      Style = tbsSeparator
                    end
                    object Label41: TLabel
                      Left = 239
                      Top = 0
                      Width = 38
                      Height = 22
                      Caption = #36793#26694':'
                      Layout = tlCenter
                    end
                    object BgbtHx: TComboBox
                      Left = 277
                      Top = 0
                      Width = 96
                      Height = 23
                      Style = csDropDownList
                      ItemHeight = 15
                      TabOrder = 2
                      Items.Strings = (
                        #22235#21608#30011#32447
                        #19978#19979#30011#32447
                        #24038#21491#30011#32447
                        #19981#30011#32447)
                    end
                    object ToolButton26: TToolButton
                      Left = 373
                      Top = 0
                      Width = 8
                      Caption = 'ToolButton26'
                      ImageIndex = 16
                      Style = tbsSeparator
                    end
                    object ToolButton13: TToolButton
                      Left = 381
                      Top = 0
                      Hint = #22686#21152#31995#32479#36164#26009
                      Caption = 'ToolButton13'
                      ImageIndex = 15
                      OnClick = AddSysItemClick
                    end
                  end
                  object ToolBar6: TToolBar
                    Left = 0
                    Top = 153
                    Width = 419
                    Height = 26
                    Align = alBottom
                    AutoSize = True
                    BorderWidth = 1
                    EdgeInner = esNone
                    EdgeOuter = esNone
                    Flat = True
                    Images = ToolbarImages
                    Indent = 4
                    ParentShowHint = False
                    ShowHint = True
                    TabOrder = 2
                    Wrapable = False
                    object Label42: TLabel
                      Left = 4
                      Top = 0
                      Width = 38
                      Height = 22
                      Caption = #23383#20307':'
                      Layout = tlCenter
                    end
                    object BgbtFontName: TComboBox
                      Tag = 1
                      Left = 42
                      Top = 0
                      Width = 199
                      Height = 23
                      Ctl3D = False
                      DropDownCount = 10
                      ItemHeight = 15
                      ParentCtl3D = False
                      TabOrder = 0
                      OnChange = FontNameChange
                    end
                    object ToolButton29: TToolButton
                      Left = 241
                      Top = 0
                      Width = 8
                      ImageIndex = 8
                      Style = tbsSeparator
                    end
                    object BgbtFontSize: TEdit
                      Tag = 1
                      Left = 249
                      Top = 0
                      Width = 26
                      Height = 22
                      Hint = #23383#20307#22823#23567
                      TabOrder = 1
                      Text = '0'
                      OnChange = FontSizeChange
                    end
                    object UpDown3: TUpDown
                      Left = 275
                      Top = 0
                      Width = 21
                      Height = 22
                      Associate = BgbtFontSize
                      TabOrder = 2
                    end
                    object ToolButton30: TToolButton
                      Left = 296
                      Top = 0
                      Width = 8
                      Caption = 'ToolButton2'
                      ImageIndex = 15
                      Style = tbsSeparator
                    end
                    object BgbtBoldButton: TToolButton
                      Tag = 1
                      Left = 304
                      Top = 0
                      Hint = #31895#20307
                      ImageIndex = 8
                      Style = tbsCheck
                      OnClick = BoldButtonClick
                    end
                    object BgbtItalicButton: TToolButton
                      Tag = 1
                      Left = 327
                      Top = 0
                      Hint = #26012#20307
                      ImageIndex = 9
                      Style = tbsCheck
                      OnClick = ItalicButtonClick
                    end
                    object BgbtUnderlineButton: TToolButton
                      Tag = 1
                      Left = 350
                      Top = 0
                      Hint = #19979#21010#32447
                      ImageIndex = 10
                      Style = tbsCheck
                      OnClick = UnderlineButtonClick
                    end
                    object ToolButton34: TToolButton
                      Left = 373
                      Top = 0
                      Width = 8
                      ImageIndex = 12
                      Style = tbsDivider
                    end
                    object BgbtFontColor: 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 TabSheet9: TTabSheet
                Caption = #20869#23481
                ImageIndex = 4
                object Memo1: TMemo
                  Left = 63
                  Top = 43