paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fix preview scrolling, issue #12390

Browse Source 
git-svn-id: trunk@16993 -
This commit is contained in:
jesus 2008-10-14 20:49:16 +00:00
parent 8f9d9d8b11
commit f14de32a86
3 changed files with 1125 additions and 693 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

604
components/lazreport/source/lr_view.lfm
View File

@ -3,13 +3,31 @@ object frPreviewForm: TfrPreviewForm
Height = 374 Height = 374
Top = 103 Top = 103
Width = 412 Width = 412
HelpContext = 0
ActiveControl = ZoomBtn ActiveControl = ZoomBtn
Align = alNone
AllowDropFiles = False
AutoScroll = True
AutoSize = False
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
BorderStyle = bsSizeable
Caption = 'Preview' Caption = 'Preview'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 374 ClientHeight = 374
ClientWidth = 412 ClientWidth = 412
DockSite = False
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsNormal
KeyPreview = True KeyPreview = True
OnActivate = FormActivate OnActivate = FormActivate
OnClose = FormClose OnClose = FormClose
@ -19,41 +37,131 @@ object frPreviewForm: TfrPreviewForm
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnMouseDown = FormMouseDown OnMouseDown = FormMouseDown
OnResize = FormResize OnResize = FormResize
ParentBiDiMode = True
ParentFont = False
Position = poDesigned
ShowHint = True ShowHint = True
LCLVersion = '0.9.25' ShowInTaskBar = stDefault
UseDockManager = False
LCLVersion = '0.9.27'
WindowState = wsMaximized WindowState = wsMaximized
object PanTop: TPanel object PanTop: TPanel
Left = 0
Height = 28 Height = 28
Top = 0
Width = 412 Width = 412
HelpContext = 0
Align = alTop Align = alTop
Alignment = taCenter
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
BevelWidth = 1
BorderWidth = 0
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 28 ClientHeight = 28
ClientWidth = 412 ClientWidth = 412
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FullRepaint = False FullRepaint = False
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 0 TabOrder = 0
TabStop = False
Visible = True
object Bevel2: TBevel object Bevel2: TBevel
Left = 0
Height = 2 Height = 2
Top = 0
Width = 412 Width = 412
HelpContext = 0
Align = alTop Align = alTop
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Visible = True
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0
Height = 26 Height = 26
Top = 2 Top = 2
Width = 412 Width = 412
HelpContext = 0
Align = alClient Align = alClient
Alignment = taCenter
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
BevelWidth = 1
BorderWidth = 0
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 26 ClientHeight = 26
ClientWidth = 412 ClientWidth = 412
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FullRepaint = False FullRepaint = False
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 0 TabOrder = 0
TabStop = False
Visible = True
object ZoomBtn: TBitBtn object ZoomBtn: TBitBtn
Tag = 200 Tag = 200
Left = 117 Left = 117
Height = 26 Height = 26
Top = 0
Width = 78 Width = 78
HelpContext = 0
Align = alLeft Align = alLeft
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Caption = '200%' Caption = '200%'
Default = False
Enabled = True
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -90,17 +198,39 @@ object frPreviewForm: TfrPreviewForm
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000
} }
Kind = bkCustom
Layout = blGlyphLeft
Margin = 3 Margin = 3
ModalResult = 0
NumGlyphs = 0 NumGlyphs = 0
OnClick = ZoomBtnClick OnClick = ZoomBtnClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 0 TabOrder = 0
TabStop = True
Visible = True
end end
object LoadBtn: TBitBtn object LoadBtn: TBitBtn
Tag = 201 Tag = 201
Left = 0
Height = 26 Height = 26
Top = 0
Width = 26 Width = 26
HelpContext = 0
Align = alLeft Align = alLeft
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Default = False
Enabled = True
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -137,17 +267,39 @@ object frPreviewForm: TfrPreviewForm
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000
} }
Kind = bkCustom
Layout = blGlyphLeft
Margin = -1
ModalResult = 0
NumGlyphs = 0 NumGlyphs = 0
OnClick = LoadBtnClick OnClick = LoadBtnClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 1 TabOrder = 1
TabStop = True
Visible = True
end end
object SaveBtn: TBitBtn object SaveBtn: TBitBtn
Tag = 202 Tag = 202
Left = 26 Left = 26
Height = 26 Height = 26
Top = 0
Width = 31 Width = 31
HelpContext = 0
Align = alLeft Align = alLeft
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Default = False
Enabled = True
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -184,17 +336,39 @@ object frPreviewForm: TfrPreviewForm
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000
} }
Kind = bkCustom
Layout = blGlyphLeft
Margin = -1
ModalResult = 0
NumGlyphs = 0 NumGlyphs = 0
OnClick = SaveBtnClick OnClick = SaveBtnClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 2 TabOrder = 2
TabStop = True
Visible = True
end end
object PrintBtn: TBitBtn object PrintBtn: TBitBtn
Tag = 203 Tag = 203
Left = 87 Left = 87
Height = 26 Height = 26
Top = 0
Width = 28 Width = 28
HelpContext = 0
Align = alLeft Align = alLeft
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Default = False
Enabled = True
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -231,17 +405,39 @@ object frPreviewForm: TfrPreviewForm
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000
} }
Kind = bkCustom
Layout = blGlyphLeft
Margin = -1
ModalResult = 0
NumGlyphs = 0 NumGlyphs = 0
OnClick = PrintBtnClick OnClick = PrintBtnClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 3 TabOrder = 3
TabStop = True
Visible = True
end end
object FindBtn: TBitBtn object FindBtn: TBitBtn
Tag = 204 Tag = 204
Left = 197 Left = 197
Height = 26 Height = 26
Top = 0
Width = 35 Width = 35
HelpContext = 0
Align = alLeft Align = alLeft
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Default = False
Enabled = True
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -278,16 +474,38 @@ object frPreviewForm: TfrPreviewForm
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000
} }
Kind = bkCustom
Layout = blGlyphLeft
Margin = -1
ModalResult = 0
NumGlyphs = 0 NumGlyphs = 0
OnClick = FindBtnClick OnClick = FindBtnClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 4 TabOrder = 4
TabStop = True
Visible = True
end end
object HelpBtn: TBitBtn object HelpBtn: TBitBtn
Left = 232 Left = 232
Height = 26 Height = 26
Top = 0
Width = 37 Width = 37
HelpContext = 0
Align = alLeft Align = alLeft
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Default = False
Enabled = True
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -324,17 +542,39 @@ object frPreviewForm: TfrPreviewForm
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000
} }
Kind = bkCustom
Layout = blGlyphLeft
Margin = -1
ModalResult = 0
NumGlyphs = 0 NumGlyphs = 0
OnClick = HelpBtnClick OnClick = HelpBtnClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 5 TabOrder = 5
TabStop = True
Visible = True
end end
object ExitBtn: TBitBtn object ExitBtn: TBitBtn
Tag = 205 Tag = 205
Left = 57 Left = 57
Height = 26 Height = 26
Top = 0
Width = 28 Width = 28
HelpContext = 0
Align = alLeft Align = alLeft
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Default = False
Enabled = True
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -371,57 +611,214 @@ object frPreviewForm: TfrPreviewForm
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000
} }
Kind = bkCustom
Layout = blGlyphLeft
Margin = -1
ModalResult = 0
NumGlyphs = 0 NumGlyphs = 0
OnClick = ExitBtnClick OnClick = ExitBtnClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 6 TabOrder = 6
TabStop = True
Visible = True
end end
object frTBSeparator1: TPanel object frTBSeparator1: TPanel
Left = 85 Left = 85
Height = 26 Height = 26
Top = 0
Width = 2 Width = 2
HelpContext = 0
Align = alLeft Align = alLeft
Alignment = taCenter
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BevelInner = bvNone
BevelOuter = bvLowered BevelOuter = bvLowered
BevelWidth = 1
BorderWidth = 0
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FullRepaint = False FullRepaint = False
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 7 TabOrder = 7
TabStop = False
Visible = True
end end
object frTBSeparator2: TPanel object frTBSeparator2: TPanel
Left = 115 Left = 115
Height = 26 Height = 26
Top = 0
Width = 2 Width = 2
HelpContext = 0
Align = alLeft Align = alLeft
Alignment = taCenter
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BevelInner = bvNone
BevelOuter = bvLowered BevelOuter = bvLowered
BevelWidth = 1
BorderWidth = 0
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FullRepaint = False FullRepaint = False
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 8 TabOrder = 8
TabStop = False
Visible = True
end end
object frTBSeparator3: TPanel object frTBSeparator3: TPanel
Left = 195 Left = 195
Height = 26 Height = 26
Top = 0
Width = 2 Width = 2
HelpContext = 0
Align = alLeft Align = alLeft
Alignment = taCenter
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BevelInner = bvNone
BevelOuter = bvLowered BevelOuter = bvLowered
BevelWidth = 1
BorderWidth = 0
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FullRepaint = False FullRepaint = False
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 9 TabOrder = 9
TabStop = False
Visible = True
end end
end end
end end
object PreviewPanel: TPanel object PreviewPanel: TPanel
Left = 0
Height = 346 Height = 346
Top = 28 Top = 28
Width = 412 Width = 412
HelpContext = 0
Align = alClient Align = alClient
Alignment = taCenter
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BevelInner = bvLowered BevelInner = bvLowered
BevelOuter = bvNone BevelOuter = bvNone
BevelWidth = 1
BorderWidth = 0
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 346 ClientHeight = 346
ClientWidth = 412 ClientWidth = 412
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FullRepaint = False FullRepaint = False
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 1 TabOrder = 1
TabStop = False
Visible = True
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 1 Left = 1
Height = 325 Height = 325
Top = 1 Top = 1
Width = 395 Width = 395
HelpContext = 0
Align = alClient Align = alClient
AutoSize = False
AutoScroll = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Ctl3D = False
ParentBiDiMode = True
ParentColor = True
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
TabOrder = 0 TabOrder = 0
TabStop = False
Visible = True
OnMouseWheelDown = ScrollBox1MouseWheelDown OnMouseWheelDown = ScrollBox1MouseWheelDown
OnMouseWheelUp = ScrollBox1MouseWheelUp OnMouseWheelUp = ScrollBox1MouseWheelUp
end end
@ -430,37 +827,115 @@ object frPreviewForm: TfrPreviewForm
Height = 19 Height = 19
Top = 326 Top = 326
Width = 410 Width = 410
HelpContext = 0
Align = alBottom Align = alBottom
Alignment = taCenter
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
BevelWidth = 1
BorderWidth = 0
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 19 ClientHeight = 19
ClientWidth = 410 ClientWidth = 410
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FullRepaint = False FullRepaint = False
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 1 TabOrder = 1
TabStop = False
Visible = True
object HScrollBar: TScrollBar object HScrollBar: TScrollBar
AnchorSideLeft.Control = LbPanel AnchorSideLeft.Control = LbPanel
Left = 76 Left = 76
Height = 19 Height = 15
Top = 0
Width = 318 Width = 318
HelpContext = 0
Align = alClient Align = alClient
BorderSpacing.Left = 2 BorderSpacing.Left = 2
BorderSpacing.Top = 0
BorderSpacing.Right = 16 BorderSpacing.Right = 16
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Ctl3D = True Ctl3D = True
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Kind = sbHorizontal
LargeChange = 200 LargeChange = 200
Max = 32000 Max = 32000
Min = 0
PageSize = 0
ParentBidiMode = True
ParentCtl3D = False ParentCtl3D = False
ParentShowHint = True
Position = 100 Position = 100
SmallChange = 10 SmallChange = 10
TabOrder = 0 TabOrder = 0
TabStop = True
Visible = True
OnChange = HScrollBarChange OnChange = HScrollBarChange
end end
object LbPanel: TPanel object LbPanel: TPanel
Left = 0
Height = 19 Height = 19
Top = 0
Width = 74 Width = 74
HelpContext = 0
Align = alLeft Align = alLeft
Alignment = taCenter
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BevelInner = bvNone
BevelOuter = bvLowered BevelOuter = bvLowered
BevelWidth = 1
BorderWidth = 0
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FullRepaint = False FullRepaint = False
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 1 TabOrder = 1
TabStop = False
Visible = True
end end
end end
object RPanel: TPanel object RPanel: TPanel
@ -468,20 +943,61 @@ object frPreviewForm: TfrPreviewForm
Height = 325 Height = 325
Top = 1 Top = 1
Width = 15 Width = 15
HelpContext = 0
Align = alRight Align = alRight
Alignment = taCenter
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
BevelWidth = 1
BorderWidth = 0
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 325 ClientHeight = 325
ClientWidth = 15 ClientWidth = 15
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FullRepaint = False FullRepaint = False
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 2 TabOrder = 2
TabStop = False
Visible = True
object PgUp: TSpeedButton object PgUp: TSpeedButton
Left = 0
Height = 19 Height = 19
Top = 287 Top = 287
Width = 15 Width = 15
HelpContext = 0
Align = alBottom Align = alBottom
AllowAllUp = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Color = clBtnFace Color = clBtnFace
Down = False
Enabled = True
Flat = False
Glyph.Data = { Glyph.Data = {
76020000424D760200000000000036000000280000000C0000000C0000000100 76020000424D760200000000000036000000280000000C0000000C0000000100
2000000000004002000064000000640000000000000000000000000000000000 2000000000004002000064000000640000000000000000000000000000000000
@ -504,15 +1020,37 @@ object frPreviewForm: TfrPreviewForm
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000
} }
GroupIndex = 0
Layout = blGlyphLeft
Margin = -1
NumGlyphs = 0 NumGlyphs = 0
Spacing = 4
Transparent = True
Visible = True
OnClick = PgUpClick OnClick = PgUpClick
ShowCaption = True
ParentFont = True
ParentShowHint = True
end end
object PgDown: TSpeedButton object PgDown: TSpeedButton
Left = 0
Height = 19 Height = 19
Top = 306 Top = 306
Width = 15 Width = 15
HelpContext = 0
Align = alBottom Align = alBottom
AllowAllUp = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Color = clBtnFace Color = clBtnFace
Down = False
Enabled = True
Flat = False
Glyph.Data = { Glyph.Data = {
76020000424D760200000000000036000000280000000C0000000C0000000100 76020000424D760200000000000036000000280000000C0000000C0000000100
2000000000004002000064000000640000000000000000000000000000000000 2000000000004002000064000000640000000000000000000000000000000000
@ -535,20 +1073,50 @@ object frPreviewForm: TfrPreviewForm
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000
} }
GroupIndex = 0
Layout = blGlyphLeft
Margin = -1
NumGlyphs = 0 NumGlyphs = 0
Spacing = 4
Transparent = True
Visible = True
OnClick = PgDownClick OnClick = PgDownClick
ShowCaption = True
ParentFont = True
ParentShowHint = True
end end
object VScrollBar: TScrollBar object VScrollBar: TScrollBar
Left = 0
Height = 287 Height = 287
Top = 0
Width = 15 Width = 15
HelpContext = 0
Align = alClient Align = alClient
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Ctl3D = True Ctl3D = True
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Kind = sbVertical Kind = sbVertical
LargeChange = 200 LargeChange = 200
Max = 32000 Max = 32000
Min = 0
PageSize = 0
ParentBidiMode = True
ParentCtl3D = False ParentCtl3D = False
ParentShowHint = True
Position = 0
SmallChange = 10 SmallChange = 10
TabOrder = 0 TabOrder = 0
TabStop = True
Visible = True
OnChange = VScrollBarChange OnChange = VScrollBarChange
end end
end end
@ -561,6 +1129,8 @@ object frPreviewForm: TfrPreviewForm
Caption = '200%' Caption = '200%'
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
RightJustify = False
ShowAlwaysCheckable = False
OnClick = N3Click OnClick = N3Click
end end
object N1501: TMenuItem object N1501: TMenuItem
@ -568,6 +1138,8 @@ object frPreviewForm: TfrPreviewForm
Caption = '150%' Caption = '150%'
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
RightJustify = False
ShowAlwaysCheckable = False
OnClick = N3Click OnClick = N3Click
end end
object N1001: TMenuItem object N1001: TMenuItem
@ -576,6 +1148,8 @@ object frPreviewForm: TfrPreviewForm
Checked = True Checked = True
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
RightJustify = False
ShowAlwaysCheckable = False
OnClick = N3Click OnClick = N3Click
end end
object N751: TMenuItem object N751: TMenuItem
@ -583,6 +1157,8 @@ object frPreviewForm: TfrPreviewForm
Caption = '75%' Caption = '75%'
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
RightJustify = False
ShowAlwaysCheckable = False
OnClick = N3Click OnClick = N3Click
end end
object N501: TMenuItem object N501: TMenuItem
@ -590,6 +1166,8 @@ object frPreviewForm: TfrPreviewForm
Caption = '50%' Caption = '50%'
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
RightJustify = False
ShowAlwaysCheckable = False
OnClick = N3Click OnClick = N3Click
end end
object N251: TMenuItem object N251: TMenuItem
@ -597,6 +1175,8 @@ object frPreviewForm: TfrPreviewForm
Caption = '25%' Caption = '25%'
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
RightJustify = False
ShowAlwaysCheckable = False
OnClick = N3Click OnClick = N3Click
end end
object N101: TMenuItem object N101: TMenuItem
@ -604,6 +1184,8 @@ object frPreviewForm: TfrPreviewForm
Caption = '10%' Caption = '10%'
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
RightJustify = False
ShowAlwaysCheckable = False
OnClick = N3Click OnClick = N3Click
end end
object N1: TMenuItem object N1: TMenuItem
@ -611,6 +1193,8 @@ object frPreviewForm: TfrPreviewForm
Caption = '&Page width' Caption = '&Page width'
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
RightJustify = False
ShowAlwaysCheckable = False
OnClick = N3Click OnClick = N3Click
end end
object N2: TMenuItem object N2: TMenuItem
@ -618,6 +1202,8 @@ object frPreviewForm: TfrPreviewForm
Caption = '&Whole page' Caption = '&Whole page'
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
RightJustify = False
ShowAlwaysCheckable = False
OnClick = N3Click OnClick = N3Click
end end
object N3: TMenuItem object N3: TMenuItem
@ -625,29 +1211,41 @@ object frPreviewForm: TfrPreviewForm
Caption = '&Two pages' Caption = '&Two pages'
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
RightJustify = False
ShowAlwaysCheckable = False
OnClick = N3Click OnClick = N3Click
end end
object N4: TMenuItem object N4: TMenuItem
Caption = '-' Caption = '-'
GroupIndex = 1 GroupIndex = 1
RightJustify = False
ShowAlwaysCheckable = False
end end
object N5: TMenuItem object N5: TMenuItem
Caption = 'Edit page' Caption = 'Edit page'
GroupIndex = 1 GroupIndex = 1
RightJustify = False
ShowAlwaysCheckable = False
OnClick = EditBtnClick OnClick = EditBtnClick
end end
object N6: TMenuItem object N6: TMenuItem
Caption = 'Add page' Caption = 'Add page'
GroupIndex = 1 GroupIndex = 1
RightJustify = False
ShowAlwaysCheckable = False
OnClick = NewPageBtnClick OnClick = NewPageBtnClick
end end
object N7: TMenuItem object N7: TMenuItem
Caption = 'Delete page' Caption = 'Delete page'
GroupIndex = 1 GroupIndex = 1
RightJustify = False
ShowAlwaysCheckable = False
OnClick = DelPageBtnClick OnClick = DelPageBtnClick
end end
end end
object OpenDialog: TOpenDialog object OpenDialog: TOpenDialog
Width = 0
Height = 0
Filter = 'Report file (*.frp)|*.frp' Filter = 'Report file (*.frp)|*.frp'
FilterIndex = 0 FilterIndex = 0
Options = [ofHideReadOnly] Options = [ofHideReadOnly]
@ -655,6 +1253,8 @@ object frPreviewForm: TfrPreviewForm
top = 99 top = 99
end end
object SaveDialog: TSaveDialog object SaveDialog: TSaveDialog
Width = 0
Height = 0
Filter = 'Report file (*.frp)|*.frp' Filter = 'Report file (*.frp)|*.frp'
FilterIndex = 0 FilterIndex = 0
Options = [ofHideReadOnly] Options = [ofHideReadOnly]

