Избавиться от мерцаний в DrawCell Правильно укажите границы используемого канваса if Row = 0 then begin DrawGrid1.Canvas.Font.Color := clRed; DrawGrid1.Canvas.TextOut(Rect.Left, Rect.Top, IntToStr(Col)); end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
Правильно укажите границы используемого канваса
if Row = 0 then begin DrawGrid1.Canvas.Font.Color := clRed; DrawGrid1.Canvas.TextOut(Rect.Left, Rect.Top, IntToStr(Col)); end;