home *** CD-ROM | disk | FTP | other *** search
- object printdlg: Tprintdlg
- Left = 174
- Top = 79
- Width = 598
- Height = 447
- Caption = 'Display/Print'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- Visible = True
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 590
- Height = 420
- Align = alClient
- Caption = 'Panel2'
- TabOrder = 0
- object PagePrinter1: TPagePrinter
- Left = 1
- Top = 1
- Width = 588
- Height = 377
- HorzScrollBar.Increment = 16
- HorzScrollBar.Range = 216
- HorzScrollBar.Tracking = True
- VertScrollBar.Increment = 16
- VertScrollBar.Range = 276
- VertScrollBar.Tracking = True
- Align = alClient
- AutoScroll = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- TabOrder = 0
- GradientBackground = False
- MarginBottom = 0.066666666666666660
- MarginLeft = 0.250000000000000000
- MarginRight = 0.250000000000000000
- MarginTop = 0.066666666666666660
- Title = 'PagePrinter Testing'
- end
- object Panel1: TPanel
- Left = 1
- Top = 378
- Width = 588
- Height = 41
- Align = alBottom
- TabOrder = 1
- object Label1: TLabel
- Left = 302
- Top = 14
- Width = 30
- Height = 13
- Caption = 'Zoom:'
- end
- object pageinfo: TLabel
- Left = 16
- Top = 13
- Width = 68
- Height = 13
- Caption = 'Change Page:'
- end
- object BitBtn1: TBitBtn
- Left = 184
- Top = 8
- Width = 105
- Height = 25
- Caption = 'Send to Printer'
- TabOrder = 2
- OnClick = BitBtn1Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
- 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
- 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
- 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
- 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
- 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
- 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
- 33333337FFFF7733333333300000033333333337777773333333}
- NumGlyphs = 2
- end
- object BitBtn2: TBitBtn
- Left = 424
- Top = 8
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Close'
- TabOrder = 4
- OnClick = BitBtn2Click
- Glyph.Data = {
- DE010000424DDE01000000000000760000002800000024000000120000000100
- 0400000000006801000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333FFFFF333333000033333388888833333333333F888888FFF333
- 000033338811111188333333338833FFF388FF33000033381119999111833333
- 38F338888F338FF30000339119933331111833338F388333383338F300003391
- 13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
- 33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
- 33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
- 000039183811193333918338F8F833F83333838F000039118111933339118338
- F3833F83333833830000339111193333391833338F33F8333FF838F300003391
- 11833338111833338F338FFFF883F83300003339111888811183333338FF3888
- 83FF83330000333399111111993333333388FFFFFF8833330000333333999999
- 3333333333338888883333330000333333333333333333333333333333333333
- 0000}
- NumGlyphs = 2
- end
- object BitBtn3: TBitBtn
- Left = 504
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Help'
- TabOrder = 5
- OnClick = BitBtn3Click
- Kind = bkHelp
- end
- object ZoomList: TComboBox
- Left = 336
- Top = 10
- Width = 81
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- '200%'
- '175%'
- '150%'
- '125%'
- '100%'
- '50%'
- 'Fit To Width'
- 'Fit To Height'
- 'Whole Page')
- TabOrder = 3
- Text = '25%'
- OnClick = ZoomListClick
- end
- object btnPrevPage: TBitBtn
- Left = 96
- Top = 8
- Width = 33
- Height = 25
- TabOrder = 0
- OnClick = btnPrevPageClick
- Glyph.Data = {
- 36050000424D3605000000000000360400002800000010000000100000000100
- 08000000000000010000120B0000120B00000500000005000000FFFF00006464
- 0000FFFFFF00C0C0C00000000000030303030303030303030303030303030303
- 0303030303030303030303030303030303030303010101030303030303030303
- 0303030101000103030303030303030303030101000001030303030303030303
- 0301010000000103030303030303030301010000000001010101010101030301
- 0100000000000000000000000001030100000202020202020202020200010303
- 0100000200000000000000000001030303010000020001010101010101030303
- 0303010000000103030303030303030303030301000001030303030303030303
- 0303030301000103030303030303030303030303030101030303030303030303
- 0303030303030303030303030303}
- end
- object btnNextPage: TBitBtn
- Left = 136
- Top = 8
- Width = 33
- Height = 25
- TabOrder = 1
- OnClick = btnNextPageClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000120B0000120B00000500000005000000FFFF00006464
- 0000FFFFFF00C0C0C00000000000333333333333333333333333333333333333
- 3331113333333333333101133333333333310011333333333331000113333111
- 1111000011331000000000000113102222222222001310000000002001333111
- 1111020013333333333100013333333333310013333333333331013333333333
- 3331133333333333333333333333}
- end
- end
- end
- object ZoomTimer: TTimer
- Enabled = False
- Interval = 50
- OnTimer = ZoomTimerTimer
- Left = 524
- Top = 20
- end
- object datatimer: TTimer
- Enabled = False
- Interval = 100
- OnTimer = datatimerTimer
- Left = 128
- Top = 88
- end
- end
-