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

[winx]

Hallo,

bis jetzt habe ich das Verändern von TBitmaps32 immer mit dem folgenden Code gemacht:

Delphi-Quellcode:

   
bmp.StretchFilter:=sfnearest;

In der neuesten version der GR32 gibt es nun diese Möglichkeit nicht mehr. Statt dessen soll nun das Resampler Objekt (hier wahrscheinlich TNearestResampler verwendet werden. Nur versteh ich das beigefügte Bsp nicht, würde jedoch doch gerne wissen, wie ich nun diesen Resampler in verbindung mit dem TBitmap32 verwende...

Hat da schon jemand Erfahrung mit und kann mir helfen???

Danke,
winx

[Khabarakh]

Man muss ein wenig suchen, aber in der Demo ist es IMO gut zu sehen.

Delphi-Quellcode:

TLinearResampler.Create(Src);

or 


Src.ResamplerClassName := 'TLinearResampler';

[winx]

naja hab ich schon aber irgendwie klappt des auch nich

Delphi-Quellcode:

bmpact.BeginUpdate();
resampler := TNearestResampler.create(bmpact);
bmpact.EndUpdate();
bmpact.Changed();

Wenn ich nun resampler.free mache am Ende, ist immer das Bild weg...

und außerdem wird nach dem Drehen des Bildes immer der rest zum rechteck mit schwarzen pixeln (früher weiss) aufgefüllt...

Hast du nen BspCode???

[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;