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