Hallo mkinzler,
DefaultDrawing habe ich nicht verstellt, sie steht auf TRUE. Was meinst Du mit nur die Farbe setzen?
Mit Doppel-Click auf die Zelle, wird ein ColorDialog geöffnet und man kann die Farbe aussuchen.
Delphi-Quellcode:
procedure TfrmStringGridDemo.StringGrid1DblClick(Sender: TObject);
begin
with Sender as TStringGrid do
begin
if ColorDialog1.Execute then
begin
Objects[Col,Row]:= pointer (ColorDialog1.Color);
Invalidate;
end;
end;
end;
Bis bald Chemiker