home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase v5.5 / MUSIC1.PAK / ABOUT.WFM next >
Encoding:
Text File  |  1995-07-18  |  3.0 KB  |  133 lines
  1. *******************************************************************************
  2. *  PROGRAM:      About.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         1/94
  7. *
  8. *  UPDATED:      5/95
  9. *
  10. *  REVISION:     $Revision:   1.15  $
  11. *
  12. *  VERSION:      Visual dBASE
  13. *
  14. *  DESCRIPTION:  This is a form that comes up when the "About" menu choice
  15. *                is selected from the "Help" menu.  It displays general
  16. *                information about the Musical Methods application.
  17. *
  18. *  PARAMETERS:   None
  19. *
  20. *  CALLS:        Music.cc      (for custom pushbuttons)
  21. *
  22. *  USAGE:        DO About.wfm
  23. *
  24. *******************************************************************************
  25. set ldcheck off
  26.  
  27. ** END HEADER -- do not remove this line*
  28. * Generated on 05/22/95
  29. *
  30. parameter bModal
  31. local f
  32. f = new ABOUTFORM()
  33. if (bModal)
  34.    f.mdi = .F. && ensure not MDI
  35.    f.ReadModal()
  36. else
  37.    f.Open()
  38. endif
  39. CLASS ABOUTFORM OF FORM
  40.    this.PageNo = 1
  41.    this.Height = 7.7646
  42.    this.ColorNormal = "W"
  43.    this.TopMost = .F.
  44.    this.Top = 5.0586
  45.    this.Text = "About"
  46.    this.Left = 23.833
  47.    this.Width = 45.833
  48.    this.Minimize = .F.
  49.    this.MousePointer = 1
  50.    this.Maximize = .F.
  51.  
  52.    DEFINE RECTANGLE OUTSIDERECT OF THIS;
  53.        PROPERTY;
  54.          PageNo 1,;
  55.          Height 5.0879,;
  56.          ColorNormal "N/W",;
  57.          Top 0.5,;
  58.          Text "",;
  59.          Left 1.3486,;
  60.          Border .T.,;
  61.          Width 43.3174,;
  62.          FontName "",;
  63.          BorderStyle 2
  64.  
  65.    DEFINE RECTANGLE IMAGERECT OF THIS;
  66.        PROPERTY;
  67.          PageNo 1,;
  68.          Height 3.9922,;
  69.          ColorNormal "n/n",;
  70.          Top 0.9482,;
  71.          Text "",;
  72.          Left 2.3594,;
  73.          Border .T.,;
  74.          Width 11.4736,;
  75.          BorderStyle 1
  76.  
  77.    DEFINE IMAGE MUSICIMAGE OF THIS;
  78.        PROPERTY;
  79.          PageNo 1,;
  80.          Height 3.8135,;
  81.          DataSource "FILE SMLMUSIC.BMP",;
  82.          Alignment 1,;
  83.          Top 1.0098,;
  84.          Left 2.6982,;
  85.          Width 10.8018
  86.  
  87.    DEFINE TEXT COPYRIGHTTEXT OF THIS;
  88.        PROPERTY;
  89.          PageNo 1,;
  90.          Height 2.5293,;
  91.          ColorNormal "N/W",;
  92.          Top 2.5293,;
  93.          Alignment 10,;
  94.          Text "    Copyright (C) 1994-95    Borland International Inc.  All rights Reserved.",;
  95.          Left 20.2686,;
  96.          Border .F.,;
  97.          Width 19.0645,;
  98.          FontSize 7,;
  99.          FontName "Small Fonts",;
  100.          FontBold .F.
  101.  
  102.    DEFINE TEXT TITLETEXT OF THIS;
  103.        PROPERTY;
  104.          PageNo 1,;
  105.          Height 1.5195,;
  106.          ColorNormal "R/W",;
  107.          Top 1.0098,;
  108.          Alignment 1,;
  109.          Text "Musical Methods",;
  110.          Left 15.5488,;
  111.          Border .F.,;
  112.          Width 26.9512,;
  113.          FontSize 16,;
  114.          FontName "Times New Roman",;
  115.          FontBold .F.
  116.  
  117.    DEFINE OKMBUTTON ABOUTOKBUTTON OF THIS;
  118.        PROPERTY;
  119.          Height 1.5283,;
  120.          Top 6.0596,;
  121.          Left 15.7295,;
  122.          Width 14.1035,;
  123.          SpeedTip "Close form",;
  124.          OnClick {;form.Close()}
  125.  
  126. ENDCLASS
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.