[es] - Kako mogu prilikom startovanja postaviti na serbian?

MatezYU
NS

Član broj: 4114
Poruke: 1031
*.adanet.co.yu.

Sajt: matezyu.googlepages.com/m..

Profil

Kako mogu prilikom startovanja postaviti na serbian?

^{18.01.2007. u 09:18}

Interesuje me kako mogu prilikom pokretanja programa da mi se uvek (ako vec nije) postavi na regional setings na srpski latinica, da bude valuta din. vreme 24h i tako to... Radim sa bazom pa kada mi regional podesavanja stoje drugacije pojavi se $ umesto din a isto tako prvo ide godina, mesec pa dan umesto dan mesec godina..
Pozrav

http://matezyu.googlepages.com/mojiprojekti

^{18.01.2007. u 09:18}

obucina

Član broj: 38191
Poruke: 714
213.244.197.*

Profil

Re: Kako mogu prilikom startovanja postaviti na serbian?

^{18.01.2007. u 11:14}

Nadji u helpu "Currency and date/time formatting variables"

^{18.01.2007. u 11:14}

Miloš Baić
Miloš Baić

Član broj: 72468
Poruke: 1150
*.kalik.info.

Profil

Re: Kako mogu prilikom startovanja postaviti na serbian?

^{18.01.2007. u 11:29}

Nešto slično sam uspeo odraditi sa JclLocales (JCL &JVCL).

If you go out of your mind, do it quietly, so as not to disturb those around you...

^{18.01.2007. u 11:29}

MatezYU
NS

Član broj: 4114
Poruke: 1031
*.adanet.co.yu.

Sajt: matezyu.googlepages.com/m..

Profil

Re: Kako mogu prilikom startovanja postaviti na serbian?

^{18.01.2007. u 12:05}

Moze li malo konkretnije sa JclLocales.. Ne mogu da nadjem komponentu.. Jesi li mislio na komponentu? Imam instaliran (JCL &JVCL).

http://matezyu.googlepages.com/mojiprojekti

^{18.01.2007. u 12:05}

Miloš Baić
Miloš Baić

Član broj: 72468
Poruke: 1150
*.kalik.info.

Profil

Re: Kako mogu prilikom startovanja postaviti na serbian?

^{18.01.2007. u 12:30}

Davno sam to isprobavao, ako imaš instaliran JCL & JVCL, pogledaj primer JVCL320CompleteJCL197Build2172-jcl-examples-windows-locales, tu imaš sve. Stavio sam "-", jer ne mogu kosu crtu, ne dozvoljava iz nekog razloga, odnosno upišem je ali se ne vidi!?!
JVCL320CompleteJCL197Build2172\ ovako je po defaultu, ne znam kako si ti nazvao folder, ako si skinuo folder koji sadrži i primere.

p.s. evo i source code ako nemaš primer.

_{[Ovu poruku je menjao loshmiscg dana 18.01.2007. u 13:49 GMT+1]}

If you go out of your mind, do it quietly, so as not to disturb those around you...

Prikačeni fajlovi

Locales.rar - 3.46k

^{18.01.2007. u 12:30}

MatezYU
NS

Član broj: 4114
Poruke: 1031
*.adanet.co.yu.

Sajt: matezyu.googlepages.com/m..

Profil

Re: Kako mogu prilikom startovanja postaviti na serbian?

^{25.05.2007. u 08:57}

Da li mogu ovako preko windowsovog apija?

setlocaleinfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SENGLANGUAGE,'Serbia and Montenegro');

http://matezyu.googlepages.com/mojiprojekti

^{25.05.2007. u 08:57}

Miloš Baić
Miloš Baić

Član broj: 72468
Poruke: 1150
*.kalik.info.

Profil

Re: Kako mogu prilikom startovanja postaviti na serbian?

^{25.05.2007. u 12:50}

Code:
setlocaleinfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SENGLANGUAGE,'Serbian(Latin)');

If you go out of your mind, do it quietly, so as not to disturb those around you...

^{25.05.2007. u 12:50}

Miloš Baić
Miloš Baić

Član broj: 72468
Poruke: 1150
*.kalik.info.

Profil

Re: Kako mogu prilikom startovanja postaviti na serbian?

^{25.05.2007. u 14:21}

Postoji verovatno više načina da se to odradi, možeš dozvoliti korisniku da sam izabere language koji će koristiti. Učitaš, npr., u TListBox vrednosti(keyboard layouts) koje si postavio u ControlPanel-u:

Code:
...
procedure GetKLList(List: TStrings);
var
  AList : array [0..9] of Hkl;
  AklName: array [0..255] of Char;
  i: Longint;
begin
  List.Clear;
  for i := 0 to GetKeyboardLayoutList(SizeOf(AList), AList) - 1 do
    begin
      GetLocaleInfo(LoWord(AList[i]), LOCALE_SLANGUAGE, AklName, SizeOf(AklName));
      List.AddObject(AklName, Pointer(AList[i]));
    end;
end;
...

Potom pri pokretanju aplikacije pozoveš proceduru:

Code:
GetKLList(ListBox1.Items);

Zatim, selektuješ vrednost iz TListBox -a(OnClick):

Code:
...
with Sender as TListBox do
ActivateKeyboardLayout(Hkl(Items.Objects[ItemIndex]), 0);
...

E, sad, osmisli kako ćeš upamtiti vrednost da korisnik ne bi morao svaki put po pokretanju programa podešavati keyboard layouts , hoćeš sa .ini fajlom ili slično.

Ima još jedna varijanta, za koju znam:

Code:
...
var
  LangIdentifier: String;
begin
  LangIdentifier := '0000081A'; //Serbian(Latin)
  LoadKeyboardLayout(PChar(LangIdentifier), KLF_ACTIVATE);
end;
...

Nadam se da ćeš bar nešto moći iskoristiti!?!

If you go out of your mind, do it quietly, so as not to disturb those around you...

^{25.05.2007. u 14:21}