Delphi TStringGrid.Ondrawcell (Parameter?)

Thema durchsuchen

Ansicht

Themen-Optionen

TStringGrid.Ondrawcell (Parameter?)

Ein Thema von Michael Leyhe · begonnen am 12. Jan 2004 · letzter Beitrag vom 12. Jan 2004

Vorheriger Beitrag

Nächster Beitrag

s14

Registriert seit: 15. Mai 2003
Ort: München
251 Beiträge

Delphi 7 Architect

Re: TStringGrid.Ondrawcell (Parameter?)

12. Jan 2004, 16:12

Hallo,
so wird z.B. eine bestimmte Zelle eingefärbt:

zusammenfalten · markieren

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;