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
Text File  |  1995-11-14  |  4KB  |  128 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. End
  97. Option Explicit
  98.  
  99. Sub btnOK_Click ()
  100.     Unload Me
  101. End Sub
  102.  
  103. Sub Form_Load ()
  104.     Dim Version As String
  105.     Dim FixedState As String
  106.     Dim DebugState As String
  107.     Dim VRel As Variant
  108.  
  109.     Version = Space$(8)
  110.     FixedState = Space$(4)
  111.     DebugState = Space$(4)
  112.     VRel = RwGetSystemInfo(rwVERSIONSTRING, Version, 8)
  113.     VRel = RwGetSystemInfo(rwFIXEDPOINTLIB, FixedState, 4)
  114.     VRel = RwGetSystemInfo(rwDEBUGGINGLIB, DebugState, 4)
  115.     pnlVersion.Caption = Version
  116.     If Asc(FixedState) <> 0 Then
  117.         pnlFixed = "Fixed Point"
  118.     Else
  119.         pnlFixed = "Floating Point"
  120.     End If
  121.     If Asc(DebugState) <> 0 Then
  122.         pnlDebug = "DEBUG"
  123.     Else
  124.         pnlDebug = "Production"
  125.     End If
  126. End Sub
  127.  
  128.