Советы по Delphi

       

Пример 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 DOBEGINIF (vRow=0) OR (vCol=0) THENFont.Color := clBlackELSE Font.Color := clRed;TextRect(Rect, Rect.Left, Rect.Top, Format('(%d,%d)',[vRow, vCol]));END;end;

- Neil [000512]



Содержание раздела