70000615 MultiViewports export in VDF Wrapper component

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;

Send comments on this topic.