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 IfIn 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;