Cache für Canvas

[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;