TPageControl: Neuberechnung Reiterbreite, wenn Page-Schrift fett angezeigt wird

[himitsu]

Die breiter der Tabs wird natürlich vor dem Zeichnen dieser Tabs/Komponente berechnet.
Und da dort der Code nichts von deinem Bold weiß, mußt du es ihm dort auch nochmal sagen. (Breitenberechnungsfunktion suchen und überschreiben)

Das macht hier allerdings nicht die Delphikomponente, sondern die gekapselte Windows-Komponente.
Da wirst du also bei TCM_SETITEMSIZE suchen müssen, ob man das auch je TabSheet steuern kann,
oder siehe PageControl.TabWidth (TCS_FIXEDWIDTH), für alle Tabs zusammen.

Billiglösung: Ein paar Leerzeichen an die TabSheet.Caption anhängen.



WM_SIZE löst einfach nur ein Repaint aus.
RedrawWindow(Handle, nil, 0, RDW_INVALIDATE or RDW_ERASE);


OnDrawTab wird irgendwie garnicht verwendet.

Warum überschreibst/verdeckst du die Event-Poperty, anstatt die EventHandler-Methoden zu überschreiben?
Sowas ist fehleranfällig und macht es nicht grade leicht, wenn bei der Komponente diese Methoden "nochmal" in der Oberfläche verwendet werden sollen. (Zuweisung im OI oder Programmcode)
Und so ist der Code eigentlich getrennt, man könnte sich die Ableitung sparen und die zwei Events einfach nur im FormDesigner zuweisen.

Delphi-Quellcode:

procedure Change; override;
procedure DrawTab(TabIndex: Integer; const Rect: TRect; Active: Boolean); override;