max. TBitmap FMX vs. VCL

[himitsu]

Da hast du jetzt ein Problem, beim FMX.Graphics.TBitmap

Delphi-Quellcode:

procedure TBitmap.SetSize(const AWidth, AHeight: Integer);
begin
  ..
  if (AWidth > CanvasClass.GetAttribute(TCanvasAttribute.MaxBitmapSize)) or
     (AHeight > CanvasClass.GetAttribute(TCanvasAttribute.MaxBitmapSize))
  then
    raise EBitmapSizeTooBig.CreateRes(@SBitmapSizeTooBig);

Das hier klingt zwar nett,

Delphi-Quellcode:

type
  TCanvas = class abstract(TInterfacedPersistent)
  public const
    MaxAllowedBitmapSize = $FFFF;

aber im FMX für Windows landet es bei TCanvasD2D und dort ist es nur 8192.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TBitmap.Create(6000, 6000) do begin
    ShowMessage(CanvasClass.ClassName + ' ' + CanvasClass.GetAttribute(TCanvasAttribute.MaxBitmapSize).ToString);
    Free;
  end;
end;

Eventuell kann man das TBitmap auch mit einem anderen BitmapImage/Canvas erstellen?
siehe TBitmapImage.CreateHandle -> CanvasClass.InitializeBitmap -> ...
oder TBitmap.GetCanvasClass -> TBitmapImage.GetCanvasClass -> TCanvasManager.GetDefaultCanvas -> FDefaultCanvasClass

[bernhard_LA]

8K * 8K pixel ist ja gar nix .....

[Medium]

Ich vermute mal stark, dass das letztlich damit zusammen hängt, dass FMX mittels D3D zeichnet, und Bitmaps daher als Textur eingehen. So weit ich weiß, sind die maximalen Texturgrößen gerade bei den Nicht-Gamer-Grafikkarten teils ziemlich begrenzt - 8192² scheint mir da plausibel.

Wahrscheinlich muss man die Bilddatei vorab in eine eigene Datenstruktur bringen, aus der man dann Pixeldaten in kleineren Rechtecken zur Anzeige an die API geben kann. Man verliert natürlich die ganzen vorgefertigten Zeichenfunktionen - es sei denn, man führt diese auf den kleineren Rechtecken in einem API Bitmap aus, und überträgt diese wieder zurück in die eigene Struktur.

Letztlich bleibt aber auch festzuhalten, dass Bitmaps solcher Größe klar in die Rubrik "Spezialanwendung" fallen, deren native Unterstützung man, finde ich, nicht unbedingt in einer so allgemein gedachten API wie FMX (oder auch VCL) voraussetzen kann.

[himitsu]

Die registrierten TCanvasManager.FCanvasList kann man leider nicht ändern (strict private),
aber hab bissl was gefunden.

FMX.Canvas.D2D : TCustomD2D, TCustomBitmapCodecWIC= BMP JPEG PNG GIF TIFF ICO WMP ... WIC klingt ja eigentlich nicht schlecht
FMX.Canvas.GDIP : TCanvasGdiPlus
FMX.Canvas.GPU : TCustomCanvasGpu, TBitmapCtx
FMX.Canvas.Mac : TCanvasQuartz, TQuartzBitmap
FMX.Graphics : TPrinterCanvas

In TCanvasManager.GetDefaultCanvas an TCanvasManager.FDefaultCanvasClass kommst nicht ran.
TBitmap.GetCanvasClass oder TBitmapImage.GetCanvasClass lassen sich auch nicht überschreiben.
TBitmapImage/TCanvas/TCanvasClass kann man im TBitmap nicht zuweisen/austauschen. (keine aufrufbaren Setter-Methoden oder Write-Property)
TCanvasManager.RegisterCanvas kann man aufrufen und eine Canvas-Klasse nochmal mit anderen Parametern registrieren (Default=True), aber bringt nichts, weil es zuletzt gefunden und somit ignoriert wird.
So gesehn ist das schon ein bissl krank.

Hatte gedacht/gehofft so kommt was Anderes raus, aber es bleibt bei TCustomD2D mit 8192.

Delphi-Quellcode:

TCanvasManager.EnableSoftwareCanvas(True);
Image := TBitmap.Create(x, y);
TCanvasManager.EnableSoftwareCanvas(False);

FMX.Canvas.GDIP, FMX.Canvas.GPU ins USES, selbst wenn in der DPR als Erstes, ändert nichts.

Delphi-Quellcode:

class function TCanvasD2D.GetAttribute(const Value: TCanvasAttribute): Integer;
const
  DefaultMaxTextureSize = 8192; // According DirectX 10 specification.

Das wäre per se überschreibbar (override), aber hilft nichts, da sich die Ableitung nicht einbinden lässt, bzw. das originale TCanvasD2D immer zuerst gefunden wird.


Bleibt wohl nur eine Beschwerde im QualityPortal und auf Delphi 10.9 warten.
Oder eine externe Graphic-Lib verwenden.

Im Windows kannst dir auch das VCL-TBitmap reinholen.

[TurboMagic]

Na dann erstell doch mal so einen QP report...
Auf dass wir das flexibler bekommen.

[Harry Stahl]

Es hängt tatsächlich von der verwendeten Canvas-Klasse ab. Man kann da leider nur global drauf Einfluss nehmen.

Standardmäßig wird die TcanvasD2D Klasse verwendet, wenn man die ausschaltet, dann wird TCanvasGDIPlus verwendet, das funktioniert zumindest unter Windows und Linux (MACOS habe ich nicht ausprobiert).

Wenn man also in der .DPR-Datei, direkt als ersten Befehl

 GlobalUseDirect2D := false; eingebt (also noch vor "Application.Initialize"), kann man Grafiken in der Größe 65000x65000 Bildpunkte erzeugen und verarbeiten, siehe anliegenden Screenshot (mit Source-Code) ein geladenes Bild unter Linux mit 21.600 x 10.800 Bildpunkten (größeres Bild habe ich gerade nicht zur Hand).

Dafür muss noch die Unit FMX.Types in die DPR-Datei eingebunden werden.

Die Nichtverwendung von Direct2D wird allerdings nachteilige Auswirkungen auf die allgemeine Performance der App haben, wie groß, müsstest Du prüfen. Unter Umständen könnte man dann überlegen, eine Extra App zu machen, welche für die Verarbeitung dieser großen Bild-Dateien zuständig ist (und dann eben nur dieser Part etwas langsamer wäre).

[himitsu]

Zitat von Harry Stahl:

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.