* Add first and last buttons, improve space at the bottom for space counter

git-svn-id: trunk@57445 -
This commit is contained in:
michael 2018-03-05 09:19:26 +00:00
parent 533de0481e
commit f88a74505c
2 changed files with 223 additions and 86 deletions

View File

@ -36,34 +36,34 @@ object FPReportPreviewForm: TFPReportPreviewForm
Style = tbsDivider
end
object TBPrevious: TToolButton
Left = 110
Left = 133
Top = 2
Action = APrevious
end
object TBNext: TToolButton
Left = 133
Left = 156
Top = 2
Action = ANext
end
object ToolButton6: TToolButton
Left = 156
Left = 202
Height = 22
Top = 2
Caption = 'ToolButton6'
Style = tbsDivider
end
object TBZoomIn: TToolButton
Left = 161
Left = 207
Top = 2
Action = AZoomIn
end
object TBZoomReset: TToolButton
Left = 184
Left = 230
Top = 2
Action = AZoomReset
end
object TBZoomOut: TToolButton
Left = 207
Left = 253
Top = 2
Action = AZoomOut
end
@ -77,6 +77,16 @@ object FPReportPreviewForm: TFPReportPreviewForm
Top = 2
Action = APrint
end
object TBFirst: TToolButton
Left = 110
Top = 2
Action = AFirst
end
object TBLast: TToolButton
Left = 179
Top = 2
Action = ALast
end
end
object PBottom: TPanel
Left = 0
@ -91,26 +101,27 @@ object FPReportPreviewForm: TFPReportPreviewForm
object PButtons: TPanel
AnchorSideLeft.Side = asrCenter
AnchorSideRight.Side = asrCenter
Left = 296
Left = 240
Height = 32
Top = -5
Width = 149
Width = 216
Anchors = []
BevelOuter = bvNone
ClientHeight = 32
ClientWidth = 149
ClientWidth = 216
TabOrder = 0
object LPageCount: TLabel
Left = 74
Height = 16
Top = 11
Width = 38
Left = 98
Height = 24
Top = 6
Width = 50
AutoSize = False
Caption = 'of 0'
Layout = tlCenter
ParentColor = False
end
object EPage: TEdit
Left = 32
Left = 56
Height = 24
Top = 6
Width = 40
@ -121,7 +132,7 @@ object FPReportPreviewForm: TFPReportPreviewForm
Text = '0'
end
object SBPrevious: TSpeedButton
Left = 8
Left = 32
Height = 24
Top = 6
Width = 24
@ -130,14 +141,32 @@ object FPReportPreviewForm: TFPReportPreviewForm
ShowCaption = False
end
object SpeedButton1: TSpeedButton
Left = 112
Left = 148
Height = 22
Top = 8
Top = 6
Width = 24
Action = ANext
Flat = True
ShowCaption = False
end
object SpeedButton2: TSpeedButton
Left = 176
Height = 22
Top = 6
Width = 24
Action = ALast
Flat = True
ShowCaption = False
end
object SBPrevious1: TSpeedButton
Left = 7
Height = 24
Top = 6
Width = 24
Action = AFirst
Flat = True
ShowCaption = False
end
end
end
object ScrollBox1: TScrollBox
@ -148,8 +177,8 @@ object FPReportPreviewForm: TFPReportPreviewForm
HorzScrollBar.Page = 716
VertScrollBar.Page = 760
Align = alClient
ClientHeight = 781
ClientWidth = 734
ClientHeight = 783
ClientWidth = 736
TabOrder = 2
object PBPreview: TPaintBox
Left = 0
@ -176,6 +205,13 @@ object FPReportPreviewForm: TFPReportPreviewForm
ImageIndex = 7
OnExecute = AExportExecute
end
object AFirst: TAction
Caption = 'A&First'
Hint = 'First page'
ImageIndex = 10
OnExecute = AFirstExecute
OnUpdate = AFirstUpdate
end
object APrevious: TAction
Caption = '&Previous'
Hint = 'Previous page'
@ -190,6 +226,13 @@ object FPReportPreviewForm: TFPReportPreviewForm
OnExecute = ANextExecute
OnUpdate = ANextUpdate
end
object ALast: TAction
Caption = 'A&Last'
Hint = 'Last page'
ImageIndex = 11
OnExecute = ALastExecute
OnUpdate = ALastUpdate
end
object AZoomIn: TAction
Caption = 'Zoom &in'
Hint = 'Zoom in'
@ -224,7 +267,7 @@ object FPReportPreviewForm: TFPReportPreviewForm
left = 104
top = 55
Bitmap = {
4C690A0000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
4C690C0000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006360
F80AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007774FF1F7774
FF2BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00625FF82B5D5B
@ -384,71 +427,71 @@ object FPReportPreviewForm: TFPReportPreviewForm
000000000000000000000000000000000000000000000000001F0000001F0000
00F8686868FB1F1F1FFB000000F4000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000001F0000
001F000000E7000000FD0000003F000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF000000FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FFB2885BFF000000FF000000000000
00000000000000000000000000000000000000000000000000FF000000FF0000
00FF000000FF000000FF000000FF000000FFD1B89EFFAD8050FF000000FF0000
00000000000000000000000000000000000000000000000000FFDCC9B5FFDAC5
AFFFDBC7B2FFDDCAB6FFDDCAB6FFDDCAB6FFD5BDA4FFD1B79CFFAD8050FF110D
08FF0000000000000000000000000000000000000000000000FFD0B69BFFD3BA
A0FFD1B79CFFD1B79CFFD0B69BFFCFB59AFFD3BAA0FFD1B79CFFCEB397FFB48B
5FFF000000FF00000000000000000000000000000000000000FFCCB091FFD1B8
9EFFCFB59AFFCFB59AFFD0B69BFFD1B79CFFD1B79CFFD1B79CFFD3BAA0FFCEB2
95FFA3794CFF000000FF000000000000000000000000000000FF9C7449FF8865
3FFF88653FFF88653FFF88653FFF88653FFF88653FFF88653FFF88653FFF5B43
2AFF000000FF00000000000000000000000000000000000000FF966F45FF7859
37FF785937FF785937FF785937FF785937FF88653FFF88653FFF5B432AFF0000
00FF0000000000000000000000000000000000000000000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF88653FFF5B432AFF000000FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF5B432AFF000000FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF000000FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000D4000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000FF000000FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000FFE3D4C4FF000000FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00FFE3D4C4FFD4BCA3FF000000FF000000FF000000FF000000FF000000FF0000
00FF000000FF0000000000000000000000000000000000000000000000FFE3D4
C4FFD5BEA6FFD7C1AAFFD8C2ABFFDAC5AFFFD8C2ABFFD9C4AEFFD4BCA3FFB992
68FF000000FF00000000000000000000000000000000000000FFE3D4C4FFD1B7
9CFFD5BDA4FFD4BCA3FFD2B99FFFD0B69BFFD0B69BFFD2B99FFFCFB59AFF9E75
49FF000000FF0000000000000000000000003D2D1CFFE4D5C5FFD2B99FFFD3BA
A0FFD1B89EFFD1B89EFFD1B79CFFD2B99FFFD2B99FFFD2B99FFFD2B99FFFA278
4BFF000000FF00000000000000000000000000000000000000FF5B432AFF8865
3FFF88653FFF88653FFF88653FFF88653FFF88653FFF88653FFF88653FFF6F53
34FF000000FF0000000000000000000000000000000000000000000000FF5B43
2AFF88653FFF88653FFF5A4229FF5A4229FF5A4229FF5A4229FF5A4229FF6047
2DFF000000FF0000000000000000000000000000000000000000000000000000
00FF5B432AFF88653FFF000000FF000000FF000000FF000000FF000000FF0000
00FF000000FF0000000000000000000000000000000000000000000000000000
0000000000FF5B432AFF000000FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000FF000000FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000047000000FF000000FF000000FF0000
001F000000E7000000FD0000003FFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004753BC504733A65FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733AFF2A8C59F604743AAB04733A0CFFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733AFFB7E1CBFF5AAB82F904743AE104733A2DFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733AFFBBE3CEFFABDCC3FF84C6A4FE107A43F504733A65FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF0004743AE804733AFF04733AFF04733AFF0473
3AFF04763BF7B6E0CBFF6FC499FF91D2B1FF9CD4B7FF318F5FF604743BAC0473
3A0CFFFFFF00FFFFFF00FFFFFF0004733AFFA7DBC0FFAADCC2FFADDDC5FFAFDE
C6FFB0DEC7FFB0DEC7FF64C191FF61C18FFF73C89DFF9FD9BBFF5AAB81FA0574
3AE104733A2DFFFFFF00FFFFFF0004733AFFA3D9BDFF54B985FF58BB88FF5BBC
8BFF5CBD8BFF5CBE8CFF5CC18DFF5AC28DFF55C28AFF58C38CFF8CD4AFFF7AC3
9CFE147C46F504733A65FFFFFF0004733AFF9CD7B9FF3BAF74FF33AC6EFF2BA9
68FF2FAC6BFF3DB678FF49BE82FF50C389FF4DC488FF49C284FF44BE80FF6DCA
9BFF89CEAAFF308F5EF604753B9D04733AFF7ECAA3FF069A4EFF069A4EFF069A
4EFF07A052FF09A757FF0BAE5BFF0EB25FFF17B866FF1FBA6CFF26BA6FFF55C6
8DFF76C99EFF268956F504753B9D04733AFF7ECAA3FF069A4EFF069A4EFF069C
4FFF08A454FF0BAC5AFF0DB35EFF0EB962FF0FBC64FF1CBF6CFF67D29CFF5DBB
8BFE0E7A42F504733A65FFFFFF0004733AFF7ECAA3FF7ECAA3FF7ECAA3FF7ECC
A4FF7FD1A7FF81D5AAFF0EB761FF10BF66FF34CB7FFF78DAA8FF3EA671F90476
3BE104733A2DFFFFFF00FFFFFF0004743AE804733AFF04733AFF04733AFF0473
3AFF04783CF781D6ABFF11BA64FF52D392FF73D7A5FF1E8B53F504763CAC0473
3A0CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733AFF81D7ABFF6CD5A0FF58C18BFE0A7940F504743A65FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733AFF7BD3A6FF36A16AF804763CE104733A2DFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733AFF18844DF504763BAB04733A0CFFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004753BC504733A65FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0004733A6404753BC5FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0004733A0C04743BAC298B59F604733AFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0004733A2D04743AE156A97FF9B1DFC8FF04733AFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733A65107A43F57EC3A0FEA3D9BDFFB5E0CAFF04733AFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0004733A0C0474
3BAC2E8D5DF696D2B3FF88CFAAFF64C091FFB1DFC7FF04763BF704733AFF0473
3AFF04733AFF04733AFF04743AE8FFFFFF00FFFFFF0004733A2D05743AE155A8
7DFA97D4B5FF6AC294FF57BA87FF5CBD8BFFACDDC4FFAEDEC5FFAEDEC6FFAEDE
C5FFACDDC4FFAADCC2FF04733AFFFFFFFF0004733A65137C45F672BD97FE84CD
A7FF4DB680FF49B57DFF4FB782FF54B985FF58BB88FF59BC89FF5ABC8AFF59BC
89FF58BB88FFA6DABFFF04733AFF04753B9D2C8C5AF582C9A5FF63BF90FF35AD
70FF3CB275FF42B67BFF47B97FFF42B77AFF35B071FF27A865FF1DA35EFF20A4
60FF2BA968FF9BD6B8FF04733AFF04753B9D278957F577C49DFF54BB87FF22AC
66FF20AF66FF17AF62FF0EAD5CFF0BAC59FF0AA958FF09A455FF079E51FF069A
4EFF069A4EFF7ECAA3FF04733AFFFFFFFF0004733A650E7941F65BB687FE65CA
96FF19B565FF0DB560FF0EB761FF0EB661FF0DB35EFF0BAD5AFF09A656FF079E
51FF069A4EFF7ECAA3FF04733AFFFFFFFF00FFFFFF0004733A2D04753BE13DA2
6EF976D5A5FF33C87CFF11C269FF11C167FF82DBAEFF81D8ACFF80D4A9FF7FCF
A6FF7ECAA3FF7ECAA3FF04733AFFFFFFFF00FFFFFF00FFFFFF0004733A0C0476
3BAC1E8952F572D5A3FF54DA97FF15C96EFF83DEB0FF04793DF704733AFF0473
3AFF04733AFF04733AFF04743AE8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733A650A793FF559C48DFE6EDCA5FF83DEB0FF04733AFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0004733A2D04763CE136A26BF87DD7A9FF04733AFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0004733A0C04763BAC19844DF504733AFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0004733A6404753BC5FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF0000000047000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF00000055000000FFFAF8F7FFEBDDCBFF808AC8FF848F
D1FF848FD1FF848FD1FF848FD1FF848FD1FF848FD1FF8490D1FF848FD1FF8691
@ -544,7 +587,71 @@ object FPReportPreviewForm: TFPReportPreviewForm
F6FFF9F1ECFFF9F1EBFFF8F0E9FFF7EDE6FFF4EAE1FFF2E8DEFFFAF8F6FFC794
61FF242424FF4B4B4BD9969696BFFFFFFF00FFFFFF00FFFFFF00C89662FDCA98
65FFCA9765FFCA9765FFCA9765FFCA9764FFC99764FFC99764FFCA9865FFC895
62FDFFFFFF00FFFFFF00FFFFFF00
62FDFFFFFF00FFFFFF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0004733A6404753BC5FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0004733A0C04743BAC288B58F604733AFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFF
FF00FFFFFF0004733A2D04743AE158AA81F9ACDCC4FF04733AFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFF
FF0004733A65127C45F587C7A6FEA5DABEFFAFDEC6FF04733AFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF0004733AFF04733AFFFFFFFF0004733A0C0474
3BAC359162F6A1D6BBFF90D2B0FF64C091FFABDDC3FF04763BF704733AFF0473
3AFF04733AFF04733AFF04743AE804733AFF04733AFF04733A2D06753BE15FAE
86FAA3D9BDFF75C79DFF5DBD8CFF5BBE8BFFA8DDC2FFA5DDC0FFA2DBBEFF9ED9
BBFF9AD7B8FF96D4B4FF04733AFF04733AFF04733AFF177E48F680C3A0FE92D2
B1FF5DBC8BFF55BA86FF54BD87FF52BF87FF4FC087FF4CC085FF46BE81FF3FBA
7CFF39B576FF94D5B4FF04733AFF04733AFF04733AFF8FCEAEFF73C69CFF48B4
7DFF49B57DFF4BB780FF4BBC83FF46BF81FF37BC79FF2ABA71FF1EB569FF1BB3
65FF1DB065FF8ED5B0FF04733AFF04733AFF04733AFF7EC7A1FF5DBD8CFF2BA9
68FF23A562FF1AA85FFF11AB5DFF0CB05CFF0DB560FF0EB862FF0EB861FF0DB5
5FFF0CAF5CFF80D2A8FF04733AFF04733AFF04733AFF0E7941F65AB285FE62BF
8FFF13A259FF09A555FF0BAD5AFF0DB55FFF0FBB64FF10BF66FF10BF66FF0FBB
63FF0DB45FFF80D4A9FF04733AFF04733AFF04733AFF04733A2D04743AE13B9C
6AF972C79CFF2DB470FF0CB05CFF0EB962FF83DEB0FF84E1B2FF84E1B2FF83DE
B0FF82DAADFF81D6AAFF04733AFF04733AFF04733AFFFFFFFF0004733A0C0474
3BAC1D8550F56EC699FF4EC78AFF11BB64FF84E0B1FF057B3FF704733AFF0473
3AFF04733AFF04733AFF04743AE804733AFF04733AFFFFFFFF00FFFFFF00FFFF
FF0004733A650A783FF555B987FE6CD59FFF84E0B1FF04733AFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFF
FF00FFFFFF0004733A2D04753BE136A16AF87EDBACFF04733AFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0004733A0C04763BAC19864EF504733AFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0004733A6404763CC5FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004753BC504733A65FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733AFF278956F604743AAB04733A0CFFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733AFFA7DBC0FF55A97EF804743AE104733A2DFFFFFF00FFFFFF00FFFF
FF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733AFFABDCC3FFA0D8BCFF84C6A4FE117B44F504733A65FFFFFF00FFFF
FF00FFFFFF0004733AFF04733AFF04743AE804733AFF04733AFF04733AFF0473
3AFF04763BF7A9DBC1FF5FBE8EFF8DD2AFFFA0D6BAFF359162F604743BAC0473
3A0CFFFFFF0004733AFF04733AFF04733AFF93D3B2FF96D4B4FF9AD6B7FF9ED7
BAFFA1D9BDFFA4DCC0FF58C08AFF5CC28EFF76CB9FFFA4DBBFFF60AF86FA0675
3BE104733A2D04733AFF04733AFF04733AFF90D1B0FF30AB6CFF37AE71FF3DB2
76FF45B87DFF4BBE83FF50C187FF53C38BFF56C38CFF60C591FF94D6B4FF81C5
A2FE177E49F504733AFF04733AFF04733AFF8ACFACFF16A059FF149F58FF18A7
5EFF26B26AFF35BB76FF45C283FF4BC688FF4DC588FF4DC387FF4CBF84FF76CB
9FFF92D0B0FF04733AFF04733AFF04733AFF7ECAA3FF069A4EFF079E50FF09A6
56FF0BAD5AFF0DB35EFF0EB761FF16BB66FF1FBC6CFF2ABC71FF30B973FF60C5
92FF7FC9A3FF04733AFF04733AFF04733AFF7ECAA3FF069A4EFF08A152FF0AA9
58FF0CB15DFF0EB862FF10BE66FF11C067FF10BE66FF1BBB6AFF66CE99FF5BB8
89FE0E7942F504733AFF04733AFF04733AFF7ECAA3FF7ECAA3FF7FCFA6FF80D4
A9FF81D8ACFF83DCAFFF12C46AFF13C86CFF35CC80FF77D7A6FF3DA36EF90475
3BE104733A2D04733AFF04733AFF04743AE804733AFF04733AFF04733AFF0473
3AFF04793DF783DDAFFF15C86DFF55DC97FF73D6A3FF1E8952F504763BAC0473
3A0CFFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733AFF83DDAFFF6EDCA5FF59C48DFE0A793FF504733A65FFFFFF00FFFF
FF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733AFF7DD9AAFF36A46CF804763CE104733A2DFFFFFF00FFFFFF00FFFF
FF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004733AFF19854DF504763CAB04733A0CFFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0004733AFF04733AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0004763BC504733A65FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0004733AFF04733AFF
}
end
object PMExport: TPopupMenu

