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);
...
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.
Verein
Links
Suche