GlobalUseDirect2D := false;
Das wird in RegisterCanvasClasses verwendet, also meinen TestCode angepasst.
Delphi-Quellcode:
if GlobalUseDirect2D then begin
FMX.Canvas.D2D.UnregisterCanvasClasses;
TCanvasManager.EnableSoftwareCanvas(False); // um den Cache (FDefaultCanvasClass) zu löschen
end;
with TBitmap.Create(6000, 6000) do begin
if GlobalUseDirect2D then begin
FMX.Canvas.D2D.RegisterCanvasClasses;
TCanvasManager.EnableSoftwareCanvas(False); // um den Cache zu löschen
end;
ShowMessage(CanvasClass.ClassName + ' ' + CanvasClass.GetAttribute(TCanvasAttribute.MaxBitmapSize).ToString);
Free;
end;
Aber neee, hilft nix.
Allerdings das
GlobalUseGPUCanvas := True; // FMX.Types
ändert es zu "TCanvasGpu 16384" (auch ohne den Deregistrierungs-Code), aber hilft auch nicht viel mehr.