Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Code erläuterung zum einfärben von Zellen

   
    by Bummi, 13. Okt 2010
  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)>0 then Stringgrid1.Canvas.Brush.Color := clRed else Stringgrid1.Canvas.Brush.Color := clWhite;
  // füllen
  Stringgrid1.Canvas.FillRect(rect);
  end;
  ...