Zitat:
Grid1.Objects[iCol,iRow]:= TObject(-1); // merkwürdiger Code ...
So merkwürdig is der eigendlich gar nicht: Das hab ich aus nem anderen Thread so wie ich das verstanden habe nennt man das ne Flag dazu gehört dieser Code:
Delphi-Quellcode:
procedure TForm1.KalenderDrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
begin
(sender as TStringgrid).canvas.Brush.color:=(sender as TStringgrid).color;
if integer(Kalender.objects[col,row])=1 then
(sender as TStringgrid).canvas.Brush.color:=clInfoBk;
(sender as TStringgrid).canvas.FillRect(rect);
(sender as TStringgrid).canvas.TextOut(rect.left+2,rect.top+2,(sender as TStringgrid).Cells[col,row]);
end;