Hallo,
was sagt der Debugger (F5, F7, F8 ...),
was der Compiler (Warnungen ?).
Ausserdem verschweigst du hier , wo
Zaehler gesetzt wird.
Delphi-Quellcode:
DecodeDate(date,year,month,day);
for lauf := 1 to Tage do
begin
Inc(Zaehler);
Der muss auf 0 stehen.
Delphi-Quellcode:
DecodeDate(date,year,month,day);
Zaehler:= 0;
for lauf := 1 to Tage do
begin
Inc(Zaehler);
Setz mal per F5 auf die Zeile
Kalender.objects[count,row]:=TObject(1);
einen Breakpoint und schau an, ob die Zeile überhaupt angesprungen wird.
Wennja, funktioniert eine OnDrawCell nicht.
Das ganze funktioniert nat. auch nur, wenn du den aktuellen Monat als Kalender anzeigst.
Und wo wir gerade bei Code sind
Das Stück hier erscheint 2mal (DRY).
Delphi-Quellcode:
Kalender.Cells[count,row]:=IntToStr(lauf);
inc(count);
Heiko