gnu gettext und Dialoge

[Sailor]

Klemme folgende Prozedur an das OnShow-Ereignis des Open-Dialogs:

PROCEDURE TShellForm.OpenDialogShow(sender:TObject);
VAR
hwnd: THandle;

BEGIN
WITH OpenDialog
DO BEGIN
hwnd := GetParent(Handle);
SetDlgItemText(hwnd,1,PChar(TextOf('Open')));
SetDlgItemText(hwnd,2,PChar(TextOf('Cancel')));
SetDlgItemText(hwnd,1038,PChar(TextOf('Help')));
SetDlgItemText(hwnd,1089,PChar(TextOf('FileType')) );
SetDlgItemText(hwnd,1090,PChar(TextOf('FileName')) );
SetDlgItemText(hwnd,1091,PChar(TextOf('Searchin')) )
END
END; {OF PROCEDURE TShellForm.OpenDialogShow}

Die Funktion TextOf liefert den von der eingestellten Sprache abhängigen Wert, der z.B. in der Ressourcen-Datei abgelegt werden kann. Ähnlich funktioniert das für den Save-Dialog.

[schwarzerlotus]

@Sailor

das schaut gut aus Ich hab das noch etwas abgewandelt, da er bei mit TextOf nicht gefunden hat.

SetDlgItemText(hwnd,1,PChar(gettext('Open')));

so legt gettext das nun in der .po Datei ab und ich kann es übersetzten

@Lucki

ok MessageBox probier ich gleich nochmal aber auf der andren Seite - wenn MessageDialog aus der VCL stammt und ich eine eigentlich komplette delphi7 Übersetzungsdatei habe

http://dybdahl.dk/dxgettext/translations/

und die auch hinzufüge - warum wird es dann trotzdem nicht übersetzt

[schwarzerlotus]

ok es muss so sein, sonst bekommt man nur das erste Zeichen dargestellt

SetDlgItemText(hwnd,1,PChar(String(gettext('Open') )));