home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Borland / Dbase50w / MUSIC1.PAK / MUSIC.CC < prev    next >
Text File  |  1994-08-02  |  7KB  |  205 lines
  1. ************************************************************************************
  2. *  PROGRAM:      Music.cc
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         2/94
  7. *
  8. *  UPDATED:      6/94
  9. *
  10. *  REVISION:     $Revision:   1.10  $
  11. *
  12. *  VERSION:      dBASE FOR WINDOWS 5.0
  13. *
  14. *
  15. *  DESCRIPTION:  This is a procedure file containing class definitions for
  16. *                text, entryfields, and buttons used in the Musical Methods
  17. *                application.
  18. *
  19. *                Current Classes:
  20. *                   EmphasizedText
  21. *                   EmphasizedEntry
  22. *                   NormalText
  23. *                   NormalEntry
  24. *                   NextButton
  25. *                   PrevButton
  26. *                   OkButton
  27. *                   CancelButton
  28. *                   CloseButton
  29. *                   MusicButton
  30. *
  31. *
  32. *
  33. *  PARAMETERS:   Each custom button control in this file requires 2 arguments:
  34. *                F    -- Object -- Reference to the parent form
  35. *                Name -- String -- Name of the control being created
  36. *                Example:
  37. *                   f = new form()
  38. *                   p = new OkButton(f,"myOkButton")
  39. *
  40. *  CALLS:        None
  41. *
  42. *  USAGE:        SET PROCEDURE TO Music.cc, then use these classes with:
  43. *                NEW syntax:  x = new OkButton(f),
  44. *                DEFINE syntax: define OkButton x of f
  45. *                FORMS DESIGNER: select the classes from the DBW Custom Classes
  46. *                                inspector when adding controls to your form.
  47. *
  48. *******************************************************************************
  49. *******************************************************************************
  50. *******************************************************************************
  51. class EmphasizedText(f,name) of Text(f,name) custom
  52. *******************************************************************************
  53.  
  54.    this.Alignment   = 5
  55.    this.ColorNormal = "N/W"
  56.    this.Border      = .F.
  57.    this.Text        = "Artist"
  58.    this.Width       = 13.52
  59.    this.Height      = 2.02
  60.    this.FontSize    = 10.00
  61.    this.FontName    = "MS Sans Serif"
  62.    this.FontBold    = .F.
  63.  
  64. endclass
  65.  
  66.  
  67.  
  68. *******************************************************************************
  69. *******************************************************************************
  70. class EmphasizedEntry(f,name) of Entryfield(f,name) custom
  71. *******************************************************************************
  72.  
  73.    this.Alignment      = 3
  74.    this.Enabled        = .F.
  75.    this.ColorNormal    = "R/W"
  76.    this.ColorHighlight = "W+/R"
  77.    this.Height         = 1.26
  78.    this.FontSize       = 10.00
  79.    this.FontName       = "MS Sans Serif"
  80.    this.Border         = .T.
  81.    this.FontBold       = .T.
  82.    this.Width          = 70.28
  83.  
  84. endclass
  85.  
  86.  
  87. *******************************************************************************
  88. *******************************************************************************
  89. class NormalText(f,name) of Text(f,name) custom
  90. *******************************************************************************
  91.  
  92.    this.Alignment   = 5
  93.    this.ColorNormal = "N/W"
  94.    this.Width       = 10.81
  95.    this.Height      = 1.26
  96.    this.FontSize    = 8.00
  97.    this.FontName    = "MS Sans Serif"
  98.    this.FontBold    = .F.
  99.  
  100. endclass
  101.  
  102. *******************************************************************************
  103. *******************************************************************************
  104. class NormalEntry(f,name) of Entryfield(f,name) custom
  105. *******************************************************************************
  106.  
  107.    this.Alignment      = 3
  108.    this.Enabled        = .F.
  109.    this.ColorNormal    = "R/W"
  110.    this.ColorHighlight = "R/W+"
  111.    this.Width          = 13.52
  112.    this.Height         = 1.26
  113.    this.FontSize       = 8.00
  114.    this.FontName       = "MS Sans Serif"
  115.    this.Border         = .T.
  116.    this.FontBold       = .T.
  117.  
  118. endclass
  119.  
  120. *******************************************************************************
  121. *******************************************************************************
  122. class NextButton(f,name) of MusicButton(f,name) custom
  123. *******************************************************************************
  124.  
  125.    this.upbitmap      = "Resource #100"
  126.    this.text          = "&Next"
  127.    this.StatusMessage = "Go to next record."
  128.    this.FontSize      = 8.00
  129.    this.FontName      = "MS Sans Serif"
  130.  
  131. endclass
  132.  
  133. *******************************************************************************
  134. *******************************************************************************
  135. class PrevButton(f,name) of MusicButton(f,name) custom
  136. *******************************************************************************
  137.  
  138.    this.upbitmap      = "Resource #104"
  139.    this.text          = "&Previous"
  140.    this.StatusMessage = "Go to previous record."
  141.    this.FontSize      = 8.00
  142.    this.FontName      = "MS Sans Serif"
  143.  
  144. endclass
  145.  
  146.  
  147.  
  148. *******************************************************************************
  149. *******************************************************************************
  150. class OkButton(f,n) of MusicButton(f,n) custom
  151. *******************************************************************************
  152.  
  153.  
  154.    this.text           = "OK"
  155.    this.upbitmap       = "Resource #20"
  156.    this.disabledbitmap = "Resource #21"
  157.    this.FontSize       = 8.00
  158.    this.FontName       = "MS Sans Serif"
  159.  
  160. endclass
  161.  
  162.  
  163. *******************************************************************************
  164. *******************************************************************************
  165. class CancelButton(f,n) of MusicButton(f,n) custom
  166. *******************************************************************************
  167.  
  168.    this.text           = "Cancel"
  169.    this.OnClick        = {;form.Close()}
  170.    this.upBitmap       = "Resource #28"
  171.    this.disabledBitmap = "Resource #29"
  172.    this.StatusMessage  = "Cancel this form."
  173.    this.FontSize       = 8.00
  174.    this.FontName       = "MS Sans Serif"
  175.  
  176. endclass
  177.  
  178. *******************************************************************************
  179. *******************************************************************************
  180. class CloseButton(f,n) of MusicButton(f,n) custom
  181. *******************************************************************************
  182.  
  183.    this.text           = "C&lose"
  184.    this.OnClick        = {;form.Close()}
  185.    this.upBitmap       = "Resource #20"
  186.    this.disabledBitmap = "Resource #21"
  187.    this.StatusMessage  = "Close this form."
  188.    this.FontSize       = 8.00
  189.    this.FontName       = "MS Sans Serif"
  190.  
  191. endclass
  192.  
  193. *******************************************************************************
  194. *******************************************************************************
  195. class MusicButton(f,name) of Pushbutton(f,name) custom
  196. *******************************************************************************
  197.  
  198.    this.colornormal = "n/w"
  199.    this.height      = 1.50
  200.    this.width       = 14.11
  201.    this.FontSize    = 8.00
  202.    this.FontName    = "MS Sans Serif"
  203.  
  204. endclass
  205.