Hello,
I use TsMonthCalendar.
In the Main form :
Code:
procedure TFPrincipal.FormCreate(Sender: TObject);
begin
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_IFIRSTWEEKOFYEAR,'2');
here is the visual result
Why ?
For information :
0 Week containing 1/1 is the first week of that year. Note that this can be a single day, if 1/1 falls on the last day of the week.
1 First full week following 1/1 is the first week of that year.
2 First week containing at least four days is the first week of that year.