Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#1

StretchBtl verhunzt die Bitmap

  Alt 3. Apr 2010, 12:39
Moin,
ich habe eine Grafik die ich mithilfe von Andorra2D speichere und dann als Bitmap hole:
Delphi-Quellcode:
bmp := TBitmap.Create;
bmp2 := TBitmap.Create;
try
  bmp.Width := ICON_WIDTH;
  bmp.Height := ICON_WIDTH;
  AImgBuf.Texture.SaveToGraphic(bmp2);
  bmp2.SaveToFile(ExtractFilePath(ParamStr(0)) + AName + '.pre.bmp');

  StretchBlt(bmp.Canvas.Handle, (ICON_WIDTH - w) div 2, (ICON_WIDTH - h) div 2, w, h, bmp2.Canvas.Handle,
               r.Left, r.Top, r.Right - r.Left, r.Bottom - r.Top, SRCCOPY);

  bmp.SaveToFile(ExtractFilePath(ParamStr(0)) + AName + '.post.bmp');

  ilPreview.Add(bmp, nil);
finally
  bmp2.Free;
  bmp.Free;
end;
Das Problem ist, dass wenn ich das von 48x48 auf 32x32 herunterskaliere, wird das Bild dabei irgendwie "schlechter".

MfG
Fabian
Angehängte Grafiken
Dateityp: bmp clear.pre_577.bmp (9,1 KB, 11x aufgerufen)
Dateityp: bmp clear.post_509.bmp (4,1 KB, 12x aufgerufen)
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat