TDateTimePicker mit Wochennummern erzeugt shortdate

[NoGAD]

Zitat von Redeemer:

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

Hallo Janni,

danke für Deine Antwort. Ich mag falsch liegen, jedoch erinnere ich mich irgendwie an die Breite desKalnders, der nicht immer korrekt passt.

Ich kann es Dir nicht sagen.

In meiner Komponente ist auch noch ein OnMouseEnter/Leave mit drin.

LG

[Redeemer]

Ich hatte damals viel rumprobiert und hatte auch mit diversem Code, den ich irgendwo gefunden hatte, Probleme mit der Breite. Diese Lösungen hatten gemeinsam, dass sie im Dropdown-Event den MonthCal geholt und verändert hatten, so wie du. Wenn ich mich recht erinnere, war die Breite beim ersten Öffnen des DropDowns immer falsch.
Dann hab ich in der Microsoft-Doku gefunden, dass nicht nur das Month-Cal-Control sondern auch das Date-Picker-Control eine WeekNumbers-Eigenschaft hat. Leider scheint mein Code auf Frames nur zu funktionieren, wenn er erst nach dem Erstellen des Frames aufgerufen wird. Die Anpassbarkeit ist natürlich geringer.

[KodeZwerg]

Zitat von NoGAD:

Delphi-Quellcode:

Constructor TTRM_DateTimePicker.Create(AOwner: tComponent);
begin
  Inherited Create(AOwner);
  FExtraSpaceX := 12;
  FExtraSpaceY := 12;
  WeekNumbers := True;
  Self.Date := Now;
  DateFormat := dfLong;
end;

Ich würde WeekNumbers := True; nicht so verwenden.

Delphi-Quellcode:

  Self.WeekNumbers := True;
oder
  FWeekNumbers := True;

[Uwe Raabe]

Zitat von KodeZwerg:

Ich würde WeekNumbers := True; nicht so verwenden.

Delphi-Quellcode:

  Self.WeekNumbers := True;
oder
  FWeekNumbers := True;

Wo soll denn der Unterschied sein zwischen einem WeekNumbers := True; und Self.WeekNumbers := True; ?

[KodeZwerg]

Zitat von Uwe Raabe:

Zitat von KodeZwerg:

Ich würde WeekNumbers := True; nicht so verwenden.

Delphi-Quellcode:

  Self.WeekNumbers := True;
oder
  FWeekNumbers := True;

Wo soll denn der Unterschied sein zwischen einem WeekNumbers := True; und Self.WeekNumbers := True; ?

Aus Sicht des Lesers:
Für mich in der Lesbarkeit des Quelltextes um ohne hin und her scrollen zu müssen zu Wissen das es sich um eine interne Sache handelt.
DateFormat := dfLong; als Gegenstück dazu zeigt einem sofort, hey Leser ich komme von woanders her.

Aus Sicht der Ausführung:
Das Ergebnis bleibt das selbe.

[Uwe Raabe]

Zitat von KodeZwerg:

Für mich in der Lesbarkeit des Quelltextes um ohne hin und her scrollen zu müssen zu Wissen das es sich um eine interne Sache handelt.
DateFormat := dfLong; als Gegenstück dazu zeigt einem sofort, hey Leser ich komme von woanders her.

Diese Unterscheidung bei der Behandlung der beiden Properties DateFormat und WeekNumbers erschließt sich mir immer noch nicht. Warum bei WeekNumbers ein Self davor, aber bei DateFormat nicht?

[KodeZwerg]

Zitat von Uwe Raabe:

Zitat von KodeZwerg:

Für mich in der Lesbarkeit des Quelltextes um ohne hin und her scrollen zu müssen zu Wissen das es sich um eine interne Sache handelt.
DateFormat := dfLong; als Gegenstück dazu zeigt einem sofort, hey Leser ich komme von woanders her.

Diese Unterscheidung bei der Behandlung der beiden Properties DateFormat und WeekNumbers erschließt sich mir immer noch nicht. Warum bei WeekNumbers ein Self davor, aber bei DateFormat nicht?

Weil DateFormat aus unit Vcl.ComCtrls kommt und WeekNumbers eine property der eigenen Klasse ist (Self)