Enter column of DetailData-band via script
May be I posted this question in the wrong group...
Hello from Germany,
I try to create an organization-chart with fastreport 5. In some cases there are too much entries for a sub-organization. So I want to try to display them in two columns of a DetailData-band. The properties of the band are: ColumnGap 0,30, Columns 2 and ColumnWidth 10. The following code is used but only the first column of the band is used.
Druckdaten1.First;
Spalte := 1;
while not Druckdaten1.Eof do
begin
if (<Druckdaten1."Ebene1"> = 2) and (<Druckdaten1."Ebene2"> = I) and (<Druckdaten1."Ebene3"> > 0)then
if Spalte=1 then
begin
Engine.ShowBand(DetailData7);
Inc(Spalte);
end else
begin
Engine.NewColumn;
Dec(Spalte);
end;
Druckdaten1.Next;
end;
Any help is welcome rolleyes.gif
Best regards
Bernard
Hello from Germany,
I try to create an organization-chart with fastreport 5. In some cases there are too much entries for a sub-organization. So I want to try to display them in two columns of a DetailData-band. The properties of the band are: ColumnGap 0,30, Columns 2 and ColumnWidth 10. The following code is used but only the first column of the band is used.
Druckdaten1.First;
Spalte := 1;
while not Druckdaten1.Eof do
begin
if (<Druckdaten1."Ebene1"> = 2) and (<Druckdaten1."Ebene2"> = I) and (<Druckdaten1."Ebene3"> > 0)then
if Spalte=1 then
begin
Engine.ShowBand(DetailData7);
Inc(Spalte);
end else
begin
Engine.NewColumn;
Dec(Spalte);
end;
Druckdaten1.Next;
end;
Any help is welcome rolleyes.gif
Best regards
Bernard
Comments
Try to set Engine.CurX instead of Engine.NewColumn;