GR32 : Resampler...wie soll ich den verwenden???

[Khabarakh]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  b: TBitmap32;
begin
  Image321.SetupBitmap;
  b := TBitmap32.Create;
  b.SetSize(2, 2);
  b.Pixel[0, 0] := clWhite32;
  b.Pixel[1, 1] := clWhite32;
  TLinearResampler.Create(b);
  Image321.Bitmap.Draw(Rect(0, 0, Image321.Width, Image321.Height), Rect(0, 0, 2, 2), b);
  b.Free;
end;