| Article | 70000615 |
| Type | Wish |
| Product | Engine |
| Version | 7005 |
| Date Added | 11/2/2015 12:00:00 AM |
| Fixed | 7.7006.0.6 (11/2/2015 12:00:00 AM) |
| Submitted by | 497864237 |
Summary
MultiViewports export in VDF Wrapper component
Solution
Added in version 7006.0.6 Example creating split layouts in VB6:
Dim slayout As VectorDraw_Professional.vdLayoutSplit
Dim isLayout As vdrawi5.vdLayout
If (VDraw1.ActiveDocument.LayOuts.FindName("mv1") Is Nothing) Then
''create a vdLayoutSplit object type.
Set isLayout = VDraw1.CreateNewVdFigure("vdLayoutSplit")
''set a unique name for the layout split
isLayout.Name = "mv1"
''get the vdLayoutSplit object reference
Set slayout = isLayout.WrapperObject
''set the layout split style
slayout.SplitStyle = SplitStyleEnum_Four_Right
''add the new layout spli to the layouts collection
VDraw1.ActiveDocument.LayOuts.AddItem isLayout
''make the layout split active
Set VDraw1.ActiveDocument.ActiveLayOut = isLayout
Else
VDraw1.Utility.GetMultiViewDialog ''display the default layout split manager
End If
In Delphi you can use it like :
// uses VDrawI5_tlb, VectorDraw_Professional_TLB, VDrawLib5_TLB, ....
procedure TForm1.Button1Click(Sender: TObject);
var
slayout : VectorDraw_professional_tlb.vdLayoutSplit;
islayout: Vdrawi5_tlb.vdLayout;
begin
if vdraw1.ActiveDocument.LayOuts.FindName('mv1')=nil then
begin
// create a vdLayoutSplit
islayout := vdraw1.CreateNewVdfigure('vdLayoutSplit') as Vdrawi5_tlb.vdLayout;
//set a unique name for the layout split
isLayout.Name := 'mv1';
//get the vdLayoutSplit object reference
slayout := isLayout.WrapperObject as VectorDraw_professional_tlb.vdLayoutSplit;
//set the layout split style
slayout.SplitStyle := SplitStyleEnum_Four_Right;
//add the new layout spli to the layouts collection
VDraw1.ActiveDocument.LayOuts.AddItem(isLayout);
//make the layout split active
VDraw1.ActiveDocument.ActiveLayOut := isLayout;
end
else
begin
VDraw1.Utility.GetMultiViewDialog; //display the default layout split manager
end;
end;