Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

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]

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК