home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Borland / Dbase50w / SAMPLES1.PAK / PICTURES.WFM < prev    next >
Encoding:
Text File  |  1994-08-02  |  2.9 KB  |  109 lines
  1. *****************************************************************************
  2. *  PROGRAM:      Pictures.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         5/93
  7. *
  8. *  UPDATED:      4/94
  9. *
  10. *  VERSION:      dBASE FOR WINDOWS 5.0
  11. *
  12. *  DESCRIPTION:  This form file creates a form that displays bitmaps in an
  13. *                OLE object -- which you can modify in Paint Brush by double
  14. *                clicking in that object.  It displays the bitmap names in
  15. *                a listbox, and also allows you to listen to the sound
  16. *                corresponding to each bitmap by pressing the Sound button
  17. *
  18. *  PARAMETERS:   None
  19. *
  20. *  CALLS:        Pictures.qbe  (View of table)
  21. *
  22. *  USAGE:        DO Pictures.wfm
  23. *
  24. *******************************************************************************
  25. create session
  26. set talk off
  27. set ldCheck off
  28.  
  29. ** END HEADER -- do not remove this line*
  30. * Generated on 05/11/94
  31. *
  32. LOCAL f
  33. f = NEW PICTURESFORM()
  34. f.Open()
  35.  
  36. CLASS PICTURESFORM OF FORM
  37.    this.MousePointer =          1
  38.    this.View = "PICTURES.QBE"
  39.    this.ColorNormal = "BG/B"
  40.    this.Text = "Pictures Form"
  41.    this.Width =         91.80
  42.    this.Top =          0.00
  43.    this.Left =         0.00
  44.    this.Height =         19.19
  45.    this.Minimize = .F.
  46.    this.Maximize = .F.
  47.    this.HelpFile = ""
  48.    this.HelpId = ""
  49.  
  50.    DEFINE PUSHBUTTON SOUND OF THIS;
  51.        PROPERTY;
  52.          OnClick {;play sound binary pictures->sound},;
  53.          ColorNormal "N/W",;
  54.          Text "Play &Sound",;
  55.          Width         20.46,;
  56.          Top         11.28,;
  57.          Left          1.32,;
  58.          Height          1.66,;
  59.          Default .T.
  60.  
  61.    DEFINE LISTBOX THINGS OF THIS;
  62.        PROPERTY;
  63.          ColorNormal "N/W+",;
  64.          Width         20.78,;
  65.          Top          4.55,;
  66.          Left          1.16,;
  67.          Height          5.65,;
  68.          ID        800,;
  69.          DataSource "FIELD NAME",;
  70.          ColorHighLight "RG+/B"
  71.  
  72.    DEFINE OLE PICTURE OF THIS;
  73.        PROPERTY;
  74.          Width         67.58,;
  75.          Top          3.30,;
  76.          Left         23.10,;
  77.          Height         15.66,;
  78.          ID         88,;
  79.          DataLink "PICTURES->BITMAPOLE"
  80.  
  81.    DEFINE TEXT TITLE OF THIS;
  82.        PROPERTY;
  83.          ColorNormal "GR+/B",;
  84.          Text "Sights and Sounds",;
  85.          Width         100.3,;
  86.          Top          0.00,;
  87.          Left          0.00,;
  88.          Height          3.03,;
  89.          FontBold .F.,;
  90.          FontSize         28.00,;
  91.          FontName "Times New Roman",;
  92.          Border .F.,;
  93.          Alignment          1
  94.  
  95.    DEFINE TEXT SELECTTEXT OF THIS;
  96.        PROPERTY;
  97.          ColorNormal "RG+/B",;
  98.          Text "Select &Image:",;
  99.          Width         18.48,;
  100.          Top          3.30,;
  101.          Left          1.32,;
  102.          Height          1.10,;
  103.          Border .F.
  104.  
  105. ENDCLASS
  106.  
  107.  
  108.  
  109.