Тема: TStringGrid
Показать сообщение отдельно
  #2  
Старый 11.03.2010, 12:22
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Отключить DefaultDrawing и самостоятельно перерисовывать все ячейки в событии onDrawCell. Например так:
Код:
if (ACol=1) and(AROw=1) then // для ячейки 1-1
 begin
 StringGrid1.Canvas.Brush.color := clYellow; // цвет фона
 StringGrid1.Canvas.Font.Size:=14; // размер шрифта
 StringGrid1.Canvas.FillRect(Rect); // рисуем фон
 StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]); // рисуем текст
 end;
Ответить с цитированием