1.66

[WinMPQ.git] / ChLCID.frm

VERSION 4.00\r
Begin VB.Form ChLCID \r
   BorderStyle     =   3  'Fixed Dialog\r
   Caption         =   "Changing Locale ID..."\r
   ClientHeight    =   1335\r
   ClientLeft      =   2670\r
   ClientTop       =   3180\r
   ClientWidth     =   3615\r
   Height          =   1740\r
   Icon            =   "ChLCID.frx":0000\r
   Left            =   2610\r
   LinkTopic       =   "Form1"\r
   MaxButton       =   0   'False\r
   MinButton       =   0   'False\r
   ScaleHeight     =   1335\r
   ScaleWidth      =   3615\r
   ShowInTaskbar   =   0   'False\r
   Top             =   2835\r
   Width           =   3735\r
   Begin VB.CommandButton Command2 \r
      Cancel          =   -1  'True\r
      Caption         =   "&Cancel"\r
      Height          =   375\r
      Left            =   1920\r
      TabIndex        =   3\r
      Top             =   840\r
      Width           =   1335\r
   End\r
   Begin VB.CommandButton Command1 \r
      Caption         =   "O&K"\r
      Default         =   -1  'True\r
      Height          =   375\r
      Left            =   360\r
      TabIndex        =   2\r
      Top             =   840\r
      Width           =   1335\r
   End\r
   Begin VB.TextBox Text1 \r
      Height          =   285\r
      Left            =   120\r
      TabIndex        =   1\r
      Text            =   "0"\r
      Top             =   480\r
      Width           =   1215\r
   End\r
   Begin VB.Label Label1 \r
      AutoSize        =   -1  'True\r
      Caption         =   "Type in the new locale ID for the file(s) below."\r
      Height          =   195\r
      Left            =   120\r
      TabIndex        =   0\r
      Top             =   120\r
      Width           =   3225\r
   End\r
End\r
Attribute VB_Name = "ChLCID"\r
Attribute VB_Creatable = False\r
Attribute VB_Exposed = False\r
Option Explicit\r
Private Sub Command1_Click()\r
MpqEx.ChangeLCID Text1\r
Unload Me\r
End Sub\r
Private Sub Command2_Click()\r
Unload Me\r
End Sub\r
Private Sub Form_Load()\r
Left = MpqEx.Left + 330 * 2\r
If Left < 0 Then Left = 0\r
If Left + Width > Screen.Width Then Left = Screen.Width - Width\r
Top = MpqEx.Top + 315 * 2\r
If Top < 0 Then Top = 0\r
If Top + Height > Screen.Height Then Top = Screen.Height - Height\r
End Sub\r
Private Sub Text1_KeyPress(KeyAscii As Integer)\r
Dim NewValue As Long\r
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> Asc("-") Then KeyAscii = 0\r
On Error GoTo TooBig\r
If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = Asc("-") Then NewValue = CLng(Text1 + Chr(KeyAscii))\r
On Error GoTo 0\r
Exit Sub\r
TooBig:\r
KeyAscii = 0\r
End Sub\r
Private Sub Text1_LostFocus()\r
If Text1 = "" Then Text1 = 0\r
End Sub\r