Delphi FMX Bei Text in Listbox Videoausgabe im Keller...

[MAXON]

Ein Media Explorer in FMX sollte es werden, doch ich bin schier unglücklich warum die Textausgabe mit dem Text OnPaint Event die FPS so drastisch
einstürzen lässt.

https://www.manyplay.de/Bei_Text_in_..._im_Keller.mp4

FPS sichtbar in der Progressbar unterm Video...

Die OnPaint generiert die Balken und den Text über und unter den Listbox Items, aber selbst wenn die Abarbeitung meiner Routine einmalig länger
dauern sollte, die Elemente zeichnen sich doch wohl nicht ständig neu, wenn die Listbox einmal gerendert worden ist.

Delphi-Quellcode:

      with Canvas do
          if beginscene
          then
          begin
            font.Style := [ tfontstyle.fsBold ];
            font.Size := fx * 0.85;
            s := TListBoxItem( Sender ).Text;

            r := rectf( ARect.left + ( sx shr 2 ), ARect.top, ARect.Width - 1,
              ARect.Height - 1 );

            fill.Color := s1 - $00040404;
            fill.Gradient.Color := s1 + $00040404;
            fill.Kind := tbrushkind.Gradient;
            fill.Gradient.Style := tgradientstyle.Linear;

            fillrect( r, 3, 3, [ tcorner.TopLeft, tcorner.TopRight,
              tcorner.BottomLeft, tcorner.BottomRight ], 0.85 );

            r.top := ARect.top + 1;
            r.Height := ARect.Height * 0.5;

            fill.Color := s3;
            filltext( r, s, true, 0.95, [ ], ttextalign.Center,
              ttextalign.Center );

            if assigned( Sender ) and
              ( TListBoxItem( Sender ).ItemData.Detail <> '' )
            then
            begin

              if TListBoxItem( Sender ).Text.EndsWith( '\' )
              then
                t := TListBoxItem( Sender ).ItemData.Detail + ' ' +
                  TListBoxItem( Sender ).Hint
              else
              begin
                try
                  z := TListBoxItem( Sender ).ItemData.Detail.Split( [ ' ' ] );
                except
                  on e : exception do
                    doalert( er + #32 + ec + pt, ok );
                end;

                if ( length( z ) > 1 ) and not z[ 2 ].IsEmpty
                then
                  t := z[ 0 ] + ' ' + z[ 1 ] + ' ' +
                    sts( z[ 2 ].Replace( '.', '' ).ToInt64 ) + #13 +
                    TListBoxItem( Sender ).Hint
                else
                  t := er + #13 + TListBoxItem( Sender ).Hint
              end
            end;

            r := rectf( ARect.left + ( sx shr 2 ), ARect.top + ARect.Height *
              0.5 + 1, ARect.Width - 1, ARect.Height - 1 );

            fill.Color := s3;
            filltext( r, t, true, 0.95, [ ], ttextalign.Center,
              ttextalign.Center );

            endscene;
          end;

Mit Textfeldern geht es dauerhaft bei den FPS in den Keller...

Da ist doch irgendwie bei der Paint Ausführung der Listbox etwas sehr tragisch am verbaselt sein.

Extrem schlimmer wird es, wenn die Listboxitems dann selbst auch noch eine eigene Skalierung aufweisen...

[Rollo62]

Das kommt wohl, weil FMX auch für kleine Ausschnitte immer den ganzen Bildschirm rendert, für schnelle Bildwechsel ist das nicht ideal.
Vielleicht hilft Dir das weiter, ist aber schon ziemlich veraltet, aber prinzipiell sollte das noch funktionieren.
https://github.com/eugenekryukov/TScene

Ich würde versuchen das mit etwas Modernerem zu lösen, wie Skia4Delphi, was sich in FMX einklinkt und intern wohl mit optimierten Algorithmen rendern kann,
sehr gut supportet von Google und zig anderen SKIA Nutzern und natürlich auch mit super Support von Skia4Delphi.
https://github.com/skia4delphi/skia4delphi
https://www.youtube.com/watch?v=rtnipmzWXhE
https://www.youtube.com/watch?v=PW4ZsJQYH7E
https://github.com/jimmckeeth/SkiaSimpleShaderViewer

Der Nachteil ist, dass man sich den ganzen Brocken mit in das Projekt laden und damit verheiraten muss, aber irgendeinen Tod muss man ja sterben.

[Sherlock]

Und die nächste Delphi Version soll Skia dann wohl direkt eingebaut bekommen. Also Skia FTW.

Sherlock

[Rollo62]

Zitat von Sherlock:

Und die nächste Delphi Version soll Skia dann wohl direkt eingebaut bekommen. Also Skia FTW.

Sherlock

Genau da bin ich etwas skeptisch, ob es dann wohl 1:1 kompatibel bleibt und voll supportet wird, oder eine abgespeckte SKIA wird, mit sonstigen Emba-Spezialitäten ....
Man wird sehen wie es denn kommt

Aber ja, SKIA ist wohl die Zukunft, so oder so

[MAXON]

Vielen Dank für die tollen Tipps!

Ich probiere gerade die Tscene in 10.1 und das geht ganz schön buffered...

Bekomme die Implementierung in neuere Versionen nicht hin, es wird immer

[dcc32 Fehler] FMX.Scene.pas(28): E2291 Implementierung der Interface-Methode IScene.AddUpdateRect fehlt
[dcc32 Fehler] FMX.Scene.pas(28): E2291 Implementierung der Interface-Methode IScene.LocalToScreen fehlt
[dcc32 Fehler] FMX.Scene.pas(28): E2291 Implementierung der Interface-Methode IScene.ScreenToLocal fehlt


Obwohl sie ja im privaten Bereich der Class definiert und implementiert sind.

Irgendwie steh ich da auf dem Schlauch...

Weiss da jemand rat?

[cuebit]

In neueren FMX Versionen ist die TScene als TBufferedLayout Routine wohl nahezu identische implementiert worden.