Закрасить ячейку в Stringgrid с минимальным элементом

@darankos2 · Регистрация: 20.01.2013

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

Доброго времени суток!

Не как не могу разобраться с раскрашиванием ячеек!

Delphi

1	var ACol, ARow: Integer; Rect: TRect;

Delphi

1
2
3

StringGrid1.Canvas.Brush.Color:=clRed;
if ((ACol=2)and(ARow=2)) then
  StringGrid1.Canvas.FillRect(Rect);

Найти нашел, но не понимаю в чем дело....почему не закрашивает мин элемент:

Delphi

With StringGrid1 do
 for i:=1 to RowCount-1 do
 begin
 min:=strtoint(StringGrid1.Cells[0,i]);
  for j:=0 to ColCount-1 do
  if (strtoint(StringGrid1.Cells[j,i])<min) then
  begin
  min:=Strtoint(StringGrid1.Cells[j,i]);
  ShowMessage(IntToStr(min));
  end;
  StringGrid2.Cells[0,i]:=IntToStr(min);
  end;      end;

п.с Убрал из-за не рабочего состояния)

Это все на TForm1.Button1Click(Sender: TObject);
Помогите мне с тем, чтобы stringgrid закрашивал или подчеркивал мин. элемент.
и еще, как находить пред последний минимальный элемент?,а вообще тут задача задача про Метод Мака)

@northener · 02.12.2014, 01:51

Сообщение от darankos2

Это все на TForm1.Button1Click(Sender: TObject);

В TForm1.Button1Click можно находить минимальный, максимальный или ещё какой вздумается элемент.
Но раскрашивать сей элемент, как и весь СтрингГрид можно и обязательно нужно только в событии OnDrawCell. Значит при поиске минимального/максимального/или еще какого-то элемента в Стринггриде надо его как-то метить. Для этого подходит свойство TStrings.Objects.

@northener пофигист широкого профиля 4662 / 3096 / 850 Регистрация: 15.07.2013 Сообщений: 17,851
	02.12.2014, 01:51	2
	Сообщение от darankos2 Это все на TForm1.Button1Click(Sender: TObject); В TForm1.Button1Click можно находить минимальный, максимальный или ещё какой вздумается элемент. Но раскрашивать сей элемент, как и весь СтрингГрид можно и обязательно нужно только в событии OnDrawCell. Значит при поиске минимального/максимального/или еще какого-то элемента в Стринггриде надо его как-то метить. Для этого подходит свойство TStrings.Objects. 0

Опции темы