pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazMapViewer: Fix trackdemo project not updating track marker. Patch by Yuliyan Ivanov.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9093 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-12-19 11:04:23 +00:00
parent a5741193c0
commit 2966f77529
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazmapviewer/examples/trackdemo/main.lfm
View File

@@ -6,8 +6,8 @@ object MainForm: TMainForm
Caption = 'Grand Canyon Hike' Caption = 'Grand Canyon Hike'
ClientHeight = 600 ClientHeight = 600
ClientWidth = 1000 ClientWidth = 1000
LCLVersion = '3.99.0.0'
OnActivate = FormActivate OnActivate = FormActivate
LCLVersion = '2.3.0.0'
object MapView: TMapView object MapView: TMapView
Left = 0 Left = 0
Height = 600 Height = 600
@@ -281,8 +281,8 @@ object MainForm: TMainForm
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'Trace track automatically' Caption = 'Trace track automatically'
OnChange = cbAutoTraceChange
TabOrder = 1 TabOrder = 1
OnChange = cbAutoTraceChange
end end
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
@@ -309,8 +309,8 @@ object MainForm: TMainForm
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
DropDownCount = 32 DropDownCount = 32
ItemHeight = 16 ItemHeight = 16
OnChange = clbTrackColorChange
TabOrder = 2 TabOrder = 2
OnChange = clbTrackColorChange
end end
object lblInfo: TLabel object lblInfo: TLabel
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
@@ -362,8 +362,8 @@ object MainForm: TMainForm
Width = 79 Width = 79
BorderSpacing.Left = 16 BorderSpacing.Left = 16
Caption = 'Use threads' Caption = 'Use threads'
OnChange = cbUseThreadsChange
TabOrder = 3 TabOrder = 3
OnChange = cbUseThreadsChange
end end
end end
object Splitter1: TSplitter object Splitter1: TSplitter

2
components/lazmapviewer/examples/trackdemo/main.pas
View File

@@ -179,7 +179,7 @@ begin
FCurrPt.Name := Format('Time: %s'+LineEnding+'Elevation: %.0fm', [ FCurrPt.Name := Format('Time: %s'+LineEnding+'Elevation: %.0fm', [
TimeToStr(FCurrPt.DateTime), FCurrPt.Elevation TimeToStr(FCurrPt.DateTime), FCurrPt.Elevation
]); ]);
MapView.Engine.Redraw; MapView.Invalidate;
end; end;
procedure TMainForm.TrackGridClick(Sender: TObject); procedure TMainForm.TrackGridClick(Sender: TObject);

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

@@ -1086,7 +1086,7 @@ begin
Mapwin.Center := aCenter; Mapwin.Center := aCenter;
CalculateWin(MapWin); CalculateWin(MapWin);
Redraw(MapWin); Redraw(MapWin);
if assigned(OnCenterMove) then if Assigned(OnCenterMove) then
OnCenterMove(Self); OnCenterMove(Self);
if Assigned(OnChange) then if Assigned(OnChange) then
OnChange(Self); OnChange(Self);