home *** CD-ROM | disk | FTP | other *** search
- object PreviewForm: TPreviewForm
- Left = 250
- Top = 119
- Width = 620
- Height = 450
- BorderIcons = [biSystemMenu, biMaximize]
- Caption = 'Preview Form'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object ToolBarPanel: TPanel
- Left = 0
- Top = 0
- Width = 612
- Height = 32
- Align = alTop
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- object GridBut: TSpeedButton
- Left = 339
- Top = 4
- Width = 33
- Height = 24
- Hint = 'Grid On/Off'
- AllowAllUp = True
- GroupIndex = 1
- Caption = 'Grid'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- OnClick = GridButClick
- end
- object ZoomCursorBut: TSpeedButton
- Left = 384
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Use the Zoom Tool to Zoom In/Out'
- GroupIndex = 2
- Down = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33033333333333333F8F3333333333333000333333333333F888333333333333
- 000333333333333F888333333333333000333333333333F88833333333333300
- 033333333FFF3F888333333800083B803333333F8883F88833333308888800B3
- 33333388333888833333308F7F7F8033333338F333F338F3333388F7F9F7F883
- 3333383338F3383F3333087F797F780333338F33F8FFF38F333308F99999F803
- 33338F388888338F3333087F797F7803333383F338F33383333388F7F9F7F883
- 333338F3383338F33333308F7F7F80333333383FF333F8333333330888880333
- 333333883FF88333333333380008333333333333888333333333}
- NumGlyphs = 2
- OnClick = ZoomCursorButClick
- end
- object HandCursorBut: TSpeedButton
- Left = 408
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Use the Pan Tool to Pan Around the Page'
- GroupIndex = 2
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000003
- 33333330FFFFFFF03333330FFFFFFFFF0333330FFFFFFF0FF033330FFFFFFF00
- FF03330FFFFFFF030F03330F0F0F0F033003330F0F0F0F033333330F0F0F0F03
- 3333330F0F0F0F033333330F0F0F0F03333333300F0F0F03333333330F0F0F03
- 33333333000F0F0333333333330F003333333333330003333333}
- OnClick = HandCursorButClick
- end
- object OnePageBut: TSpeedButton
- Left = 443
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Display 1 Page'
- GroupIndex = 3
- Down = True
- Caption = '&1'
- OnClick = ScrollBox1Resize
- OnMouseUp = OnePageButMouseUp
- end
- object TwoPageBut: TSpeedButton
- Left = 467
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Disply 2 Pages'
- GroupIndex = 3
- Caption = '&2'
- OnClick = TwoPageButClick
- end
- object FitPageBut: TSpeedButton
- Left = 280
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Fit to Page'
- AllowAllUp = True
- GroupIndex = 4
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- 00FFFF0FFFFFFFFFF0FFFF0FFFFFFFFFF0FFFF0F00000000F0FFFF0FFFFFFFFF
- F0FFFF0FFFFFFFFFF0FFFF0F00000000F0FFFF0FFFFFFFFFF0FFFF0FFFFFFFFF
- F0FFFF0F00000000F0FFFF0FFFFFFFFFF0FFFF0FFFFFFFFFF0FFFF0F00000000
- F0FFFF0FFFFFFFFFF0FFFF0FFFFFFFFFF0FFFF000000000000FF}
- OnClick = FitPageButClick
- end
- object FitWidthBut: TSpeedButton
- Left = 304
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Fit to Width'
- AllowAllUp = True
- GroupIndex = 4
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFF0FF0000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFF
- FFF00FFFFFFFFFFFFFF00FF0000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFF
- FFF00FFFFFFFFFFFFFF00FF0000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFF
- FFF00000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
- OnClick = FitWidthButClick
- end
- object PrintSpeed: TSpeedButton
- Left = 8
- Top = 4
- Width = 25
- Height = 25
- Hint = 'Print...'
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 88888888BB09888888888888888888887361888888888888888888886F4A8870
- 0000000000000788DDB488088888888888077088BB2D88077777777777077088
- 04FC870000000000000000886440808888888888888077088455808888888888
- 888077086F3E808999888888888077084595808888888888888077082AE08700
- 00000000000000789CD5888880FFFFFFFF0888884C0C8888880F4F4F4FF08888
- 98D58888880FF4F4F4F08888000088888880FFFFFFFF08880000888888800000
- 0000088800008888888888888888888800008888888888888888888800008888
- 88888888888888880112}
- OnClick = PrintSpeedClick
- end
- object FirstPageSpeed: TSpeedButton
- Left = 56
- Top = 4
- Width = 25
- Height = 25
- Hint = 'First Page'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777700777770777770770077770077770077007770C07770C07700770CC0770
- CC0770070CCC070CCC077000CCCC00CCCC077000CCCC0CCCCC077000CCCC0CCC
- CC077000CCCC00CCCC0770070CCC070CCC07700770CC0770CC077007770C0777
- 0C07700777700777700770077777077777077777777777777777}
- ParentFont = False
- OnClick = FirstPageSpeedClick
- end
- object PrevPageSpeed: TSpeedButton
- Left = 80
- Top = 4
- Width = 25
- Height = 25
- Hint = 'Previous Page'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 777777777777770777777777777770077777777777770C07777777777770CC07
- 77777777770CCC077777777770CCCC07777777770CCCCC07777777770CCCCC07
- 7777777770CCCC0777777777770CCC07777777777770CC077777777777770C07
- 7777777777777007777777777777770777777777777777777777}
- ParentFont = False
- OnClick = PrevPageSpeedClick
- end
- object NextPageSpeed: TSpeedButton
- Left = 104
- Top = 4
- Width = 25
- Height = 25
- Hint = 'Next Page'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777777077777777777777700777777777777770C077777777777770CC07777
- 777777770CCC0777777777770CCCC077777777770CCCCC07777777770CCCCC07
- 777777770CCCC077777777770CCC0777777777770CC07777777777770C077777
- 7777777700777777777777770777777777777777777777777777}
- ParentFont = False
- OnClick = NextPageSpeedClick
- end
- object LastPageSpeed: TSpeedButton
- Left = 128
- Top = 4
- Width = 25
- Height = 25
- Hint = 'Last Page'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777077777077777007700777700777700770C07770C077700770CC0770CC07
- 700770CCC070CCC0700770CCCC00CCCC000770CCCCC0CCCC000770CCCCC0CCCC
- 000770CCCC00CCCC000770CCC070CCC0700770CC0770CC07700770C07770C077
- 7007700777700777700770777770777770077777777777777777}
- ParentFont = False
- OnClick = LastPageSpeedClick
- end
- object CloseBut: TButton
- Left = 554
- Top = 4
- Width = 50
- Height = 24
- Cancel = True
- Caption = '&Close'
- TabOrder = 0
- OnClick = CloseButClick
- end
- object ZoomBox: TComboBox
- Left = 176
- Top = 4
- Width = 97
- Height = 23
- Hint = 'Select the Zoom Level'
- Style = csDropDownList
- ItemHeight = 15
- Items.Strings = (
- 'Fit To Page'
- 'Fit To Width'
- 'Custom'
- '25%'
- '50%'
- '75%'
- '100%'
- '125%'
- '150%'
- '200%'
- '300%'
- '400%')
- TabOrder = 1
- OnChange = ZoomBoxChange
- end
- end
- object StatBarPanel: TPanel
- Left = 0
- Top = 398
- Width = 612
- Height = 25
- Align = alBottom
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- object CurPageLabel: TPanel
- Left = 1
- Top = 1
- Width = 101
- Height = 23
- Hint = 'Displays the Current Page of the Document'
- Align = alLeft
- BevelOuter = bvLowered
- Caption = 'CurPageLabel'
- TabOrder = 0
- end
- object ZoomLabel: TPanel
- Left = 102
- Top = 1
- Width = 88
- Height = 23
- Hint = 'Displays the Current Zoom Level (100% = normal)'
- Align = alLeft
- BevelOuter = bvLowered
- Caption = 'ZoomLabel'
- TabOrder = 1
- end
- object Panel1: TPanel
- Left = 190
- Top = 1
- Width = 421
- Height = 23
- Hint = 'Displays Help for the object beneath the mouse'
- Align = alClient
- BevelOuter = bvLowered
- TabOrder = 2
- object HintLabel: TLabel
- Left = 8
- Top = 4
- Width = 53
- Height = 15
- Hint = 'Displays Help for the object beneath the mouse'
- Caption = 'HintLabel'
- end
- end
- end
- object ScrollBox1: TScrollBox
- Left = 0
- Top = 32
- Width = 612
- Height = 366
- HorzScrollBar.Tracking = True
- VertScrollBar.Tracking = True
- Align = alClient
- Color = clBtnFace
- ParentColor = False
- TabOrder = 2
- OnResize = ScrollBox1Resize
- object ContainPanel: TPanel
- Left = 0
- Top = 0
- Width = 489
- Height = 329
- BevelOuter = bvNone
- Color = clBtnShadow
- TabOrder = 0
- object PagePanel: TPanel
- Left = 44
- Top = 32
- Width = 209
- Height = 265
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Color = clWindow
- TabOrder = 0
- object PB1: TPaintBox
- Left = 0
- Top = 0
- Width = 205
- Height = 261
- Hint =
- 'Page View. With Zoom Tool, left or right click to zoom in/out. ' +
- ' Click && drag with Hand Tool to pan.'
- Align = alClient
- OnMouseDown = PB1MouseDown
- OnMouseMove = PB1MouseMove
- OnMouseUp = PB1MouseUp
- OnPaint = PBPaint
- end
- end
- object PagePanel2: TPanel
- Left = 260
- Top = 32
- Width = 209
- Height = 265
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Color = clWindow
- TabOrder = 1
- Visible = False
- object PB2: TPaintBox
- Left = 0
- Top = 0
- Width = 205
- Height = 261
- Hint =
- 'Page View. With Zoom Tool, left or right click to zoom in/out. ' +
- ' Click && drag with Hand Tool to pan.'
- Align = alClient
- OnPaint = PBPaint
- end
- end
- end
- end
- object PrintDialog1: TPrintDialog
- Left = 538
- Top = 90
- end
- end
-