gnu gettext und Dialoge

[Luckie]

Was verstehst du jetzt unter "reinimpfen"?

[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') )));

[Furtbichler]

Zitat von Luckie:

Was verstehst du jetzt unter "reinimpfen"?

Na das...

Zitat von Sailor:

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

[schwarzerlotus]

Hmm also ein Stück näher gekommen bin ich ja nun aber leider leider klappt das "nur" für die Delphi eigenen Dialoge also Open und Save.

Nun fehlt noch der TMS FolderDialog und dem fehlt leider so ein onShow Ereignis - genau genommen hat diese Komponente gar keine Ereignisse.

Kann man mit der Methode SetDlgItemText(...) auch noch an einer anderen Stelle auf den FolderDialog einwirken?

[Furtbichler]

Ermittle das Handle des Dialogs und suche mit EnumChildWindows die Windows Controls mit den zu übersetzenden Texten.

[schwarzerlotus]

So habs

Hab mir mal die TMS Komponente angeschaut - die kapselt intern den SHBrowseForFolder(...) Dialog

Nach ein paar Fragen an google kam dann das hier heraus

http://www.codeguru.com/forum/showthread.php?t=172576 - How to change Buttontext of SHBrowseForFolder dialog

Code:

HWND hWndOK = ::GetDlgItem(hWndDlg,IDOK);
LPCTSTR lpsz = _T("You are OK");
::SetWindowText(hWndOK,lpsz);

und damit gehts nun und ich kann die Captions der Ok, Abbrechen, Neuer Ordner Buttons umbenennen.

Nun kann ich mich dran machen alles zu übersetzten

Danke an alle

[Bernhard Geyer]

Zitat von schwarzerlotus:

So habs

...

und damit gehts nun und ich kann die Captions der Ok, Abbrechen, Neuer Ordner Buttons umbenennen.

Bleibt dann bei diesem Dialog die komplette Funktionalität vorhanden? Bei den Dateiöffnen/speichern-Dialogen führt ja der Callback dazu das der neue Dialogstiel dieser Dialoge den es seit Windows Vista gibt damit nicht mehr verfügbar ist.

[Luckie]

@Furtbichler: Das ist doch genau das, was meine Lösung macht.