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

LazMapViewer: Toggle selection of a point in TMarkerEditorPlugin by CTRL + LeftClick

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9703 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-03-25 10:10:46 +00:00
parent d9536cca8a
commit 3ca1ec96db
2 changed files with 26 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazmapviewer/examples/plugin_demos/markereditor_demo/main.lfm
View File

@ -10,7 +10,7 @@ object MainForm: TMainForm
OnCreate = FormCreate
object MapView: TMapView
Left = 0
Height = 468
Height = 453
Top = 0
Width = 908
Align = alClient
@ -34,13 +34,13 @@ object MainForm: TMainForm
end
object Panel1: TPanel
Left = 0
Height = 222
Top = 468
Height = 237
Top = 453
Width = 908
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 222
ClientHeight = 237
ClientWidth = 908
TabOrder = 1
object cgPointTypes: TCheckGroup
@ -186,11 +186,11 @@ object MainForm: TMainForm
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 8
Height = 105
Height = 120
Top = 109
Width = 437
BorderSpacing.Bottom = 8
Caption = 'Select a single point --> Left-click'#13#10'Select all points of track or area --> SHIFT+left-click'#13#10'Select all points contained in dragged rectangle --> ALT + left-click'#13#10'Create a new point --> Right-click'#13#10'Extend selection --> Hold CTRL key down'#13#10'Delete selection --> DEL key (or click "Delete selection" button'#13#10'Move selection --> Drag with mouse(left button down) or press arrow keys (+/- 1°)'
Caption = 'Select a single point --> Left-click'#13#10'Select all points of track or area --> SHIFT+left-click'#13#10'Select all points contained in dragged rectangle --> ALT + left-click'#13#10'Create a new point --> Right-click'#13#10'Extend selection --> Hold CTRL key down and left-click'#13#10'Toggle selection of current point --> Hold CTRL key down and left-click'#13#10'Delete selection --> DEL key (or click "Delete selection" button'#13#10'Move selection --> Drag with mouse(left button down) or press arrow keys (+/- 1°)'
end
end
object PluginManager: TMvPluginManager

32
components/lazmapviewer/source/addons/plugins/markers/mvmarkerplugins.pas
View File

@ -142,15 +142,14 @@ type
TMarkerStartDragEvent = procedure (AMapView: TMapView; var CanDrag: Boolean) of object;
TMarkerClickMode = (cmNewPoint, cmSelectPoint, cmSelectShape,
cmTogglePoint, cmRubberband);
TMarkerClickMode = (cmNewPoint, cmSelectPoint, cmSelectShape, cmRubberband);
TMarkerNewPointType = (nptGPSPoint, nptMapPoint);
TMarkerEditorPlugin = class(TMarkerClickPlugin)
private
type
TPluginStateEnum = (psDragging, psRubberBandMode, psExtendingSelection);
TPluginStateEnum = (psDragging, psRubberBandMode, psExtendingSelection, psPendingUnselect);
TPluginState = set of TPluginStateEnum;
const
DEFAULT_CLICKMODE = cmSelectPoint;
@ -204,7 +203,7 @@ type
procedure RubberbandStart(AMapView: TMapView; X, Y: Integer);
procedure RubberbandTo(AMapView: TMapView; X, Y: Integer);
procedure RubberbandEnd(AMapView: TMapView; X, Y: Integer);
procedure ToggleSelected(AMapView: TMapView; APoint: TGPSPoint);
procedure UnselectPoint(AMapView: TMapView; APoint: TGPSPoint);
protected
procedure AfterDrawObjects(AMapView: TMapView; var {%H-}Handled: Boolean); override;
procedure MouseDown(AMapView: TMapView; {%H-}Button: TMouseButton;
@ -686,8 +685,8 @@ begin
FOnStartDrag(AMapView, canDrag);
if not canDrag then exit;
end;
FState := FState + [psDragging] - [psPendingUnselect];
AMapView.Cursor := DragCursor;
Include(FState, psDragging);
// Save original selection point coordinates in case they must be restored later.
SetLength(FOrigSelection, FSelection.Count);
for i := 0 to High(FOrigSelection) do
@ -1008,11 +1007,15 @@ begin
begin
case FClickMode of
cmSelectPoint:
if FSelection.IndexOf(FOrigGPSPoint) = -1 then
begin
AddToSelection(AMapView, FOrigGPSPoint, psExtendingSelection in FState);
Exclude(FState, psPendingUnselect);
end else
if (psExtendingSelection in FState) then
Include(FState, psPendingUnselect);
cmSelectShape:
SelectAllPointsOfShape(AMapView, FOrigGPSPoint, psExtendingSelection in FState);
cmTogglePoint:
ToggleSelected(AMapView, FOrigGPSPoint);
end;
Update;
Handled := true;
@ -1028,9 +1031,9 @@ begin
cmRubberband:
;
else
if (FSelection.Count > 0) and
(MessageDlg('Do you really want to unselect these points?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
if (FSelection.Count > 0) then
begin
if (MessageDlg('Do you really want to unselect these points?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
FSelection.Clear;
Handled := true;
end;
@ -1080,6 +1083,8 @@ begin
DragEnd(AMapView);
if (psRubberbandMode in FState) then
RubberbandEnd(AMapView, X, Y);
if (psPendingUnselect in FState) then
UnselectPoint(AMapView, FOrigGPSPoint);
end;
function TMarkerEditorPlugin.NewPoint(AMapView: TMapView;
@ -1240,20 +1245,17 @@ begin
Update;
end;
procedure TMarkerEditorPlugin.ToggleSelected(AMapView: TMapView;
procedure TMarkerEditorPlugin.UnselectPoint(AMapView: TMapView;
APoint: TGPSPoint);
var
idx: Integer;
begin
idx := FSelection.IndexOf(APoint);
if idx = -1 then
if idx > -1 then
begin
if not (psExtendingSelection in FState)then
FSelection.Clear;
FSelection.Add(APoint);
end else
FSelection.Delete(idx);
DoSelectionChange(AMapView);
end;
end;