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

LazMapViewer: Simplify DrawBitmap for BGRA DrawingEngine.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9323 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-04-04 17:13:14 +00:00
parent 6faf17d531
commit 4f4248244a
1 changed files with 17 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,7 +17,7 @@ unit mvDE_BGRA;
interface
uses
Classes, SysUtils, Types, Graphics, IntfGraphics,
Classes, SysUtils, Types, Graphics,
mvDrawingEngine, mvCache,
BGRAGraphics, BGRABitmap;
@ -70,7 +70,7 @@ type
destructor Destroy; override;
procedure CreateBuffer(AWidth, AHeight: Integer); override;
procedure DrawBitmap(X, Y: Integer; ABitmap: TCustomBitmap;
UseAlphaChannel: Boolean); override;
{%H-}UseAlphaChannel: Boolean); override;
procedure DrawCacheItem(X, Y: Integer; AImg: TPictureCacheItem;
ADrawMode: TItemDrawMode = idmDraw; AOpacity: Single = 1.0); override;
procedure DrawScaledCacheItem(DestRect, SrcRect: TRect; ASrcImg: TPictureCacheItem); override;
@ -96,8 +96,9 @@ procedure Register;
implementation
uses
GraphType, LCLType, FPImage,
mvTypes, Math, BGRABitmapTypes;
GraphType, LCLType, Math, FPImage, IntfGraphics,
mvTypes,
BGRABitmapTypes;
procedure Register;
begin
@ -154,33 +155,21 @@ begin
FBuffer := TBGRABitmap.Create(AWidth, AHeight);
end;
procedure TMvBGRADrawingEngine.DrawBitmap(X,Y: Integer;
procedure TMvBGRADrawingEngine.DrawBitmap(X, Y: Integer;
ABitmap: TCustomBitmap; UseAlphaChannel: Boolean);
var
intfImg: TLazIntfImage;
i, j: Integer;
cimg, cbuf: TFPColor;
alpha: Double;
bmp: TBGRABitmap;
img: TLazIntfImage;
begin
intfImg := ABitmap.CreateIntfImage;
try
if UseAlphaChannel then begin
for j := 0 to intfImg.Height - 1 do
for i := 0 to intfImg.Width - 1 do begin
cimg := intfImg.Colors[i, j];
alpha := cimg.Alpha / word($FFFF);
cbuf := TColorToFPColor(FBuffer.CanvasBGRA.GetPixelColor(i + X, j + Y));
cbuf.Red := Round(alpha * cimg.Red + (1 - alpha) * cbuf.Red);
cbuf.Green := Round(alpha * cimg.Green + (1 - alpha) * cbuf.Green);
cbuf.Blue := Round(alpha * cimg.Blue + (1 - alpha) * cbuf.Blue);
FBuffer.CanvasBGRA.SetPixelColor(i + X, j + Y, FPColorToTColor(cbuf));
end;
end else
for j := 0 to intfImg.Height - 1 do
for i := 0 to intfImg.Width - 1 do
FBuffer.CanvasBGRA.SetPixelColor(i + X, j + Y, FPColorToTColor(intfImg.Colors[i, j]));
finally
intfimg.Free;
if ABitmap is TBitmap then
FBuffer.CanvasBGRA.Draw(X, Y, TBitmap(ABitmap))
else
begin
img := ABitmap.CreateIntfImage;
bmp := TBGRABitmap.Create(img);
FBuffer.CanvasBGRA.Draw(X, Y, bmp);
bmp.Free;
img.Free;
end;
end;