Hintergrundfarbe des TabControls

[noch_ein_hannes]

Hallo,

wie kann man bei dem Standard-TabControl die Hintergrundfarbe (hinter den Tabs) ändern?
Falls es gar nicht geht, welche Alternative gibt es? Ich möchte gerne Tabs auf einer Form plazieren. Das Page-Control scheidet dabei aus, denn ich möchte lediglich einen Memo-Text mit den Tabs ändern.

besten Dank!
Grüsse,
Hannes

[Sharky]

Hai Hannes,

meinst Du den effekt wenn Du diesen Code benutzt?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TabControl1.Brush.Color := clRed;
end;

[noch_ein_hannes]

@Sharky: Hmmm, naja ....

Wenn ich Deinen Code ohne XP-Manifest benutze, dann ist das ganze Control rot.
Mit XP-Manifest blinkt der Hintergrund hinter den Tabs beim Starten nur mal kurz rot auf ... :-(

[Bernhard Geyer]

Zitat:

Zitat von noch_ein_hannes

Wenn ich Deinen Code ohne XP-Manifest benutze, dann ist das ganze Control rot.
Mit XP-Manifest blinkt der Hintergrund hinter den Tabs beim Starten nur mal kurz rot auf ... :-(

So ist halt das Manifest definiert das die einzelnen seiten Tansparent sind und die Farbe des Tabcontrols durchscheinen lassen :-)
Leg einfach nochmal ein panel (mit alClient) drüber und setze das auf Rot.

[noch_ein_hannes]

Hallo Bernhard,

wenn ich das mache, dann wird zwar das TabControl rot, aber ich möchte ja eigentlich nur diesen grauen Hintergrund (da wo keine Tabs sind) wegbekommen ....

Was mich auch wundert: Ohne Manifest sind die Tabs grau (und man kann es nicht ändern) und mit ist der Hintergrund grau - was man auch nicht ändern kann ...

[noch_ein_hannes]

Wofür ist denn wohl die Eigenschaft "OwnerDraw" gut? Wenn ich diese auf True stelle wird zwar alles so wie ich es möchte gezeichnet, allerdings hat die Schrift dann scheinbar auch die Hintergrundfarbe ....

Kann man hier jetzt irgendwie die Schriftfarbe ändern?

[Sharky]

Wenn Du OwnerDraw auf True setzt musst Du das Zeichen (Textausgabe) selber machen.
Schaue Dir mal das Ereigniss .OnDrawTab an. Dort kannst Du den Text dann ausgeben.

[noch_ein_hannes]

Zitat:

Wenn Du OwnerDraw auf True setzt musst Du das Zeichen (Textausgabe) selber machen.
Schaue Dir mal das Ereigniss .OnDrawTab an. Dort kannst Du den Text dann ausgeben.

Das ist dann aber sehr umständlich, also das mit OwnerDraw := true vergesse ich schnell mal wieder ...

[Sharky]

Zitat:

Zitat von noch_ein_hannes

....Das ist dann aber sehr umständlich, also das mit OwnerDraw := true vergesse ich schnell mal wieder ...

Warum den umständlich?
Das sollte den Text ausgeben:

Delphi-Quellcode:

procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl; 
  TabIndex: Integer; const Rect: TRect; Active: Boolean); 
begin 
  Control.Canvas.TextOut(rect.Left+2,Rect.Top+2,TabControl1.Tabs[TabIndex]); 
end;

[noch_ein_hannes]

Hmm, das ist ja doch nicht so schwer :-)

Danke Sharky, jetzt bin ich glücklich genug um weiterzukommen .... !