Fastreport - automatisches "positionieren" eines memoviews

[luwo]

Völlig OT:
Danke Alzamair, der Tag ist gerettet, selten so gelacht

OnTopic:
Wir haben leere Daten in anderen Projekten auch über die OnPrint-Methode via Code ausgeblendet bzw. sichtbare Daten verschoben.
Aber so wirklich glücklich waren wir mit diesen Lösungen nicht.
Würden uns freuen hier etwas Neues zu erfahren.

Grüße Luwo

[Union]

Ich möchte hier mal einen Vorschlag von Gord K (FastReport) weitergeben:

Zitat von Gord K:

since a memo object is multi lined is there any reason you cannot use memoview containing each datafield on a line then in the memos load event write code to strip empty lines

Delphi-Quellcode:

procedure myLabelOnAfterData(Sender: TfrxComponent);
var i: integer;

begin
  for i := TfrxMemoView(Sender).Lines.Count - 1 downto 0 do
  begin
    if TfrxMemoView(Sender).Lines.Strings[i] = '' then
      TfrxMemoView(Sender).Memo.Delete(i);
  end;
end;

Wenn es Dir auf unterschiedliche Formatierung ankommt, brauchst Du nicht unbedingt ein RTF Memo zu verwenden. Denn FR untertstützt auch Pseudo-HTML Tags ( [b], [i], <u>, <sub>, <sup>, <strike>, <font>, <font color>).