CanShrink Option

Taylor N

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.

gordk

place all yor expressions in 1 memo object each on their own line and write code for the oad event

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;