Закрашивание ячейки в StringGrid

29.11.2010, 22:09. **Показов** 1996. **Ответов** 1

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

Возникла такая проблема. Нахожу в StringGrid-е MAX значение записываю его в переменную, затем сравниваю эту переменную со всеми значениями в StringGrid-е, так как значения могут повторятся. Затем вывожу эти значения с указанием позиции их размещения. Но хотелось бы еще и подсветить нужную ячейку каким -нибудь цветом. Но чего то не выходит, может надо что нибудь еще прописать. для присвоения цвета ячейки я писал только StringGrid1.Canvas.Brush.color := clRed.

@FuKingBrain · 30.11.2010, 00:19

Delphi

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const //çäåñü îïðåäåëÿåì Âàø öâåò. Òàê æå ìîæíî èñïîëüçîâàòü öâåòà ïî óìîë÷àíèþ.
  clPaleGreen = TColor($CCFFCC);
  clPaleRed = TColor($CCCCFF);
begin
    if ((ACol mod 2) = 0) and ((ARow mod 2) <> 0) then
      StringGrid1.Canvas.Brush.color := clPaleGreen
    else
      StringGrid1.canvas.brush.Color := clPaleRed;
 
  if (ACol > 0) and (ARow > 0) then
  begin
     StringGrid1.Canvas.FillRect(Rect);
 
    StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
  end;
end;

KolominR
		1
	Закрашивание ячейки в StringGrid 29.11.2010, 22:09. Показов 1996. Ответов 1 Метки нет (Все метки) Возникла такая проблема. Нахожу в StringGrid-е MAX значение записываю его в переменную, затем сравниваю эту переменную со всеми значениями в StringGrid-е, так как значения могут повторятся. Затем вывожу эти значения с указанием позиции их размещения. Но хотелось бы еще и подсветить нужную ячейку каким -нибудь цветом. Но чего то не выходит, может надо что нибудь еще прописать. для присвоения цвета ячейки я писал только StringGrid1.Canvas.Brush.color := clRed.

	30.11.2010, 00:19

Закрашивание ячейки в StringGrid

Решение