Forum: Win32/Win64 API (native code)
by schwarzerlotus,
2. Jan 2012
Was meinst du denn mit kompletter Funktionalität? So ein Open Dialog oder halt der TMS Folder Dialog sind ja nun nicht so komplex.
Ich hab eben nochmal mit Delphi7 und XE2 ausprobiert und die Dialoge lassen sich wunderbar öffnen und ich bekomme wie erwartet die ausgewählten Files und Directories :) (unter Win7 btw)
Forum: Win32/Win64 API (native code)
by schwarzerlotus,
30. Dez 2011
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
HWND hWndOK = ::GetDlgItem(hWndDlg,IDOK);
Forum: Win32/Win64 API (native code)
by schwarzerlotus,
30. Dez 2011
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?
Forum: Win32/Win64 API (native code)
by schwarzerlotus,
30. Dez 2011
ok es muss so sein, sonst bekommt man nur das erste Zeichen dargestellt :)
SetDlgItemText(hwnd,1,PChar(String(gettext('Open'))));
Forum: Win32/Win64 API (native code)
by schwarzerlotus,
30. Dez 2011
@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
Forum: Win32/Win64 API (native code)
by schwarzerlotus,
30. Dez 2011
@Luckie
ich hab das mal mit einem MessageDialog ausprobiert aber auch wenn ich eine Delphi7 Übersetzungsdatei hinzufüge und auf Englisch wechsle bleibt die Sprache der Buttons in dem Dialog Deutsch.
AddDomainForResourceString ('delphi7');
TranslateComponent (self);
Dialogs.CreateMessageDialog('Test', mtInformation , );
Wäre zur Not eine Idee wenns klappt, aber ich würde ungern...
Forum: Win32/Win64 API (native code)
by schwarzerlotus,
30. Dez 2011
Hallo zusammen,
ich beschäftige mich gerade mit gnu gettext, um unsere bestehende Applikation in mehrere Sprachen übersetzten zu können.
Nachdem ich das ganze mit Ausnahmen und Ignorelisten etwas durchdrungen habe, bin ich auch ganz zufrieden damit - was mir jedoch noch Kopfschmerzen bereitet sind die Dialoge. Wir benutzten zum einen die ganz normalen Open und Save Dialoge aber auch den...