Thema: Delphi GR32 Resampler

Einzelnen Beitrag anzeigen

gandime
(Gast)

n/a Beiträge
 
#1

GR32 Resampler

  Alt 25. Aug 2006, 17:00
hi,
ich möchte via GR32 ein bild verkleinern und habe gerade erst angefangen mir GR32 und da is schon mein erstes prob
bei diesem code wird es beim verkleinern schwarz hab auch schon nen bissel rumgeguckt und hab gelesen das es am "Resampler" liegt blos ich weiss nicht was ich da einstellen muss und welche funktionen das teil hat

Delphi-Quellcode:
procedure Stretch(OldFile: string; ResX,ResY: Integer);
var bmp: TBitmap32;
begin
  bmp := TBitmap32.Create;
  with bmp do
   begin
    LoadFromFile(OldFile);
    Resampler:= // joa da muss wohl iwas hin^^
    Draw(rect(0,0,width-1,height-1),rect(0,0,Resx-1,resy-1),bmp);
    Width := ResX;
    height := ResY;
    SaveToFile(OldFile);
  end;
end;
mfg gandime
  Mit Zitat antworten Zitat