A bug ?

[BubikolRamios]

See last two lines of code, first says expected tPoint got Trect ..., does not want to compile
The second works fine.

Code: Pascal  [Select][+][-]

1.  
2. procedure TForm1.Button24Click(Sender: TObject);
3. var
4.    Bitmap: Tbitmap;
5.    image: TBGRABitmap;
6.    Source: TRect;
7.    Dest: TRect;
8. begin
9.  
10.   Bitmap := TBitmap.Create;
11.  
12.  
13.   try
14.     with Bitmap do
15.     begin
16.       Width := PaintBox1.Width;
17.       Height := PaintBox1.Height;
18.       Dest := Rect(0, 0, Width, Height);
19.     end;
20.     with PaintBox1 do
21.       Source := Rect(0, 0, Width, Height);
22.  
23.       Bitmap.Canvas.CopyRect(Dest, PaintBox1.Canvas, Source);
24.  
25.       image := image.FilterTwirl(Dest,round(Height/2));
26.       image := image.FilterTwirl(Rect(0,0,Width,Height),Point(round(Width/2),round(Height/2)),round(Height/2));            
27.  

[Remy Lebeau]

The bug is yours. The 1st line does not match either of the available overloads of FilterTwirl(). But the 2nd line matches the 2nd overload.

Code: [Select]

function FilterTwirl(ACenter: TPoint; ARadius: Single; ATurn: Single=1; AExponent: Single=3; ACopyProperties: Boolean=False): TBGRACustomBitmap; overload; virtual; abstract;
function FilterTwirl(ABounds: TRect; ACenter: TPoint; ARadius: Single; ATurn: Single=1; AExponent: Single=3; ACopyProperties: Boolean=False): TBGRACustomBitmap; overload; virtual; abstract;