I need to print NULL instead of the value ZERO at runtime for several fields, about 900, within the report.

I thought of using the OnDrawObject event at runtime, but I don't understand which TfrView property to query to replace the value from ZERO to NULL. Example : if View.???? = 0.00 then View.??? := NULL.

Can anyone suggest the most suitable method without having to intervene on every field of the report?

Thank you.

I have assembled an HTML based on a word document and am trying to insert it into frxHtmlView, but the paragraphs are not justified. When I open the browser, the text comes out correct.

Any idea what might be happening? I have Delphi 11 and FastReport VCL Standard.

Please find attached html.

we are using a business software (Delphi) shipped with quite a lot of standard reports.

Now I am searcing a tool to make some "optical" modifications in layout in some of this report files.

simple sample of a report:

Version of reports varies from:

TfrxReport Version="5.5.8 up to TfrxReport Version="6.8"

Whats a suitable and economical tool I can use for this?

May be an other category would be more suitable for my question.......

Thanks for help.

Kind regards

Ralf

I am using a software called "ZKTeco Attendance Management" which uses FRF format reports for its attendance reports.

I always install this software on my customers PCs and the reports work without a worry but today I got a customer that gets these two error messages:

1."Unsupported FRF format"

I click OK, then I get this:

2."There is no default printer currently selected"

As a solution I tried this:

1) I selected all the possible printers as default printer.

2) I Copied all the files from my perfectly working software on my pc to his pc to be sure it's not a configuration error or some missing file.

3) I used CCleaner to clean any possible register error.

but nothing worked.

These are all the files I have on my software's folder:

and these are all the printers I found:

and this is a link to a solution I found online which didn't work when I tried it:

Play Video

Thanks in Advance for your help.

GROUP HEADER
condition = order no.
print = order no., customer, ...

MASTER DATA
datasource = frDBDataSet
print = order line no., article, amount, sales price, ...

GROUP FOOTER
print = Total amount of order - Sum(amount)

PAGE FOOTER
print = Total amount of page, comment as order info

[/indent] 2 field.artist field.song
3 field.artist field.song

4 field.artist field.song
5 field.artist field. song

6 field.artist field.song
7 field.artist field.song

8 field.artist field.song
9 field.artist field.song

10 field.artist field.song
11 field.artist field.song

12 field.artist field.song
13 field.artist field.song

14 field.artist field.song
15 field.artist field.song

16 field.artist field.song
17 field.artist field.song

18 field.artist field.song
19 field.artist field.song

  if [POS('HEADING',[DF.Items."CODE"])] then MemoLRV.visible:=false;
           if [POS('SPACE',[DF.Items."CODE"])] then MemoLRV.visible:=false;
           if [POS('HEADING',[DF.Items."CODE"])] then MemonameV.font.Color:=clmaroon;
           if not [POS('HEADING',[DF.Items."CODE"])] then MemonameV.font.Color:=clblack;

           if not [POS('HEADING',[DF.Items."CODE"])] then MemoLRV.visible:=true;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);  
  var i:integer;
            
begin                          
         if <frxDBDatasetInsurPast."TP_FType"> ='11' then                                                         
            CheckBox1.Checked:=true;    
      if <frxDBDatasetInsurPast."TP_FType"> = '12' then                  
            CheckBox1.Checked:=false;                              
end;

function TfrRichView.DoCalcHeight: Integer;
var
  Range: TFormatRange;
  LastChar, MaxLen, LogX, LogY, NewDY, LowDy, HighDy: Integer;
  StopRender, Fit: Boolean;
begin
  FillChar(Range, SizeOf(TFormatRange), 0);
  with Range do
  begin
    hdc := GetDC(0);
    hdcTarget := hdc;
    LogX := Screen.PixelsPerInch;
    LogY := LogX;

    LowDy := 0;
    HighDY := 1000000;

    MaxLen := SRichEdit.GetTextLen;
    while HighDy - LowDy > 8 do //no tiene ning??n sentido seguir si ya pas?© el m?­nimo
    begin
      NewDY := LowDy + (HighDy - LowDy) div 2;
      rc := Rect(0, 0, Round(DX * 1440 / LogX), Round(NewDY * 1440.0 / LogY));
      rcPage := rc;
      LastChar := CharFrom;
      chrg.cpMax := -1;
      repeat
        chrg.cpMin := LastChar;
        LastChar := SRichEdit.Perform(EM_FORMATRANGE, 0, Integer(@Range));
        Fit := (LastChar >= MaxLen) or (LastChar = -1) or (LastChar = 0);
        StopRender := ((LastChar < MaxLen) and (LastChar <> -1)) or Fit;
      until StopRender;

      if Fit then
        HighDy := NewDY else
        LowDy := NewDY;
    end;
    ReleaseDC(0, hdc);
  end;
  SRichEdit.Perform(EM_FORMATRANGE, 0, 0);
  if HighDy < MinHeight then begin
    (* verificar que no sea un problema de c??lculo cuando queda una ??ltima l?­nea *)
    SRichEdit.Lines.Add('.');
    HighDy := DoCalcHeight div 2;
    SRichEdit.Lines.Delete(SRichEdit.Lines.Count-1);
  end;
  Result := HighDy;
end;