TTabSheet-Caption-Ausrichtung mit Accelerator

[CCRDude]

@Andreas L: wer sagt denn, dass ich zentrieren will? Ich nutze sie als Accelerators, also genau mit der Funktion, die Du beschreibst. Zentrieren tut sie die VCL, wenn ich keinen Accelerator verwende, aber nicht korrekt, wenn ich einen verwende.

@himitsu: wird sie? Würde Windows komplett dafür verantwortlich sein, würden die Accelerators nur bei gedrückter Alt-Taste sichtbar sein, außerdem ist da so diverses anders als beim Original. Auch andere Tickets scheinen anzudeuten, dass sich das Caption-Verhalten zwischen Delphi-Versionen (und nicht zwischen Windows-Versionen) geändert hat.

Muss ja nichtmal sein, dass Delphi die selber zeichnet, aber irgendwo einen Parameter falsch übergibt...

[jaenicke]

Aus unserer Implementierung einer abgeleiteten Komponente:

Delphi-Quellcode:

    procedure DrawTab(TabIndex: Integer; const Rect: TRect; Active: Boolean); override;
...
procedure T...PageControl.DrawTab(TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  inherited;
  ...
    Canvas.Brush.Style := bsSolid;
    Canvas.Font.Color := clBtnHighlight;
    Canvas.FillRect(Rect);
    Canvas.TextOut(CaptionLeft, CaptionTop, StripHotKey(Pages[PageArrayIndex].Caption));

Wir benutzen dort aus der Unit Menus die Funktion StripHotKey um das Zeichen vor dem Zeichnen zu entfernen. Natürlich passiert das auch bei der Berechnung der Textposition schon, ich habe es jetzt nur zur Illustration dorthin gepackt.

[Andreas L.]

Zitat von CCRDude:

@Andreas L: wer sagt denn, dass ich zentrieren will?

Zitat:

Angezeigt werden die Captions mit Accelerators nicht zentriert, sondern mit leicht nach rechts verschobenem Text.

Daraus habe ich geschlossen das du die Caption zentrieren willst.

[CCRDude]

@Jaenicke: vielen Dank, werde ich gleich morgen früh mal ausprobieren!

@Andreas L: stimmt, etwas mißverständlich, ich hätte vermutlich schreiben sollen "nicht wie ohne A. angezeigt" oder "nicht wie erwartet angezeigt"; dass zentriert das erwartete Standardverhalten ist/war, steht da nicht explizit.