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:

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.

zusammenfalten · markieren

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:

zusammenfalten · markieren

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

Hintergrundfarbe des AKTIVEB Tabsheets ändern

Hintergrundfarbe des AKTIVEB Tabsheets ändern

Re: Hintergrundfarbe des AKTIVEB Tabsheets ändern

Re: Hintergrundfarbe des AKTIVEB Tabsheets ändern

Re: Hintergrundfarbe des AKTIVEB Tabsheets ändern

Re: Hintergrundfarbe des AKTIVEB Tabsheets ändern

Re: Hintergrundfarbe des AKTIVEB Tabsheets ändern

Re: Hintergrundfarbe des AKTIVEB Tabsheets ändern

Re: Hintergrundfarbe des AKTIVEB Tabsheets ändern

Forumregeln

juergen Registriert seit: 10. Jan 2005 Ort: Bönen 1.164 Beiträge Delphi 11 Alexandria	#1 Hintergrundfarbe des AKTIVEB Tabsheets ändern 30. Aug 2005, 22:47 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 Jürgen
	Zitat

API Registriert seit: 18. Apr 2004 637 Beiträge	#2 Re: Hintergrundfarbe des AKTIVEB Tabsheets ändern 30. Aug 2005, 23:14 Hallo Frag doch mal Google:
	Zitat

Daniel G (Gast) n/a Beiträge	#3 Re: Hintergrundfarbe des AKTIVEB Tabsheets ändern 30. Aug 2005, 23:19 Editier bitte mal deinen Link... So, wie er jetzt ist, ist er nutzlos.
	Zitat

juergen Registriert seit: 10. Jan 2005 Ort: Bönen 1.164 Beiträge Delphi 11 Alexandria	#4 Re: Hintergrundfarbe des AKTIVEB Tabsheets ändern 30. Aug 2005, 23:34 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 Jürgen
	Zitat

Bob68 Registriert seit: 24. Aug 2005 Ort: Moers 20 Beiträge Delphi 2006 Enterprise	#7 Re: Hintergrundfarbe des AKTIVEB Tabsheets ändern 1. Sep 2005, 05:37 Hallo Jürgen versuche es mal mit: TextOut(Rect.Left + 4, Rect.Top + 4,PageControl1.Pages[TabIndex].Caption); Gruß Bob68
	Zitat