Fastreport - automatisches "positionieren" eines memoviews

[epex]

Hi, ich habe folgendes Problem mit Fastreport.
Ich habe z.B. eine Anschrift und erfasse in einer Datenbank Daten wie z.B. anrede, name, strasse und hausnummer, plz und ort sowie variable telefon nummern und email adressen.
Mein Problem is jetzt das ich folgendes Drucken möchte:
Anrede
Name
Titel
Zusatz
Strasse + Hnr
PLZ + Ort
tel 1
tel2
fax
handy
.....

usw

ist auch eigentlich kein Problem ABER (!!!!) wenn jetzt Tel1 oder zusatz oder titel wegfällt dann is da ne blöde unschöne lücke.
Frage: wie realisier ichs nun das die Felder unter der lücke "hochrutschen" ???

mfg Phil

[RavenIV]

Du solltest uns mitteilen, welche Version von Fastreport Du verwendest.
Es gibt nämlich gravierende Unterschiede zwischen den einzelnen Versionen.

[Union]

Bau doch das Memo mit frxMemoDaten.Lines.Add() zusammen oder schreib einen entsprechenden Ausdruck in das Memo zum Evaluieren.

[epex]

@ravenIV
ich benutze fastreport in der version 4.0.11

@union
ja das hatte ich mir auch schon überlegt nur dachte ich das es einfacher geht (ne propertie oder sonst was) wo ich dann bestimmen kann das sich das memo auf das darüberstehende beziehen soll

[Union]

Zitat:

ja das hatte ich mir auch schon überlegt nur dachte ich das es einfacher geht (ne propertie oder sonst was) wo ich dann bestimmen kann das sich das memo auf das darüberstehende beziehen soll

Leider gibt es kein Align = baTop. Die automatische Ausrichtung funktioniert nur mit baRight / baLeft in Verbindung mit AutoSize. Ich habe eine eher widerwärtige Lösung, ich gehe einfach die Werte von oben nach unten druch unt verschiebe alles ein Element nach oben, wenn leer (im Script-Event OnStartReport):

Delphi-Quellcode:

 
  if <qryLsAdrWE."NAME_2"> = '' then
  begin              
     qryLsAdrWEName_3.Top   := qryLsAdrWEName_3.Top-qryLsAdrWEName_3.Height;
     qryLsAdrWEName_4.Top   := qryLsAdrWEName_4.Top-qryLsAdrWEName_4.Height;
     qryLsAdrWEStrasse.Top  := qryLsAdrWEStrasse.Top-qryLsAdrWEStrasse.Height;
     qryLsAdrWEStrasse2.Top := qryLsAdrWEStrasse2.Top-qryLsAdrWEStrasse2.Height;
     qryLsAdrWELand.Top     := qryLsAdrWELand.Top-qryLsAdrWELand.Height;
     qryLsAdrWEPlz.Top      := qryLsAdrWEPlz.Top-qryLsAdrWEPlz.Height;
     qryLsAdrWEOrt.Top      := qryLsAdrWEOrt.Top-qryLsAdrWEOrt.Height;
     qryLaendernamen.Top    := qryLaendernamen.Top-qryLaendernamen.Height;                                                                                                                  
  end;                   

  if <qryLsAdrWE."NAME_3"> = '' then
  begin              
     qryLsAdrWEName_4.Top   := qryLsAdrWEName_4.Top-qryLsAdrWEName_4.Height;
     qryLsAdrWEStrasse.Top  := qryLsAdrWEStrasse.Top-qryLsAdrWEStrasse.Height;
     qryLsAdrWEStrasse2.Top := qryLsAdrWEStrasse2.Top-qryLsAdrWEStrasse2.Height;
     qryLsAdrWELand.Top     := qryLsAdrWELand.Top-qryLsAdrWELand.Height;
     qryLsAdrWEPlz.Top      := qryLsAdrWEPlz.Top-qryLsAdrWEPlz.Height;
     qryLsAdrWEOrt.Top      := qryLsAdrWEOrt.Top-qryLsAdrWEOrt.Height;
     qryLaendernamen.Top    := qryLaendernamen.Top-qryLaendernamen.Height;                                                                                                                  
  end;

Das ginge mittels eines Arrays bestimmt noch eleganter.

[RavenIV]

Zitat:

Zitat von epex

ja das hatte ich mir auch schon überlegt nur dachte ich das es einfacher geht (ne propertie oder sonst was) wo ich dann bestimmen kann das sich das memo auf das darüberstehende beziehen soll

Es gibt doch Ereignisse wie z.B. OnBeforePrint.
Damit kann man per "Code" im Report beeinflussen, was passieren soll.
Hier kannst Du dann bestimmen, dass wenn LabelVorname leer ist, dann LabelName um x Pixel nach oben gesetzt wird.

[Union]

Kein Roter Kasten?

[alzaimar]

Äh, wieso konkatenierst Du die einzelnen Zeilen nicht, wobei Du nur nichtleere Zeilen addierst?

Delphi-Quellcode:

Procedure AddNonEmpty (aLines : TStrings; Const aLine : String);
Begin
  If Trim (aLine)<>'' Then aALines.Add(aLine);
End;

Und schreibst dann 'aLines.Text' in eine TfrxMemo?

[epex]

so habs gelöst ^^
hab mir jetzt einfach nen richview genommen das ganze stretchable gemacht frag jetzt den wert inner DB ab über length() und wenns grösser 0 is dann wird halt ne line im richview geaddet ... jetzt isses nur noch interessant zu wissen wie ich die einzelnen lines formatieren kann

aber ansonnsten läufts soweit. danke für eure bemühungen :)

mfg Phil

*edit*
@union
was meintest du mit roter kasten ?

[alzaimar]

Also wie die einzelnen lines formatted werden können, kannst Du mit Word / Wordpad outbecomen. You muss einfach das program starten, ein paar lines adden und nach deinen Requirements formatten und als RTF saven. Dann loadest Du das RTF-file und looks einfach, what das program draus gedoo'd haben. Mit ein wenig phantasy pastest Du dann die RTF-fragments simply in dein code.

Ick finde aber, dat denglish no outpress von professionalism is, sondern eher von lack of eigene languagekenntnisse. Ick woorde meer dat abgevoughnen, da dat weerglesh beschoyard kleanged.

Howdy.

[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:

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>).