Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
14. Sep 2008
So, ich habe nun wie angekündet eine Komponente daraus erstellt.
TTranslateShortCutText
Nachtrag: Getestet unter D6, D2009.
Die Komponente kann installiert werden oder man erzeugt einfach zur Laufzeit eine Instanz:
var
TranslateShortCutText1 := TTranslateShortCutText;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
14. Sep 2008
function ShortCutToText(ShortCut: TShortCut): string;
var
Name: string;
Key: Byte;
begin
Key := LoByte(Word(ShortCut));
case Key of
$08, $09:
Name := MenuKeyCaps;
$0D: Name := MenuKeyCaps;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
14. Sep 2008
Es geht bei TMenuItem da immer auf ShortCutToText zurück gegriffen wird.
D.h es funktioniert für TMainMenu, TPopupMenu etc, etc.
Das Prinzip funktioniert so wie es im SiComponents Forums gezeigt wird.
Anmerkung: Die verwendetet OverwriteProcedure() Funktion funktioniert unter D2009 nicht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
13. Sep 2008
ShortCutToText müsste mit einer eingenen ShortCutToText Funktion überschrieben werden, welche dann je nach Sprache
einen anderen Text zurückgibt.