|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Изменить цвет ячейки, цвет текста, стиль, шрифт и т.д, добавить значок в ячейку Можно сделать в обработчике TStringGrid(TDrawGrid).onDrawCell:
Примерно так: procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin With TStringGrid(Sender),TStringGrid(Sender).Canvas Do Begin // Очистим клиентскую область ячейки FillRect(Rect); // Аттрибуты Brush.Color:=ClYellow; // цвет ячейки Font.Color:=ClBlue; // цвет шрифта Font.Style:=[fsBold]; // стиль шрифта Font.Size:=14; // размер шрифта // Добавить картинку можно нарисовав её через метод TCanvas.Draw: // Draw(Rect.Left + 2, Rect.Top + 2, значок); // А теперь выведем текст TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol,ARow]); End; end; |