PageControl -> Tabs selber beschriften -> TabVisible Problem

[HolgerCW]

Hallo zusammen,

ich beschrifte meine Tabs mit dem Draw-Ereignis selber.

Wenn ich z.B. 3 Tabs auf einem PageControl habe werden diese auch richtig beschriftet.

Würde ich aber jetzt das mittlere Tab Visible = FALSE stellen, beschriftet er mir das dritte Tab mit der Beschriftung des zweiten. Wie kann ich das lösen ?

Gruss

Holger

[Die Muhkuh]

Hi Holger,

wie sieht Deine Beschriftungsprozedur aus?

[HolgerCW]

Das ist meine Procedure. Habe nur die relevanten Sachen stehen gelassen:

Delphi-Quellcode:

procedure Berechtigung_Tab_zeichnen(PageControl: TPageControl; Bilder: Boolean;Control: TCustomTabControl; Der_TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin

 //bitte Tabindex in Deklaration mit ATabindex auswechseln,
 //sonst überschneidung mit Pagecontrol.tabindex. Deklaration in
 //Tform nicht vergessen
 //OwnerDraw des PageControls auf true setzen

 with Control as TPageControl do
 begin

   If Berechtigt = TRUE then
   begin

    //Wenn Berechtigt wird normal gezeichnet  (Tahoma)
    Canvas.Brush.Style := bssolid;
    Canvas.Font.Color  := clbtntext;
    Canvas.TextOut(rect.left+25,rect.top+7,Pages[Der_Tabindex].Caption);
    If Bilder = TRUE then Images.Draw(Canvas,rect.Left+7,rect.Top+2, Der_Tabindex);

   end
   else
   begin

    //Wenn nicht berechtigt wird enabled gezeichnet
    Canvas.Brush.Style := bssolid;
    Canvas.Font.Color  := clBtnHighlight;
    Canvas.TextOut(rect.left+25,rect.top+7,Pages[Der_Tabindex].Caption);
    
    //text in anderer Farbe wieder drüberzeichnen (25 Pixel nach links oben versetzt)
    Canvas.Brush.Style := bsclear;
    Canvas.Font.Color  := clBtnShadow;
    Canvas.TextOut(rect.left+26,rect.top+8,Pages[Der_Tabindex].Caption);
    
    If Bilder = TRUE then Images.Draw(Canvas,rect.Left+7,rect.Top+2, Der_Tabindex);

   end;

  end;

end;

Was muss ich da ergänzen wenn ich ein Tab Visible = TRUE setze ?

[mkinzler]

Zitat von Die Muhkuh:

Hi Holger,

wie sieht Deine Beschriftungsprozedur aus?

http://www.delphipraxis.net/internal...t.php?t=130914
Du musst abprüfen ob Tabs ausgeblendet sind und dann den Index berechnen

[HolgerCW]

Hast Du da ein Beispiel wie ich das am besten Abgfrage und den Index neu berechne ?

[mkinzler]

Du nimmst ja den Laufindex um die X-Position zu berechnen. ich würde eine 2. Variable (z.B.) I2 verwenden welche ich inkrementieren würde wenn der Ite Tab sichtbar ist und dann nur zeichnen.

[hoika]

Hallo,

warum nimms du überhaupt den Index ?
Geht es nicht auch über die TabSheets direkt?


Heiko

[HolgerCW]

Irgendwie ist da ein Brett vor dem Kopf.

Wie könnte ich das nun realisieren. Wenn z.B. folgende konstellation besteht:

Tab1(FALSE), Tab2, Tab3, Tab4(FALSE), Tab5

Dann müsste I2 ja global sein, oder ?

Könntest Du mir das mal ein kleinen Codeansatz schreiben. Ich komme da jetzt nciht hinter ?

Vielleicht verstehe ich auch noch nciht das Draw Ereignis. wird das Ereignis für jedes Tab neu aufgerufen. Oder wird es einmal aufgerufen und läuft dann in einer Schleife oder ?

[hoika]

Hallo,

jedes Tabsheet in einem PageControl ist selbst eine Komponente
mit einem Namen.
Das ist wie ein Label auf einem Panel, beide sind getrennt ansprechbar.


Heiko

[HolgerCW]

aber ich nutze ja das Ereignis onDrawTab von dem PageControl -> kann ich dann in dem Ereignis einfach I:=I+1 rechnen und am Ende habe ich den Count der Tabs ?