Code erläuterung zum einfärben von Zellen

[Bummi]

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  // ist die Länge des Textes in Zelle(Acol,Arow) größer 0            dann rot sonst weiß
  if length(StringGrid1.Cells[Acol,Arow])>0 then Stringgrid1.Canvas.Brush.Color := clRed else Stringgrid1.Canvas.Brush.Color := clWhite;
  // füllen
  Stringgrid1.Canvas.FillRect(rect);
end;

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  Acol,Arow:Integer;

begin
   //Mauskoordinaten in Zellkoordinaten umrechnen
   StringGrid1.MouseToCell(x,y,Acol,Arow);
   // ist die Länge des Textes in Zelle(Acol,Arow) größer 0  dann Leertext sonst 'X'
   if length(StringGrid1.Cells[Acol,Arow])>0 then StringGrid1.Cells[Acol,Arow] := '' else StringGrid1.Cells[Acol,Arow]:='X';

end;