paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Support PutImage in BGRA drawing back-end

Browse Source 
git-svn-id: trunk@40081 -
This commit is contained in:
ask 2013-01-31 05:09:52 +00:00
parent 115f0340d0
commit 0b5f32e4bd
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/tachart/tadrawerbgra.pas
View File

@ -20,7 +20,7 @@ unit TADrawerBGRA;
interface
uses
BGRABitmap, BGRABitmapTypes, BGRACanvas, Classes, FPCanvas,
BGRABitmap, BGRABitmapTypes, BGRACanvas, Classes, FPCanvas, FPImage,
TAChartUtils, TADrawUtils;
type
@ -58,6 +58,7 @@ type
procedure Polyline(
const APoints: array of TPoint; AStartIndex, ANumPts: Integer);
procedure PrepareSimplePen(AColor: TChartColor);
procedure PutImage(AX, AY: Integer; AImage: TFPCustomImage); override;
procedure RadialPie(
AX1, AY1, AX2, AY2: Integer;
AStartAngle16Deg, AAngleLength16Deg: Integer);
@ -175,6 +176,16 @@ begin
Canvas.Pen.Opacity := Opacity;
end;
procedure TBGRABitmapDrawer.PutImage(AX, AY: Integer; AImage: TFPCustomImage);
var
x, y: Integer;
begin
for y := 0 to AImage.Height - 1 do
for x := 0 to AImage.Width - 1 do
if AImage[x, y].alpha > 0 then
Canvas.Colors[x, y] := AImage[x, y];
end;
procedure TBGRABitmapDrawer.RadialPie(
AX1, AY1, AX2, AY2: Integer; AStartAngle16Deg, AAngleLength16Deg: Integer);
begin