home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / envelop / envelop.5 / Tools / Bootcamp / advanced / oledemo / oledemo.eto < prev    next >
Text File  |  1996-07-08  |  8KB  |  250 lines
  1. Type OLESymbol From Image
  2.   Dim FileName As String
  3.   Dim BitmapSymbol As New Bitmap
  4.  
  5.   ' METHODS for object: OLESymbol
  6.   Sub DragStart(xf as XferData, x As Single, y As Single)
  7.     ' If there is no parent for this object, then don't do anything
  8.     If Not Parent Then Exit Sub
  9.   
  10.     ' Set the filename for the ole symbol
  11.     xf.FileName = FileName
  12.   
  13.     ' Set the type of Drag mode
  14.     xf.Drag(1)
  15.   
  16.   End Sub
  17.  
  18. End Type
  19.  
  20. Type OLEDemoMasterForm From SampleMasterForm
  21.   Dim oleDisplayer As New Ole
  22.   Dim DND_NONE As Long
  23.   Dim DND_COPY As Long
  24.   Dim DND_MOVE As Long
  25.   Dim DND_LINK As Long
  26.   Dim DND_SCROLL As Long
  27.   Dim DND_MOREFILES As Long
  28.   Dim DND_LASTFILE As Long
  29.   Dim DND_ENTER As Integer
  30.   Dim DND_LEAVE As Integer
  31.   Dim DND_OVER As Integer
  32.   Dim DND_DROP As Integer
  33.   Dim DND_DROPFILE As Integer
  34.   Dim Label3 As New Label
  35.   Dim Label4 As New Label
  36.   Dim OLESymbol1 As New OLESymbol
  37.   Dim OLESymbol3 As New OLESymbol
  38.   Dim OLESymbol4 As New OLESymbol
  39.   Dim OLESymbol5 As New OLESymbol
  40.   Dim OLESymbol6 As New OLESymbol
  41.   Dim OLESymbol7 As New OLESymbol
  42.   Dim Label1 As New Label
  43.  
  44.   ' METHODS for object: OLEDemoMasterForm
  45.   Sub DragAndDrop(source As XferData, x,y As Single, state As OleDropState, effect As OleDropEffect)
  46.     If state = "DropFile" Then 
  47.       ' OLEDemoMasterForm.Caption = source.FileName
  48.       oleDisplayer.SetData source.GetData
  49.       effect = 0
  50.     ElseIf state = "Drop" Then 
  51.       If effect And DND_LINK Then 
  52.         oleDisplayer.OleTypeAllowed = "Linked"
  53.       Else 
  54.         oleDisplayer.OleTypeAllowed = "Either"
  55.       End If
  56.       oleDisplayer.SetData source.GetData
  57.     End If
  58.   End Sub
  59.  
  60.   Sub oleDisplayer_DragAndDrop(source As XferData, x As Single, y As Single, state As OleDropState, effect As OleDropEffect)
  61.     If state = "DropFile" Then 
  62.       ' OLEDemoMasterForm.Caption = source.FileName
  63.       oleDisplayer.SetData source.GetData
  64.       effect = 0
  65.     ElseIf state = "Drop" Then 
  66.       If effect And DND_LINK Then 
  67.         oleDisplayer.OleTypeAllowed = "Linked"
  68.       Else 
  69.         oleDisplayer.OleTypeAllowed = "Either"
  70.       End If
  71.       oleDisplayer.SetData source.GetData
  72.     End If
  73.   End Sub
  74.  
  75.   Sub ResetApplication_Click()
  76.     OLESymbol1.FileName = SampleDir & "destruct.wav"
  77.     OLESymbol3.FileName = SampleDir & "sales.xls"
  78.     OLESymbol4.FileName = SampleDir & "paint.bmp"
  79.     OLESymbol5.FileName = SampleDir & "welcome.doc"
  80.     OLESymbol6.FileName = SampleDir & "world.ppt"
  81.     OLESymbol7.FileName = SampleDir & "readme.txt"
  82.   End Sub
  83.  
  84.   Sub Resize()
  85.     oleDisplayer.Move 0, oleDisplayer.Top, ScaleWidth, ScaleHeight - oleDisplayer.Top
  86.     OLEDemoMasterForm.Refresh
  87.   End Sub
  88.  
  89. End Type
  90.  
  91. Begin Code
  92. ' Reconstruction commands for object: OLESymbol
  93. '
  94.   With OLESymbol
  95.     .Move(0, 0, 615, 600)
  96.     .Picture := OLESymbol.BitmapSymbol
  97.     .ScrollBars := "Never"
  98.     .FileName := ""
  99.     With .BitmapSymbol
  100.     End With  'OLESymbol.BitmapSymbol
  101.   End With  'OLESymbol
  102. ' Reconstruction commands for object: OLEDemoMasterForm
  103. '
  104.   With OLEDemoMasterForm
  105.     .Caption := "OLE Demonstration"
  106.     .DragMode := "No Drag"
  107.     .Move(4350, 2190, 8820, 6570)
  108.     .FileDrop := True
  109.     .SampleDir := "C:\envelop\bootcamp\advanced\oledemo\"
  110.     .SampleName := "OLEDEMO"
  111.     .DND_NONE := 0
  112.     .DND_COPY := 1
  113.     .DND_MOVE := 2
  114.     .DND_LINK := 4
  115.     .DND_SCROLL := 2147483647
  116.     .DND_MOREFILES := -1
  117.     .DND_LASTFILE := 0
  118.     .DND_ENTER := 0
  119.     .DND_LEAVE := 1
  120.     .DND_OVER := 2
  121.     .DND_DROP := 3
  122.     .DND_DROPFILE := 4
  123.     With .oleDisplayer
  124.       .Caption := "oleDisplayer"
  125.       .DragMode := "No Drag"
  126.       .ZOrder := 2
  127.       .Move(0, 1950, 8700, 3930)
  128.       .Class := "Sound (OLE2)"
  129.       .SizeMode := "Autosize"
  130.     End With  'OLEDemoMasterForm.oleDisplayer
  131.     With .Label3
  132.       .Caption := "2. Double-Click on the OLE object to start the native application for editing."
  133.       .ForeColor := 13107200
  134.       .ZOrder := 3
  135.       .Move(150, 1590, 7890, 300)
  136.     End With  'OLEDemoMasterForm.Label3
  137.     With .Label4
  138.       .Caption := "1. Drag and Drop an application file from the File Manager or use the Right Mouse"
  139.       .ForeColor := 13107200
  140.       .ZOrder := 4
  141.       .Move(150, 150, 8115, 300)
  142.     End With  'OLEDemoMasterForm.Label4
  143.     With .OLESymbol1
  144.       .Caption := "OLESymbol1"
  145.       .ZOrder := 5
  146.       .Move(1350, 825, 615, 600)
  147.       .AutoInitCropRect := False
  148.       .Picture := OLEDemoMasterForm.OLESymbol1.BitmapSymbol
  149.       .ResizeMode := "Clip"
  150.       .ScaleX := 1
  151.       .ScaleY := 1
  152.       .FileName := "C:\envelop\bootcamp\advanced\oledemo\destruct.wav"
  153.       With .BitmapSymbol
  154.         .LoadType := "MemoryBased"
  155.         .FileName := "oledemo.ero"
  156.         .ResId := 0
  157.       End With  'OLEDemoMasterForm.OLESymbol1.BitmapSymbol
  158.     End With  'OLEDemoMasterForm.OLESymbol1
  159.     With .OLESymbol3
  160.       .Caption := "OLESymbol3"
  161.       .ZOrder := 6
  162.       .Move(3450, 825, 615, 600)
  163.       .AutoInitCropRect := False
  164.       .Picture := OLEDemoMasterForm.OLESymbol3.BitmapSymbol
  165.       .ResizeMode := "Clip"
  166.       .ScaleX := 1
  167.       .ScaleY := 1
  168.       .FileName := "C:\envelop\bootcamp\advanced\oledemo\sales.xls"
  169.       With .BitmapSymbol
  170.         .LoadType := "MemoryBased"
  171.         .FileName := "oledemo.ero"
  172.         .ResId := 836
  173.       End With  'OLEDemoMasterForm.OLESymbol3.BitmapSymbol
  174.     End With  'OLEDemoMasterForm.OLESymbol3
  175.     With .OLESymbol4
  176.       .Caption := "OLESymbol4"
  177.       .ZOrder := 7
  178.       .Move(4500, 825, 615, 600)
  179.       .AutoInitCropRect := False
  180.       .Picture := OLEDemoMasterForm.OLESymbol4.BitmapSymbol
  181.       .ResizeMode := "Clip"
  182.       .ScaleX := 1
  183.       .ScaleY := 1
  184.       .FileName := "C:\envelop\bootcamp\advanced\oledemo\paint.bmp"
  185.       With .BitmapSymbol
  186.         .LoadType := "MemoryBased"
  187.         .FileName := "oledemo.ero"
  188.         .ResId := 1712
  189.       End With  'OLEDemoMasterForm.OLESymbol4.BitmapSymbol
  190.     End With  'OLEDemoMasterForm.OLESymbol4
  191.     With .OLESymbol5
  192.       .Caption := "OLESymbol5"
  193.       .ZOrder := 8
  194.       .Move(5550, 825, 615, 600)
  195.       .AutoInitCropRect := False
  196.       .Picture := OLEDemoMasterForm.OLESymbol5.BitmapSymbol
  197.       .ResizeMode := "Clip"
  198.       .ScaleX := 1
  199.       .ScaleY := 1
  200.       .FileName := "C:\envelop\bootcamp\advanced\oledemo\welcome.doc"
  201.       With .BitmapSymbol
  202.         .LoadType := "MemoryBased"
  203.         .FileName := "oledemo.ero"
  204.         .ResId := 2716
  205.       End With  'OLEDemoMasterForm.OLESymbol5.BitmapSymbol
  206.     End With  'OLEDemoMasterForm.OLESymbol5
  207.     With .OLESymbol6
  208.       .Caption := "OLESymbol6"
  209.       .ZOrder := 9
  210.       .Move(6600, 825, 615, 600)
  211.       .AutoInitCropRect := False
  212.       .Picture := OLEDemoMasterForm.OLESymbol6.BitmapSymbol
  213.       .ResizeMode := "Clip"
  214.       .ScaleX := 1
  215.       .ScaleY := 1
  216.       .FileName := "C:\envelop\bootcamp\advanced\oledemo\world.ppt"
  217.       With .BitmapSymbol
  218.         .LoadType := "MemoryBased"
  219.         .FileName := "oledemo.ero"
  220.         .ResId := 3572
  221.       End With  'OLEDemoMasterForm.OLESymbol6.BitmapSymbol
  222.     End With  'OLEDemoMasterForm.OLESymbol6
  223.     With .OLESymbol7
  224.       .Caption := "OLESymbol7"
  225.       .ZOrder := 10
  226.       .Move(2400, 825, 615, 600)
  227.       .AutoInitCropRect := False
  228.       .Picture := OLEDemoMasterForm.OLESymbol7.BitmapSymbol
  229.       .ResizeMode := "Clip"
  230.       .ScaleX := 1
  231.       .ScaleY := 1
  232.       .FileName := "C:\envelop\bootcamp\advanced\oledemo\readme.txt"
  233.       With .BitmapSymbol
  234.         .LoadType := "MemoryBased"
  235.         .FileName := "oledemo.ero"
  236.         .ResId := 4576
  237.       End With  'OLEDemoMasterForm.OLESymbol7.BitmapSymbol
  238.     End With  'OLEDemoMasterForm.OLESymbol7
  239.     With .Label1
  240.       .Caption := "Button to drag one of the application  icons below onto the lower part of this form."
  241.       .ForeColor := 13107200
  242.       .ZOrder := 1
  243.       .Move(400, 420, 7995, 300)
  244.     End With  'OLEDemoMasterForm.Label1
  245.     With .helpfile
  246.       .FileName := "C:\envelop\bootcamp\advanced\oledemo\OLEDEMO.hlp"
  247.     End With  'OLEDemoMasterForm.helpfile
  248.   End With  'OLEDemoMasterForm
  249. End Code
  250.