home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 22 / CD_ASCQ_22_0695.iso / win / prg / psmmm11.exe / SAMPLE.ENU / SAMPLE4 / BASIC / MAIN.FRM < prev    next >
Text File  |  1995-04-04  |  4KB  |  139 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  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 PSMMM Psmmm1 
  20.       FileName        =   "SAMPLE4.LRS"
  21.       Left            =   1020
  22.       Top             =   2265
  23.    End
  24.    Begin Label Label1 
  25.       BackColor       =   &H00FFFFFF&
  26.       Caption         =   "Run the example and look at the Language menu."
  27.       FontBold        =   0   'False
  28.       FontItalic      =   0   'False
  29.       FontName        =   "MS Sans Serif"
  30.       FontSize        =   8.25
  31.       FontStrikethru  =   0   'False
  32.       FontUnderline   =   0   'False
  33.       Height          =   405
  34.       Index           =   2
  35.       Left            =   1650
  36.       TabIndex        =   2
  37.       Top             =   2220
  38.       Width           =   2865
  39.    End
  40.    Begin Label Label1 
  41.       BackColor       =   &H00FFFFFF&
  42.       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."
  43.       FontBold        =   0   'False
  44.       FontItalic      =   0   'False
  45.       FontName        =   "MS Sans Serif"
  46.       FontSize        =   8.25
  47.       FontStrikethru  =   0   'False
  48.       FontUnderline   =   0   'False
  49.       ForeColor       =   &H00FF0000&
  50.       Height          =   630
  51.       Index           =   3
  52.       Left            =   180
  53.       TabIndex        =   3
  54.       Top             =   2835
  55.       Width           =   4275
  56.    End
  57.    Begin Label Label1 
  58.       BackColor       =   &H00FFFFFF&
  59.       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."
  60.       FontBold        =   0   'False
  61.       FontItalic      =   0   'False
  62.       FontName        =   "MS Sans Serif"
  63.       FontSize        =   8.25
  64.       FontStrikethru  =   0   'False
  65.       FontUnderline   =   0   'False
  66.       Height          =   1275
  67.       Index           =   1
  68.       Left            =   1650
  69.       TabIndex        =   1
  70.       Top             =   990
  71.       Width           =   2865
  72.    End
  73.    Begin Label Label1 
  74.       BackColor       =   &H00FFFFFF&
  75.       Caption         =   "This example shows how you can create, at run time, a Language menu with the languages provided by a given resource file ."
  76.       FontBold        =   0   'False
  77.       FontItalic      =   0   'False
  78.       FontName        =   "MS Sans Serif"
  79.       FontSize        =   8.25
  80.       FontStrikethru  =   0   'False
  81.       FontUnderline   =   0   'False
  82.       Height          =   795
  83.       Index           =   0
  84.       Left            =   1650
  85.       TabIndex        =   0
  86.       Top             =   180
  87.       Width           =   2865
  88.    End
  89.    Begin Shape Shape1 
  90.       BackStyle       =   1  'Opaque
  91.       Height          =   2535
  92.       Index           =   0
  93.       Left            =   1590
  94.       Top             =   135
  95.       Width           =   2970
  96.    End
  97.    Begin Shape Shape1 
  98.       BackStyle       =   1  'Opaque
  99.       Height          =   705
  100.       Index           =   1
  101.       Left            =   135
  102.       Top             =   2790
  103.       Width           =   4425
  104.    End
  105.    Begin Menu mnuMain 
  106.       Caption         =   "Language"
  107.       Index           =   1
  108.       Begin Menu mnuLanguage 
  109.          Caption         =   "subMenu"
  110.          Index           =   0
  111.       End
  112.    End
  113.    Begin Menu mnuMain 
  114.       Caption         =   "Info"
  115.       Index           =   2
  116.    End
  117. End
  118.  
  119. Sub Form_Load ()
  120.     
  121.     Call PSMCreateLanguageMenu(psmmm1, Me)
  122.  
  123. End Sub
  124.  
  125. Sub mnuLanguage_Click (Index As Integer)
  126.   
  127.   Call PSMSetAppLanguage(psmmm1, Me, Index)
  128.  
  129. End Sub
  130.  
  131. Sub mnuMain_Click (Index As Integer)
  132.  
  133.   If Index = 2 Then
  134.     frmAbout.Show 1
  135.   End If
  136.  
  137. End Sub
  138.  
  139.