home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Borland / Dbase50w / MUSIC1.PAK / ABOUT.WFM next >
Text File  |  1994-08-02  |  3KB  |  120 lines
  1. *******************************************************************************
  2. *  PROGRAM:      About.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         1/94
  7. *
  8. *  UPDATED:      6/94
  9. *
  10. *  REVISION:     $Revision:   1.9  $
  11. *
  12. *  VERSION:      dBASE FOR WINDOWS 5.0
  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 06/01/94
  29. *
  30. LOCAL f
  31. f = NEW ABOUTFORM()
  32. f.Open()
  33.  
  34. CLASS ABOUTFORM OF FORM
  35.    Set Procedure to Music.cc Additive
  36.    this.Height =          8.27
  37.    this.Minimize = .F.
  38.    this.Maximize = .F.
  39.    this.HelpFile = ""
  40.    this.HelpId = ""
  41.    this.Text = "About"
  42.    this.MousePointer =          1
  43.    this.Width =         45.79
  44.    this.Top =          5.05
  45.    this.Left =         23.83
  46.  
  47.    DEFINE RECTANGLE OUTSIDERECT OF THIS;
  48.        PROPERTY;
  49.          Height          5.05,;
  50.          Text "",;
  51.          FontName "",;
  52.          BorderStyle          2,;
  53.          ColorNormal "N/W",;
  54.          Border .T.,;
  55.          Width         43.25,;
  56.          Top          0.50,;
  57.          Left          1.35
  58.  
  59.    DEFINE RECTANGLE INSIDERECT OF THIS;
  60.        PROPERTY;
  61.          Height          4.20,;
  62.          Text "",;
  63.          BorderStyle          1,;
  64.          ColorNormal "n/n",;
  65.          Border .T.,;
  66.          Width          11.66,;
  67.          Top          0.95,;
  68.          Left          2.36
  69.  
  70.    DEFINE IMAGE MUSICIMAGE OF THIS;
  71.        PROPERTY;
  72.          Height          4.04,;
  73.          Alignment          2,;
  74.          DataSource "FILE SMLMUSIC.BMP",;
  75.          Width          10.81,;
  76.          Top          1.01,;
  77.          Left          2.70
  78.  
  79.    DEFINE TEXT COPYRIGHTTEXT OF THIS;
  80.        PROPERTY;
  81.          Height          2.53,;
  82.          Text "      Copyright (C) 1994       Borland International Inc.  All rights Reserved.",;
  83.          FontName "Small Fonts",;
  84.          ColorNormal "N/W",;
  85.          Border .F.,;
  86.          Alignment         10,;
  87.          Width         18.92,;
  88.          FontBold .F.,;
  89.          Top          2.53,;
  90.          FontSize          7.00,;
  91.          Left         20.27
  92.  
  93.    DEFINE TEXT TITLETEXT OF THIS;
  94.        PROPERTY;
  95.          Height          1.52,;
  96.          Text "Musical Methods",;
  97.          FontName "Times New Roman",;
  98.          ColorNormal "R/W",;
  99.          Border .F.,;
  100.          Alignment          1,;
  101.          Width         27.03,;
  102.          FontBold .F.,;
  103.          Top          1.01,;
  104.          FontSize         16.00,;
  105.          Left         15.55
  106.  
  107.    DEFINE OKBUTTON ABOUTOKBUTTON OF THIS;
  108.        PROPERTY;
  109.          Height          1.50,;
  110.          OnClick {;form.Close()},;
  111.          Width         14.11,;
  112.          Top          6.06,;
  113.          Left         15.73
  114.  
  115. ENDCLASS
  116.  
  117.  
  118.  
  119.  
  120.