[es] - Promena display stringova kod TOpenDialog komponente

looping
none
none

Član broj: 324206
Poruke: 18
95.180.97.*

Profil

Promena display stringova kod TOpenDialog komponente

^{25.08.2014. u 09:53 - pre 117 meseci}

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?

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Promena display stringova kod TOpenDialog komponente

^{25.08.2014. u 11:12 - pre 117 meseci}

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;

Odgovor na temu