Pagecontrol Caption Tabsheet farbig

zuma · Verfasst: Fr 04.01.08 11:10

Hallo,
ich möchte die Caption-Strings der einzelnen Tabsheet's in meiner Pagecontrol farbig machen können, hab aber leider nichts gefunden, wie das geht .. Im OI kann man nur die Font.color des ganzen Tabsheet setzen, was aber gar nicht in meinem Sinne ist

Jemand eine Idee, wie ich das realisieren kann ?? Oder geht das gar nicht ??
Bin für jeden Hinweis dankbar

Zuma

_________________
Ich habe nichts gegen Fremde. Aber diese Fremden sind nicht von hier! (Methusalix)
Warum sich Sorgen ums Leben machen? Keiner überlebts!

Yogu · Verfasst: Fr 04.01.08 11:17

Mit dem Windows-PageControl wirst du das nicht hinbekommen. Das passt sich ja an das Betriebssystem an - und deshalb regelt Windows die ganze Geschichte. Aber du kannst, denke ich, einfach ein PageControl selber machen. Nimm einfach ein paar Images, die beim Anklicken ihr Aussehen verändern, und darunter ein paar Panels, die du dann entsprechend in den Vordergrund holst.

zuma · Verfasst: Fr 04.01.08 11:42

Danke für die schnelle Antwort.
Hab mir auch schon gedacht, das das nicht geht ....

Selber machen geht nicht mehr, die Software ist schon mehrfach im Einsatz und ein Umbau
würde mehr Probleme schaffen als beheben.
Nun haben einige (ältere) Kunden das Problem, das sie nicht gut erkennen, welche
Seite gerade aktiv ist ... da dachte ich an farbliche hervorhebung ..
werd mir wohl was anderes ausdenken müssen ...

_________________
Ich habe nichts gegen Fremde. Aber diese Fremden sind nicht von hier! (Methusalix)
Warum sich Sorgen ums Leben machen? Keiner überlebts!

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Schau mal dort, vieleicht hilft Dir das.
www.dsdt.info/tipps/?id=309

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

zuma · Verfasst: Fr 04.01.08 15:52

Danke für den Tipp, werde ich mir heute abend noch mal genauer anschauen, aber so wie ich das im schnelldurchgucken gesehen habe, färbt er dann die ganze Seite und nicht nur den Caption-String ? Das wäre doof und leider nicht brauchbar für mich ...

_________________
Ich habe nichts gegen Fremde. Aber diese Fremden sind nicht von hier! (Methusalix)
Warum sich Sorgen ums Leben machen? Keiner überlebts!

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Probiers mal aus sollte das sein was Du suchst.

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Hier mal nur für deine Caption... OwnerDraw auf True

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  if Active then
  begin
   Control.Canvas.Font.Color  := clRed;
  end;
  Control.Canvas.FillRect(Rect);
  Control.Canvas.TextOut(Rect.Left+2,Rect.Top+2,PageControl1.Pages[TabIndex].Caption);
end;

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme