From 6dcc628ea323d0d6bdcb2b253f4a3bb44d35e9c6 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Tue, 11 Mar 2025 10:29:41 +0000 Subject: [PATCH] LazMapViewer: Create the MapView's EditMark in a separate virtual method, CreateEditMark. Issue #39114 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9673 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/lazmapviewer/source/mvmapviewer.pas | 8 +++++++- .../lazmapviewer/source/mvmapviewerpatheditform.pas | 4 ++-- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/components/lazmapviewer/source/mvmapviewer.pas b/components/lazmapviewer/source/mvmapviewer.pas index c42c83bee..6080d814b 100644 --- a/components/lazmapviewer/source/mvmapviewer.pas +++ b/components/lazmapviewer/source/mvmapviewer.pas @@ -676,6 +676,7 @@ type function CreateLayers: TMapLayers; virtual; procedure UpdateLayers; + function CreateEditMark: TMapEditMark; virtual; procedure CreateEditor; function EditingEnabled: Boolean; inline; @@ -4089,12 +4090,17 @@ begin FLayers[I].ComboLayer.TileLayer.ParentViewChanged; end; +function TMapView.CreateEditMark: TMapEditMark; +begin + Result := TMapEditMark.Create(self); +end; + procedure TMapView.CreateEditor; begin if Assigned(FEditMark) then Exit; - FEditMark := TMapEditMark.Create(Self); + FEditMark := CreateEditMark; FEditMark.UpdateFrom(Nil); FGPSItems[High(FGPSItems)].Add(FEditMark, _MAPEDITOR_ID_, MaxInt); FEditMark.Visible := True; diff --git a/components/lazmapviewer/source/mvmapviewerpatheditform.pas b/components/lazmapviewer/source/mvmapviewerpatheditform.pas index 68494b9ba..864a1c39d 100644 --- a/components/lazmapviewer/source/mvmapviewerpatheditform.pas +++ b/components/lazmapviewer/source/mvmapviewerpatheditform.pas @@ -295,8 +295,8 @@ var msg: String; begin msg := Format( - 'Click OK to really add the new %0:s.' + LineEnding + - 'Click Cancel to discard the new %0:s.', [ + 'Click on "OK" to add the new %s.' + LineEnding + + 'Click on "Cancel" to discard it.', [ TRACK_AREA[FEditMode = pemAddArea] ]); if MessageDlg(msg, mtConfirmation, [mbOK, mbCancel], 0) = mrOK then