Oh je. Das wird noch komplizierter. Habe das jetzt so gemacht :
Delphi-Quellcode:
if ACol in BoolCols then begin
DrawRect:=Rect;
InflateRect(DrawRect,-1,-1);
DrawState := ISChecked[StrToInt (sg.Cells [ACol,ARow]) = 1];
sg.Canvas.FillRect(Rect);
DrawFrameControl(sgArtNr.Canvas.Handle, DrawRect,DFC_BUTTON, DrawState);
Wenn ich das richtig dehe, dann sind die Checkboxen lediglich zu sehen und haben keine Funktion, oder ? Muß ich da jetzt noch mit MouseMove im SelectCell usw. hantieren ?
