paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LazMapViewer: TMapViewer.CacheOnDisk property initialization fix.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9300 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alpine-a110 2024-03-29 16:31:09 +00:00
parent f2e3491fa5
commit b1be720320
5 changed files with 61 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazmapviewer/examples/elevations/main.lfm
View File

@ -15,7 +15,6 @@ object MainForm: TMainForm
Top = 0 Top = 0
Width = 614 Width = 614
Align = alClient Align = alClient
CacheOnDisk = False
DownloadEngine = MapView.BuiltInDLE DownloadEngine = MapView.BuiltInDLE
DrawingEngine = MapView.BuiltInDE DrawingEngine = MapView.BuiltInDE
Layers = <> Layers = <>

129
components/lazmapviewer/examples/flights/main.lfm
View File

@ -6,10 +6,9 @@ object MainForm: TMainForm
Caption = 'Flights - LazMapViewer' Caption = 'Flights - LazMapViewer'
ClientHeight = 662 ClientHeight = 662
ClientWidth = 942 ClientWidth = 942
ShowHint = True
LCLVersion = '3.99.0.0'
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
ShowHint = True
object MapView: TMapView object MapView: TMapView
Left = 0 Left = 0
Height = 662 Height = 662
@ -17,7 +16,6 @@ object MainForm: TMainForm
Width = 624 Width = 624
Active = True Active = True
Align = alClient Align = alClient
CacheOnDisk = False
Cyclic = True Cyclic = True
DefaultTrackColor = clSkyBlue DefaultTrackColor = clSkyBlue
DefaultTrackWidth = 3 DefaultTrackWidth = 3
@ -28025,8 +28023,8 @@ object MainForm: TMainForm
TabOrder = 1 TabOrder = 1
object PgData: TTabSheet object PgData: TTabSheet
Caption = 'Tracking' Caption = 'Tracking'
ClientHeight = 634 ClientHeight = 627
ClientWidth = 310 ClientWidth = 312
object ZoomTrackBar: TTrackBar object ZoomTrackBar: TTrackBar
AnchorSideLeft.Control = PgData AnchorSideLeft.Control = PgData
AnchorSideTop.Control = LblZoom AnchorSideTop.Control = LblZoom
@ -28035,12 +28033,12 @@ object MainForm: TMainForm
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 2 Left = 2
Height = 40 Height = 40
Top = 21 Top = 23
Width = 306 Width = 308
Min = 1 Min = 1
OnChange = ZoomTrackBarChange
Position = 4 Position = 4
TickMarks = tmBoth TickMarks = tmBoth
OnChange = ZoomTrackBarChange
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 2 BorderSpacing.Left = 2
BorderSpacing.Right = 2 BorderSpacing.Right = 2
@ -28050,9 +28048,9 @@ object MainForm: TMainForm
AnchorSideLeft.Control = PgData AnchorSideLeft.Control = PgData
AnchorSideTop.Control = PgData AnchorSideTop.Control = PgData
Left = 6 Left = 6
Height = 15 Height = 17
Top = 6 Top = 6
Width = 35 Width = 43
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Zoom:' Caption = 'Zoom:'
@ -28065,9 +28063,9 @@ object MainForm: TMainForm
AnchorSideRight.Control = PgData AnchorSideRight.Control = PgData
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 70 Height = 73
Top = 69 Top = 71
Width = 298 Width = 300
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -28075,17 +28073,17 @@ object MainForm: TMainForm
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Mouse position' Caption = 'Mouse position'
ClientHeight = 50 ClientHeight = 54
ClientWidth = 294 ClientWidth = 296
TabOrder = 1 TabOrder = 1
object lblMouseLon: TLabel object lblMouseLon: TLabel
AnchorSideLeft.Control = gbMouse AnchorSideLeft.Control = gbMouse
AnchorSideTop.Control = lblMouseLat AnchorSideTop.Control = lblMouseLat
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 15 Height = 17
Top = 27 Top = 29
Width = 54 Width = 68
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Longitude' Caption = 'Longitude'
@ -28095,9 +28093,9 @@ object MainForm: TMainForm
AnchorSideLeft.Control = gbMouse AnchorSideLeft.Control = gbMouse
AnchorSideTop.Control = gbMouse AnchorSideTop.Control = gbMouse
Left = 8 Left = 8
Height = 15 Height = 17
Top = 4 Top = 4
Width = 43 Width = 57
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
@ -28110,10 +28108,10 @@ object MainForm: TMainForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbMouse AnchorSideRight.Control = gbMouse
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 244 Left = 235
Height = 15 Height = 17
Top = 27 Top = 29
Width = 34 Width = 45
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 4 BorderSpacing.Top = 4
@ -28126,10 +28124,10 @@ object MainForm: TMainForm
AnchorSideTop.Control = gbMouse AnchorSideTop.Control = gbMouse
AnchorSideRight.Control = gbMouse AnchorSideRight.Control = gbMouse
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 244 Left = 235
Height = 15 Height = 17
Top = 4 Top = 4
Width = 34 Width = 45
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 4 BorderSpacing.Top = 4
@ -28146,25 +28144,25 @@ object MainForm: TMainForm
AnchorSideRight.Control = gbMouse AnchorSideRight.Control = gbMouse
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 70 Height = 73
Top = 147 Top = 152
Width = 298 Width = 300
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Center' Caption = 'Center'
ClientHeight = 50 ClientHeight = 54
ClientWidth = 294 ClientWidth = 296
TabOrder = 2 TabOrder = 2
object lblCenterLon: TLabel object lblCenterLon: TLabel
AnchorSideLeft.Control = gbCenter AnchorSideLeft.Control = gbCenter
AnchorSideTop.Control = lblCenterLat AnchorSideTop.Control = lblCenterLat
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 15 Height = 17
Top = 27 Top = 29
Width = 54 Width = 68
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Longitude' Caption = 'Longitude'
@ -28174,9 +28172,9 @@ object MainForm: TMainForm
AnchorSideLeft.Control = gbCenter AnchorSideLeft.Control = gbCenter
AnchorSideTop.Control = gbCenter AnchorSideTop.Control = gbCenter
Left = 8 Left = 8
Height = 15 Height = 17
Top = 4 Top = 4
Width = 43 Width = 57
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
@ -28189,10 +28187,10 @@ object MainForm: TMainForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbCenter AnchorSideRight.Control = gbCenter
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 244 Left = 235
Height = 15 Height = 17
Top = 27 Top = 29
Width = 34 Width = 45
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 4 BorderSpacing.Top = 4
@ -28205,10 +28203,10 @@ object MainForm: TMainForm
AnchorSideTop.Control = gbCenter AnchorSideTop.Control = gbCenter
AnchorSideRight.Control = gbCenter AnchorSideRight.Control = gbCenter
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 244 Left = 235
Height = 15 Height = 17
Top = 4 Top = 4
Width = 34 Width = 45
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 4 BorderSpacing.Top = 4
@ -28224,8 +28222,8 @@ object MainForm: TMainForm
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = plInfo AnchorSideBottom.Control = plInfo
Left = 6 Left = 6
Height = 246 Height = 231
Top = 225 Top = 233
Width = 298 Width = 298
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoFillColumns = True AutoFillColumns = True
@ -28233,8 +28231,6 @@ object MainForm: TMainForm
ColCount = 3 ColCount = 3
Columns = < Columns = <
item item
MinSize = 10
MaxSize = 200
SizePriority = 0 SizePriority = 0
Title.Alignment = taCenter Title.Alignment = taCenter
Title.Caption = 'Flight' Title.Caption = 'Flight'
@ -28242,19 +28238,14 @@ object MainForm: TMainForm
ValueChecked = '-1' ValueChecked = '-1'
end end
item item
ButtonStyle = cbsPickList
MinSize = 10
MaxSize = 200
Title.Alignment = taCenter Title.Alignment = taCenter
Title.Caption = 'Latitude' Title.Caption = 'Latitude'
Width = 112 Width = 105
end end
item item
MinSize = 10
MaxSize = 200
Title.Alignment = taCenter Title.Alignment = taCenter
Title.Caption = 'Longitude' Title.Caption = 'Longitude'
Width = 112 Width = 106
end> end>
FixedCols = 0 FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect, goSmoothScroll] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect, goSmoothScroll]
@ -28263,8 +28254,8 @@ object MainForm: TMainForm
OnDblClick = sgTracksDblClick OnDblClick = sgTracksDblClick
ColWidths = ( ColWidths = (
70 70
112 105
112 106
) )
end end
object pnlFlightControl: TPanel object pnlFlightControl: TPanel
@ -28275,8 +28266,8 @@ object MainForm: TMainForm
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 50 Height = 50
Top = 584 Top = 577
Width = 310 Width = 312
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BevelOuter = bvNone BevelOuter = bvNone
ChildSizing.LeftRightSpacing = 5 ChildSizing.LeftRightSpacing = 5
@ -28289,13 +28280,13 @@ object MainForm: TMainForm
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 99 ChildSizing.ControlsPerLine = 99
ClientHeight = 50 ClientHeight = 50
ClientWidth = 310 ClientWidth = 312
TabOrder = 4 TabOrder = 4
object btnPlay: TSpeedButton object btnPlay: TSpeedButton
Left = 5 Left = 5
Height = 40 Height = 40
Top = 5 Top = 5
Width = 67 Width = 65
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -28335,10 +28326,10 @@ object MainForm: TMainForm
OnClick = btnPlayClick OnClick = btnPlayClick
end end
object btnPause: TSpeedButton object btnPause: TSpeedButton
Left = 77 Left = 75
Height = 40 Height = 40
Top = 5 Top = 5
Width = 67 Width = 65
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -28378,10 +28369,10 @@ object MainForm: TMainForm
OnClick = btnPauseClick OnClick = btnPauseClick
end end
object btnStop: TSpeedButton object btnStop: TSpeedButton
Left = 149 Left = 145
Height = 40 Height = 40
Top = 5 Top = 5
Width = 67 Width = 65
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -28421,10 +28412,10 @@ object MainForm: TMainForm
OnClick = btnStopClick OnClick = btnStopClick
end end
object btnWarp: TSpeedButton object btnWarp: TSpeedButton
Left = 221 Left = 215
Height = 40 Height = 40
Top = 5 Top = 5
Width = 84 Width = 92
Caption = 'Warp+' Caption = 'Warp+'
OnClick = btnWarpClick OnClick = btnWarpClick
end end
@ -28434,7 +28425,7 @@ object MainForm: TMainForm
AnchorSideBottom.Control = pnlFlightControl AnchorSideBottom.Control = pnlFlightControl
Left = 6 Left = 6
Height = 33 Height = 33
Top = 543 Top = 536
Width = 298 Width = 298
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
@ -28447,7 +28438,7 @@ object MainForm: TMainForm
AnchorSideBottom.Control = pnlWarpInfo AnchorSideBottom.Control = pnlWarpInfo
Left = 6 Left = 6
Height = 72 Height = 72
Top = 471 Top = 464
Width = 298 Width = 298
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
ClientHeight = 72 ClientHeight = 72

