home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 22 / CD_ASCQ_22_0695.iso / win / prg / psmmm11.exe / SAMPLE.ENU / SAMPLE3 / BASIC / MAIN.FRM < prev    next >
Text File  |  1995-04-04  |  4KB  |  135 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Languages & RUN-TIME "
  6.    ClientHeight    =   3765
  7.    ClientLeft      =   1380
  8.    ClientTop       =   2115
  9.    ClientWidth     =   4710
  10.    Height          =   4455
  11.    Icon            =   MAIN.FRX:0000
  12.    Left            =   1320
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   3765
  16.    ScaleWidth      =   4710
  17.    Top             =   1485
  18.    Width           =   4830
  19.    Begin ListBox List1 
  20.       FontBold        =   0   'False
  21.       FontItalic      =   0   'False
  22.       FontName        =   "MS Sans Serif"
  23.       FontSize        =   8.25
  24.       FontStrikethru  =   0   'False
  25.       FontUnderline   =   0   'False
  26.       Height          =   1590
  27.       Left            =   90
  28.       TabIndex        =   0
  29.       Top             =   135
  30.       Width           =   1365
  31.    End
  32.    Begin PSMMM Psmmm1 
  33.       FileName        =   "SAMPLE3.LRS"
  34.       Left            =   1035
  35.       Top             =   2280
  36.    End
  37.    Begin Label Label1 
  38.       BackColor       =   &H00FFFFFF&
  39.       Caption         =   "WARNING: The resource file must be either in the current directory, in the application directory, in the Windows directory or in a directory that is listed in the PATH variable."
  40.       FontBold        =   0   'False
  41.       FontItalic      =   0   'False
  42.       FontName        =   "MS Sans Serif"
  43.       FontSize        =   8.25
  44.       FontStrikethru  =   0   'False
  45.       FontUnderline   =   0   'False
  46.       ForeColor       =   &H00FF0000&
  47.       Height          =   630
  48.       Index           =   3
  49.       Left            =   195
  50.       TabIndex        =   4
  51.       Top             =   2835
  52.       Width           =   4275
  53.    End
  54.    Begin Label Label1 
  55.       BackColor       =   &H00FFFFFF&
  56.       Caption         =   "This example shows how you can know, at run time, the languages provided by a given resource file ."
  57.       FontBold        =   0   'False
  58.       FontItalic      =   0   'False
  59.       FontName        =   "MS Sans Serif"
  60.       FontSize        =   8.25
  61.       FontStrikethru  =   0   'False
  62.       FontUnderline   =   0   'False
  63.       Height          =   630
  64.       Index           =   0
  65.       Left            =   1650
  66.       TabIndex        =   1
  67.       Top             =   210
  68.       Width           =   2865
  69.    End
  70.    Begin Label Label1 
  71.       BackColor       =   &H00FFFFFF&
  72.       Caption         =   "Such a way allows you to create a program that supports, at first, a sole language and then add languages in the resource file. The application will now support more than one language without the need to be modified."
  73.       FontBold        =   0   'False
  74.       FontItalic      =   0   'False
  75.       FontName        =   "MS Sans Serif"
  76.       FontSize        =   8.25
  77.       FontStrikethru  =   0   'False
  78.       FontUnderline   =   0   'False
  79.       Height          =   1185
  80.       Index           =   1
  81.       Left            =   1650
  82.       TabIndex        =   2
  83.       Top             =   870
  84.       Width           =   2865
  85.    End
  86.    Begin Label Label1 
  87.       BackColor       =   &H00FFFFFF&
  88.       Caption         =   "Run the example and look at the list box."
  89.       FontBold        =   0   'False
  90.       FontItalic      =   0   'False
  91.       FontName        =   "MS Sans Serif"
  92.       FontSize        =   8.25
  93.       FontStrikethru  =   0   'False
  94.       FontUnderline   =   0   'False
  95.       Height          =   405
  96.       Index           =   2
  97.       Left            =   1650
  98.       TabIndex        =   3
  99.       Top             =   2115
  100.       Width           =   2865
  101.    End
  102.    Begin Shape Shape1 
  103.       BackStyle       =   1  'Opaque
  104.       Height          =   2535
  105.       Index           =   0
  106.       Left            =   1590
  107.       Top             =   135
  108.       Width           =   2970
  109.    End
  110.    Begin Shape Shape1 
  111.       BackStyle       =   1  'Opaque
  112.       Height          =   705
  113.       Index           =   1
  114.       Left            =   135
  115.       Top             =   2790
  116.       Width           =   4425
  117.    End
  118.    Begin Menu mnuInfo 
  119.       Caption         =   "Info"
  120.    End
  121. End
  122.  
  123. Sub Form_Load ()
  124.     
  125.     Call PSMLoadLanguageList(Psmmm1, List1)
  126.  
  127. End Sub
  128.  
  129. Sub mnuInfo_Click ()
  130.   
  131.   frmAbout.Show 1
  132.  
  133. End Sub
  134.  
  135.