nö immer noch schwarz
Delphi-Quellcode:
var b,bb: TBitmap32;
begin
bb := TBitmap32.Create;
b:=TBitmap32.Create;
bb.LoadFromFile(OldFile);
b.Draw(rect(0,0,bb.width-1,bb.height-1),rect(0,0,Resx-1,resy-1),bb);
b.Width := ResX;
b.height := ResY;
b.SaveToFile('C:\ka.jpg');
und bei der hilfe vom resampler steige ich ned durch