开源的网站整站程序,功能强大带采集系统.

源代码在线查看: hwprint.dfm.svn-base

软件大小: 2475 K
上传用户: a83133937
关键词: 开源 网站 程序 采集系统
下载地址: 免注册下载 普通下载 VIP

相关代码

				object HwPrintForm: THwPrintForm
				  Left = 195
				  Top = 92
				  BorderIcons = [biSystemMenu]
				  BorderStyle = bsSingle
				  Caption = #33258#23450#20041#25171#21360
				  ClientHeight = 352
				  ClientWidth = 457
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -12
				  Font.Name = #23435#20307
				  Font.Pitch = fpFixed
				  Font.Style = []
				  KeyPreview = True
				  OldCreateOrder = False
				  Position = poMainFormCenter
				  OnClose = FormClose
				  OnCreate = FormCreate
				  OnKeyDown = FormKeyDown
				  PixelsPerInch = 96
				  TextHeight = 12
				  object PageControl1: TPageControl
				    Left = 8
				    Top = 8
				    Width = 441
				    Height = 305
				    ActivePage = tsPage
				    TabIndex = 1
				    TabOrder = 0
				    object tsFields: TTabSheet
				      Caption = #39033#30446#36873#25321
				      object lblSelected: TLabel
				        Left = 16
				        Top = 16
				        Width = 48
				        Height = 12
				        Caption = #39033#30446#36873#25321
				      end
				      object SpeedButton1: TSpeedButton
				        Left = 206
				        Top = 64
				        Width = 23
				        Height = 22
				        Caption = '>'
				        OnClick = SpeedButton1Click
				      end
				      object SpeedButton2: TSpeedButton
				        Left = 206
				        Top = 104
				        Width = 23
				        Height = 22
				        Caption = '>>'
				        OnClick = SpeedButton2Click
				      end
				      object SpeedButton3: TSpeedButton
				        Left = 206
				        Top = 144
				        Width = 23
				        Height = 22
				        Caption = '				        OnClick = SpeedButton3Click
				      end
				      object SpeedButton4: TSpeedButton
				        Left = 206
				        Top = 184
				        Width = 23
				        Height = 22
				        Caption = '				        OnClick = SpeedButton4Click
				      end
				      object lblFields: TLabel
				        Left = 232
				        Top = 16
				        Width = 48
				        Height = 12
				        Caption = #25171#21360#39033#30446
				      end
				      object CheckListBox1: TCheckListBox
				        Left = 16
				        Top = 32
				        Width = 185
				        Height = 225
				        ItemHeight = 18
				        Items.Strings = (
				          '1'
				          '2'
				          '3'
				          '4')
				        Style = lbOwnerDrawFixed
				        TabOrder = 0
				        OnDblClick = SpeedButton1Click
				      end
				      object sgFields: TStringGrid
				        Left = 232
				        Top = 32
				        Width = 185
				        Height = 225
				        ColCount = 2
				        DefaultRowHeight = 21
				        RowCount = 2
				        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing]
				        TabOrder = 1
				        OnKeyPress = sgFieldsKeyPress
				        OnSelectCell = sgFieldsSelectCell
				        ColWidths = (
				          91
				          79)
				      end
				    end
				    object tsPage: TTabSheet
				      Caption = #39029#38754#35774#23450
				      ImageIndex = 1
				      object lblTitle: TLabel
				        Left = 24
				        Top = 29
				        Width = 48
				        Height = 12
				        Caption = #25253#34920#26631#39064
				      end
				      object edtReportTitle: TEdit
				        Left = 88
				        Top = 24
				        Width = 313
				        Height = 20
				        TabOrder = 0
				      end
				      object GroupBox3: TGroupBox
				        Left = 24
				        Top = 56
				        Width = 185
				        Height = 105
				        Caption = #39029#38754#23610#23544
				        TabOrder = 1
				        object lblWidth: TLabel
				          Left = 16
				          Top = 54
				          Width = 60
				          Height = 12
				          Caption = #23485#24230'('#27627#31859')'
				          FocusControl = edtWidth
				        end
				        object lblHeight: TLabel
				          Left = 16
				          Top = 78
				          Width = 60
				          Height = 12
				          Caption = #39640#24230'('#27627#31859')'
				          FocusControl = edtHeight
				        end
				        object cbPaper: TComboBox
				          Left = 16
				          Top = 20
				          Width = 156
				          Height = 20
				          HelpContext = 130
				          Style = csDropDownList
				          ItemHeight = 12
				          TabOrder = 0
				          OnClick = cbPaperClick
				        end
				        object edtWidth: TEdit
				          Left = 88
				          Top = 48
				          Width = 81
				          Height = 20
				          HelpContext = 140
				          TabOrder = 1
				        end
				        object edtHeight: TEdit
				          Left = 88
				          Top = 72
				          Width = 81
				          Height = 20
				          HelpContext = 150
				          TabOrder = 2
				        end
				      end
				      object GroupBox2: TGroupBox
				        Left = 216
				        Top = 56
				        Width = 185
				        Height = 105
				        Caption = #26041#21521
				        TabOrder = 2
				        object Image2: TImage
				          Left = 117
				          Top = 40
				          Width = 32
				          Height = 26
				          AutoSize = True
				          Picture.Data = {
				            07544269746D617016020000424D160200000000000076000000280000002000
				            00001A0000000100040000000000A0010000CE0E0000C40E0000100000000000
				            000000000000000080000080000000808000800000008000800080800000C0C0
				            C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
				            FF00000000000000000000000000000000008FFFF77777777777777777777777
				            77708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFFFFF
				            FF708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFFFFF
				            FF708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FFFFFFFF8888FFFF888888FFFFF
				            FF708FFFFFFFFF78FFFFFF7887FFFFFFFF708FFFFFFFFFF87FFFFF888FFFFFFF
				            FF708FFFFFFFFFF787FFF7887FFFFFFFFF708FFFFFFFFFFF88888888FFFFFFFF
				            FF708FFFFFFFFFFF87FF7887FFFFFFFFFF708FFFFFFFFFFF78FF888FFFFFFFFF
				            FF708FFFFFFFFFFFF87F887FFFFFFFFFFF708FFFFFFFFFFFF78888FFFFFFFFFF
				            FF708FFFFFFFFFFFFF8887FFFFFFFFFFFF708FFFFFFFFFFFFF788FFFFFFFFFFF
				            FF708FFFFFFFFFFFFFF87FFFFFFFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFF000
				            00088FFFFFFFFFFFFFFFFFFFFFFFF07FFF878FFFFFFFFFFFFFFFFFFFFFFFF07F
				            F8778FFFFFFFFFFFFFFFFFFFFFFFF07F87778FFFFFFFFFFFFFFFFFFFFFFFF0F8
				            77778FFFFFFFFFFFFFFFFFFFFFFFF08777778888888888888888888888888077
				            7777}
				        end
				        object Image1: TImage
				          Left = 120
				          Top = 36
				          Width = 26
				          Height = 32
				          AutoSize = True
				          Picture.Data = {
				            07544269746D617076020000424D760200000000000076000000280000001A00
				            000020000000010004000000000000020000CE0E0000C40E0000100000000000
				            000000000000000080000080000000808000800000008000800080800000C0C0
				            C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
				            FF00000000000000000000000000000000008777777777777777777777777000
				            00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
				            00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
				            00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
				            00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
				            00008FFFFF8888FFFF888888FFFF700000008FFFFFF78FFFFFF7887FFFFF7000
				            00008FFFFFFF87FFFFF888FFFFFF700000008FFFFFFF787FFF7887FFFFFF7000
				            00008FFFFFFFF88888888FFFFFFF700000008FFFFFFFF87FF7887FFFFFFF7000
				            00008FFFFFFFF78FF888FFFFFFFF700000008FFFFFFFFF87F887FFFFFFFF7000
				            00008FFFFFFFFF78888FFFFFFFFF700000008FFFFFFFFFF8887FFFFFFFFF7000
				            00008FFFFFFFFFF788FFFFFFFFFF700000008FFFFFFFFFFF87FFFFFFFFFF7000
				            00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
				            00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFF800000000
				            00008FFFFFFFFFFFFFFFFFF8FF78070000008FFFFFFFFFFFFFFFFFF8F7807700
				            00008FFFFFFFFFFFFFFFFFF87807770000008FFFFFFFFFFFFFFFFFF880777700
				            00008FFFFFFFFFFFFFFFFFF80777770000008888888888888888888877777700
				            0000}
				        end
				        object rbVertical: TRadioButton
				          Left = 32
				          Top = 32
				          Width = 79
				          Height = 16
				          HelpContext = 111
				          Caption = #32437#21521
				          TabOrder = 0
				          OnClick = rbVerticalClick
				        end
				        object rbHorizontal: TRadioButton
				          Left = 32
				          Top = 64
				          Width = 79
				          Height = 16
				          HelpContext = 120
				          Caption = #27178#21521
				          Checked = True
				          TabOrder = 1
				          TabStop = True
				          OnClick = rbHorizontalClick
				        end
				      end
				      object GroupBox4: TGroupBox
				        Left = 24
				        Top = 168
				        Width = 377
				        Height = 89
				        Caption = #36793#36317
				        TabOrder = 3
				        object lblTop: TLabel
				          Left = 16
				          Top = 28
				          Width = 72
				          Height = 12
				          Caption = #19978#36793#30028'('#27627#31859')'
				        end
				        object lblBottom: TLabel
				          Left = 208
				          Top = 28
				          Width = 72
				          Height = 12
				          Caption = #19979#36793#30028'('#27627#31859')'
				        end
				        object lblLeft: TLabel
				          Left = 16
				          Top = 56
				          Width = 72
				          Height = 12
				          Caption = #24038#36793#30028'('#27627#31859')'
				        end
				        object lblRight: TLabel
				          Left = 208
				          Top = 56
				          Width = 72
				          Height = 12
				          Caption = #21491#36793#30028'('#27627#31859')'
				        end
				        object edtTop: TEdit
				          Left = 96
				          Top = 24
				          Width = 57
				          Height = 20
				          TabOrder = 0
				          Text = '0'
				        end
				        object upTop: TUpDown
				          Left = 153
				          Top = 24
				          Width = 17
				          Height = 20
				          Associate = edtTop
				          Min = 0
				          Position = 0
				          TabOrder = 1
				          Wrap = False
				        end
				        object edtBottom: TEdit
				          Left = 288
				          Top = 24
				          Width = 57
				          Height = 20
				          TabOrder = 2
				          Text = '0'
				        end
				        object udBottom: TUpDown
				          Left = 345
				          Top = 24
				          Width = 17
				          Height = 20
				          Associate = edtBottom
				          Min = 0
				          Position = 0
				          TabOrder = 3
				          Wrap = False
				        end
				        object edtLeft: TEdit
				          Left = 96
				          Top = 52
				          Width = 57
				          Height = 20
				          TabOrder = 4
				          Text = '0'
				        end
				        object udLeft: TUpDown
				          Left = 153
				          Top = 52
				          Width = 17
				          Height = 20
				          Associate = edtLeft
				          Min = 0
				          Position = 0
				          TabOrder = 5
				          Wrap = False
				        end
				        object edtRight: TEdit
				          Left = 288
				          Top = 52
				          Width = 57
				          Height = 20
				          TabOrder = 6
				          Text = '0'
				        end
				        object udRight: TUpDown
				          Left = 345
				          Top = 52
				          Width = 17
				          Height = 20
				          Associate = edtRight
				          Min = 0
				          Position = 0
				          TabOrder = 7
				          Wrap = False
				        end
				      end
				    end
				    object tsFont: TTabSheet
				      Caption = #23383#20307#35774#32622
				      ImageIndex = 2
				      object pnlTitle: TPanel
				        Left = 24
				        Top = 40
				        Width = 297
				        Height = 33
				        BevelOuter = bvLowered
				        Caption = #25253#34920#21517#31216
				        Font.Charset = DEFAULT_CHARSET
				        Font.Color = clWindowText
				        Font.Height = -21
				        Font.Name = #23435#20307
				        Font.Pitch = fpFixed
				        Font.Style = []
				        ParentFont = False
				        TabOrder = 0
				      end
				      object pnlColumn: TPanel
				        Left = 24
				        Top = 88
				        Width = 297
				        Height = 33
				        BevelOuter = bvLowered
				        Caption = #21015#26631#39064
				        TabOrder = 1
				      end
				      object pnlData: TPanel
				        Left = 24
				        Top = 136
				        Width = 297
				        Height = 33
				        BevelOuter = bvLowered
				        Caption = #25968#25454#34892
				        TabOrder = 2
				      end
				      object pnlFoot: TPanel
				        Left = 24
				        Top = 184
				        Width = 297
				        Height = 33
				        BevelOuter = bvLowered
				        Caption = #25253#34920#39029#33050
				        TabOrder = 3
				      end
				      object bbtnTitle: TBitBtn
				        Left = 336
				        Top = 44
				        Width = 75
				        Height = 25
				        Caption = #23383#20307
				        TabOrder = 4
				        OnClick = bbtnTitleClick
				      end
				      object bbtnColumn: TBitBtn
				        Left = 336
				        Top = 92
				        Width = 75
				        Height = 25
				        Caption = #23383#20307
				        TabOrder = 5
				        OnClick = bbtnColumnClick
				      end
				      object bbtnData: TBitBtn
				        Left = 336
				        Top = 140
				        Width = 75
				        Height = 25
				        Caption = #23383#20307
				        TabOrder = 6
				        OnClick = bbtnDataClick
				      end
				      object bbtnFoot: TBitBtn
				        Left = 336
				        Top = 188
				        Width = 75
				        Height = 25
				        Caption = #23383#20307
				        TabOrder = 7
				        OnClick = bbtnFootClick
				      end
				    end
				  end
				  object bbtnPrint: TBitBtn
				    Left = 264
				    Top = 320
				    Width = 75
				    Height = 25
				    Caption = #25171#21360'(&P)'
				    TabOrder = 1
				    OnClick = bbtnPrintClick
				  end
				  object bbtnExit: TBitBtn
				    Left = 360
				    Top = 320
				    Width = 75
				    Height = 25
				    Caption = #36864#20986'(&X)'
				    TabOrder = 2
				    OnClick = bbtnExitClick
				  end
				  object DataSource1: TDataSource
				    Left = 308
				  end
				  object FontDialog1: TFontDialog
				    Font.Charset = DEFAULT_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -11
				    Font.Name = 'MS Sans Serif'
				    Font.Style = []
				    MinFontSize = 0
				    MaxFontSize = 0
				    Left = 380
				  end
				  object frReport1: TfrReport
				    InitialZoom = pzDefault
				    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
				    RebuildPrinter = False
				    Left = 176
				    Top = 16
				    ReportForm = {19000000}
				  end
				end
							

相关资源