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

LazMapViewer: Add property MultiSelect to TMarkerSelectAndDragPlugin.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9689 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-03-19 23:47:32 +00:00
parent 331e6fd9c2
commit 56cae39588
3 changed files with 50 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -141,6 +141,18 @@ object MainForm: TMainForm
TabOrder = 1 TabOrder = 1
OnClick = rgClickModeClick OnClick = rgClickModeClick
end end
object cbMultiSelect: TCheckBox
AnchorSideLeft.Control = rgClickMode
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrCenter
Left = 379
Height = 19
Top = 84
Width = 77
Caption = 'MultiSelect'
TabOrder = 2
OnChange = cbMultiSelectChange
end
end end
object PluginManager: TMvPluginManager object PluginManager: TMvPluginManager
Left = 401 Left = 401

7
components/lazmapviewer/examples/plugin_demos/markerselectdrag_demo/main.pas
View File

@ -16,6 +16,7 @@ type
TMainForm = class(TForm) TMainForm = class(TForm)
Bevel1: TBevel; Bevel1: TBevel;
cgPointTypes: TCheckGroup; cgPointTypes: TCheckGroup;
cbMultiSelect: TCheckBox;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
Panel1: TPanel; Panel1: TPanel;
@ -24,6 +25,7 @@ type
PluginManager: TMvPluginManager; PluginManager: TMvPluginManager;
rgClickMode: TRadioGroup; rgClickMode: TRadioGroup;
procedure cgPointTypesItemClick(Sender: TObject; Index: integer); procedure cgPointTypesItemClick(Sender: TObject; Index: integer);
procedure cbMultiSelectChange(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure rgClickModeClick(Sender: TObject); procedure rgClickModeClick(Sender: TObject);
private private
@ -146,5 +148,10 @@ begin
Plugin.PointTypes := pointTypes; Plugin.PointTypes := pointTypes;
end; end;
procedure TMainForm.cbMultiSelectChange(Sender: TObject);
begin
Plugin.MultiSelect := cbMultiSelect.Checked;
end;
end. end.

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

@ -103,10 +103,12 @@ type
FClickMode: TMarkerClickMode; FClickMode: TMarkerClickMode;
FDragCursor: TCursor; FDragCursor: TCursor;
FDragging: Boolean; FDragging: Boolean;
FMultiSelect: Boolean;
FSelection: TGPSPointList; FSelection: TGPSPointList;
FOrigSelection: array of TRealPoint; // Selection before dragging starts FOrigSelection: array of TRealPoint; // Selection before dragging starts
FOnDrawPoint: TMarkerDrawPointEvent; FOnDrawPoint: TMarkerDrawPointEvent;
FOnSelect: TNotifyEvent; FOnSelect: TNotifyEvent;
procedure SetMultiSelect(AValue: Boolean);
protected protected
procedure AddToSelection(AMapView: TMapView; APoint: TGPSPoint); procedure AddToSelection(AMapView: TMapView; APoint: TGPSPoint);
procedure DoSelect(AMapView: TMapView); procedure DoSelect(AMapView: TMapView);
@ -133,6 +135,7 @@ type
published published
property ClickMode: TMarkerClickMode read FClickMode write FClickMode default mcmAddToSelection; property ClickMode: TMarkerClickMode read FClickMode write FClickMode default mcmAddToSelection;
property DragCursor: TCursor read FDragCursor write FDragCursor default crSizeAll; property DragCursor: TCursor read FDragCursor write FDragCursor default crSizeAll;
property MultiSelect: Boolean read FMultiSelect write SetMultiSelect default false;
property OnDrawPoint: TMarkerDrawPointEvent read FOnDrawPoint write FOnDrawPoint; property OnDrawPoint: TMarkerDrawPointEvent read FOnDrawPoint write FOnDrawPoint;
property OnSelect: TNotifyEvent read FOnSelect write FOnSelect; property OnSelect: TNotifyEvent read FOnSelect write FOnSelect;
end; end;
@ -369,11 +372,18 @@ procedure TMarkerSelectAndDragPlugin.AddToSelection(AMapView: TMapView;
var var
idx: Integer; idx: Integer;
begin begin
idx := FSelection.IndexOf(APoint); if FMultiSelect then
if idx > -1 then begin
FSelection.Move(idx, FSelection.Count-1) idx := FSelection.IndexOf(APoint);
else if idx > -1 then
FSelection.Move(idx, FSelection.Count-1)
else
FSelection.Add(APoint);
end else
begin
FSelection.Clear;
FSelection.Add(APoint); FSelection.Add(APoint);
end;
DoSelect(AMapView); DoSelect(AMapView);
end; end;
@ -549,6 +559,18 @@ begin
DragEnd(AMapView); DragEnd(AMapView);
end; end;
procedure TMarkerSelectAndDragPlugin.SetMultiSelect(AValue: Boolean);
begin
if FMultiSelect = AValue then exit;
FMultiSelect := AValue;
if not FMultiSelect then
begin
FSelection.Clear;
FSelection.Add(FOrigGPSPoint);
end;
Update;
end;
procedure TMarkerSelectAndDragPlugin.ToggleSelected(AMapView: TMapView; procedure TMarkerSelectAndDragPlugin.ToggleSelected(AMapView: TMapView;
APoint: TGPSPoint); APoint: TGPSPoint);
var var
@ -556,8 +578,11 @@ var
begin begin
idx := FSelection.IndexOf(APoint); idx := FSelection.IndexOf(APoint);
if idx = -1 then if idx = -1 then
FSelection.Add(APoint) begin
else if not FMultiSelect then
FSelection.Clear;
FSelection.Add(APoint);
end else
FSelection.Delete(idx); FSelection.Delete(idx);
DoSelect(AMapView); DoSelect(AMapView);
end; end;