Hmmm.... I-wie klappt das nicht:
Delphi-Quellcode:
DecodeDate(date,year,month,day);
for lauf := 1 to Tage do
begin
Inc(Zaehler);
if count = 7 then
begin
count:=0;
inc(row);
Kalender.Cells[count,row]:=IntToStr(lauf);
inc(count);
end
else
begin
Kalender.Cells[count,row]:=IntToStr(lauf);
inc(count);
end;
if EncodeDate(year,month,Zaehler)=date then
begin
Kalender.objects[count,row]:=TObject(1);
end;
end;
Das ist meine Prozedur in der das Stringgrid gefüllt wird darunter hab ich dann die if then abfrage nach EncodeDate gesetzt jetzt wird kein feld eingefärbt...???