How can I change the language in some components: TCalendar, TDateComboBox - months, days, date separator, decimal separator ...?

Watch This
http://www.elevatesoft.com/manual?action=viewcomp&id=ewb2&comp=TFormatSettings

P.S. A pokus se priste kolegy ve foru pozdravit a pouzit slovo prosim.

--------------------------------------------------------------------------------------------------------------------------------------------------
Radovan Šamudovský wrote:

How can I change the language in some components: TCalendar, TDateComboBox - months, days, date separator, decimal separator ...?

Jirko dakujem.
Rado

Ahoj Jirko,

prosím ťa kde to mám zmeniť, pretože keď to píšem v:

procedure TMainForm.MainFormCreate(Sender: TObject);
begin
 DateSeparator := '.';
end;

tak mi to hádže chybu.

Tohle je pro Cesko, ale prelozit bys mel zvladnout.

procedure CZ_lokalize;
begin
FormatSettings.DateSeparator:='.';
FormatSettings.ShortDateFormat:='d.M.yyyy';
FormatSettings.ShortTimeFormat:='HH:mm';
FormatSettings.TimePMString:='Odp.';
FormatSettings.TimeAMString:='Dop.';
//dny v týdnu
FormatSettings.LongDayNames[1]:='pondělí';
FormatSettings.LongDayNames[2]:='úterý';
FormatSettings.LongDayNames[3]:='středa';
FormatSettings.LongDayNames[4]:='čtvrtek';
FormatSettings.LongDayNames[5]:='pátek';
FormatSettings.LongDayNames[6]:='sobota';
FormatSettings.LongDayNames[7]:='nedělě';
FormatSettings.ShortDayNames[1]:='Po';
FormatSettings.ShortDayNames[2]:='Út';
FormatSettings.ShortDayNames[3]:='St';
FormatSettings.ShortDayNames[4]:='Čt';
FormatSettings.ShortDayNames[5]:='Pá';
FormatSettings.ShortDayNames[6]:='So';
FormatSettings.ShortDayNames[7]:='Ne';
end;


Radovan Šamudovský wrote:

Ahoj Jirko,

prosím ťa kde to mám zmeniť, pretože keď to píšem v:

procedure TMainForm.MainFormCreate(Sender: TObject);
begin
 DateSeparator := '.';
end;

tak mi to hádže chybu.

Jirko, ďakujem. Rado