TTranslateShortCutText Komponente / Unit

[toms]

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 !