procedure Page1OnManualBuild(Sender: TfrxComponent);
begin
with TfrxShapeView.Create(mdMain) do
begin
Parent := mdMain;
Name := 'Sh';
SetBounds(0, 0, 1000, 1000);
Shape := skEllipse;
Height := 25.50;
Left := 35.00;
Top := 44.90;
Width := 32.50;
Frame.Color := clBlack;
Frame.Style := fsSolid;
Frame.Style := 1;
Color := clNone;
BrushStyle := bsSolid;
Visible := True;
end;
Engine.ShowBand(mdMain);
end;
Соответственно предварительно нужно создать бэнд типа MasterData (в примере это mdMain). Соответственно создаем овал на этом бэнде, а потом этот бэнд выводим на лист
Комментарии
procedure Page1OnManualBuild(Sender: TfrxComponent);
begin
with TfrxShapeView.Create(mdMain) do
begin
Parent := mdMain;
Name := 'Sh';
SetBounds(0, 0, 1000, 1000);
Shape := skEllipse;
Height := 25.50;
Left := 35.00;
Top := 44.90;
Width := 32.50;
Frame.Color := clBlack;
Frame.Style := fsSolid;
Frame.Style := 1;
Color := clNone;
BrushStyle := bsSolid;
Visible := True;
end;
Engine.ShowBand(mdMain);
end;
Соответственно предварительно нужно создать бэнд типа MasterData (в примере это mdMain). Соответственно создаем овал на этом бэнде, а потом этот бэнд выводим на лист
И еще я на Билдере 6 пишу