расрисовать STRINGGRIG

[cowboy]

Добрый день!. Понимаю , что вопрос уже сто раз обсасывался но тем не менее сделать эту не сложную функцию у меня так и не получается.. Мне нужно раскрасить строку в Стринггриде на Пэйджесдиалоге.

Я скомуниздил вот такую не хитрую процедру
procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;

Rect: TRect; State: TGridDrawState);
const

CharOffset = 3;
begin

with PagesDlg.StringGrid1.canvas do
begin
font.color := clMaroon;
textout(rect.left + CharOffset, rect.top + CharOffset, 'L');
font.color := clNavy;
textout(rect.left + CharOffset + TextWidth('L'),
rect.top + CharOffset, 'loyd');
end;
end;

Но тем не менее не понмаю как ее дальше к себе приспособить..Мне нужно ячейки которые больше нуля раскрасить в зеленый..Спасибо всем за помощь...

Или просто дайте мне кто нить простую процедурку которая раскрашивает все поля на стринггриде на пэйджес диалог-а дальше попробую сам разобратся.

[puporev]

Типа так

for i:=0 to StrigGrid1.RowCount-1 do
for j:=0 to StrigGrid1.ColCount-1 do
if StrToInt(StrigGrid1.Cells[i,j])>0 then раскрасить(Ваша процедура).

[cowboy]

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

Типа так

for i:=0 to StrigGrid1.RowCount-1 do
for j:=0 to StrigGrid1.ColCount-1 do
if StrToInt(StrigGrid1.Cells[i,j])>0 then раскрасить(Ваша процедура).

а вызывать ее вот так

procedure StringGrid1DrawCell(StrigGrid1, i,j,???, ???);

?
Что вместо вопросов то ставить?

[puporev]

Да вроде процедуру надо другую написать, нестандартную.

[ОДИНОЧЕСТВО В СЕТИ]

Компонент TStringGrid - назначение цвета для каждой строки

[Karabash]

Установить свойство StringGrid DefaultDrawing в False.
На закладке Events Object Inspector щелкнуть два раза на строке OnDrawCell.
В тексте появится заготовка процедуры, связанная с событием отрисовки ячеек таблицы.
В ней уже можно раскрашивать и фон и текст ячееек

Как пример:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
                            Rect: TRect; State: TGridDrawState);
var R : TRect;
begin
  R := Rect;
  OffsetRect(R, 0, 2);  //для "красоты", чтобы текст не прижимался к разделительным линиям таблицы
  
  if gdSelected in State then begin   //для выделения активной строки
    StringGrid1.Canvas.Brush.Color := clHighlight;
    StringGrid1.Canvas.FrameRect(Rect);
    StringGrid1.Canvas.Font.Color := clWhite;
  end else begin     //другие строки
    if StringGrid1[ACol, ARow] > '0' then
      StringGrid1.Canvas.Brush.Color := clLime
    else
      StringGrid1.Canvas.Brush.Color := clWhite;
    StringGrid1.Canvas.FillRect(Rect);
  end;
  //в любом случае отрисовка текста
  if ARow = 0 then //текст заголовков по центру
    DrawText(StringGrid1.Canvas.Handle, pchar(StringGrid1.Cells[ACol, ARow]), -1, R, DT_CENTER)
  else
    DrawText(StringGrid1.Canvas.Handle, pchar(StringGrid1.Cells[ACol, ARow]), -1, R, DT_LEFT);
end;

[cowboy]

Спасибо большое!Это мне и надо было