Einzelnen Beitrag anzeigen

s14

Registriert seit: 15. Mai 2003
Ort: München
251 Beiträge
 
Delphi 7 Architect
 
#2

Re: in StringGrid in jeder Zeile eine andere Zelle einfärben

  Alt 28. Okt 2003, 17:09
Hallo

mit diesem Beispiel kannst Du eine bestimmte Zelle einfärben, vielleicht hilfts ja weiter

Delphi-Quellcode:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  s: String;
begin
  if (ACol = 2) and (ARow = 3) then
  with Sender as TStringGrid do
  begin
    s := Cells[ACol, ARow];
    Canvas.Brush.Color := clRed;
    Canvas.FillRect(Rect);
    DrawText(Canvas.Handle, PChar(s), Length(s), Rect, DT_LEFT);
  end;
end;
Der Code muss in das Ereignis OnDrawCell eingefügt werden.

Gruß
s14
  Mit Zitat antworten Zitat