28 replies to this topic

[Boki (Berg)]

Hello Sayxanath,

I will need to think about all once more. I will be back here soon.

Best regards

[Boki (Berg)]

Hello Sayxanath,

Can you please tell me does it will be good next solution:

- New property Footer.FormulaMask
- When CalculateFooter is called, formula is calculated and result is processed with Footer.FormulaMask . Please note that value will be transfered here into string.
- Final result may be displayed with using rules from Footer.FormatMask property

FormatFloat mask unfortunatelly can't be used because it will cause AV on non-numeric Footer.Caption .

I don't see any other solution here

Best regards

[Vu Quang Thang]

Hello Boki,

Why don't you process masking before converting into string? Do so will not make AV error.

Why MaskKind is not a good solution?

Kind regards

[Boki (Berg)]

Hello Sayxanath,

I will try then with MaskKind (mlText, mkFloat). By default mkText mask will be used, but you will be able to swith this property.

I will add it today.

Best regards

[Boki (Berg)]

Hello Sayxanath,

Please do next.

1) Open NxColumns.pas file
2) Add new type:

CODE

  TFormatMaskKind = (mkText, mkFloat);

3) Add new property for TColumnFooter:

CODE

private
    FFormatMaskKind: TFormatMaskKind;
...
    procedure SetFormatMaskKind(const Value: TFormatMaskKind);
...
published
...
    property FormatMaskKind: TFormatMaskKind read FFormatMaskKind write SetFormatMaskKind default mkText;
...
implementation
...
procedure TColumnFooter.SetFormatMaskKind(const Value: TFormatMaskKind);
begin
  FFormatMaskKind := Value;
  DoChange(Self);
end;

4) Inside NxDisplays.pas locate procedure TStyleDisplay.DrawFooterContent:

Replace block of code which begin with if FormatMask <> ... at beginning of procedure with:

CODE

    if FormatMask <> '' then
    begin
      case Column.Footer.FormatMaskKind of
        mkText: FormatedText := FormatMaskText(FormatMask, Caption);
        mkFloat: FormatedText := FormatFloat(FormatMask, StrToFloat(Caption));
      end;
    end else FormatedText := Caption;

Now recompile packages and set FormatMaskKind to mkFloat. Please note that this kind of mask will work ONLY for numbers (as may be seen from this code StrToFloat).

I hope that this work fine now.

Best regards

[Vu Quang Thang]

Hello Boki,

The footer format mask works fine now. But if we specify the footer right alignment (and format mask is something like #,##0), it is too close to the right margin.

Kind regards,

[Boki (Berg)]

Hello Sayxanath,

I think that correct value is #,##0.00

Best regards

[Vu Quang Thang]

Hello Boki,

No matter what format mask is, the footer value is too close to the margin if is is right aligned.

Kind regards,

[Boki (Berg)]

Hello Sayxanath,

Yes, you are correct (I was mix to far and to close). I will move it for 2px most probably.

Best regards