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
OnClick = rgClickModeClick
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
object PluginManager: TMvPluginManager
Left = 401

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

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

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

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