home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / envelop / envelop.6 / Tools / Bootcamp / concepts / embed / embed.eto < prev    next >
Text File  |  1996-07-08  |  3KB  |  97 lines
  1. Type EmbedForm From SampleMasterForm
  2.   Type Label1 From Label
  3.     Dim font1 As New Font
  4.   End Type
  5.   Type Image1 From Image
  6.     Dim bitmap1 As New Bitmap
  7.   End Type
  8.   Dim Label2 As New Label
  9.   Dim Label3 As New Label
  10.   Dim Image2 As New Image
  11.   Dim Image3 As New Image
  12.   Dim FormFont As New Font
  13.   Dim FormBitmap As New Bitmap
  14.  
  15.   ' METHODS for object: EmbedForm
  16.   Sub ResetApplication_Click
  17.     Controls.Refresh
  18.   End Sub
  19.  
  20. End Type
  21.  
  22. Begin Code
  23. ' Reconstruction commands for object: EmbedForm
  24. '
  25.   With EmbedForm
  26.     .Caption := "Simple/Nested Embed Example"
  27.     .ForeColor := 16711680
  28.     .Font := EmbedForm.FormFont
  29.     .Move(2925, 1980, 13005, 6825)
  30.     .SampleDir := "C:\envelop\bootcamp\concepts\embed\"
  31.     .SampleName := "embed"
  32.     With .Label1
  33.       .Caption := "This Label control has its own nested embedded Font.  The other Labels on this Form share a simple embedded Font in the Form."
  34.       .ForeColor := 0
  35.       .Font := EmbedForm.Label1.font1
  36.       .ZOrder := 1
  37.       .Move(300, 300, 11700, 1050)
  38.       With .font1
  39.         .FaceName := "Times New Roman"
  40.         .Size := 18.000000
  41.         .Bold := True
  42.         .Italic := False
  43.         .Strikethru := False
  44.       End With  'EmbedForm.Label1.font1
  45.     End With  'EmbedForm.Label1
  46.     With .Image1
  47.       .Caption := "Image1"
  48.       .ZOrder := 2
  49.       .Move(300, 2100, 3900, 3750)
  50.       .Picture := EmbedForm.Image1.bitmap1
  51.       With .bitmap1
  52.         .LoadType := "MemoryBased"
  53.         .FileName := "embed.ero"
  54.         .ResId := 0
  55.       End With  'EmbedForm.Image1.bitmap1
  56.     End With  'EmbedForm.Image1
  57.     With .Label2
  58.       .Caption := "This Image control below has its own nested embedded Bitmap."
  59.       .ZOrder := 3
  60.       .Move(300, 1500, 4200, 450)
  61.     End With  'EmbedForm.Label2
  62.     With .Label3
  63.       .Caption := "The two Image controls shown below share a simple embedded Bitmap in the Form."
  64.       .ForeColor := 255
  65.       .ZOrder := 4
  66.       .Move(4650, 1500, 6750, 450)
  67.     End With  'EmbedForm.Label3
  68.     With .Image2
  69.       .Caption := "Image2"
  70.       .ZOrder := 5
  71.       .Move(4650, 2100, 3900, 3750)
  72.       .Picture := EmbedForm.FormBitmap
  73.     End With  'EmbedForm.Image2
  74.     With .Image3
  75.       .Caption := "Image3"
  76.       .ZOrder := 6
  77.       .Move(8700, 2100, 3900, 3750)
  78.       .Picture := EmbedForm.FormBitmap
  79.     End With  'EmbedForm.Image3
  80.     With .FormFont
  81.       .FaceName := "Courier"
  82.       .Size := 9.000000
  83.       .Bold := True
  84.       .Italic := False
  85.       .Strikethru := False
  86.     End With  'EmbedForm.FormFont
  87.     With .FormBitmap
  88.       .LoadType := "MemoryBased"
  89.       .FileName := "embed.ero"
  90.       .ResId := 34172
  91.     End With  'EmbedForm.FormBitmap
  92.     With .helpfile
  93.       .FileName := "C:\envelop\bootcamp\concepts\embed\embed.hlp"
  94.     End With  'EmbedForm.helpfile
  95.   End With  'EmbedForm
  96. End Code
  97.