home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD 24 / PCPLUS115.iso / dbasewin / samples / music / configs.wfm < prev    next >
Encoding:
Text File  |  1994-08-02  |  5.1 KB  |  181 lines
  1. *******************************************************************************
  2. *  PROGRAM:      Configs.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         1/94
  7. *
  8. *  UPDATED:      6/94
  9. *
  10. *  REVISION:     $Revision:   1.24  $
  11. *
  12. *  VERSION:      dBASE FOR WINDOWS 5.0
  13. *
  14. *  DESCRIPTION:  This is a form showing all the available media on which items
  15. *                sold in the Musical Methods record store are recorded.  You
  16. *                may view only a list of the available media, or you may choose
  17. *                to view all the available items on that media.
  18. *
  19. *  PARAMETERS:   None
  20. *
  21. *  CALLS:        Configs.qbe   (view of tables)
  22. *                Music.cc      (for custom pushbuttons)
  23. *                View.mnu      (menu file)
  24. *                Music.prg     (procedure file)
  25. *
  26. *  USAGE:        DO Configs.wfm
  27. *
  28. *******************************************************************************
  29. #include "Music.h"
  30. create session
  31. set talk off
  32. set ldcheck off
  33.  
  34. ** END HEADER -- do not remove this line*
  35. * Generated on 06/19/94
  36. *
  37. LOCAL f
  38. f = NEW CONFIGSFORM()
  39. f.Open()
  40.  
  41. CLASS CONFIGSFORM OF FORM
  42.    Set Procedure to Music.cc additive
  43.    this.ReleaseOnClose = .f.
  44.    this.Minimize = .F.
  45.    this.MousePointer =          1
  46.    this.Maximize = .F.
  47.    this.HelpFile = "Music.hlp"
  48.    this.HelpId = "Media Types"
  49.    this.Text = "Media Types"
  50.    this.OnOpen = CLASS::ONOPEN
  51.    this.Width =         44.37
  52.    this.View = "CONFIGS.QBE"
  53.    this.Top =          3.69
  54.    this.MenuFile = "VIEW.MNU"
  55.    this.Left =         30.77
  56.    this.Height =         14.26
  57.    this.OnClose = CLASS::ONCLOSE
  58.  
  59.    DEFINE RECTANGLE LISTRECT OF THIS;
  60.        PROPERTY;
  61.          Border .T.,;
  62.          BorderStyle          1,;
  63.          Text "",;
  64.          ColorNormal "W+/R",;
  65.          Width         41.82,;
  66.          Top          0.50,;
  67.          Left          1.19,;
  68.          Height          9.15
  69.  
  70.    DEFINE TEXT MEDIATYPESTEXT OF THIS;
  71.        PROPERTY;
  72.          Border .F.,;
  73.          Text "Media Types:",;
  74.          ColorNormal "W/R",;
  75.          Width         16.83,;
  76.          Top          0.72,;
  77.          Left          1.87,;
  78.          Height          1.01
  79.  
  80.    DEFINE MUSICBUTTON ITEMSBUTTON OF THIS;
  81.        PROPERTY;
  82.          UpBitmap "RESOURCE #108",;
  83.          HelpFile "Music.hlp",;
  84.          HelpID "Items",;
  85.          Text "&Items...",;
  86.          ColorNormal "N/W",;
  87.          StatusMessage "Show available items matching the current selection.  Press F1 for Help.",;
  88.          Width         14.11,;
  89.          Default .T.,;
  90.          Top         12.18,;
  91.          Left         13.60,;
  92.          Height          1.50
  93.  
  94.    DEFINE CLOSEBUTTON CLOSEFORMBUTTON OF THIS;
  95.        PROPERTY;
  96.          ColorNormal "N/W",;
  97.          Width         14.11,;
  98.          Top         12.18,;
  99.          Left         28.90,;
  100.          Height          1.50
  101.  
  102.    DEFINE IMAGE LOGOIMAGE OF THIS;
  103.        PROPERTY;
  104.          DataSource "FILENAME SMLMUSIC.BMP",;
  105.          Width         10.71,;
  106.          Top          9.92,;
  107.          Left          1.19,;
  108.          Height          4.04,;
  109.          Alignment          2
  110.  
  111.    DEFINE LISTBOX DESCRIPTLIST OF THIS;
  112.        PROPERTY;
  113.          Visible .F.,;
  114.          ColorHighLight "W+/R",;
  115.          ColorNormal "N/W+",;
  116.          Width         40.29,;
  117.          Top          1.67,;
  118.          Left          2.04,;
  119.          ID        800,;
  120.          Height          7.54
  121.  
  122.    ****************************************************************************
  123.    PROCEDURE OnOpen
  124.    ****************************************************************************
  125.    set procedure to Music.prg additive
  126.    do SetEnvironment    && Set settings that CREATE SESSION overrides
  127.    if _app.framewin.text <> "Musical Methods" && If form is running standalone
  128.       public windowCnt,focusForm,speedOnTop
  129.       windowCnt  = 0
  130.       focusForm  = .f.
  131.       speedOnTop = 0.00
  132.       DisableWindowing(this)
  133.    else
  134.       AddWindow(this)
  135.       this.OnGotFocus  = ViewOnGotFocus       && These events must be assigned
  136.       this.OnLostFocus = ViewOnLostFocus      && after AddWindow() executes
  137.    endif
  138.    this.root.viewMenu.organizeView.enabled = .f.
  139.    this.root.viewMenu.browse.enabled = .f.
  140.    set skip to          && Parent records shown only once
  141.    this.OnSize = SizeForm                     && Procedure in music.prg
  142.  
  143.    * Link listbox to the unSKIPped list of parent records
  144.    this.descriptList.dataSource = "FIELD CONFIGS->DESCRIPT"
  145.    this.descriptList.visible = .t.            && Make it visible here so don't
  146.                                               && See flickering in form
  147.    this.filter = ""                           && No filter is set yet
  148.    this.musicIsOpen = .f.
  149.  
  150.  
  151.    this.itemsButton.OnClick = CorrespondingItems
  152.  
  153.  
  154.    ****************************************************************************
  155.    PROCEDURE OnClose
  156.  
  157.    * Delete this window from the Windows pulldown.
  158.    ****************************************************************************
  159.    if _app.framewin.text = "Musical Methods" && If form is running standalone
  160.       DeleteWindow(this)
  161.    endif
  162.  
  163.  
  164.  
  165.  
  166. ENDCLASS
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.