UniDBGrid Summary

[Serg]

Добрый день!

 

После второго вызова едут все ширины  строки Summary

 

 

procedure TMainForm.UniDBGrid5ColumnSummaryResult(Column: TUniDBGridColumn;
  GroupFieldValue: Variant; Attribs: TUniCellAttribs; var Result: string);
var
  I : Integer;
  F : Real;
begin

 if SameText(Column.FieldName, 'REGION') then
  begin
    Result:='Всего:';
    Attribs.Font.Style:=[fsBold];
    Attribs.Font.Color:=clRed;
  end
  else

  if SameText(Column.FieldName, 'PANELS') then
  begin
    I:=Column.AuxValue;
    Result:=Format('%d', );
    Attribs.Font.Style:=[fsBold];
    Attribs.Font.Color:=clRed;
  end
  else

  if SameText(Column.FieldName, 'NETWORK') then
  begin
    Result:='';
    Attribs.Font.Style:=[fsBold];
    Attribs.Font.Color:=clRed;
  end
  else

   if SameText(Column.FieldName, 'COUNT_OBJ') then
  begin
    I:=Column.AuxValue;
    Result:=Format('%d', );
    Attribs.Font.Style:=[fsBold];
    Attribs.Font.Color:=clRed;
  end
  else

  if SameText(Column.FieldName, 'U1') then
  begin
    F:=Column.AuxValue;
    Result:=FormatCurr('0,0.00 ', F) + FmtSettings.CurrencyString;
    Attribs.Font.Style:=[fsBold];
    Attribs.Font.Color:=clRed;
  end
  else

  if SameText(Column.FieldName, 'U6') then
  begin
    F:=Column.AuxValue;
    Result:=FormatCurr('0,0.00 ', F) + FmtSettings.CurrencyString;
    Attribs.Font.Style:=[fsBold];
    Attribs.Font.Color:=clRed;
  end
  else

   if SameText(Column.FieldName, 'U7') then
  begin
    F:=Column.AuxValue;
    Result:=FormatCurr('0,0.00 ', F) + FmtSettings.CurrencyString;
    Attribs.Font.Style:=[fsBold];
    Attribs.Font.Color:=clRed;
  end
  else

   if SameText(Column.FieldName, 'U8') then
  begin
    F:=Column.AuxValue;
    Result:=FormatCurr('0,0.00 ', F) + FmtSettings.CurrencyString;
    Attribs.Font.Style:=[fsBold];
    Attribs.Font.Color:=clRed;
  end
  else

   if SameText(Column.FieldName, 'AUD_DAY') then
  begin
    F:=Column.AuxValue;
    Result:=FormatCurr('0,0.00 ', F);
    Attribs.Font.Style:=[fsBold];
    Attribs.Font.Color:=clRed;
  end
  else

   if SameText(Column.FieldName, 'SUM_CPT') then
  begin
    F:=Column.AuxValue;
    if UniMainModule.CUBE.RecordCount>0 then
    Result:=FormatCurr('0,0.00 ', F)
    else
    Result:=FormatCurr('0,0.00 ', 0);
    Attribs.Font.Style:=[fsBold];
    Attribs.Font.Color:=clRed;
  end;
  Column.AuxValue:=NULL;
end;

В чем моя ошибка?

 

Спасибо!

 

 

 

 

[Serg]

Если комментирую этот код - все в порядке

[Sherzod]

3 minutes ago, Serg said:

После второго вызова едут все ширины  строки Summary

Здравствуйте,

Можете уточнить? Скрины?

[Serg]

Вот

[Serg]

Второй скрин после второго построения таблицы

 

 

[Sherzod]

Извините, что возможно каждый раз спрашиваю про тестовый случай. Было бы лучше, если Вы прикрепите тестовый случай.

[Serg]

постараюсь