*******************************************************************************
*  PROGRAM:      About.wfm
*
*  WRITTEN BY:   Borland Samples Group
*
*  DATE:         1/94
*
*  UPDATED:      5/95
*
*  REVISION:     $Revision:   1.15  $
*
*  VERSION:      Visual dBASE
*
*  DESCRIPTION:  This is a form that comes up when the "About" menu choice
*                is selected from the "Help" menu.  It displays general
*                information about the Musical Methods application.
*
*  PARAMETERS:   None
*
*  CALLS:        Music.cc      (for custom pushbuttons)
*
*  USAGE:        DO About.wfm
*
*******************************************************************************
set ldcheck off

** END HEADER -- do not remove this line*
* Generated on 05/22/95
*
parameter bModal
local f
f = new ABOUTFORM()
if (bModal)
   f.mdi = .F. && ensure not MDI
   f.ReadModal()
else
   f.Open()
endif
CLASS ABOUTFORM OF FORM
   this.PageNo = 1
   this.Height = 7.7646
   this.ColorNormal = "W"
   this.TopMost = .F.
   this.Top = 5.0586
   this.Text = "About"
   this.Left = 23.833
   this.Width = 45.833
   this.Minimize = .F.
   this.MousePointer = 1
   this.Maximize = .F.

   DEFINE RECTANGLE OUTSIDERECT OF THIS;
       PROPERTY;
         PageNo 1,;
         Height 5.0879,;
         ColorNormal "N/W",;
         Top 0.5,;
         Text "",;
         Left 1.3486,;
         Border .T.,;
         Width 43.3174,;
         FontName "",;
         BorderStyle 2

   DEFINE RECTANGLE IMAGERECT OF THIS;
       PROPERTY;
         PageNo 1,;
         Height 3.9922,;
         ColorNormal "n/n",;
         Top 0.9482,;
         Text "",;
         Left 2.3594,;
         Border .T.,;
         Width 11.4736,;
         BorderStyle 1

   DEFINE IMAGE MUSICIMAGE OF THIS;
       PROPERTY;
         PageNo 1,;
         Height 3.8135,;
         DataSource "FILE SMLMUSIC.BMP",;
         Alignment 1,;
         Top 1.0098,;
         Left 2.6982,;
         Width 10.8018

   DEFINE TEXT COPYRIGHTTEXT OF THIS;
       PROPERTY;
         PageNo 1,;
         Height 2.5293,;
         ColorNormal "N/W",;
         Top 2.5293,;
         Alignment 10,;
         Text "    Copyright (C) 1994-95    Borland International Inc.  All rights Reserved.",;
         Left 20.2686,;
         Border .F.,;
         Width 19.0645,;
         FontSize 7,;
         FontName "Small Fonts",;
         FontBold .F.

   DEFINE TEXT TITLETEXT OF THIS;
       PROPERTY;
         PageNo 1,;
         Height 1.5195,;
         ColorNormal "R/W",;
         Top 1.0098,;
         Alignment 1,;
         Text "Musical Methods",;
         Left 15.5488,;
         Border .F.,;
         Width 26.9512,;
         FontSize 16,;
         FontName "Times New Roman",;
         FontBold .F.

   DEFINE OKMBUTTON ABOUTOKBUTTON OF THIS;
       PROPERTY;
         Height 1.5283,;
         Top 6.0596,;
         Left 15.7295,;
         Width 14.1035,;
         SpeedTip "Close form",;
         OnClick {;form.Close()}

ENDCLASS






