[ looping @ 25.08.2014. 09:53 ] @
Pozdrav svima.
Koristim TOpenDialog komponentu (DELPHI) za biranje fileova.
Komponentu pozivam iz aplikacije koja je Lokalizovana (sve GUI kontrole su prevedene na zeljeni jezik)
Kako mogu da prevedem display stringove koji se nalaye u TOpenDialog komponenti?
Znam kako da prevedem naslovnu liniju - Title (jednostavno je, samo izmenim properti Title), medjutim ne znam kako da izmenim sledece :
Caption buttona Open
Caption buttona Close
Caption labele FileNames
Caption labele Files of type
Caption labele Look in
kao i Caption kolona u gridu (Name,Date modified, Type i Size)

Znam da TOpenDialog ne koristi DELPHI TForm nego direktno poziva Windows API ali ne znam kako da izmenim pomenute stringove.
Da li neko zna kako da promenim pomenute stringove?
[ captPicard @ 25.08.2014. 11:12 ] @
Code (delphi):
BOOL SetDlgItemText(
HWND hDlg, // handle of dialog box
int nIDDlgItem, // identifier of control
LPCTSTR lpString // text to set
);


Code (delphi):
procedure TForm1.OpenDialShow(Sender: TObject);
begin
  SetDlgItemText(GetParent(OpenDialog1.Handle), IDOK, PChar('New &Open'));
  SetDlgItemText(GetParent(OpenDialog1.Handle), IDCANCEL, PChar('New &Cancel'));
end;


Pretpostavljam da može i za ostalo, samo treba pronaći identifiere.

Edit:
evo našao sam:
Code (delphi):

procedure TForm1.OpenDialShow(Sender: TObject);
var
  hwnd: THandle;
begin
with OpenDial do
 begin
 hwnd := GetParent(Handle);
  SetDlgItemText(hwnd,1,PChar('Otvori'));
  SetDlgItemText(hwnd,2,PChar('Odustani'));
  SetDlgItemText(hwnd,1038,PChar('Pomoć'));
  SetDlgItemText(hwnd,1089,PChar('Vrsta') );
  SetDlgItemText(hwnd,1090,PChar('Naziv') );
  SetDlgItemText(hwnd,1091,PChar('Traži u'))
end;
end;