Закрасить определенную ячейку StringGrid-а другим цветом

@mityi · Регистрация: 03.06.2008

возможно ли сделать так: чтобы с помощью ТОЛЬКО кнопки (потомучто у меня есть цикл где копирует в ячейки стрингГрида в определенном порядке из грида) при нажатии закрасился шрифт или ячейка(без разницы) например красным цветом, определенная ячейка c использованием кода StringGrid1.Cells[2,2].
Заранее благодарю!:'(

Добавлено через 1 минуту
На Delphi 5.

@Ядовитый · 04.06.2008, 09:08

Используй событие StringGrid, называющееся OnDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
Узнай в цикле по столбцам и строкам (ACol, ARow), та ли это ячейка, которая тебе необходима, и проделай такое:

Delphi

StringGrid1.Canvas.Brush.Color := clAqua;
StringGrid1.Canvas.FillRect(Rect);
S:= StringGrid1.Cells[ACol, ARow];
StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, S);

@mityi · 11.06.2008, 02:22 **[ТС]**

Сообщение от Ядовитый

Используй событие StringGrid, называющееся OnDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
Узнай в цикле по столбцам и строкам (ACol, ARow), та ли это ячейка, которая тебе необходима, и проделай такое:

StringGrid1.Canvas.Brush.Color := clAqua;
StringGrid1.Canvas.FillRect(Rect);
S:= StringGrid1.Cells[ACol, ARow];
StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, S);

все спасибо эта процедура мне не понадобилась, ну все равно спасибо что без внимания не оставили. мне нельзя было использовать OnDrawCell, потомучто я использовал для зополнения StringGridа ADOQuery. с него в цикле и забивает в ячейки, определенные уникальные номера,(может не понятно обьясняю, ну да ладно проблему то я решил!) Решил проблему таким вот образом, когда забиваются уникальные номера в ячейки стринга, в цикле я проверяю есть ли у "уникального номера" ,"код состояния", если есть записываю его в ячейку с пробелом на конце, а потом я использовал OnDrawCell, чтоб закрасить нужный "уникальный номер" я ищу пробел на конце если есть красим, если нет то не красим!
Все спасибо всем.

@mityi 1 / 1 / 0 Регистрация: 03.06.2008 Сообщений: 40
		1
	Закрасить определенную ячейку StringGrid-а другим цветом 03.06.2008, 22:36. Показов 4740. Ответов 2 Метки нет (Все метки) возможно ли сделать так: чтобы с помощью ТОЛЬКО кнопки (потомучто у меня есть цикл где копирует в ячейки стрингГрида в определенном порядке из грида) при нажатии закрасился шрифт или ячейка(без разницы) например красным цветом, определенная ячейка c использованием кода StringGrid1.Cells[2,2]. Заранее благодарю!:'( Добавлено через 1 минуту На Delphi 5. 0

@mityi 1 / 1 / 0 Регистрация: 03.06.2008 Сообщений: 40
	11.06.2008, 02:22 [ТС]	3
	Сообщение от Ядовитый Используй событие StringGrid, называющееся OnDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); Узнай в цикле по столбцам и строкам (ACol, ARow), та ли это ячейка, которая тебе необходима, и проделай такое: StringGrid1.Canvas.Brush.Color := clAqua; StringGrid1.Canvas.FillRect(Rect); S:= StringGrid1.Cells[ACol, ARow]; StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, S); все спасибо эта процедура мне не понадобилась, ну все равно спасибо что без внимания не оставили. мне нельзя было использовать OnDrawCell, потомучто я использовал для зополнения StringGridа ADOQuery. с него в цикле и забивает в ячейки, определенные уникальные номера,(может не понятно обьясняю, ну да ладно проблему то я решил!) Решил проблему таким вот образом, когда забиваются уникальные номера в ячейки стринга, в цикле я проверяю есть ли у "уникального номера" ,"код состояния", если есть записываю его в ячейку с пробелом на конце, а потом я использовал OnDrawCell, чтоб закрасить нужный "уникальный номер" я ищу пробел на конце если есть красим, если нет то не красим! Все спасибо всем. 0

Опции темы

Закрасить определенную ячейку StringGrid-а другим цветом

Решение