Как закрасить ячейку в Stringgrid, в которой есть "*"

@Анара_ИС · Регистрация: 20.04.2011

Студворк — интернет-сервис помощи студентам

Всем привет! Подскажите мне пожалуйста, как закрасить ячейки Stringgrid в которой есть "*"?

@solar_wind · 21.04.2011, 07:16

Анара_ИС,
1. найти соответствующий метод или свойство в классе Stringgrid и использовать его.
2. написать обертку для класса Stringgrid и переопределить функции рисования.

@i8085 · 21.04.2011, 08:10

Сообщение от Анара_ИС

закрасить ячейки Stringgrid в которой есть "*"

Закраску надо помещать в событие DrawCell.

Delphi

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if Pos('*' ,StringGrid1.Cells[ACol,ARow]) > 0 then StringGrid1.Canvas.Brush.Color:= clInfoBK;
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.TextOut(Rect.Left+2, Rect.Top+2, StringGrid1.Cells[ACol, ARow]);
end;

Закрашивает ячейку, если в ней в тексте есть '*'.

@Анара_ИС 1 / 1 / 0 Регистрация: 20.04.2011 Сообщений: 12
		1
	Как закрасить ячейку в Stringgrid, в которой есть "" 21.04.2011, 06:48. Показов* 5884. Ответов 2 Метки нет (Все метки) Всем привет! Подскажите мне пожалуйста, как закрасить ячейки Stringgrid в которой есть "*"? 0

@solar_wind 770 / 760 / 59 Регистрация: 06.07.2009 Сообщений: 3,021
	21.04.2011, 07:16	2
	Анара_ИС, 1. найти соответствующий метод или свойство в классе Stringgrid и использовать его. 2. написать обертку для класса Stringgrid и переопределить функции рисования. 0

Опции темы

Как закрасить ячейку в Stringgrid, в которой есть "*"

Решение