home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 22 / CD_ASCQ_22_0695.iso / win / prg / psmmm11.exe / SAMPLE.DEU / SAMPLE3 / BASIC / MAIN.FRM < prev    next >
Text File  |  1995-04-08  |  4KB  |  135 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  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.    MinButton       =   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             =   2265
  36.    End
  37.    Begin Label Label1 
  38.       BackColor       =   &H00FFFFFF&
  39.       Caption         =   "ACHTUNG: die Language Resource Datei muss sich entweder im Applikationverzeichnis oder in den Windows Verzeichnissen befinden.(Siehe VBX Hilfe)"
  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         =   "Starten Sie das Beispiel neu auf. Nun sehen sie die neue Sprache in der Listbox."
  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          =   615
  64.       Index           =   2
  65.       Left            =   1635
  66.       TabIndex        =   3
  67.       Top             =   2010
  68.       Width           =   2865
  69.    End
  70.    Begin Label Label1 
  71.       BackColor       =   &H00FFFFFF&
  72.       Caption         =   "Aendern Sie nun die Resource Language Datei ( Sample3.LRS ). Fⁿgen Sie eine neue Sprache zu und kompilieren Sie die Datei."
  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          =   825
  80.       Index           =   1
  81.       Left            =   1635
  82.       TabIndex        =   2
  83.       Top             =   1035
  84.       Width           =   2865
  85.    End
  86.    Begin Label Label1 
  87.       BackColor       =   &H00FFFFFF&
  88.       Caption         =   "In diesem Beispiel sehen Sie, wie man beim Aufstarten des Programms feststellen kann wieviele Sprachen zur Verfⁿgung stehen."
  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          =   915
  96.       Index           =   0
  97.       Left            =   1650
  98.       TabIndex        =   1
  99.       Top             =   165
  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.