Delphi XE3?

[Peter666]

@MEissing: Vielen Dank für das Angebot, im Prinzip war das aber nichts anderes als folgendes:

Code:

function GetTickCount: Cardinal;
{$IFDEF MACOS}
begin
  Result := AbsoluteToNanoseconds(UpTime) div 1000000;
end;
{$ENDIF MACOS}
{$IFDEF MSWINDOWS}
begin
  Result := Winapi.Windows.GetTickCount;
end;
{$ENDIF}

function TForm1.RenderPane: Cardinal;
var
  Row, Col: integer;
  w, h, x, y: integer;
begin
  Result := GetTickCount;
  try
    w := 30;
    h := 25;
    FBackBuffer.Canvas.BeginScene;
    FBackBuffer.Canvas.Clear($FF000000);
    FBackBuffer.Canvas.Font.Size := 30;
    FBackBuffer.Canvas.Fill.Color := $FFFFFFFF;

    for Row := 0 to 24 do
    begin
      y := Row * h;
      for Col := 0 to 39 do
      begin
        x := Col * w;
        FBackBuffer.Canvas.FillText(RectF(x, y, x + w, y + h), FGrid[Row, Col],
          false, $FF, [], TTextAlign.taLeading);
      end;
    end;
    FBackBuffer.Canvas.EndScene;
  finally
    Result := GetTickCount - Result;
  end;
end;

Das Rendern des Grids dauert unter GDI+ 2-10ms, mit D2D 30-100ms und auf OSX knapp 500ms. In unserem Anwendungsfall darf das nur <10ms kosten. Ich habe das mittels eines Font Rasterizers gelöst, da hat man eine 1Bit Textur für den Font und zeichnet das dann auf den Framebuffer. So gehts dann auch unter 4ms. Das andere Problem ist wesentlich schlimmer.
Wenn man eine einfache Listbox mit ein paar hundert Einträgen erstellt und scrollt, habe ich hier eine Rechenlast von >60% auf dem Mac.

Peter

[MEissing]

Zitat von Peter666:

@MEissing: Vielen Dank für das Angebot, im Prinzip war das aber nichts anderes als folgendes:

Was für ein Typ ist FBackBuffer
Was FGrid?

[Peter666]

FBackBuffer ist ein TBitmap und FGrid in dem Beispiel ein Array [0 .. 24, 0 .. 39] of Char;

Bei der Gelegenheit: In TCanvasQuartz.Filltext und Measuretext fehlen am Ende ein CFRelease(str).

Peter

[BUG]

Ich vermute mal, dass das besser funktionieren wird, wenn du MEissing eine kleine Demo (kompilier-)fertig machst.
Man hat ja auch nicht immer die Gelegenheit, so direkt supported zu werden

[Daniel]

Das ist die neue Compiler-Generation in XE3: HLC - Human-Live-Compiler. Gibt's nur in der Personal-Edition.

[greenmile]

*grins* Was für eine SA brauche ich dafür?

[mkinzler]

Lebensversicherung

[Peter666]

Nun gut, anbei mal 2 Demos.
Das erste ist ein einfaches Bitmap-Beispiel und das zweite ist ein kleines Spiel. Übrigens die D7 Variante davon läuft auf einem Uralt-PC problemlos. Der XE2 FMX Port nicht wirklich

Ich weiß der Code ist nicht aufgeräumt, aber wer ihn nutzen will: Ich veröffentliche das ganze mal als Public Domain..

[bytecook]

Zitat von Peter666:

Nun gut, anbei mal 2 Demos.
Das erste ist ein einfaches Bitmap-Beispiel und das zweite ist ein kleines Spiel. Übrigens die D7 Variante davon läuft auf einem Uralt-PC problemlos. Der XE2 FMX Port nicht wirklich

...

27.08.2012 18:09:40 - Windows - Scrollzeit=16
27.08.2012 18:09:45 - Windows - Scrollzeit=15
27.08.2012 18:09:46 - Windows - Scrollzeit=31
27.08.2012 18:09:47 - Windows - Scrollzeit=31
27.08.2012 18:09:47 - Windows - Scrollzeit=0 <Line 1000 reached...
27.08.2012 18:09:48 - Windows - Scrollzeit=0 <Line 1000 reached...
27.08.2012 18:09:49 - Windows - Scrollzeit=0 <Line 1000 reached...
27.08.2012 18:09:50 - Windows - Scrollzeit=0 <Line 1000 reached...
27.08.2012 18:09:53 - Windows - Scrollzeit=31
27.08.2012 18:09:55 - Windows - Renderzeit=31
27.08.2012 18:09:56 - Windows - Renderzeit=31
27.08.2012 18:09:56 - Windows - Renderzeit=31
27.08.2012 18:09:57 - Windows - Renderzeit=31
27.08.2012 18:09:57 - Windows - Renderzeit=32
27.08.2012 18:09:57 - Windows - Renderzeit=31
27.08.2012 18:09:57 - Windows - Renderzeit=15
27.08.2012 18:09:57 - Windows - Renderzeit=31
27.08.2012 18:09:57 - Windows - Renderzeit=16
27.08.2012 18:09:58 - Windows - Renderzeit=31

Win 8 Enterprise Build 9200 x64, Source als 32 Bit compiliert, Debug Mode, HTH

= Optimal =
Win 8
CPU Last Core I7 2600K (nicht übertaktet), GeForce Gtx 570, 16 Gb Ram

Renderlast max 3.6%, Scrolling CPU Last max 1.3%

= Worst Case =
Server 2008 R2 Sp1, 8 Gb Ram
Core I5 2400k, Hd 2000, via Remote Desktop : Renderlast max 6%, Scrolling CPU Last max 10%