home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / envelop / envelop.6 / Tools / Bootcamp / concepts / embeded / EMBEDED.ETO < prev    next >
Text File  |  1996-07-08  |  2KB  |  50 lines
  1. Type FormEmbed From SampleMasterForm
  2.   Dim Label1 As New Label
  3.   Dim Label2 As New Label
  4.   Dim Label3 As New Label
  5.   Dim Image1 As New Image
  6.   Dim Image2 As New Image
  7.   Dim Image3 As New Image
  8. End Type
  9.  
  10. Begin Code
  11. ' Reconstruction commands for object: FormEmbed
  12. '
  13.   With FormEmbed
  14.     .Caption := "Embed Object Sample"
  15.     .Move(2205, 1875, 13005, 6825)
  16.     With .Label1
  17.       .Caption := "This Label control has its own nested embedded Font.  The other Labels on this Form share a simple embedded Font in the Form."
  18.       .ZOrder := 6
  19.       .Move(300, 300, 11070, 1050)
  20.     End With  'FormEmbed.Label1
  21.     With .Label2
  22.       .Caption := "This Image control below has its own nested embedded Bitmap."
  23.       .ZOrder := 5
  24.       .Move(300, 1500, 4200, 450)
  25.     End With  'FormEmbed.Label2
  26.     With .Label3
  27.       .Caption := "The two Image controls shown below share a simple embedded Bitmap in the Form."
  28.       .ZOrder := 4
  29.       .Move(4650, 1500, 6750, 450)
  30.     End With  'FormEmbed.Label3
  31.     With .Image1
  32.       .Caption := "Image1"
  33.       .ZOrder := 3
  34.       .Move(300, 2100, 3900, 3750)
  35.     End With  'FormEmbed.Image1
  36.     With .Image2
  37.       .Caption := "Image2"
  38.       .ZOrder := 2
  39.       .Move(4650, 2100, 3900, 3750)
  40.     End With  'FormEmbed.Image2
  41.     With .Image3
  42.       .Caption := "Image3"
  43.       .ZOrder := 1
  44.       .Move(8700, 2100, 3900, 3750)
  45.     End With  'FormEmbed.Image3
  46.     With .helpfile
  47.     End With  'FormEmbed.helpfile
  48.   End With  'FormEmbed
  49. End Code
  50.