Как поле FireBird.домен.Numeric(7,2) увидеть в DBGrid с добной частью?

[Vladimir Trufanov]

Здравствуйте, эксперты!
Заполнил таблицу FireBird из таблицы Paradox. Одно из полей создано через домен Numeric(7,2). Из Delphi 7 значения этого поля в DBGrid показываются только целыми (мне нужно видеть дробную часть). При переключении на таблицу Paradox нормально - дробная часть присутствует!
Как добиться правильного представления?

[mihali4]

Например, так можно отображать поля в любом желаемом виде:

procedure TForm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
...
if Column.Field.FieldName='Rashod' then
WriteText(DBGrid1.Canvas, Rect, 2, 2, FormatFloat('# ### ###,##',TableRashods.Value), Column.Alignment);
...
end;

З.Ы. Да, а сама универсальная процедурка вывода такова:

procedure TForm.WriteText(ACanvas: TCanvas; ARect: TRect; DX, DY: Integer;
  const Text: string; Alignment: TAlignment);
const
  AlignFlags : array [TAlignment] of Integer =
    ( DT_LEFT or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX,
      DT_RIGHT or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX,
      DT_CENTER or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX );
var
  B, R: TRect;
  I, Left: Integer;
begin
  I := ColorToRGB(ACanvas.Brush.Color);
  if GetNearestColor(ACanvas.Handle, I) = I then
  begin                    
   case Alignment of
      taLeftJustify:
        Left := ARect.Left + DX;
      taRightJustify:
        Left := ARect.Right - ACanvas.TextWidth(Text) - 3;
    else
    Left := ARect.Left + (ARect.Right - ARect.Left) shr 1
        - (ACanvas.TextWidth(Text) shr 1);
    end;
    ExtTextOut(ACanvas.Handle, Left, ARect.Top + DY, ETO_OPAQUE or
      ETO_CLIPPED, @ARect, PChar(Text), Length(Text), nil);
end;
end;

Можете заодно раскрашивать:

Brush.Color:=clRed;
Font.Color:=clYellow;
FillRect(Rect);

[Vladimir Trufanov]

Закрываю тему. Слегка разобрался: я работал через BDE. Переключился на IBExpress, представление в DBGrid чисел Numeric(7,2) стало соответствующим. Всем спасибо!