View File

@ -32,6 +32,8 @@ type
TFPReportPreviewForm = class(TForm)
AClose: TAction;
ALast: TAction;
AFirst: TAction;
APrint: TAction;
AExportPDF: TAction;
AZoomReset: TAction;
@ -49,13 +51,17 @@ type
PBottom: TPanel;
PMExport: TPopupMenu;
SBPrevious: TSpeedButton;
SBPrevious1: TSpeedButton;
ScrollBox1: TScrollBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
TBPreview: TToolBar;
TBClose: TToolButton;
TBExport: TToolButton;
TBPDF: TToolButton;
TBPrint: TToolButton;
TBFirst: TToolButton;
TBLast: TToolButton;
ToolButton3: TToolButton;
TBPrevious: TToolButton;
TBNext: TToolButton;
@ -67,6 +73,10 @@ type
procedure AExportExecute(Sender: TObject);
procedure AExportPDFExecute(Sender: TObject);
procedure AExportPDFUpdate(Sender: TObject);
procedure AFirstExecute(Sender: TObject);
procedure AFirstUpdate(Sender: TObject);
procedure ALastExecute(Sender: TObject);
procedure ALastUpdate(Sender: TObject);
procedure ANextExecute(Sender: TObject);
procedure ANextUpdate(Sender: TObject);
procedure APreviousExecute(Sender: TObject);
@ -178,6 +188,26 @@ begin
(Sender as TAction).Enabled:=ReportExportManager.FindExporter(PDFExport)<>Nil;
end;
procedure TFPReportPreviewForm.AFirstExecute(Sender: TObject);
begin
PageIndex:=0;
end;
procedure TFPReportPreviewForm.AFirstUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled:=PageIndex>0;
end;
procedure TFPReportPreviewForm.ALastExecute(Sender: TObject);
begin
PageIndex:=ReportPages.Count-1;
end;
procedure TFPReportPreviewForm.ALastUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled:=PageIndex<ReportPages.Count-1;
end;
procedure TFPReportPreviewForm.ANextExecute(Sender: TObject);
begin
PageIndex:=PageIndex+1;