Einzelnen Beitrag anzeigen

Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.049 Beiträge
 
Delphi 2009 Professional
 
#3

AW: TDateTimePicker mit Wochennummern erzeugt shortdate

  Alt 4. Mär 2022, 20:37
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;
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat