TTabSheet-Caption-Ausrichtung mit Accelerator

[CCRDude]

Leider habe ich hierzu bisher nichts im Internet gefunden:

Neue Form. Ich füge ein TPageControl hinzu, dem dann 4 TTabSheet. Zwei davon bekomme eine Caption mit Accelerator, zwei ohne ("Test1", "Test2", "Test&3", "Test&4).

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

Scheint so, als würde die VCL da für die Berechnung der Position des Textes da den Accelerator ignorieren.

Kennt jemand einen Workaround? Ist das schon jemandem aufgefallen?

(edit hat das eben im QC eingestellt)

[Andreas L.]

Mit dem kaufmännischen Und kannst du einen Buchstaben für die Tastaturnavigation festlegen. Das Zeichen nach dem & wird dann unterstrichen angezeigt. Schreibst du zwei & nacheinander (z. B. 'Test && Bla') wird ein einzelnes & angezeigt.

Zentrieren kann man den Text im TabSheet mit einem &-Zeichen nicht.

[himitsu]

Da diese Komponente standardmäßig von windows gezeichnet wird ... nee, kenn nix.

Selber Zeichnen oder irgendwie mit Skins arbeiten, welche das ebenfalls selber zeichnen.

[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.