mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

too many chages...

Browse Source
This commit is contained in:
zueuk
2006-09-06 12:44:29 +00:00
parent 5660d78da7
commit 364eceef07
10 changed files with 765 additions and 429 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
2.10/Source/ImageMaker.pas
View File

@ -43,10 +43,6 @@ type
procedure CreateFilter;
procedure NormalizeFilter;
procedure SetOnProgress(const Value: TOnProgress);
procedure Progress(value: double);
public
constructor Create;
@ -68,7 +64,7 @@ type
property OnProgress: TOnProgress
read FOnProgress
write SetOnProgress;
write FOnProgress;
end;
implementation
@ -234,12 +230,6 @@ begin
Fcp := CP;
end;
///////////////////////////////////////////////////////////////////////////////
procedure TImageMaker.SetOnProgress(const Value: TOnProgress);
begin
FOnProgress := Value;
end;
///////////////////////////////////////////////////////////////////////////////
procedure TImageMaker.CreateImage(YOffset: integer);
var
@ -313,7 +303,9 @@ begin
by := 0;
for i := 0 to fcp.Height - 1 do begin
bx := 0;
Progress(i / fcp.Height);
if (i and $7 = 0) and assigned(FOnProgress) then FOnProgress(i / fcp.Height);
AlphaRow := PByteArray(FAlphaBitmap.scanline[YOffset + i]);
Row := PRGBArray(FBitmap.scanline[YOffset + i]);
for j := 0 to fcp.Width - 1 do begin
@ -451,7 +443,7 @@ zero_alpha:
FBitmap.PixelFormat := pf24bit;
Progress(1);
if assigned(FOnProgress) then FOnProgress(1);
end;
///////////////////////////////////////////////////////////////////////////////
@ -520,13 +512,6 @@ BMPHack:
end;
end;
///////////////////////////////////////////////////////////////////////////////
procedure TImageMaker.Progress(value: double);
begin
if assigned(FOnprogress) then
FOnprogress(Value);
end;
///////////////////////////////////////////////////////////////////////////////
function TImageMaker.GetTransparentImage: TPngObject;
var