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

LazMapViewer: Fix ZoomOnObj and ZoomOnArea methods to fire the OnZoomChange event. Issue #39125.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9757 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-05-23 09:58:12 +00:00
parent d05c8268ba
commit 30ce9cecd6
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazmapviewer/source/mvengine.pas
View File

@ -1626,6 +1626,11 @@ begin
until (tmpWin.Zoom = 2);
MapWin := tmpWin;
Redraw(MapWin);
if Assigned(OnZoomChange) then
OnZoomChange(Self);
if Assigned(OnChange) then
OnChange(Self);
end;
procedure TMapViewerEngine.CopyMapWindowFrom(AEngine: TMapViewerEngine);