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

LazMapViewer: cosmetics

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9711 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-03-30 22:12:54 +00:00
parent ff2c7c5e7f
commit 7e03ffb4f8
3 changed files with 41 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/lazmapviewer/source/addons/bgra_drawingengine/mvde_bgra.pas
View File

@ -122,16 +122,6 @@ end;
{ TBGRABitmapCacheItem }
function TBGRABitmapCacheItem.GetImageObject: TObject;
begin
Result := FImage;
end;
function TBGRABitmapCacheItem.GetImage: TBGRABitmap;
begin
Result := FImage;
end;
constructor TBGRABitmapCacheItem.Create(AStream: TStream);
var
Reader: TFPCustomImageReader;
@ -154,6 +144,16 @@ begin
end;
end;
function TBGRABitmapCacheItem.GetImageObject: TObject;
begin
Result := FImage;
end;
function TBGRABitmapCacheItem.GetImage: TBGRABitmap;
begin
Result := FImage;
end;
{ Scales the image to the new size if the original size is different.
This is needed to have all tiles at the same size. }
procedure TBGRABitmapCacheItem.StretchImageIfNeeded(var AImage: TBGRABitmap;
@ -485,9 +485,8 @@ begin
dy := R.Height/2;
ctr := PointF(X + dx, Y + dy);
FBuffer.CanvasBGRA.PolygonF([Pts[0] + ctr, Pts[1] + ctr, Pts[2] + ctr, Pts[3] + ctr], False, True);
FBuffer.FontVerticalAnchor := fvaCapLine; //fvaCenter;
// FBuffer.TextOut(ctr.X, ctr.Y, AText, FontColor, taCenter);
FBuffer.TextOut(ctr.x + Pts[0].X, ctr.Y + Pts[0].Y, AText, FontColor);
FBuffer.FontVerticalAnchor := fvaCapLine;
FBuffer.TextOut(ctr.X + Pts[0].X, ctr.Y + Pts[0].Y, AText, FontColor);
end;
end;
end;

35
components/lazmapviewer/source/addons/rgbgraphics_drawingengine/mvde_rgbgraphics.pas
View File

@ -260,16 +260,6 @@ end;
{ TRGB32BitmapCacheItem }
function TRGB32BitmapCacheItem.GetImage: TRGB32Bitmap;
begin
Result := FImage;
end;
function TRGB32BitmapCacheItem.GetImageObject: TObject;
begin
Result := FImage;
end;
constructor TRGB32BitmapCacheItem.Create(AStream: TStream);
var
Reader: TFPCustomImageReader;
@ -298,6 +288,16 @@ begin
inherited Destroy;
end;
function TRGB32BitmapCacheItem.GetImage: TRGB32Bitmap;
begin
Result := FImage;
end;
function TRGB32BitmapCacheItem.GetImageObject: TObject;
begin
Result := FImage;
end;
{ Scales the image to the new size if the original size is different.
This is needed to have all tiles at the same size. }
procedure TRGB32BitmapCacheItem.StretchImageIfNeeded(var AImage: TRGB32Bitmap;
@ -308,6 +308,15 @@ begin
AImage.StretchTrunc(ANewWidth, ANewHeight);
end;
{ TMvRGBGraphicsDrawingEngine }
constructor TMvRGBGraphicsDrawingEngine.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Opacity := 1.0;
end;
destructor TMvRGBGraphicsDrawingEngine.Destroy;
begin
FBuffer.Free;
@ -704,12 +713,6 @@ begin
FBuffer.Canvas.DrawMode := dmOutline;
end;
constructor TMvRGBGraphicsDrawingEngine.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Opacity := 1.0;
end;
function TMvRGBGraphicsDrawingEngine.TextExtent(const AText: String;
ARotated: Boolean = false): TSize;
var

20
components/lazmapviewer/source/mvde_intfgraphics.pas
View File

@ -178,16 +178,6 @@ end;
{ TLazIntfImageCacheItem }
function TLazIntfImageCacheItem.GetImage: TLazIntfImage;
begin
Result := FImage;
end;
function TLazIntfImageCacheItem.GetImageObject: TObject;
begin
Result := FImage;
end;
constructor TLazIntfImageCacheItem.Create(AStream: TStream);
var
reader: TFPCustomImageReader;
@ -219,6 +209,16 @@ begin
inherited Destroy;
end;
function TLazIntfImageCacheItem.GetImage: TLazIntfImage;
begin
Result := FImage;
end;
function TLazIntfImageCacheItem.GetImageObject: TObject;
begin
Result := FImage;
end;
{ Scales the image to the new size if the original size is different.
This is needed to have all tiles at the same size. }
procedure TLazIntfImageCacheItem.StretchImageIfNeeded(var AImage: TLazIntfImage;