Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Promena display stringova kod TOpenDialog komponente

[es] :: Pascal / Delphi / Kylix :: Promena display stringova kod TOpenDialog komponente

[ Pregleda: 1268 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

looping
none
none

Član broj: 324206
Poruke: 18
95.180.97.*



Profil

icon Promena display stringova kod TOpenDialog komponente25.08.2014. u 09:53 - pre 74 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

icon Re: Promena display stringova kod TOpenDialog komponente25.08.2014. u 11:12 - pre 74 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;

F
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Promena display stringova kod TOpenDialog komponente

[ Pregleda: 1268 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.