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

LazMapViewer: Add property MouseButtonDown[] to plugin manager. Patch by Ekkehard Domning.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9616 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-02-04 23:20:11 +00:00
parent 017c0eab2b
commit 20a2365fca
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazmapviewer/source/mvplugincommon.pas
View File

@ -240,10 +240,12 @@ type
private
FPluginList: TMvPluginList;
FMapList: TFPList;
FMouseButtonDown: array[TMouseButton] of Boolean;
function GetCount: Integer;
function GetItems(AIndex: Integer): TMvCustomPlugin;
function GetMapViewCount: Integer;
function GetMapViews(AIndex: Integer): TMapView;
function GetMouseButtonDown(AIndex: TMouseButton): Boolean;
protected
procedure AddMapView(AMapView: TMapView); override;
function HandlePlugin(APlugin: TMvCustomPlugin; AMapView: TMapView): Boolean;
@ -289,6 +291,7 @@ type
property Items[AIndex: Integer]: TMvCustomPlugin read GetItems; default;
property MapViews[AIndex: Integer]: TMapView read GetMapViews;
property MapViewCount: Integer read GetMapViewCount;
property MouseButtonDown[AIndex: TMouseButton]: Boolean read GetMouseButtonDown;
published
property PluginList: TMvPluginList read FPluginList;
end;
@ -1141,6 +1144,11 @@ begin
Result := TMapView(FMapList[AIndex]);
end;
function TMvPluginManager.GetMouseButtonDown(AIndex: TMouseButton): Boolean;
begin
Result := FMouseButtonDown[AIndex];
end;
function TMvPluginManager.GPSItemsModified(AMapView: TMapView;
ModifiedList: TGPSObjectList; ActualObjs: TGPSObjList; Adding: Boolean): Boolean;
var
@ -1176,6 +1184,7 @@ var
i: Integer;
plugin: TMvCustomPlugin;
begin
FMouseButtonDown[AButton] := True;
Result := false;
for i := FPluginList.Count-1 downto 0 do
begin
@ -1235,6 +1244,7 @@ var
plugin: TMvCustomPlugin;
begin
Result := false;
FMouseButtonDown[AButton] := false;
for i := FPluginList.Count-1 downto 0 do
begin
plugin := Items[i];