TDateTimePicker mit Wochennummern erzeugt shortdate

[Redeemer]

Warum so viel Code? Ich hab mir auch so'n Ding geschrieben, hier der gesamte Quelltext:

Delphi-Quellcode:

procedure TJanniDateTimePicker.SetWeekNumbers(const Value: Boolean);
begin
  if Value then
  SendMessage(Self.Handle, DTM_FIRST + 11, 0, SendMessage(Self.Handle, DTM_FIRST + 12, 0, 0) or MCS_WEEKNUMBERS)
  else
  SendMessage(Self.Handle, DTM_FIRST + 11, 0, SendMessage(Self.Handle, DTM_FIRST + 12, 0, 0) and not MCS_WEEKNUMBERS);
end;