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

LazMapViewer: In TMapView, replace some calls to Engine.Redraw by Invalidate

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9143 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-01-15 12:15:22 +00:00
parent c7b2a5efda
commit 2403a04edb
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -502,7 +502,7 @@ end;
procedure TMapView.SetCyclic(AValue: Boolean);
begin
Engine.Cyclic := AValue;
Engine.Redraw;
Invalidate;
end;
procedure TMapView.SetDebugTiles(AValue: Boolean);
@ -597,28 +597,28 @@ procedure TMapView.SetPOIImage(const AValue: TBitmap);
begin
if FPOIImage = AValue then exit;
FPOIImage := AValue;
Engine.Redraw;
Invalidate;
end;
procedure TMapView.SetPOIImages(const AValue: TCustomImageList);
begin
if FPOIImages = AValue then exit;
FPOIImages := AValue;
Engine.Redraw;
Invalidate;
end;
procedure TMapView.SetPOIImagesWidth(AValue: Integer);
begin
if FPOIImagesWidth = AValue then exit;
FPOIImagesWidth := AValue;
Engine.Redraw;
Invalidate;
end;
procedure TMapView.SetPOITextBgColor(AValue: TColor);
begin
if FPOITextBgColor = AValue then exit;
FPOITextBgColor := AValue;
Engine.Redraw;
Invalidate;
end;
procedure TMapView.SetUseThreads(AValue: boolean);
@ -629,6 +629,7 @@ end;
procedure TMapView.SetZoom(AValue: integer);
begin
Engine.Zoom := AValue;
Invalidate;
end;
procedure TMapView.SetZoomToCursor(AValue: Boolean);