Delphi TDateTimePicker mit Wochennummern erzeugt shortdate

Thema durchsuchen

Ansicht

Themen-Optionen

TDateTimePicker mit Wochennummern erzeugt shortdate

Ein Thema von NoGAD · begonnen am 4. Mär 2022 · letzter Beitrag vom 6. Mär 2022

Vorheriger Beitrag

Nächster Beitrag

Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.114 Beiträge

Delphi 2009 Professional

AW: TDateTimePicker mit Wochennummern erzeugt shortdate

4. Mär 2022, 20:37

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

markieren

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;