Bezeichnungen von Shortcuts ändern, aber wie?

[toms]

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:

Delphi-Quellcode:

var
  TranslateShortCutText1 := TTranslateShortCutText;

begin
  TranslateShortCutText1 := TTranslateShortCutText.Create(Self);
  with TranslateShortCutText1 do
  begin
    // Eigene Shortcut Bezeichnungen zuweisen:
    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;
end;

Verbesserungsvorschläge bitte mir senden, Ideen sind Willkommen !

[Marco Steinebach]

Hallo Thomas,
Ich habs installiert, läuft auch unter D5 einwandfrei. Klasse daran ist, für alle, die DXGetText (GNUGetText) einsetzen, daß die Keynames mit in der DFM gespeichert werden. Also in meinem Falle:
die Keynames im Object-inspektor ins englisch übersetzt (ich hab ein deutsches Delphi), und in der .po-Datei von DXGetText eine übersetzugn ins deutsche angelegt --- siehe da: alles brav!
Und nochmal ein riesen lob! Das ding ist absolut klasse, bedienerfreundlich, tja, besser geht's, meiner ansicht nach, mimmer!
Danke nochmal und einen schönen Abend
Marco

[toms]

Bitte, gern geschehen. Werde die Komponente mal noch unter D2009 ausgiebig testen und allenfalls Unicode fähig machen.

[dGeek]

Ich habe aktuell dasselbe Problem.

Wie verwende ich diese Unit, um z.B. STRG+X in einem Menueintrag durch CTRL+X zu ersetzen? :pale:

Moment, muss die Komponte erstmal angucken. Der Download wurde mir eben nicht angezeigt.