home *** CD-ROM | disk | FTP | other *** search
/ Learn 3D Graphics Programming on the PC / Learn_3D_Graphics_Programming_on_the_PC_Ferraro.iso / rwwin / rwvbinfo.fr_ / rwvbinfo.bin (.txt)
Encoding:
Visual Basic Form  |  1995-11-14  |  3.7 KB  |  123 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "About"
  5.    ClientHeight    =   2532
  6.    ClientLeft      =   1308
  7.    ClientTop       =   1752
  8.    ClientWidth     =   5292
  9.    Height          =   2856
  10.    Left            =   1260
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2532
  15.    ScaleWidth      =   5292
  16.    Top             =   1476
  17.    Width           =   5388
  18.    Begin SSPanel pnlBackground 
  19.       Height          =   2532
  20.       Left            =   0
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   5292
  24.       Begin SSPanel pnlDebug 
  25.          BevelOuter      =   1  'Inset
  26.          Caption         =   "debug"
  27.          Height          =   252
  28.          Left            =   1080
  29.          TabIndex        =   5
  30.          Top             =   1920
  31.          Width           =   2772
  32.       End
  33.       Begin SSPanel pnlFixed 
  34.          BevelOuter      =   1  'Inset
  35.          Caption         =   "fixed"
  36.          Height          =   252
  37.          Left            =   1080
  38.          TabIndex        =   7
  39.          Top             =   1560
  40.          Width           =   2772
  41.       End
  42.       Begin SSPanel pnlVersion 
  43.          BevelOuter      =   1  'Inset
  44.          Caption         =   "version"
  45.          Height          =   252
  46.          Left            =   1080
  47.          TabIndex        =   4
  48.          Top             =   1200
  49.          Width           =   2772
  50.       End
  51.       Begin SSPanel pnlIcon 
  52.          BevelOuter      =   1  'Inset
  53.          Height          =   492
  54.          Left            =   360
  55.          TabIndex        =   2
  56.          Top             =   360
  57.          Width           =   492
  58.          Begin Image imgIcon 
  59.             Height          =   384
  60.             Left            =   50
  61.             Picture         =   RWVBINFO.FRX:0000
  62.             Top             =   50
  63.             Width           =   384
  64.          End
  65.       End
  66.       Begin CommandButton btnOK 
  67.          Caption         =   "OK"
  68.          Default         =   -1  'True
  69.          Height          =   372
  70.          Left            =   4080
  71.          TabIndex        =   1
  72.          Top             =   420
  73.          Width           =   972
  74.       End
  75.       Begin Label txtCopyright 
  76.          Alignment       =   2  'Center
  77.          BackColor       =   &H00C0C0C0&
  78.          Caption         =   "Copyright Criterion Software Ltd. 94"
  79.          Height          =   252
  80.          Left            =   960
  81.          TabIndex        =   6
  82.          Top             =   600
  83.          Width           =   3012
  84.       End
  85.       Begin Label txtTitle 
  86.          Alignment       =   2  'Center
  87.          BackColor       =   &H00C0C0C0&
  88.          Caption         =   "RenderWare Visual Basic Viewer"
  89.          Height          =   252
  90.          Left            =   960
  91.          TabIndex        =   3
  92.          Top             =   240
  93.          Width           =   3012
  94.       End
  95.    End
  96. Option Explicit
  97. Sub btnOK_Click ()
  98.     Unload Me
  99. End Sub
  100. Sub Form_Load ()
  101.     Dim Version As String
  102.     Dim FixedState As String
  103.     Dim DebugState As String
  104.     Dim VRel As Variant
  105.     Version = Space$(8)
  106.     FixedState = Space$(4)
  107.     DebugState = Space$(4)
  108.     VRel = RwGetSystemInfo(rwVERSIONSTRING, Version, 8)
  109.     VRel = RwGetSystemInfo(rwFIXEDPOINTLIB, FixedState, 4)
  110.     VRel = RwGetSystemInfo(rwDEBUGGINGLIB, DebugState, 4)
  111.     pnlVersion.Caption = Version
  112.     If Asc(FixedState) <> 0 Then
  113.         pnlFixed = "Fixed Point"
  114.     Else
  115.         pnlFixed = "Floating Point"
  116.     End If
  117.     If Asc(DebugState) <> 0 Then
  118.         pnlDebug = "DEBUG"
  119.     Else
  120.         pnlDebug = "Production"
  121.     End If
  122. End Sub
  123.