Arapski u Delphi objektima

[ borovac @ 03.10.2005. 23:02 ] @

Zna li neko kako naštimati da većina objekata u Delphi-u podržava arapski.
Na početku programa učinim slijedeće

Code:

LoadKeyboardLayout('00000401', KLF_ACTIVATE);

To promijeni jezik na arapski.
Ztim ko EditBox.Font naštimam Charset na ARABIC_CHARSET.
I tako Edit box radi.
Također i TLabel podržava arapski
Ali TComboBox i TButton ne podržavaju.
Da bi TComboBox podržavao trebam pored fonta namjestit Style na csOwnerDrawFixed slično je i u TListBox.
Imal neko ideju kako da mi ostali objekti (TButton, TGroupBox, TTabSheet) podravaju arapski.
molim vas pomozite

[ obucina @ 04.10.2005. 09:45 ] @

Promeni font Forme na neki standardni TTF (Arial, Tahoma, Verdana), postavi Arabic_Charset i za sve kontrole postavi ParentFont na True.
Vrednosti za ComboBox upisuj programski.

[ borovac @ 04.10.2005. 10:32 ] @

To sam i radio, ali nece pa nece.
Inače koristim ANSI, pa taj arapski izgleda ovako ÇáÖřóáÇóáóÉó . Ali kada ovom crtam sa Canvas.TextOut prikaže mi fino arapski, ili kada dodijelim ovu vrijednost Labelu isto prikazuje arapski. Ali kada ovo stavim u Button prikazuje mi ovako kako vi vidite.
Također ne radi ni RichEdit objekat. What's the problem?

Citat:

obucina: Vrednosti za ComboBox upisuj programski.

Ne znam kako misliš programski. Ja ih upisujem na Run-Timeu.

[ Srki_82 @ 04.10.2005. 11:03 ] @

Delphi sve standardne Win komponente ne kreira kao Unicode i tu je problem. Za dugme mozes koristiti TBitBtn i radice kako treba, a za ostale kontrole moras naci neke alternetivne ili koristi OwnerDraw.

[ borovac @ 04.10.2005. 16:09 ] @

Pokušo sam da stavljam TLabel iznad TButtona. Ali neće ni to. Ne mogu staviti Label niti iznad PageControl.
Evo našo sam neke unicode componente, pa ću da ih downloadujem.

[ Nemanja Avramović @ 04.10.2005. 17:45 ] @

Citat:

Srki_82: ...ili koristi OwnerDraw.

jesi probao sa "crtanjem" teksta po kontroli?