1199
components/lazreport/source/lr_view.lrs
View File

File diff suppressed because it is too large Load Diff

13
components/lazreport/source/lr_view.pas
View File

@ -376,6 +376,7 @@ begin
if Pages[i]^.Visible then if Pages[i]^.Visible then
ExcludeClipRect(Canvas.Handle, r.Left + 1, r.Top + 1, r.Right - 1, r.Bottom - 1); ExcludeClipRect(Canvas.Handle, r.Left + 1, r.Top + 1, r.Right - 1, r.Bottom - 1);
end; end;
with Canvas do with Canvas do
begin begin
Brush.Color := clGray; Brush.Color := clGray;
@ -759,12 +760,11 @@ begin
if RPanel.Visible then if RPanel.Visible then
HScrollbar.Width := BPanel.Width - HScrollbar.Left - RPanel.Width; HScrollbar.Width := BPanel.Width - HScrollbar.Left - RPanel.Width;
maxx := maxx - PBox.Width;
maxy := maxy - PBox.Height;
if maxx < 0 then maxx := 0 else Inc(maxx, 10); if maxx < 0 then maxx := 0 else Inc(maxx, 10);
if maxy < 0 then maxy := 0 else Inc(maxy, 10); if maxy < 0 then maxy := 0 else Inc(maxy, 10);
HScrollBar.Max := maxx; VScrollBar.Max := maxy; HScrollBar.Max := maxx;
VScrollBar.Max := maxy;
VScrollBar.PageSize := Scrollbox1.ClientHeight; VScrollBar.PageSize := Scrollbox1.ClientHeight;
Hscrollbar.PageSize := Scrollbox1.ClientWidth; Hscrollbar.PageSize := Scrollbox1.ClientWidth;
HScrollBar.Enabled := maxx <> 0; HScrollBar.Enabled := maxx <> 0;
@ -854,7 +854,12 @@ begin
OldH := p; OldH := p;
ofx := -p; ofx := -p;
r := Rect(0, 0, PBox.Width, PBox.Height); r := Rect(0, 0, PBox.Width, PBox.Height);
ScrollWindow(PBox.Handle, pp, 0, @r, @r); {$IFDEF WIN32}
ScrollWindowEx(PBox.Handle, pp, 0, @r, @r, 0, nil, SW_INVALIDATE);
UpdateWindow(Pbox.Handle);
{$ELSE}
PBox.Invalidate;
{$ENDIF}
end; end;
procedure TfrPreviewForm.FormKeyDown(Sender: TObject; var Key: Word; procedure TfrPreviewForm.FormKeyDown(Sender: TObject; var Key: Word;