ShortCuts in MenuItems übersetzen

[DieDolly]

Ich übersetze das so.
Da wo es dir passt deklarieren
 TranslateShortCutText: TTranslateShortCutText;

Erzeugen
TranslateShortCutText := TTranslateShortCutText.Create(form);

Übersetzen

Delphi-Quellcode:

 TranslateShortCutText.Key_Backspace := 'MyBackspace';
 TranslateShortCutText.Key_Tabulator := 'Tab';
 TranslateShortCutText.Key_Return := 'Enter';
 TranslateShortCutText.Key_Escape := 'Esc';
 TranslateShortCutText.Key_Space := 'Leertaste';
 TranslateShortCutText.Key_Prior := 'BildAuf';
 TranslateShortCutText.Key_Next := 'BildAb';
 TranslateShortCutText.Key_End := 'Ende';
 TranslateShortCutText.Key_Home := 'Home';
 TranslateShortCutText.Key_Left := 'Links';
 TranslateShortCutText.Key_Up := 'Oben';
 TranslateShortCutText.Key_Right := 'Rechts';
 TranslateShortCutText.Key_Down := 'Unten';
 TranslateShortCutText.Key_Insert := 'Einfügen';
 TranslateShortCutText.Key_Delete := 'Entfernen';
 TranslateShortCutText.Key_Alt := 'Alt+';
 TranslateShortCutText.Key_Ctrl := 'STRG+';
 TranslateShortCutText.Key_Shift := 'Shift+';
 TranslateShortCutText.RefreshMenuItems;

Freigeben
TranslateShortCutText.Free;

[bcvs]

Danke, jetzt habe ich sogar zwei Lösungen.

Bein Korzh Localizer kapiere ich allerdings nicht, wie ich die Systemunits damit übersetzen kann.

Zitat:

Ich übersetze das so.
Da wo es dir passt deklarieren
TranslateShortCutText: TTranslateShortCutText;

Das funktioniert und das nehme ich dann auch. Den entsprechenden Thread hatte ich hier in der DP auch schon gefunden, nur die fertige Komponente auf der 2. Seite übersehen.
https://www.delphipraxis.net/120614-...-aber-wie.html

[Uwe Raabe]

Zitat von bcvs:

Bein Korzh Localizer kapiere ich allerdings nicht, wie ich die Systemunits damit übersetzen kann.

Wie alle anderen Resourcestrings auch. Anbei ein Screenshot des Language Managers mit einem simplen VCL-Projekt (noch nicht übersetzt).

[bcvs]

Die Vcl_Consts habe ich da nicht.

[Uwe Raabe]

Zitat von bcvs:

Die Vcl_Consts habe ich da nicht.

Dann zeig doch mal deine .plo Datei zu dem Projekt.

[bcvs]

Zitat von Uwe Raabe:

Dann zeig doch mal deine .plo Datei zu dem Projekt.

Bitteschön:

Code:

[Main]
PLOVersion=2
BaseLocale=1031
BaseEngName=German
BaseLocName=Deutsch
Edition=1
LangDir=
ResUnitType=0
RSIDBase=-1000
MaxConstLen=32
TranslitMode=0
DRCConstProc=1
AddLocAPI=1
ProcessOnlyProjectUnits=1
AutoRemoveProperties=1
AutoRemoveResStrings=1
RebuildPrj=0
CompressLF=1
CreateNTV=0
AutoRefresh=0
MergeDupRS=0
LinkLangs=0
NoMapFile=0
IgnoreAsync=0
DumpDRC=0
ProcessFrc=0
ProcessFrf=0
FrfPath=
ProcessRtm=0
RtmPath=
UseLocrefresh=0
LocrefreshPath=
LinkedLangs=
ResUnitFileName=PrjConst.pas
RSNamePrefix=
RSPrefixWithUnitName=0

[PropRules]
+.Caption
+.Hint
+.Header
+.DisplayLabel
+.ReportTitle
+.Text
+.Title.Caption
+.Items.Strings
+.Lines.Strings
+.Hints.Strings
+.EditLabel.Caption
+.Values
+.WideText

[SubstProps]
T*Field:FieldName-DisplayLabel
TDBGrid.Columns[*]:FieldName-Title.Caption

[ExcludeForms]

[ExcludeRules]
in
FieldByName(
application.title:=

[ExcludeUnits]

[AddUnits]