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]
