home *** CD-ROM | disk | FTP | other *** search
- object CB_Prev: TCB_Prev
- Left = 129
- Top = 97
- Width = 776
- Height = 628
- HorzScrollBar.Increment = 100
- HorzScrollBar.Visible = False
- VertScrollBar.Increment = 100
- VertScrollBar.Visible = False
- Caption = 'Printit Preview'
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- KeyPreview = True
- Position = poDefault
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- PixelsPerInch = 120
- TextHeight = 20
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 768
- Height = 33
- Align = alTop
- BorderStyle = bsSingle
- TabOrder = 0
- object CloseButton: TBitBtn
- Left = 10
- Top = 2
- Width = 88
- Height = 26
- Caption = '&Close'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 0
- OnClick = CloseButtonClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
- 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
- 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
- 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
- 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
- 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
- 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
- 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
- 0333337F777FFFFF7F33330000000000033333777777777773330000}
- NumGlyphs = 2
- end
- object Print: TBitBtn
- Left = 225
- Top = 2
- Width = 88
- Height = 26
- Hint = 'Print all pages'
- Caption = '&All'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 2
- OnClick = PrintClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
- 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
- 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
- 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
- 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
- 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
- 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
- 33333337FFFF7733333333300000033333333337777773333333}
- NumGlyphs = 2
- end
- object Odd: TBitBtn
- Left = 315
- Top = 2
- Width = 88
- Height = 26
- Hint = 'Print Odd Pages for double-sided printing'
- Caption = '&Odd'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 3
- OnClick = OddClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
- 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
- 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
- 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
- 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
- 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
- 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
- 33333337FFFF7733333333300000033333333337777773333333}
- NumGlyphs = 2
- end
- object Even: TBitBtn
- Left = 405
- Top = 2
- Width = 88
- Height = 26
- Hint = 'Print Even Paged for Double-Sided Printing'
- Caption = '&Even'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 4
- OnClick = EvenClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
- 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
- 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
- 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
- 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
- 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
- 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
- 33333337FFFF7733333333300000033333333337777773333333}
- NumGlyphs = 2
- end
- object Additional: TBitBtn
- Left = 110
- Top = 2
- Width = 111
- Height = 26
- Hint = 'Print using additional setup'
- Caption = '&Additional'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 1
- OnClick = AdditionalClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
- 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
- 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
- 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
- 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
- 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
- 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
- 33333337FFFF7733333333300000033333333337777773333333}
- NumGlyphs = 2
- end
- object Current: TBitBtn
- Left = 495
- Top = 2
- Width = 101
- Height = 26
- Hint = 'Print Current Page Only'
- Caption = 'C&urrent'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 5
- OnClick = CurrentClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
- 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
- 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
- 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
- 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
- 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
- 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
- 33333337FFFF7733333333300000033333333337777773333333}
- NumGlyphs = 2
- end
- end
- object ScrollBox1: TScrollBox
- Left = 0
- Top = 65
- Width = 768
- Height = 536
- HorzScrollBar.Increment = 100
- HorzScrollBar.Range = 6250
- VertScrollBar.Increment = 100
- VertScrollBar.Range = 875
- Align = alClient
- AutoScroll = False
- BorderStyle = bsNone
- Color = 11234567
- Font.Color = clWindowText
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- TabOrder = 1
- object DrawIt1: TDrawIt
- Left = 35
- Top = 33
- Width = 730
- Height = 771
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 33
- Width = 768
- Height = 32
- Align = alTop
- TabOrder = 2
- object Page: TLabel
- Left = 200
- Top = 7
- Width = 45
- Height = 20
- Caption = 'Page'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- end
- object Label2: TLabel
- Left = 321
- Top = 7
- Width = 12
- Height = 20
- Hint = 'Print Even Pages for double-sided printing'
- Caption = 'of'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- end
- object ZoomIn: TBitBtn
- Left = 10
- Top = 3
- Width = 31
- Height = 26
- Hint = 'Zoom out'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 0
- OnClick = ZoomInClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33033333333333333F7F3333333333333000333333333333F777333333333333
- 000333333333333F777333333333333000333333333333F77733333333333300
- 033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
- 333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773
- 333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703
- 33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773
- 333337F3333337F333333078F8F870333333373FF333F7333333330777770333
- 333333773FF77333333333370007333333333333777333333333}
- NumGlyphs = 2
- end
- object ZoomOut: TBitBtn
- Left = 40
- Top = 3
- Width = 31
- Height = 26
- Hint = 'Zoom In'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 1
- OnClick = ZoomOutClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33033333333333333F7F3333333333333000333333333333F777333333333333
- 000333333333333F777333333333333000333333333333F77733333333333300
- 033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
- 33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
- 3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
- 33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
- 333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
- 333333773FF77333333333370007333333333333777333333333}
- NumGlyphs = 2
- end
- object PrintPreview: TComboBox
- Left = 75
- Top = 3
- Width = 106
- Height = 24
- Hint = 'Zoom in/out by percentage'
- Color = clWhite
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 2
- OnChange = PrintPreviewChange
- OnClick = PrintPreviewClick
- OnKeyPress = PrintPreviewKeyPress
- end
- object PageNo: TEdit
- Left = 251
- Top = 3
- Width = 52
- Height = 24
- Hint = 'Current Page'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 3
- OnKeyUp = PageNoKeyUp
- end
- object PageTot: TEdit
- Left = 354
- Top = 3
- Width = 51
- Height = 24
- Hint = 'Total Page Count'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ReadOnly = True
- ShowHint = False
- TabOrder = 4
- end
- object PrevPage: TBitBtn
- Left = 419
- Top = 3
- Width = 31
- Height = 26
- Hint = 'Page Left'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 5
- OnClick = PrevPageClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333FF3333333333333003333333333333F77F33333333333009033
- 333333333F7737F333333333009990333333333F773337FFFFFF330099999000
- 00003F773333377777770099999999999990773FF33333FFFFF7330099999000
- 000033773FF33777777733330099903333333333773FF7F33333333333009033
- 33333333337737F3333333333333003333333333333377333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333333333333333333333333333333333330000}
- NumGlyphs = 2
- end
- object NextPage: TBitBtn
- Left = 455
- Top = 3
- Width = 31
- Height = 26
- Hint = 'Page Right'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 6
- OnClick = NextPageClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333FF3333333333333003333
- 3333333333773FF3333333333309003333333333337F773FF333333333099900
- 33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
- 99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
- 33333333337F3F77333333333309003333333333337F77333333333333003333
- 3333333333773333333333333333333333333333333333333333333333333333
- 33333333333333333333333333333333333333333333333333330000}
- NumGlyphs = 2
- end
- object myUDF: TBitBtn
- Left = 499
- Top = 3
- Width = 121
- Height = 26
- Hint = 'Page Right'
- Caption = '&Info'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 7
- Visible = False
- OnClick = myUDFClick
- NumGlyphs = 2
- end
- end
- end
-