Delphi-Quellcode:
begin if arow >= 1 then
if acol >= 1 then
if (DayList[acol].isfree) and (acol <= 5) then
begin
stringgrid1.Canvas.Brush.color:=clred;
end;
hier mal ein beispiel. da wird getestet ob in der Daylist ein Tag frei ist und dieser dann eingefärbt.
du solltest dich hier erstmal auf das wesentliche konzentrieren und nur versuchen sp auszuwerten.
warum rufst du den Vorgänger auf_ objektablage
dann mußt du schon zeigen was der vorgänger macht.