CanShrink Option
Hello,
I am trying to shrink a field when no data exists. In my case I have several address fields. If my second and third address lines are blank I want the fields below to move up and not print blank lines.
I have found some references to a CanShrink property for the .Net version. Is there something similar for the VCL version?
End users are going to be customizing this report so I really don't want a lot of script to make this work.
So for my specific example I have
[Address Line 1]
[Address Line 2]
[Address Line 3]
[City]
[State][Zip]
If Address Line 2 and 3 are blank I don't want blank lines between Line 1 and the City field.
I am trying to shrink a field when no data exists. In my case I have several address fields. If my second and third address lines are blank I want the fields below to move up and not print blank lines.
I have found some references to a CanShrink property for the .Net version. Is there something similar for the VCL version?
End users are going to be customizing this report so I really don't want a lot of script to make this work.
So for my specific example I have
[Address Line 1]
[Address Line 2]
[Address Line 3]
[City]
[State][Zip]
If Address Line 2 and 3 are blank I don't want blank lines between Line 1 and the City field.
Comments
you should always delete in reverse order
procedure mLabelOnAfterData(Sender: TfrxComponent);
var i: integer;
begin
for i := TfrxMemoView(Sender).Lines.Count - 1 downto 0 do
begin
if TfrxMemoView(Sender).Lines.Strings = '' then
TfrxMemoView(Sender).Memo.Delete(i);
end;
end;