Disable Git line ending conversions for some files.

[WinMPQ.git] / ChLCID.frm

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