home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / LVB / T2W32523.ZIP / _LANGAGE.FRM < prev    next >
Text File  |  1998-04-07  |  15KB  |  475 lines
  1. VERSION 5.00
  2. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  3. Begin VB.Form frmLanguage 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Language"
  6.    ClientHeight    =   4395
  7.    ClientLeft      =   1890
  8.    ClientTop       =   3270
  9.    ClientWidth     =   7170
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   4395
  14.    ScaleWidth      =   7170
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.ListBox List1 
  17.       Height          =   1035
  18.       Left            =   105
  19.       TabIndex        =   9
  20.       Top             =   3255
  21.       Width           =   6945
  22.    End
  23.    Begin VB.TextBox txt_Result 
  24.       BackColor       =   &H00C0C0C0&
  25.       BorderStyle     =   0  'None
  26.       Height          =   855
  27.       Left            =   105
  28.       Locked          =   -1  'True
  29.       MultiLine       =   -1  'True
  30.       ScrollBars      =   2  'Vertical
  31.       TabIndex        =   7
  32.       Top             =   630
  33.       Width           =   6945
  34.    End
  35.    Begin VB.Frame Frame1 
  36.       Caption         =   "Some objects"
  37.       Height          =   1275
  38.       Left            =   2625
  39.       TabIndex        =   3
  40.       Top             =   1575
  41.       Width           =   4425
  42.       Begin VB.TextBox Text1 
  43.          Height          =   330
  44.          Left            =   2415
  45.          TabIndex        =   8
  46.          Text            =   "Standard Text"
  47.          Top             =   735
  48.          Width           =   1800
  49.       End
  50.       Begin VB.CommandButton Command1 
  51.          Caption         =   "Standard Command"
  52.          Height          =   330
  53.          Left            =   210
  54.          TabIndex        =   4
  55.          Top             =   315
  56.          Width           =   1905
  57.       End
  58.       Begin Threed.SSCheck SSCheck1 
  59.          Height          =   330
  60.          Left            =   2415
  61.          TabIndex        =   6
  62.          Top             =   315
  63.          Width           =   1695
  64.          _Version        =   65536
  65.          _ExtentX        =   2990
  66.          _ExtentY        =   582
  67.          _StockProps     =   78
  68.          Caption         =   "OLE Check"
  69.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  70.             Name            =   "MS Sans Serif"
  71.             Size            =   8.25
  72.             Charset         =   0
  73.             Weight          =   400
  74.             Underline       =   0   'False
  75.             Italic          =   0   'False
  76.             Strikethrough   =   0   'False
  77.          EndProperty
  78.          Font3D          =   1
  79.       End
  80.       Begin Threed.SSCommand SSCommand2 
  81.          Height          =   330
  82.          Left            =   210
  83.          TabIndex        =   5
  84.          Top             =   735
  85.          Width           =   1905
  86.          _Version        =   65536
  87.          _ExtentX        =   3360
  88.          _ExtentY        =   582
  89.          _StockProps     =   78
  90.          Caption         =   "OLE Command"
  91.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  92.             Name            =   "MS Sans Serif"
  93.             Size            =   8.25
  94.             Charset         =   0
  95.             Weight          =   400
  96.             Underline       =   0   'False
  97.             Italic          =   0   'False
  98.             Strikethrough   =   0   'False
  99.          EndProperty
  100.          Font3D          =   1
  101.          RoundedCorners  =   0   'False
  102.       End
  103.    End
  104.    Begin Threed.SSFrame SSFrame1 
  105.       Height          =   1275
  106.       Index           =   1
  107.       Left            =   105
  108.       TabIndex        =   0
  109.       Tag             =   "Tag for SSFrame1"
  110.       Top             =   1575
  111.       Width           =   2325
  112.       _Version        =   65536
  113.       _ExtentX        =   4101
  114.       _ExtentY        =   2249
  115.       _StockProps     =   14
  116.       Caption         =   "&Select a language"
  117.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  118.          Name            =   "MS Sans Serif"
  119.          Size            =   8.25
  120.          Charset         =   0
  121.          Weight          =   400
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       Begin Threed.SSOption SSOption1 
  127.          Height          =   225
  128.          Index           =   1
  129.          Left            =   210
  130.          TabIndex        =   2
  131.          Top             =   840
  132.          Width           =   1905
  133.          _Version        =   65536
  134.          _ExtentX        =   3360
  135.          _ExtentY        =   397
  136.          _StockProps     =   78
  137.          Caption         =   "&French"
  138.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  139.             Name            =   "MS Sans Serif"
  140.             Size            =   8.25
  141.             Charset         =   0
  142.             Weight          =   400
  143.             Underline       =   0   'False
  144.             Italic          =   0   'False
  145.             Strikethrough   =   0   'False
  146.          EndProperty
  147.       End
  148.       Begin Threed.SSOption SSOption1 
  149.          Height          =   225
  150.          Index           =   0
  151.          Left            =   210
  152.          TabIndex        =   1
  153.          Top             =   420
  154.          Width           =   1905
  155.          _Version        =   65536
  156.          _ExtentX        =   3360
  157.          _ExtentY        =   397
  158.          _StockProps     =   78
  159.          Caption         =   "&English"
  160.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  161.             Name            =   "MS Sans Serif"
  162.             Size            =   8.25
  163.             Charset         =   0
  164.             Weight          =   400
  165.             Underline       =   0   'False
  166.             Italic          =   0   'False
  167.             Strikethrough   =   0   'False
  168.          EndProperty
  169.          Value           =   -1  'True
  170.       End
  171.    End
  172.    Begin Threed.SSPanel SSPanel1 
  173.       Align           =   1  'Align Top
  174.       Height          =   480
  175.       Left            =   0
  176.       TabIndex        =   11
  177.       Top             =   0
  178.       Width           =   7170
  179.       _Version        =   65536
  180.       _ExtentX        =   12647
  181.       _ExtentY        =   847
  182.       _StockProps     =   15
  183.       ForeColor       =   -2147483640
  184.       BackColor       =   12632256
  185.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  186.          Name            =   "MS Sans Serif"
  187.          Size            =   8.25
  188.          Charset         =   0
  189.          Weight          =   400
  190.          Underline       =   0   'False
  191.          Italic          =   0   'False
  192.          Strikethrough   =   0   'False
  193.       EndProperty
  194.       Begin VB.ComboBox cmb_Function 
  195.          Height          =   315
  196.          Left            =   1995
  197.          TabIndex        =   12
  198.          Top             =   90
  199.          Width           =   3840
  200.       End
  201.       Begin Threed.SSCommand cmdNP 
  202.          Height          =   300
  203.          Index           =   1
  204.          Left            =   6825
  205.          TabIndex        =   16
  206.          Top             =   90
  207.          Width           =   255
  208.          _Version        =   65536
  209.          _ExtentX        =   450
  210.          _ExtentY        =   529
  211.          _StockProps     =   78
  212.          Caption         =   ">"
  213.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  214.             Name            =   "MS Sans Serif"
  215.             Size            =   8.25
  216.             Charset         =   0
  217.             Weight          =   400
  218.             Underline       =   0   'False
  219.             Italic          =   0   'False
  220.             Strikethrough   =   0   'False
  221.          EndProperty
  222.          BevelWidth      =   1
  223.          Font3D          =   3
  224.          RoundedCorners  =   0   'False
  225.          Outline         =   0   'False
  226.       End
  227.       Begin Threed.SSCommand cmdNP 
  228.          Height          =   300
  229.          Index           =   0
  230.          Left            =   5985
  231.          TabIndex        =   15
  232.          Top             =   90
  233.          Width           =   255
  234.          _Version        =   65536
  235.          _ExtentX        =   450
  236.          _ExtentY        =   529
  237.          _StockProps     =   78
  238.          Caption         =   "<"
  239.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  240.             Name            =   "MS Sans Serif"
  241.             Size            =   8.25
  242.             Charset         =   0
  243.             Weight          =   400
  244.             Underline       =   0   'False
  245.             Italic          =   0   'False
  246.             Strikethrough   =   0   'False
  247.          EndProperty
  248.          BevelWidth      =   1
  249.          Font3D          =   3
  250.          RoundedCorners  =   0   'False
  251.          Outline         =   0   'False
  252.       End
  253.       Begin Threed.SSCommand SSCommand1 
  254.          Default         =   -1  'True
  255.          Height          =   300
  256.          Left            =   6300
  257.          TabIndex        =   13
  258.          Top             =   90
  259.          Width           =   465
  260.          _Version        =   65536
  261.          _ExtentX        =   820
  262.          _ExtentY        =   529
  263.          _StockProps     =   78
  264.          Caption         =   "&Go"
  265.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  266.             Name            =   "MS Sans Serif"
  267.             Size            =   8.25
  268.             Charset         =   0
  269.             Weight          =   400
  270.             Underline       =   0   'False
  271.             Italic          =   0   'False
  272.             Strikethrough   =   0   'False
  273.          EndProperty
  274.          BevelWidth      =   1
  275.          RoundedCorners  =   0   'False
  276.          Outline         =   0   'False
  277.       End
  278.       Begin VB.Label Label2 
  279.          Caption         =   "&Select a function"
  280.          Height          =   255
  281.          Left            =   90
  282.          TabIndex        =   14
  283.          Top             =   120
  284.          Width           =   1815
  285.       End
  286.    End
  287.    Begin VB.Label Label1 
  288.       Caption         =   "Contents of the language file"
  289.       Height          =   225
  290.       Left            =   105
  291.       TabIndex        =   10
  292.       Top             =   2940
  293.       Width           =   6945
  294.    End
  295. End
  296. Attribute VB_Name = "frmLanguage"
  297. Attribute VB_GlobalNameSpace = False
  298. Attribute VB_Creatable = False
  299. Attribute VB_PredeclaredId = True
  300. Attribute VB_Exposed = False
  301. Option Explicit
  302. Option Base 1
  303.  
  304. Private Const Iteration = 10
  305.  
  306. Dim IsLoaded         As Integer
  307.  
  308. Dim TimerStartOk     As Integer
  309. Dim TimerCloseOk     As Integer
  310.  
  311. Dim TimerHandle      As Integer
  312. Dim TimerValue       As Long
  313.  
  314. Private Sub cmdNP_Click(Index As Integer)
  315.  
  316.    Call sub_NextPrev(cmb_Function, Index)
  317.  
  318. End Sub
  319.  
  320.  
  321. Private Sub cmb_Function_Click()
  322.    
  323.    If (IsLoaded = False) Then Exit Sub
  324.    
  325.    Call cDisableFI(mdiT2W.Picture1)
  326.    
  327.    txt_Result = ""
  328.    
  329.    DoEvents
  330.    
  331.    Select Case cmb_Function.ListIndex
  332.       Case 0
  333.          Call TestReadSaveCtlLanguage
  334.       Case 1
  335.          Call TestReadSaveCtlLanguageExt
  336.    End Select
  337.  
  338.    DoEvents
  339.    Call cEnableFI(mdiT2W.Picture1)
  340.    
  341. End Sub
  342.  
  343.  
  344. Private Sub Form_Activate()
  345.  
  346.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  347.  
  348. End Sub
  349.  
  350. Private Sub Form_Load()
  351.  
  352.    Dim intResult        As Integer
  353.  
  354.    IsLoaded = False
  355.    
  356.    Show
  357.  
  358.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_langage.t2w")
  359.    
  360.    intResult = cChDir(T2WDirTest)
  361.    
  362.    IsLoaded = True
  363.    
  364. End Sub
  365.  
  366. Private Sub SSCommand1_Click()
  367.    
  368.    Call cmb_Function_Click
  369.    
  370. End Sub
  371.  
  372. Private Sub TestReadSaveCtlLanguage()
  373.  
  374.    Dim intResult        As Integer
  375.    Dim strResult        As String
  376.    Dim strDisplay       As String
  377.    
  378.    Dim i                As Integer
  379.    
  380.    Dim File1            As String
  381.    
  382.    strResult = ""
  383.    strDisplay = ""
  384.    
  385.    Call cObjectMethod(List1, "clear", "")
  386.    
  387.    File1 = T2WDirTest + "\save control language.test"
  388.    
  389.    strDisplay = strDisplay & "SaveCtlLanguage of this Form is '" & cSaveCtlLanguage(Me, 255, File1) & "'" & vbCrLf
  390.    
  391.    strDisplay = strDisplay & "ReadCtlLanguage of this Form is '" & cReadCtlLanguage(Me, 255, File1) & "'" & vbCrLf
  392.    
  393.    strDisplay = strDisplay & "Load file '" & File1 & "' into the list box 'List1' is '" & cFileToListBox(List1.hWnd, File1) & "'"
  394.  
  395.    txt_Result = strDisplay
  396.    
  397.    'time the function
  398.  
  399.    TimerHandle = cTimerOpen()
  400.    TimerStartOk = cTimerStart(TimerHandle)
  401.    
  402.    For i = 1 To Iteration
  403.       intResult = cReadCtlLanguage(Me, 1, File1)
  404.    Next i
  405.    
  406.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  407.    
  408.    TimerCloseOk = cTimerClose(TimerHandle)
  409.  
  410. End Sub
  411.  
  412.  
  413.  
  414. Private Sub TestReadSaveCtlLanguageExt()
  415.  
  416.    Dim intResult        As Integer
  417.    Dim strResult        As String
  418.    Dim strDisplay       As String
  419.    
  420.    Dim i                As Integer
  421.    
  422.    Dim File1            As String
  423.    
  424.    strResult = ""
  425.    strDisplay = ""
  426.    
  427.    Call cObjectMethod(List1, "clear", "")
  428.    
  429.    File1 = T2WDirTest + "\save control language extended.test"
  430.    
  431.    strDisplay = strDisplay & "SaveCtlLanguageExt of this Form is '" & cSaveCtlLanguageExt(Me, 255, File1) & "'" & vbCrLf
  432.    
  433.    strDisplay = strDisplay & "ReadCtlLanguageExt of this Form is '" & cReadCtlLanguageExt(Me, 255, File1) & "'" & vbCrLf
  434.    
  435.    strDisplay = strDisplay & "Load file '" & File1 & "' into the list box 'List1' is '" & cFileToListBox(List1.hWnd, File1) & "'"
  436.  
  437.    txt_Result = strDisplay
  438.    
  439.    'time the function
  440.  
  441.    TimerHandle = cTimerOpen()
  442.    TimerStartOk = cTimerStart(TimerHandle)
  443.    
  444.    For i = 1 To Iteration
  445.       intResult = cReadCtlLanguageExt(Me, 1, File1)
  446.    Next i
  447.    
  448.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  449.    
  450.    TimerCloseOk = cTimerClose(TimerHandle)
  451.  
  452. End Sub
  453.  
  454. Private Sub SSOption1_Click(Index As Integer, Value As Integer)
  455.  
  456.    Dim intResult        As Integer
  457.  
  458.    If (cmb_Function.ListIndex = 0) Then
  459.       If (Index = 0) Then
  460.          intResult = cReadCtlLanguage(Me, 255, T2WDirInst + "!languk1.T2W")
  461.       Else
  462.          intResult = cReadCtlLanguage(Me, 255, T2WDirInst + "!langfr1.T2W")
  463.       End If
  464.    Else
  465.       If (Index = 0) Then
  466.          intResult = cReadCtlLanguageExt(Me, 255, T2WDirInst + "!languk2.T2W")
  467.       Else
  468.          intResult = cReadCtlLanguageExt(Me, 255, T2WDirInst + "!langfr2.T2W")
  469.       End If
  470.    End If
  471.  
  472. End Sub
  473.  
  474.  
  475.