paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
f83799d4a3
lazarus-ccr/applications/fpbrowser/previewform.dfm
sekelsenmat 2cb9e11e9b Adds a simple browser 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1719 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-06-24 08:34:19 +00:00

675 lines
24 KiB
Plaintext
Raw Blame History

object PreviewForm: TPreviewForm
Left = 361
Top = 158
Width = 742
Height = 545
Caption = 'Preview Form'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
0000000080000080000000808000800000008000800080800000C0C0C0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000FFFFFFFFFFFFFF000000000000000000FCCCCCCCCCCCCF00000000000000
0000FFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFF00000000000000
0000FFFFFFFFFFFFFF000000000000000000FCCCCCCCCCCCCF00000000000000
0000FFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFF000000000000000
0000FFFFFFFFFFFF00000000000000000000FCCCCCCCCCC00F00000000000000
0000FFFFF0000F00FF000000000000000000FFFF0777700FFF00000000000000
0000FFF07777770FFF000000000000000000FC0777777770CF00000000000000
0000FF0444444440FF000000000000000000FF0444444440FF00000000000000
0000FF0444444440FF000000000000000000FC0777777770CF00000000000000
0000FFF07777770FFF000000000000000000FFFF077770FFFF00000000000000
0000FFFFF0000FFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE0001FFFE0001FFFE0001F7FE00
01E7FE0001CFFE00019FFE00013FFE00007FFE0000FFFE0001FFFE0001FFFE00
01FFFE0001FFFE0001FFFE0001FFFE0001FFFE0001FFFE0001FFFE0001FFFE00
01FFFE0001FFFE0001FFFE0001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
OldCreateOrder = True
WindowState = wsMaximized
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ToolBarPanel: TPanel
Left = 0
Top = 0
Width = 734
Height = 35
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object GridBut: TSpeedButton
Left = 391
Top = 4
Width = 25
Height = 25
Hint = 'Show/Hide Grid'
AllowAllUp = True
GroupIndex = 1
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777877877877877777787787787787777880880880880887777877877877
8777777877877877877778808808808808877778778778778777777877877877
8777788088088088088777787787787787777778778778778777788088088088
0887777877877877877777787787787787777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = GridButClick
end
object ZoomCursorBut: TSpeedButton
Left = 532
Top = 4
Width = 25
Height = 25
Hint = 'Selects the Zoom Tool to zoom in or out'
GroupIndex = 2
Down = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33033333333333333F8F3333333333333000333333333333F888333333333333
000333333333333F888333333333333000333333333333F88833333333333300
033333333FFF3F888333333800083B803333333F8883F88833333308888800B3
33333388333888833333308F7F7F8033333338F333F338F3333388F7F9F7F883
3333383338F3383F3333087F797F780333338F33F8FFF38F333308F99999F803
33338F388888338F3333087F797F7803333383F338F33383333388F7F9F7F883
333338F3383338F33333308F7F7F80333333383FF333F8333333330888880333
333333883FF88333333333380008333333333333888333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = ZoomCursorButClick
end
object HandCursorBut: TSpeedButton
Left = 558
Top = 4
Width = 25
Height = 25
Hint = 'Selects the Hand Tool to pan across the Page'
GroupIndex = 2
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000003
33333330FFFFFFF03333330FFFFFFFFF0333330FFFFFFF0FF033330FFFFFFF00
FF03330FFFFFFF030F03330F0F0F0F033003330F0F0F0F033333330F0F0F0F03
3333330F0F0F0F033333330F0F0F0F03333333300F0F0F03333333330F0F0F03
33333333000F0F0333333333330F003333333333330003333333}
ParentShowHint = False
ShowHint = True
OnClick = HandCursorButClick
end
object OnePageBut: TSpeedButton
Left = 595
Top = 4
Width = 25
Height = 25
Hint = 'Display One page at a time'
GroupIndex = 3
Down = True
Caption = '&1'
ParentShowHint = False
ShowHint = True
OnClick = ScrollBox1Resize
OnMouseUp = OnePageButMouseUp
end
object TwoPageBut: TSpeedButton
Left = 621
Top = 4
Width = 25
Height = 25
Hint = 'Display Two pages side by side'
GroupIndex = 3
Caption = '&2'
ParentShowHint = False
ShowHint = True
OnClick = TwoPageButClick
end
object FitPageBut: TSpeedButton
Left = 340
Top = 4
Width = 25
Height = 25
Hint = 'Fit to Page'
AllowAllUp = True
GroupIndex = 4
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
00FFFF0FFFFFFFFFF0FFFF0FFFFFFFFFF0FFFF0F00000000F0FFFF0FFFFFFFFF
F0FFFF0FFFFFFFFFF0FFFF0F00000000F0FFFF0FFFFFFFFFF0FFFF0FFFFFFFFF
F0FFFF0F00000000F0FFFF0FFFFFFFFFF0FFFF0FFFFFFFFFF0FFFF0F00000000
F0FFFF0FFFFFFFFFF0FFFF0FFFFFFFFFF0FFFF000000000000FF}
ParentShowHint = False
ShowHint = True
OnClick = FitPageButClick
end
object FitWidthBut: TSpeedButton
Left = 365
Top = 4
Width = 25
Height = 25
Hint = 'Fit to Width'
AllowAllUp = True
GroupIndex = 4
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF0FF0000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFF
FFF00FFFFFFFFFFFFFF00FF0000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFF
FFF00FFFFFFFFFFFFFF00FF0000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFF
FFF00000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
ParentShowHint = False
ShowHint = True
OnClick = FitWidthButClick
end
object Bevel1: TBevel
Left = 0
Top = 33
Width = 734
Height = 2
Align = alBottom
Shape = bsBottomLine
end
object Bevel2: TBevel
Left = 220
Top = 2
Width = 2
Height = 28
end
object Bevel3: TBevel
Left = 332
Top = 2
Width = 2
Height = 28
end
object Bevel4: TBevel
Left = 520
Top = 2
Width = 2
Height = 28
end
object Bevel5: TBevel
Left = 588
Top = 2
Width = 2
Height = 28
end
object Bevel6: TBevel
Left = 652
Top = 2
Width = 2
Height = 28
end
object Bevel7: TBevel
Left = 423
Top = 2
Width = 2
Height = 28
end
object PrintBut: TBitBtn
Left = 5
Top = 4
Width = 76
Height = 25
Hint = 'Print the Current Document'
Caption = '&Print...'
TabOrder = 0
OnClick = PrintButClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
22222200000000000222207777777770702200000000000007020777777BBB77
0002077777788877070200000000000007700777777777707070200000000007
0700220FFFFFFFF070702220F00000F000022220FFFFFFFF022222220F00000F
022222220FFFFFFFF02222222000000000222222222222222222}
Spacing = 8
end
object NextPageBut: TBitBtn
Left = 148
Top = 4
Width = 66
Height = 25
Hint = 'Advance to Next Page in Document'
Caption = '&Next'
TabOrder = 1
OnClick = NextPageButClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003333333333333333333300003333330033333333333300003333
330E03333333333300003333330EE0333333333300003333330EEE0333333333
00003333330EEEE03333333300003333330EEEEE0333333300003333330EEEEE
E033333300003333330EEEEEEE03333300003333330EEEEEEE03333300003333
330EEEEEE033333300003333330EEEEE0333333300003333330EEEE033333333
00003333330EEE033333333300003333330EE0333333333300003333330E0333
3333333300003333330033333333333300003333333333333333333300003333
33333333333333330000}
Layout = blGlyphRight
Margin = 4
Spacing = 2
end
object PrevPageBut: TBitBtn
Left = 82
Top = 4
Width = 65
Height = 25
Hint = 'Move to Previous Page in Document'
Caption = 'Pre&v'
Enabled = False
TabOrder = 2
OnClick = PrevPageButClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003333333333333333333300003333333333300333333300003333
3333330E0333333300003333333330EE033333330000333333330EEE03333333
000033333330EEEE0333333300003333330EEEEE033333330000333330EEEEEE
03333333000033330EEEEEEE03333333000033330EEEEEEE0333333300003333
30EEEEEE0333333300003333330EEEEE03333333000033333330EEEE03333333
0000333333330EEE0333333300003333333330EE03333333000033333333330E
0333333300003333333333300333333300003333333333333333333300003333
33333333333333330000}
Margin = 6
Spacing = 2
end
object CloseBut: TBitBtn
Left = 660
Top = 4
Width = 61
Height = 25
Hint = 'Close the Print Preview window'
Cancel = True
Caption = '&Close'
TabOrder = 3
OnClick = CloseButClick
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
0333330000000000033333000000000003333306666666660333330FFFFFFFFF
033333077777777703333306666666660333330FFFFFFFFF0333330777777777
03333306666666660333330FFFFFFFFF03333307777777770333330666666666
0333330FFFFFFFFF033333077777777703333306666666660333330FFFFFFFFF
033333077777777703333306666666660333330FFFFFFFFF0333330777777777
03333306666666060333330FFFFFFF0F03333307777777870333330666666666
0333330FFFFFFFFF033333077777777703333306666666660333330FFFFFFFFF
0333330777777777033333066FFFFF660333330FF00000FF0333330778888877
033333066FFFFF660333330FF00000FF0333330778888877033333066FFFFF66
0333330FF00000FF033333077888887703333306666666660333330FFFFFFFFF
033333077777777703333306666666660333330FFFFFFFFF0333330777777777
0333330000000000033333000000000003333300000000000333}
NumGlyphs = 3
end
object ZoomBox: TComboBox
Left = 228
Top = 6
Width = 97
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 4
OnChange = ZoomBoxChange
Items.Strings = (
'Fit To Page'
'Fit To Width'
'Custom'
'25%'
'50%'
'75%'
'100%'
'125%'
'150%'
'200%'
'300%'
'400%')
end
object UnitsBox: TComboBox
Left = 431
Top = 6
Width = 81
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 5
OnChange = UnitsBoxChange
Items.Strings = (
'Inches'
'Centimeters')
end
end
object StatBarPanel: TPanel
Left = 0
Top = 484
Width = 734
Height = 27
Align = alBottom
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 1
object CurPageLabel: TPanel
Left = 133
Top = 0
Width = 101
Height = 27
Hint = 'Displays the Current Page of the Document'
Align = alLeft
BevelOuter = bvLowered
Caption = 'CurPageLabel'
TabOrder = 0
end
object ZoomLabel: TPanel
Left = 234
Top = 0
Width = 88
Height = 27
Hint = 'Displays the Current Zoom Level (100% = normal)'
Align = alLeft
BevelOuter = bvLowered
Caption = 'ZoomLabel'
TabOrder = 1
end
object Panel1: TPanel
Left = 322
Top = 0
Width = 412
Height = 27
Hint = 'Displays Help for the object beneath the mouse'
Align = alClient
BevelOuter = bvLowered
TabOrder = 2
object HintLabel: TLabel
Left = 8
Top = 5
Width = 44
Height = 14
Hint = 'Displays Help for the object beneath the mouse'
Caption = 'HintLabel'
end
end
object MoveButPanel: TPanel
Left = 0
Top = 0
Width = 133
Height = 27
Align = alLeft
BevelOuter = bvNone
Caption = 'MoveButPanel'
TabOrder = 3
object FirstPageSpeed: TSpeedButton
Left = 1
Top = 2
Width = 25
Height = 25
Hint = 'Go to First Page in Document'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000333330
033333000033333003333388883333388333330EE033330E0333330FF033330F
03333387783333878333330EE03330EE0333330FF03330FF0333338778333877
8333330EE0330EEE0333330FF0330FFF03333387783387778333330EE030EEEE
0333330FF030FFFF03333387783877778333330EE00EEEEE0333330FF00FFFFF
03333387788777778333330EE0EEEEEE0333330FF0FFFFFF0333338778777777
8333330EEEEEEEEE0333330FFFFFFFFF03333387777777778333330EEEEEEEEE
0333330FFFFFFFFF03333387777777778333330EE0EEEEEE0333330FF0FFFFFF
03333387787777778333330EE00EEEEE0333330FF00FFFFF0333338778877777
8333330EE030EEEE0333330FF030FFFF03333387783877778333330EE0330EEE
0333330FF0330FFF03333387783387778333330EE03330EE0333330FF03330FF
03333387783338778333330EE033330E0333330FF033330F0333338778333387
8333330000333330033333000033333003333388883333388333}
NumGlyphs = 3
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = FirstPageSpeedClick
end
object PrevPageSpeed: TSpeedButton
Left = 26
Top = 2
Width = 25
Height = 25
Hint = 'Move to Previous Page in Document'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333300
3333333333333300333333333333338833333333333330E033333333333330F0
33333333333338783333333333330EE03333333333330FF03333333333338778
333333333330EEE0333333333330FFF0333333333338777833333333330EEEE0
33333333330FFFF033333333338777783333333330EEEEE03333333330FFFFF0
3333333338777778333333330EEEEEE0333333330FFFFFF03333333387777778
33333330EEEEEEE033333330FFFFFFF0333333387777777833333330EEEEEEE0
33333330FFFFFFF03333333877777778333333330EEEEEE0333333330FFFFFF0
33333333877777783333333330EEEEE03333333330FFFFF03333333338777778
33333333330EEEE033333333330FFFF03333333333877778333333333330EEE0
333333333330FFF033333333333877783333333333330EE03333333333330FF0
333333333333877833333333333330E033333333333330F03333333333333878
3333333333333300333333333333330033333333333333883333}
NumGlyphs = 3
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = PrevPageButClick
end
object NextPageSpeed: TSpeedButton
Left = 51
Top = 2
Width = 25
Height = 25
Hint = 'Advance to Next Page in Document'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300333333
33333333003333333333333388333333333333330E033333333333330F033333
3333333387833333333333330EE03333333333330FF033333333333387783333
333333330EEE0333333333330FFF03333333333387778333333333330EEEE033
333333330FFFF0333333333387777833333333330EEEEE03333333330FFFFF03
3333333387777783333333330EEEEEE0333333330FFFFFF03333333387777778
333333330EEEEEEE033333330FFFFFFF0333333387777777833333330EEEEEEE
033333330FFFFFFF0333333387777777833333330EEEEEE0333333330FFFFFF0
3333333387777778333333330EEEEE03333333330FFFFF033333333387777783
333333330EEEE033333333330FFFF0333333333387777833333333330EEE0333
333333330FFF03333333333387778333333333330EE03333333333330FF03333
3333333387783333333333330E033333333333330F0333333333333387833333
3333333300333333333333330033333333333333883333333333}
NumGlyphs = 3
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = NextPageButClick
end
object LastPageSpeed: TSpeedButton
Left = 76
Top = 2
Width = 25
Height = 25
Hint = 'Go to Last Page in Document'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333003333300
0033333003333300003333388333338888333330E033330EE0333330F033330F
F03333387833338778333330EE03330EE0333330FF03330FF033333877833387
78333330EEE0330EE0333330FFF0330FF03333387778338778333330EEEE030E
E0333330FFFF030FF03333387777838778333330EEEEE00EE0333330FFFFF00F
F03333387777788778333330EEEEEE0EE0333330FFFFFF0FF033333877777787
78333330EEEEEEEEE0333330FFFFFFFFF03333387777777778333330EEEEEEEE
E0333330FFFFFFFFF03333387777777778333330EEEEEE0EE0333330FFFFFF0F
F03333387777778778333330EEEEE00EE0333330FFFFF00FF033333877777887
78333330EEEE030EE0333330FFFF030FF03333387777838778333330EEE0330E
E0333330FFF0330FF03333387778338778333330EE03330EE0333330FF03330F
F03333387783338778333330E033330EE0333330F033330FF033333878333387
7833333003333300003333300333330000333338833333888833}
NumGlyphs = 3
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = LastPageSpeedClick
end
object PageNumSpeed: TSpeedButton
Left = 101
Top = 2
Width = 25
Height = 25
Hint = 'Go to Page by Page Number'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
003337777777777777F330FFFFFFFFFFF03337F33F333F3337F330FF0FFF0FFF
F03337F37F337F3337F330FF0FFF0FFFF03337F37FFF7FFF37F330F00000000F
F03337F77777777337F330FFF0FFF0FFF03337F337F337F337F330FFF0FFF0FF
F03337F337FFF7FFF7F330FF00000000F03337F37777777737F330FFFF0FFF0F
F03337F3337F337F37F330FFFF0FFF0FF03337F33373337337F330FFFFFFFFFF
F03337F33333333FF7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
333337FFFFFFFF77333330000000000333333777777777733333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = PageNumSpeedClick
end
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 35
Width = 734
Height = 449
HorzScrollBar.Tracking = True
VertScrollBar.Tracking = True
Align = alClient
BorderStyle = bsNone
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
Color = clWindow
TabOrder = 0
object PB1: TPaintBox
Left = 0
Top = 0
Width = 209
Height = 265
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
Color = clWindow
TabOrder = 1
Visible = False
object PB2: TPaintBox
Left = 0
Top = 0
Width = 209
Height = 265
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
FromPage = 1
MinPage = 1
Options = [poPrintToFile, poPageNums]
Left = 538
Top = 90
end
end
Reference in New Issue View Git Blame Copy Permalink