Рисуем в ячейке DBGrig

[_SERGEYX_]

Добрый день.
Что-то не могу сообразить... Допустим в таблице в числовом поле указаны проценты чего-то и 4 строки
40
30
20
10
//итого 100%
Как залить первую ячейку каким-нибудь цветом на 40%, вторую - на 30% и т.д.??? (Получится что-то типа диаграммы).
Понимаю, что нужно обрабатывать OnDrawDataCell. Ширина столбца в пикселях будет 100%.... А как закрасить?

[D-mon]

Понимаю, что нужно обрабатывать OnDrawDataCell.

DBGrid1.Canvas.Rectangle(Rect)

[_SERGEYX_]

Ну, да... Так я могу закрасить любую ячейку.
Но как закрасить часть ячейки? Ведь Rect определен как константа... и я не могу изменить ширину прямоугольника....

[D-mon]

DBGrid1.Canvas.Rectangle(Rect.Left, Rect.Top, дальше сам поиграйся, непомню точно) - непомню как там...

[Stilet]

Я уже давал на это и ответ и пример раскрасски ячеек DBGrid - рули поиском.

[_SERGEYX_]

Stilet, я поднял, поиском все... Но все не то. Я знаю как раскрасить столбцы, строки и ячейки Грида. Мне же нужно раскрасить часть ячейки, чтобы получилось как на картинке

[D-mon]

Лови и не ссорся с модератором причём заслуженным:

procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if(Column.FieldName='код_работы')then
  begin
   DBGrid1.Canvas.Brush.Color:=clRed;
   DBGrid1.Canvas.Pen.Color:=clRed;
   DBGrid1.Canvas.Rectangle(Rect.Left,Rect.Top,Rect.Right-Column.Field.AsInteger*10,Rect.Bottom)
  end;
end;

[_SERGEYX_]

D-mon, спасибо. Именно то, что нужно.

[Stilet]

D-mon

Да мы и не думали ссорится, просто плохо Сергей искал.
Позволь выдать вторую версию твоего кода, как мне кажется он короче:

//********** WITH **********
with DBGrid1.Canvas do  begin
 Brush.Color:=clRed;
 rect.Right:=Rect.Left+strtointdef(StringGrid1.Cells[acol,arow],0);
 FillRect(rect);
end;
//********** END WITH ****** {}

Только тут бы масштабировать нужно...

[D-mon]

как мне кажется он короче

Прикольно получилось, но помоему мой нагляднее будет, и твой помоему, если я не ошибаюсь, рисует во всех ячейках... Я не в коем случае не хочу никого обидеть.