Hi
Ursprung der Komponente TTranslateShortCutText ist eine Frage aus
diesem Beitrag
Zitat:
Ich habe ein Prog, daß es auch auf englisch geben soll. Allerdings läßt sich mein Delphi nicht überreden aus dem Shortcut strg + pfeil nach oben in einem Menüeintrag, ctrl+up arrow, oder soetwas zu machen.
Bezeichnungen von Shortcuts ändern, aber wie?
Entstanden ist eine
TTranslateShortCutText Komponente v1.10
Funktion: Übersetzung der Shortcut Bezeichnungen z.B im TMainMenu, TPopupMenu etc.
Vordefinierte Sprachen: Deutsch, Englisch
Getestet unter D5, D6, D2009.
Weitere Informationen in sind in der
unit TranslateShortCutText zu finden.
Die Komponente kann installiert werden oder wer dies nicht mag erzeugt eine Instanz zur Laufzeit.
Delphi-Quellcode:
var
TranslateShortCutText1 := TTranslateShortCutText;
begin
TranslateShortCutText1 := TTranslateShortCutText.Create(Self);
Bezeichnungen der Shortcut auf English stellen.
Delphi-Quellcode:
TranslateShortCutText1.Language := lgSCEnglish;
Delphi-Quellcode:
// oder Eigene Shortcut Bezeichnungen zuweisen:
with TranslateShortCutText1 do
begin
Key_Backspace := 'MyBackspace';
Key_Tabulator := 'Tab';
Key_Return := 'Enter';
Key_Escape := 'Esc';
Key_Space := 'Space';
Key_Prior := 'PgUp';
Key_Next := 'PgDn';
Key_End := 'End';
Key_Home := 'Home';
Key_Left := 'Left';
Key_Up := 'Up';
Key_Right := 'Right';
Key_Down := 'Down';
Key_Insert := 'Insert';
Key_Delete := 'Del';
Key_Alt := 'Alt+';
Key_Ctrl := 'Ctrl+';
Key_Shift := 'Shift+';
RefreshMenuItems;
end;
Verbesserungsvorschläge bitte mir senden, Ideen sind Willkommen !