|
|
|
|
Delphi 1
Пример TDrawGrid Drawcell
|
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);
VAR vRow, vCol : LongInt;begin vRow := Row; vCol := Col;
WITH Sender AS TDrawGrid, Canvas DO
BEGIN
IF (vRow=0) OR (vCol=0) THEN
Font.Color := clBlack
ELSE Font.Color := clRed;
TextRect(Rect, Rect.Left, Rect.Top, Format('(%d,%d)',[vRow, vCol]));
END;
end;
|
- Neil [000512]
|
|
|
|
|