Hintergrundfarbe des AKTIVEB Tabsheets ändern

[juergen]

Hallo zusammen,
ich möchte einem aktiven Tab eine andere Farbe zuweisen.
Eine Möglichkeit habe ich gefunden. --> Eigenschaft "Highlighter" auf True setzen...
Sieht aber net so toll aus

Ist es denn ohne sehr großen Aufwand möglich, z.B. den AKTIVEN Tabsheet weiss einzufärben?

Gruß Jürgen

[API]

Hallo

Frag doch mal Google:

[Daniel G]

Editier bitte mal deinen Link... So, wie er jetzt ist, ist er nutzlos.

[juergen]

Danke für den Tip. Aber das was ich möchte habe ich dort leider nicht gefunden.
Ich habe mich vielleicht auch nicht ganz deutlich ausgedrückt:
Nicht die gesamte Seite soll eingefärbt werden, sondern nur der Reiter.
Im Prinzip genauso wie wenn man den Hightlighter auf true setzt.

Grüsse Jürgen

[Bob68]

Hallo kannst du vieleicht hiermit was anfangen.

Delphi-Quellcode:

PROCEDURE TForm1.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; CONST Rect: TRect; Active: Boolean);


BEGIN
 WITH Control.Canvas DO
   BEGIN
     IF Active = true THEN
       BEGIN
         Brush.Color := clred;
         Font.Color := clblack;

         Font.Style := [fsbold];

       END
     ELSE
       BEGIN
         Brush.Color := clLime;
         Font.Color := clblack;

       END;
     TextOut(Rect.Left + 4, Rect.Top + 4,
      TabControl1.Tabs[TabIndex]);

   END;
 End;

Gruß Bob68

[juergen]

Hallo Bob68!
Vielen, vielen Dank! Das sieht schon sehr gut aus!
Allerdings bekomme ich es mit Delphi 2005 PE (noch) nicht ganz ans Laufen!
Anstatt TabControl verwende ich PageControl....
In deinem Code schreibst du:

TextOut(Rect.Left + 4, Rect.Top + 4, TabControl1.Tabs[TabIndex]); Was muss ich anstelle von TabControl1.Tabs verwenden???
Klar, erst einmal PageControl1. ?????

Ich habe es probiert mit PageControl1.ActivePage und PageControl1.ActivePageIndex
Bei ersterem kommt der Fehler:
[Fehler] rechner.pas(1509): E2149 Klasse besitzt keine Standardeigenschaft

Verwende ich ActivePageIndex kommt Fehler:
[Fehler] rechner.pas(1509): E2016 Array-Typ erforderlich


Kann mir hier abschließend jemand weiterhelfen?

Viele Grüße
Jürgen

[Bob68]

Hallo Jürgen versuche es mal mit:

TextOut(Rect.Left + 4, Rect.Top + 4,PageControl1.Pages[TabIndex].Caption); Gruß
Bob68

[juergen]

Hallo Bob68,
Super!!! Nun funzt alles so wie ich es gern haben möchte!
Noch mal herzlichen Dank!!!

Der Vollständigkeitshalber hier meine Umsetzung:

Delphi-Quellcode:

PROCEDURE TForm1.PageControl1OnDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; CONST Rect: TRect; Active: Boolean);


BEGIN
WITH Control.Canvas DO
   BEGIN
     IF Active = true THEN
       BEGIN
         Brush.Color := clred;
         Font.Color := clblack;

         Font.Style := [fsbold];

       END
    ELSE
       BEGIN
         Brush.Color := clLime;
         Font.Color := clblack;

       END;
       TextOut(Rect.Left + 4, Rect.Top + 4,PageControl1.Pages[TabIndex].Caption);

   END;
End;

Dann das ganze dem "OnDrawTab" Ereignis zugeordnet und die Eigenschaft "OwnerDraw" auf "True" gesetzt und alles funzt wie gewünscht!

Gruß
Jürgen