Wenn innerhalb von 20 St. keine fertige Antwort kommt, dann gibt man auf oder wie ?
Delphi-Quellcode:
const IsChecked : array[Boolean] of Integer =
(DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
...
if ACol in CheckBoxCols then begin
DrawRect:=Rect;
InflateRect(DrawRect,-1,-1);
DrawState := ISChecked[StrToInt (sgSender.Cells [ACol,ARow]) = 1];
sgSender.Canvas.FillRect(Rect); // hinter Cells liegende 0/1 nicht anz.
DrawFrameControl(sgSender.Canvas.Handle,DrawRect,DFC_BUTTON,DrawState);
end
Ich erläure das allerdings jetzt nicht näher. Man beachte allerdings den Kommentar !!