Tabsheet Hintergrund unter win64

[TomyN]

Hallo

Ich habe eine Anwendung mit einer simplen pagecontrol und darauf ein paar Tabsheets.
In der Pagecontrol habe ich OwnerDraw auf TRUE gesetzt und zeichen / schreibe dann mit dem folgenden Code:

Code:

procedure TlcpOptionen.pcOptionsDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var hs: String;
    tp: TPoint;
begin
  //Wir malen oben..
  with pcOptions.Canvas do begin
    //Wir füllen
    brush.Color:= fHinten;
    font.Color:=  fText;
    FillRect(Rect); //:-) des war nicht schwer...
    hs:= pcOptions.Pages[TabIndex].Caption; //Überschrift
    tp.X:= round( ( rect.Right - rect.Left - TextWidth(hs) ) * 0.5 + rect.Left);
    tp.Y:=  round( ( rect.Bottom - rect.Top - TextHeight(hs) ) * 0.5 + rect.Top);
    TextOut(tp.X, tp.Y, hs); //Und Ausgeben
  end;
end;

pcOptions ist das PageControl.

Wenn ich das ganze als WIN32 Anwendung kompiliere, dann wird der Hintergrund vollflächig gefüllt. Kompiliere ich aber als WIN64, dann werden nur die Reiter gefüllt, der Rest nicht.
Irgendwelche Ideen?

Tomy

[TomyN]

Alternativ würde ich mich über eine Möglichkeit freuen, den Hintergrund des Tabsheets in einer beliebigen Farbe zu füllen.

[Uwe Raabe]

Prüf mal in den Projektoptionen unter Anwendung - Manifest, ob in beiden Konfigurationen die Laufzeit-Themes gleich gesetzt sind.

[TomyN]

Bingo ....

Unter win64 waren die Laufzeitthemes an...

Danke schön.