Tabsheet-Caption hervorheben

[OsCor]

Hallo Foristen,

ich habe in einer Anwendung verschiedene Arbeitsgänge in einem Page-Control und mehreren Tabsheets organisiert. Eines dieser Tabsheets wird in speziellen Situationen sichtbar/unsichtbar geschaltet. Allerdings ist ein zusätzliches Tabsheet nicht soo schrecklich auffällig, dass es einem sofort ins Auge fiele, wenn man nicht gerade das Erscheinen beobachtet hat.
Kann ich die Font-Optionen der Caption unabhängig vom Font des Canvas ändern, also entweder andersfarbige oder fette Schrift verwenden?

Oswald

[Bummi]

wenn Du OwnerDraw auf true setzt:

Delphi-Quellcode:

procedure TForm2.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
   if tabIndex=2 then
      begin
           Control.Canvas.FillRect(Rect);
           Control.canvas.Font.Style := [fsBold, fsunderline];
      end;
   Control.canvas.TextOut(rect.Left +4, rect.Top+4,TPageControl(Control).Pages[TabIndex].Caption);
end;

[OsCor]

Ich habe den Code einfach mal ausprobiert, aber das klappt bei mir nicht.
Könntest du bitte freundlicherweise erklären, was da ablaufen sollte? Ich verstehe es noch nicht.

Oswald

[mkinzler]

Was klappt nicht? Fehlermeldung?

[OsCor]

:oops: Es stand ja ganz groß da: OwnerDraw auf True.
Sorry. Gut, dass bald Feierabend ist…

Edit, weil vergessen: Vielen Dank für die schnelle Hilfe!

Oswald