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.