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

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

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

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

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