Farbe von Tabsheetheadern ändern

Für Fragen zur Programmiersprache auf welcher Lazarus aufbaut
Antworten
Vardos
Beiträge: 1
Registriert: Do 26. Jan 2012, 12:06

Farbe von Tabsheetheadern ändern

Beitrag von Vardos »

Hallo

Ich bin derzeit an einem Projekt bei, welches mehrere Gateways überwacht. Jedes Gateway soll ein eigenen Tabsheet bekommen.
Dazu habe ich ein TPageControl genommen was auch alles weitestgehenst funktioniert.
Nur ein Problem habe ich doch. Wenn ein Gateway nicht mehr erreichbar ist, wollte ich dann die Hintergrundfarbe vom TabHeader oder die Schriftfarbe ändern, damit es auffällt wenn man gerade einen anderen Tab aktiv hat.

bei den meisten Posts ist immer nur:

Code: Alles auswählen

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
...
zu finden, aber ich finde es hier nicht. :(

Ich habe auch schon versucht das PageControl von EugenE zu installieren, aber da meckert Lazarus und lässt dieses Package aus.
Gibt es noch eine andere Lösung? Ich bin für jede Hilfe dankbar.
Ich nutze Lazarus 0.9.30.2, falls das eine Relevanz haben sollte.

p.s.: Ich komme eher aus dem C Gebiet mit allen seinen Derivaten und freunde mich leider nur langsam mit Freepascal an. Daher bitte ich um ein bisschen Nachsicht. :D

Christian
Beiträge: 6079
Registriert: Do 21. Sep 2006, 07:51
OS, Lazarus, FPC: iWinux (L 1.x.xy FPC 2.y.z)
CPU-Target: AVR,ARM,x86(-64)
Wohnort: Dessau
Kontaktdaten:

Re: Farbe von Tabsheetheadern ändern

Beitrag von Christian »

Es gibt ein TabControl in den CustomDrawn Controls
W.m.k.A.h.e.m.F.h. -> http://www.gidf.de/

Antworten