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

LazMapViewer: Rename TPointOfInterestDrawEvent to TMapPointOfInterestDrawEvent

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9548 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-12-20 21:31:16 +00:00
parent 7d2ed7568b
commit 7b9236498a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,7 +73,7 @@ type
TMapEditMark = class;
TMvCustomPluginManager = class;
TPointOfInterestDrawEvent = procedure(Sender: TObject;
TMapPointOfInterestDrawEvent = procedure(Sender: TObject;
ADrawer: TMvCustomDrawingEngine; APoint: TMapPointOfInterest) of object;
TMapTrackDrawEvent = procedure(Sender: TObject;
@ -319,9 +319,9 @@ type
TMapPointOfInterest = class(TMapPoint)
private
FImageIndex: TImageIndex;
FOnDrawPoint: TPointOfInterestDrawEvent;
FOnDrawPoint: TMapPointOfInterestDrawEvent;
procedure SetImageIndex(AValue: TImageIndex);
procedure SetOnDrawPoint(AValue: TPointOfInterestDrawEvent);
procedure SetOnDrawPoint(AValue: TMapPointOfInterestDrawEvent);
protected
procedure DrawPoint(Sender: TObject; {%H-}AGPSObj: TGPSObj; {%H-}AArea: TRealArea);
procedure ItemChanged; override;
@ -332,7 +332,7 @@ type
procedure AssignTo(Dest: TPersistent); override;
published
property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;
property OnDrawPoint: TPointOfInterestDrawEvent read FOnDrawPoint write SetOnDrawPoint;
property OnDrawPoint: TMapPointOfInterestDrawEvent read FOnDrawPoint write SetOnDrawPoint;
end;
{ TMapPointsOfInterest }
@ -1690,7 +1690,7 @@ begin
ItemChanged;
end;
procedure TMapPointOfInterest.SetOnDrawPoint(AValue: TPointOfInterestDrawEvent);
procedure TMapPointOfInterest.SetOnDrawPoint(AValue: TMapPointOfInterestDrawEvent);
begin
if CompareMem(@FOnDrawPoint, @AValue, SizeOf(TMethod)) then
Exit;