Steema Central

Code: Select all

// Returns the appropiate horizontal text alignment, depending on AField data type
class function TVirtualDBData.HorizAlignOf(const AField:TField):THorizontalAlign;
begin
  case AField.DataType of
    {$IFNDEF FPC}
    ftShortInt,
    {$ENDIF}
    ftSmallint,
    ftInteger,
    ftWord,
    ftAutoInc,
       {REH:FIX}
       ftFMTBcd, <---
       {REH:FIX}
    {$IFNDEF FPC}
    ftByte,
    {$ENDIF}

    {$IFNDEF FPC}
    ftLongWord,
    {$ENDIF}
    ftLargeint,

    ftDate,
    ftTime,
    ftDateTime,

    ftCurrency,

    {$IFNDEF FPC}
    {$IF CompilerVersion>20}
    ftSingle,
    {$IFEND}
    {$ENDIF}

    ftFloat : result:=THorizontalAlign.Right;

  else
    result:=THorizontalAlign.Left;
  end;
end;