1
components/lazmapviewer/examples/fulldemo/main.lfm
View File

@ -19,7 +19,6 @@ object MainForm: TMainForm
Top = 0 Top = 0
Width = 475 Width = 475
Align = alClient Align = alClient
CacheOnDisk = False
Cyclic = True Cyclic = True
DefaultTrackColor = clBlue DefaultTrackColor = clBlue
DefaultTrackWidth = 3 DefaultTrackWidth = 3

1
components/lazmapviewer/examples/fulldemo_with_addons/main.lfm
View File

@ -18,7 +18,6 @@ object MainForm: TMainForm
Top = 0 Top = 0
Width = 667 Width = 667
Align = alClient Align = alClient
CacheOnDisk = False
Cyclic = True Cyclic = True
DefaultTrackColor = clBlue DefaultTrackColor = clBlue
DefaultTrackWidth = 3 DefaultTrackWidth = 3

2
components/lazmapviewer/source/mvmapviewer.pas
View File

@ -2483,7 +2483,7 @@ begin
FEngine := TMapViewerEngine.Create(self); FEngine := TMapViewerEngine.Create(self);
FEngine.BkColor := colWhite; FEngine.BkColor := colWhite;
{FEngine.}CachePath := 'cache/'; {FEngine.}CachePath := 'cache/';
FEngine.CacheOnDisk := true; {FEngine.}CacheOnDisk := true;
FEngine.OnDrawTile := @DoDrawTile; FEngine.OnDrawTile := @DoDrawTile;
FEngine.OnDrawStretchedTile := @DoDrawStretchedTile; FEngine.OnDrawStretchedTile := @DoDrawStretchedTile;
FEngine.OnEraseBackground := @DoEraseBackground; FEngine.OnEraseBackground := @DoEraseBackground;