mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Use TRasterImage type

Browse source
This commit is contained in:
Alexander Koblov 2017-07-22 15:01:01 +00:00
commit 3000f28f1b
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/uresample.pas
View file

@ -105,7 +105,7 @@ type
// Dst: Destination bitmap
// filter: Weight calculation filter
// fwidth: Relative sample radius
procedure Stretch(Src, Dst: TBitmap; filter: TFilterProc; fwidth: single);
procedure Stretch(Src, Dst: TRasterImage; filter: TFilterProc; fwidth: single);
// -----------------------------------------------------------------------------
//
@ -295,7 +295,7 @@ type
TRGBAList = packed array[0..0] of TColorRGBA;
PRGBAList = ^TRGBAList;
function CreateAlphaFromMask(Bitmap: TBitmap): TLazIntfImage;
function CreateAlphaFromMask(Bitmap: TRasterImage): TLazIntfImage;
var
SrcIntfImage: TLazIntfImage;
x, y, xStop, yStop: Integer;
@ -323,7 +323,7 @@ begin
SrcIntfImage.Free;
end;
procedure Stretch(Src, Dst: TBitmap; filter: TFilterProc; fwidth: single);
procedure Stretch(Src, Dst: TRasterImage; filter: TFilterProc; fwidth: single);
var
xscale, yscale : single; // Zoom scale factors
i, j, k : integer; // Loop variables