home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 031 / pertable.zip / VBSOURCE.ZIP / ABOUTBOX.FRM next >
Text File  |  1994-09-15  |  6KB  |  171 lines
  1. VERSION 2.00
  2. Begin Form AboutBox 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About PerTable"
  5.    ClientHeight    =   2775
  6.    ClientLeft      =   1365
  7.    ClientTop       =   1440
  8.    ClientWidth     =   5640
  9.    ClipControls    =   0   'False
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   0   'False
  12.    FontName        =   "System"
  13.    FontSize        =   9.75
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   3180
  17.    Left            =   1305
  18.    LinkTopic       =   "Form2"
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   2775
  22.    ScaleWidth      =   5640
  23.    Top             =   1095
  24.    Width           =   5760
  25.    Begin PictureBox Pic_ApplicationIcon 
  26.       AutoSize        =   -1  'True
  27.       BackColor       =   &H00FFFFFF&
  28.       BorderStyle     =   0  'None
  29.       Height          =   480
  30.       Left            =   240
  31.       Picture         =   ABOUTBOX.FRX:0000
  32.       ScaleHeight     =   480
  33.       ScaleWidth      =   480
  34.       TabIndex        =   4
  35.       TabStop         =   0   'False
  36.       Top             =   1080
  37.       Width           =   480
  38.    End
  39.    Begin CommandButton Cmd_OK 
  40.       Caption         =   "OK"
  41.       Default         =   -1  'True
  42.       FontBold        =   -1  'True
  43.       FontItalic      =   0   'False
  44.       FontName        =   "System"
  45.       FontSize        =   9.75
  46.       FontStrikethru  =   0   'False
  47.       FontUnderline   =   0   'False
  48.       Height          =   360
  49.       Left            =   480
  50.       TabIndex        =   6
  51.       Top             =   2160
  52.       Width           =   1095
  53.    End
  54.    Begin Label Label3 
  55.       Caption         =   "Bugs/Suggestions:"
  56.       Height          =   195
  57.       Left            =   120
  58.       TabIndex        =   9
  59.       Top             =   1680
  60.       Width           =   1620
  61.    End
  62.    Begin Label Label2 
  63.       Caption         =   "cking@eosc.osshe.edu"
  64.       Height          =   195
  65.       Left            =   1800
  66.       TabIndex        =   8
  67.       Top             =   1680
  68.       Width           =   1995
  69.    End
  70.    Begin Label Label1 
  71.       Alignment       =   2  'Center
  72.       BackColor       =   &H0080FFFF&
  73.       Caption         =   "Design Your Own Wall Chart"
  74.       FontBold        =   -1  'True
  75.       FontItalic      =   0   'False
  76.       FontName        =   "MS Sans Serif"
  77.       FontSize        =   13.5
  78.       FontStrikethru  =   0   'False
  79.       FontUnderline   =   0   'False
  80.       Height          =   375
  81.       Left            =   840
  82.       TabIndex        =   7
  83.       Top             =   480
  84.       Width           =   4005
  85.    End
  86.    Begin Line lin_HorizontalLine1 
  87.       BorderWidth     =   2
  88.       X1              =   2175
  89.       X2              =   5520
  90.       Y1              =   1905
  91.       Y2              =   1905
  92.    End
  93.    Begin Label Lbl_Periodic 
  94.       BackColor       =   &H00FFFF80&
  95.       Caption         =   "PerTable:  A Periodic Table Editor"
  96.       FontBold        =   -1  'True
  97.       FontItalic      =   0   'False
  98.       FontName        =   "MS Sans Serif"
  99.       FontSize        =   15
  100.       FontStrikethru  =   0   'False
  101.       FontUnderline   =   0   'False
  102.       Height          =   375
  103.       Left            =   120
  104.       TabIndex        =   1
  105.       Top             =   120
  106.       Width           =   5415
  107.       WordWrap        =   -1  'True
  108.    End
  109.    Begin Label Lbl_Version 
  110.       BackColor       =   &H008080FF&
  111.       Caption         =   "Version 1.0"
  112.       FontBold        =   -1  'True
  113.       FontItalic      =   0   'False
  114.       FontName        =   "MS Sans Serif"
  115.       FontSize        =   9.75
  116.       FontStrikethru  =   0   'False
  117.       FontUnderline   =   0   'False
  118.       Height          =   240
  119.       Left            =   2160
  120.       TabIndex        =   2
  121.       Top             =   840
  122.       Width           =   1170
  123.    End
  124.    Begin Label Lbl_Microsoft 
  125.       BackColor       =   &H0080FF80&
  126.       Caption         =   "Christopher King      Chemistry Department Eastern Oregon State College"
  127.       Height          =   585
  128.       Left            =   1560
  129.       TabIndex        =   3
  130.       Top             =   1080
  131.       Width           =   2535
  132.    End
  133.    Begin Label Lbl_Info 
  134.       Height          =   600
  135.       Left            =   2205
  136.       TabIndex        =   5
  137.       Top             =   2025
  138.       Width           =   1875
  139.    End
  140.    Begin Label Lbl_InfoValues 
  141.       Height          =   600
  142.       Left            =   4110
  143.       TabIndex        =   0
  144.       Top             =   2025
  145.       Width           =   1410
  146.    End
  147. End
  148. Option Explicit
  149. DefInt A-Z
  150.  
  151. Sub Cmd_OK_Click ()
  152.     Unload AboutBox
  153. End Sub
  154.  
  155. Sub Form_Load ()
  156. Dim WinFlags As Long
  157. Dim Mode As String, Processor As String
  158.    ' Dialog Boxes should only have Move and Close items
  159.    ' in their System menus', so remove the others.
  160.    Remove_Items_From_Sysmenu AboutBox
  161.    ' Center the AboutBox on the screen
  162.    Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  163.    ' Get current Windows configuration
  164.    WinFlags = GetWinFlags()
  165.    If WinFlags And WF_ENHANCED Then Mode = "386 Enhanced Mode" Else Mode = "Standard Mode"
  166.    Lbl_Info.Caption = Mode + NL + "Free Memory:" + NL + "Math Co-processor:"
  167.    If WinFlags And WF_80x87 Then Processor = "Present" Else Processor = "None"
  168.    Lbl_InfoValues.Caption = NL + Format$(GetFreeSpace(0) \ 1024) + " KB" + NL + Processor
  169. End Sub
  170.  
  171.