TfrxShapeView as a container
Hi, I have on my report TfrxShapeView which I would like to be a container.
Dynamicly in my code I create some other TfrxShapeView objects, which are suppose to be little squares:
[code]
var
shView: TfrxShapeView;
legend: TfrxShapeView;
lastTop: double;
begin
legend:=(frxReport.FindObject('legendShape') as TfrxShapeView); //this is my container
lastTop:=8.55;
while not ado.Eof do
begin
shView:=TfrxShapeView.Create(legend);
shView.CreateUniqueName;
shView.Shape:=skRectangle;
shView.Left:=1;
shView.Height:=0.50;
shView.Width:=0.60;
shView.Top:=lastTop+shView.Height + 0.1;
lastTop:=shView.Top;
ado.Next;
end;
end;
[/CODEBOX]
This doesn't work. Nothing shows up. What should I do?
Dynamicly in my code I create some other TfrxShapeView objects, which are suppose to be little squares:
[code]
var
shView: TfrxShapeView;
legend: TfrxShapeView;
lastTop: double;
begin
legend:=(frxReport.FindObject('legendShape') as TfrxShapeView); //this is my container
lastTop:=8.55;
while not ado.Eof do
begin
shView:=TfrxShapeView.Create(legend);
shView.CreateUniqueName;
shView.Shape:=skRectangle;
shView.Left:=1;
shView.Height:=0.50;
shView.Width:=0.60;
shView.Top:=lastTop+shView.Height + 0.1;
lastTop:=shView.Top;
ado.Next;
end;
end;
[/CODEBOX]
This doesn't work. Nothing shows up. What should I do?
Comments