Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 5 odgovora
  • 2.493 pregleda

Najnovija ↓

Problem sa SetLocale na WIn10 08.11.2018. u 01:21 · pre 97 meseci #1
Do sad su normalno radile procedure

procedure TMip1023.PromjenaSeparatoraUTacku;
const cs1 : pchar = 'Windows';
begin
SetLocaleInfo( LOCALE_SYSTEM_DEFAULT, LOCALE_SDECIMAL,'.');
SendMessage( HWND_BROADCAST, WM_SETTINGCHANGE, 0, LongInt(cs1));
end;


procedure TMip1023.PromjenaSeparatoraUZarez;
const cs1 : pchar = 'Windows';
begin
SetLocaleInfo( LOCALE_SYSTEM_DEFAULT, LOCALE_SDECIMAL,',');
SendMessage( HWND_BROADCAST, WM_SETTINGCHANGE, 0, LongInt(cs1));
end;

Sa poslednjim verzijama windowsa ne funkcionira.
Jel ima netko kakvu ideju?
Re: Problem sa SetLocale na WIn10 08.11.2018. u 06:40 · pre 97 meseci #2
Meni radi (Win10), dobijas li neku gresku sa:
Win32Check(SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SDECIMAL, '.'));
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Re: Problem sa SetLocale na WIn10 08.11.2018. u 07:11 · pre 97 meseci #3
Jedna od skorijih update-a Win10 jeste nesto pokarabačio sa regionalnim podešavanjima. Neki programi imaju problemaposle update ai svi problemi ukazuju na "decimalnu tačku" ili nešto slično.
Potpis
http://pedja.supurovic.net - http://wireless.uzice.net - Besplatni .RS domeni - Mikrotik uputstva - YT9TP - OpenStreetMap Srbija
Re: Problem sa SetLocale na WIn10 08.11.2018. u 11:21 · pre 97 meseci #4
I meni je radilo do poslednjih nadogradnji. Medjutim kako ce vjerovatno prije ili kasnije svi nadograditi sistem trebam naci stabilno rjesenje.

Mislim da je problem u dijelu koda
SendMessage( HWND_BROADCAST, WM_SETTINGCHANGE, 0, LongInt(cs1));

Kad se on izvrsi sistem jednostavno blokira, vjerovatno je onemogucena promjena na ovaj nacin zadnjim nadogradnjama.
Na MS stranicama nisam nista uspio naci kao ni na ebracadero.
Konkretno kod koristim prilikom izvoza podataka u xml za aplikaciju koja koristi '.' kao decimalni separator.
Do sad sam mijenjao separator prilikom exporta podataka i nakon toga vracao na staro sto je sad onemoguceno.
Jel mozda postoji nacin da promjenim separator samo u Query componenti (koristim UNIDAC).
Re: Problem sa SetLocale na WIn10 08.11.2018. u 13:34 · pre 97 meseci #5
Pokušaj da odradiš update Jave na tom kompu, skoro sam imaosl problem sa štampom dokumenata, nije moglo nakon update Win 7, i posle osveženja Jave proradilo je, koliko sam negde naleteo na netu, problem je sa nekim dozvolama pristupa. Možda i ne pomogne, al kod mene je rešilo problem.
Potpis
Nikad izvini!
Re: Problem sa SetLocale na WIn10 08.11.2018. u 15:41 · pre 97 meseci #6
Sto kaze, deluje kao globalno resenje za lokalni problem.

Mozda bi podaci mogli da se izvezu u Excel kao brojevi?

Ili, da se prilikom eksporta eksplicitno navede decimalni separator..

kucam napamet

Code:
mojBroj := 123.456
formatSettings := TFormatSettings.Create
formatSettings.DecimalSeparator := '.'
mojString := Format ('%8.2n', [mojBroj], formatSettings); 


http://docwiki.embarcadero.com...okyo/en/System.SysUtils.Format
http://docwiki.embarcadero.com...ystem.SysUtils.TFormatSettings
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme