Подсветка строки

[Quzya2]

Всем привет.
Суть задачи такова:
При нажатии на кнопку значение в виделенойя мною строчке ячейка "наскладе" должна уменшаться на 1.
Есил єто значение станет менше. чем значение в ячейке "норма", то єта строка должна изменит ьцвет на красніе, или текст стать красним.
ВОт что я пробива:

procedure TSklad.Button3Click(Sender: TObject);
var a,b:integer;
begin
With DataModule7.tablecklad do begin
a:=FieldByName('NACKLADI').AsInteger;
a:=a-1;
   FieldByName('NACKLADI').AsInteger:=a;
       a:=FieldByName('NACKLADI').AsInteger;
    b:=FieldByName('NORMA').AsInteger;
if (a<b)  then
DBGrid2.Font.Color:=clred;

end;
end;

Хелп.

[Sparky]

а данные отображаются в dbgrid?

[Sparky]

Если да, то Вам нужно событие DBGrid1DrawColumnCell в нем как раз таки и прописываете что вам нужно:

if (значение<норма) then
begin
DBGrid1.Canvas.Brush.Color:=$0080FFFF;
      DBGrid1.Canvas.Font.Color:=clBlack;
      DBGrid1.Canvas.FillRect(Rect);
      DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
      DBGrid1.Columns[1].Alignment:=taLeftJustify;
end

[Quzya2]

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

Если да, то Вам нужно событие DBGrid1DrawColumnCell в нем как раз таки и прописываете что вам нужно:

if (значение<норма) then
begin
DBGrid1.Canvas.Brush.Color:=$0080FFFF;
      DBGrid1.Canvas.Font.Color:=clBlack;
      DBGrid1.Canvas.FillRect(Rect);
      DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
      DBGrid1.Columns[1].Alignment:=taLeftJustify;
end

супер.
только как зделать, чтоби цифри в лево н еуезжали?
а то стоят по левому краю.

DBGrid1.Canvas.TextOut(Rect.Left+1,Rect.Top+2,Column.Field.Text);
    DBGrid1.Columns[1].Alignment:=taRightJustify;

так не катит.

И с первим вопросам как? чтоби при нажатие на кнопку значение на 1 уменшалось.

[Quzya2]

с первим порешал.
как только пересунуть вправо значение осталось)

[Sparky]

если правильно помню то нужно увеличить с 2 на то что Вам больше походит в этой строчке

DBGrid1.Canvas.TextOut(Rect.Left+1,Rect.Top+2,Column.Field.Text);