Caption-Text eines TabSheet-Reiters farbig ausgeben

[r29d43]

Hi,

gibt es eigentlich eine plus minus einfache Möglichkeit, den Caption-Text eines TabSheet-Reiters farbig o. unterstrichen ausgeben zu können?

Ich habe zwei TabSheets in einem PageControl und möchte je nach "kritischem Inhalt" eines der TabSheets dessen TabSheet-Caption dann in roter Farbe oder unterstrichen outputten. Natürlich könnte man zur Not diesbezüglich auch noch irgendwelche visuellen Info-Flags sonstwohin setzen, imo wäre das mit einer farbigen TabSheet-Caption für mich jetzt aber das eleganteste.

Mit der TabSheet-Property "Font.Color" geht es jedenfalls leider nicht.

(Als Notlösung hätte ich hier sonst nur noch, für diese Caption primär nur Blanks einzusetzen und den eigentlichen Caption-Text dann mit einem darübergesetzten TStaticText-Label entsprechend zu simulieren.)

Thx im Voraus.
Gruß

[uligerhardt]

Mit dem Delphi-eigenen TPageControl dürfte das was Größeres werden. Aber es gibt massenweise Fremdkomponenten, die das können.

[Bummi]

ich weiß nicht wie es unter Turbodelphi aussieht

OwnerDraw:=true;

Delphi-Quellcode:

procedure TForm2.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
   PageControl1.Canvas.Brush.Color := clWhite;
   PageControl1.Canvas.FillRect(Rect);
   if Tabindex=1 then
      begin
        if PageControl1.ActivePageindex=TabIndex then  PageControl1.Canvas.Font.Color := clRed else PageControl1.Canvas.Font.Color := clblue;
        PageControl1.Canvas.Font.Style := [fsBold,fsUnderline]
      end;
    PageControl1.Canvas.Textout(rect.Left + 2,rect.Top + 2,PageControl1.Pages[Tabindex].Caption)

end

[uligerhardt]

Zitat von Bummi:

OwnerDraw:=true;

Mit Owner-Drawing machst du aber das Theming platt, oder?

[Bummi]

sieht so aus ...

[Steku]

Zitat von uligerhardt:

Mit dem Delphi-eigenen TPageControl dürfte das was Größeres werden. Aber es gibt massenweise Fremdkomponenten, die das können.

Ich werfe einfach mal wieder die LMD-Tools Freeware Edition
in den Raum. Könnte mir vorstellen, dass das Vorhaben mit der entsprechenden
Kompo daraus recht einfach umzusetzen ist...

http://lmd.de/download/index.php#LMD

Gruß
Steku

[r29d43]

Thx all.


@Bummi, ja klappt auch mit Turbo-Delphi, danke.



Was hat es eigentlich mit diesem Theming auf sich? Was besonderst wichtiges? War schon eine etwas längere Zeit nicht mehr hier und bin deswegen nicht mehr ganz auf dem Laufenden.

[uligerhardt]

Zitat von r29d43:

Was hat es eigentlich mit diesem Theming auf sich? Was besonderst wichtiges? War schon eine etwas längere Zeit nicht mehr hier und bin deswegen nicht mehr ganz auf dem Laufenden.

Seit XP gibt's ja Themes/visual styles (a.k.a. Teletubbie-/Playskool-/...-Look ), d.h. Controls haben nicht mehr zwangsweise die Windows95-Optik. Vergleiche mal die beiden PageControls auf dem Screenshot: Das linke hat wegen OwnerDrawing den Classic-Look, während das rechte ein stinknormales PageControl ist und demzufolge gethemed ist:

[r29d43]

Zitat von uligerhardt:

Seit XP gibt's ja Themes/visual styles (a.k.a. Teletubbie-/Playskool-/...-Look ), d.h. Controls haben nicht mehr zwangsweise die Windows95-Optik...

Ja, diese Sache kenn ich auch noch. Dachte mir nachher auch schon minimal irgendwo, dass es damit was zu tun haben könnte. (Ist auch schon extrem lange her, dass ich damit mal überhaupt was mit zu tun hatte).

In meinem TabSheet-Caption-Fall ist dieses dann wegfallende Theming wegen der nur sehr kleinen davon betroffenen Fläche allerdings auch nicht so tragisch, imo. Wird wohl kaum auffallen, dass da kein Gradient mehr als Caption-Hintergrund existiert. Und von daher: Die Vorteile dieser OwnerDraw-Methode überwiegen hier mE also schon ein bisschen.

[mz23]

Zitat von Bummi:

ich weiß nicht wie es unter Turbodelphi aussieht

OwnerDraw:=true;

Delphi-Quellcode:

procedure TForm2.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
   PageControl1.Canvas.Brush.Color := clWhite;
   PageControl1.Canvas.FillRect(Rect);
   if Tabindex=1 then
      begin
        if PageControl1.ActivePageindex=TabIndex then  PageControl1.Canvas.Font.Color := clRed else PageControl1.Canvas.Font.Color := clblue;
        PageControl1.Canvas.Font.Style := [fsBold,fsUnderline]
      end;
    PageControl1.Canvas.Textout(rect.Left + 2,rect.Top + 2,PageControl1.Pages[Tabindex].Caption)

end

Danke Bummi
Schöne Grüße aus -1° Nürnberg (06:32),
Manfred