home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 22 / CD_ASCQ_22_0695.iso / win / prg / psmmm11.exe / SAMPLE.DEU / 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         =   "Sprachen & 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            =   1035
  22.       Top             =   2265
  23.    End
  24.    Begin Label Label1 
  25.       BackColor       =   &H00FFFFFF&
  26.       Caption         =   "ACHTUNG: die Language Resource Datei muss sich entweder im Applikationverzeichnis oder in den Windows Verzeichnissen befinden.(Siehe VBX Hilfe)"
  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.       ForeColor       =   &H00FF0000&
  34.       Height          =   630
  35.       Index           =   3
  36.       Left            =   195
  37.       TabIndex        =   3
  38.       Top             =   2835
  39.       Width           =   4275
  40.    End
  41.    Begin Label Label1 
  42.       BackColor       =   &H00FFFFFF&
  43.       Caption         =   "Starten Sie das Beispiel neu auf. Nun sehen sie die neue Sprache im Menu."
  44.       FontBold        =   0   'False
  45.       FontItalic      =   0   'False
  46.       FontName        =   "MS Sans Serif"
  47.       FontSize        =   8.25
  48.       FontStrikethru  =   0   'False
  49.       FontUnderline   =   0   'False
  50.       Height          =   615
  51.       Index           =   2
  52.       Left            =   1635
  53.       TabIndex        =   2
  54.       Top             =   2010
  55.       Width           =   2865
  56.    End
  57.    Begin Label Label1 
  58.       BackColor       =   &H00FFFFFF&
  59.       Caption         =   "Aendern Sie nun die Resource Language Datei ( Sample3.LRS ). Fⁿgen Sie eine neue Sprache zu und kompilieren Sie die Datei."
  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          =   825
  67.       Index           =   1
  68.       Left            =   1635
  69.       TabIndex        =   1
  70.       Top             =   1035
  71.       Width           =   2865
  72.    End
  73.    Begin Label Label1 
  74.       BackColor       =   &H00FFFFFF&
  75.       Caption         =   "In diesem Beispiel sehen Sie wie man beim Aufstarten des Programms feststellen kann wieviele Sprachen zur Verfⁿgung stehen."
  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          =   915
  83.       Index           =   0
  84.       Left            =   1650
  85.       TabIndex        =   0
  86.       Top             =   165
  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         =   "Sprachen"
  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.