paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 05:52:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

AggPas: Fix coordinate calculation in Pixels and Colors properties of TAggFPImage

Browse Source 
git-svn-id: trunk@40143 -
This commit is contained in:
ask 2013-02-03 09:42:01 +00:00
parent 13ba6e1d8e
commit 193deb2aba
1 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/aggpas/src/agg_fpimage.pas
View File

@ -741,8 +741,11 @@ function AggUTF8CharToUnicode(p: PChar; out CharLen: int): int32u;
implementation
const
PixelSize: array [TAggFPImgPixelFormat] of Integer = (3, 4);
var
g_approxScale : double = 2.0;
g_approxScale : double = 2.0;
type
//PAggSpanConvImageBlend = ^TAggSpanConvImageBlend;
@ -920,7 +923,7 @@ var
p: PByte;
begin
if (x>=0) and (y>=0) and (x<Width) and (y<Height) then begin
p:=@FData[y*Width+x];
p:=@FData[(y*Width+x) * PixelSize[PixelFormat]];
case PixelFormat of
afpimRGB24:
begin
@ -944,7 +947,7 @@ var
p: PByte;
begin
if (x>=0) and (y>=0) and (x<Width) and (y<Height) then begin
p:=@FData[y*Width+x];
p:=@FData[(y*Width+x) * PixelSize[PixelFormat]];
case PixelFormat of
afpimRGB24:
begin
@ -975,7 +978,7 @@ function TAggFPImage.GetInternalPixel(x, y: integer): integer;
var
p: PByte;
begin
p:=@FData[y*Width+x];
p:=@FData[(y*Width+x) * PixelSize[PixelFormat]];
case PixelFormat of
afpimRGB24:
begin
@ -994,7 +997,7 @@ procedure TAggFPImage.SetInternalPixel(x, y: integer; Value: integer);
var
p: PByte;
begin
p:=@FData[y*Width+x];
p:=@FData[(y*Width+x) * PixelSize[PixelFormat]];
case PixelFormat of
afpimRGB24:
begin
@ -1070,20 +1073,12 @@ end;
function TAggFPImage.DataSize: PtrUInt;
begin
Result:=Width*Height;
case PixelFormat of
afpimRGB24: Result:=Result*3;
afpimRGBA32: Result:=Result*4;
end;
Result:=Width*Height*PixelSize[PixelFormat];
end;
function TAggFPImage.LineSize: PtrUInt;
begin
Result:=Width;
case PixelFormat of
afpimRGB24: Result:=Result*3;
afpimRGBA32: Result:=Result*4;
end;
Result:=Width*PixelSize[PixelFormat];
end;
{ TAggFPCanvas }