Cache für Canvas

[Memex]

Hallo,

hat den keiner einie Idee zu dem Thema? Ich hab mir in der zwischenzeit mal den MemoryStream in eine Datei schreiben lassen.. dabei die Qualität aber normal.

Viele Grüße,
Marcus

[freeway]

Versuch es mal mit pixelformat, du initialisiert zwar bitmap aber du weisst kein Farbformat zu

Delphi-Quellcode:

procedure LoadformCache(var DestCanvas : TCanvas);
var bitmap : TBitmap;
    cr    : TRect;
begin
  try
    bitmap := TBitmap.Create;
    
--> bitmap.pixelformat := pf24bit;

    cR := Bildformat(DestCanvas,bitmap);
    ga_Cache[high(ga_Cache)].Position := 0;
    bitmap.LoadFromStream(ga_Cache[high(ga_Cache)]);
    BitBlt(DestCanvas.Handle,0,0,bitmap.Width,bitmap.Height,
           bitmap.Canvas.Handle,0,0,SRCCOPY);
  finally
    FreeAndNil(bitmap);
  end;
end;

[ehX]

Zitat:

Versuch es mal mit pixelformat, du initialisiert zwar bitmap aber du weisst kein Farbformat zu

Doch, macht er schon, das passiert ja in der Funktion "Bildformat()".


Wie sieht diese Routine eigentlich genau aus? Skalierst du dort das Bild irgendwie, so dass es dann gestreckt / gestaucht wird?
(Grösse des Cache-Bildes unterscheidet sich von sichtbarer Canvas-Grösse)
Das könnte den Qualitätsverlust erklären, weil ansonsten ein BitBlt normalerweise keinen Qualitätsverlust erzeugt...

[freeway]

@ehX eigentlich nicht, er übergibt lediglich ein trect (cr)

[jfheins]

Hat es einen bestimmten Grund, dass du den Umweg über den Memorystream gehst?
Du kannst den Cache ja genauso gut als Bitmap Array definieren.

Ansonsten wäre noch der Code von bildformat() interessant.