| 1 | VERSION 5.00
|
|---|
| 2 | Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
|
|---|
| 3 | Begin VB.Form LanguagePage
|
|---|
| 4 | BackColor = &H00FFFFFF&
|
|---|
| 5 | Caption = "DRBL Helper"
|
|---|
| 6 | ClientHeight = 1935
|
|---|
| 7 | ClientLeft = 4305
|
|---|
| 8 | ClientTop = 5565
|
|---|
| 9 | ClientWidth = 7560
|
|---|
| 10 | Icon = "LanguagePage.frx":0000
|
|---|
| 11 | LinkTopic = "Form1"
|
|---|
| 12 | ScaleHeight = 1935
|
|---|
| 13 | ScaleWidth = 7560
|
|---|
| 14 | Begin VB.Label lbl3
|
|---|
| 15 | BackStyle = 0 '³z©ú
|
|---|
| 16 | Caption = "http://clonezilla.sf.net"
|
|---|
| 17 | BeginProperty Font
|
|---|
| 18 | Name = "Arial"
|
|---|
| 19 | Size = 9
|
|---|
| 20 | Charset = 0
|
|---|
| 21 | Weight = 400
|
|---|
| 22 | Underline = -1 'True
|
|---|
| 23 | Italic = 0 'False
|
|---|
| 24 | Strikethrough = 0 'False
|
|---|
| 25 | EndProperty
|
|---|
| 26 | ForeColor = &H00FF8080&
|
|---|
| 27 | Height = 255
|
|---|
| 28 | Left = 1920
|
|---|
| 29 | TabIndex = 4
|
|---|
| 30 | Top = 1200
|
|---|
| 31 | Width = 2535
|
|---|
| 32 | End
|
|---|
| 33 | Begin VB.Label lbl2
|
|---|
| 34 | BackStyle = 0 '³z©ú
|
|---|
| 35 | Caption = "http://drbl.sf.net"
|
|---|
| 36 | BeginProperty Font
|
|---|
| 37 | Name = "Arial"
|
|---|
| 38 | Size = 9
|
|---|
| 39 | Charset = 0
|
|---|
| 40 | Weight = 400
|
|---|
| 41 | Underline = -1 'True
|
|---|
| 42 | Italic = 0 'False
|
|---|
| 43 | Strikethrough = 0 'False
|
|---|
| 44 | EndProperty
|
|---|
| 45 | ForeColor = &H00FF8080&
|
|---|
| 46 | Height = 255
|
|---|
| 47 | Left = 1920
|
|---|
| 48 | TabIndex = 3
|
|---|
| 49 | Top = 840
|
|---|
| 50 | Width = 1455
|
|---|
| 51 | End
|
|---|
| 52 | Begin MSForms.Label lbl1
|
|---|
| 53 | Height = 375
|
|---|
| 54 | Left = 1920
|
|---|
| 55 | TabIndex = 2
|
|---|
| 56 | Top = 360
|
|---|
| 57 | Width = 1335
|
|---|
| 58 | ForeColor = 12632064
|
|---|
| 59 | BackColor = 16777215
|
|---|
| 60 | VariousPropertyBits= 8388627
|
|---|
| 61 | Caption = "Select Language"
|
|---|
| 62 | Size = "2355;661"
|
|---|
| 63 | FontName = "·s²Ó©úÅé"
|
|---|
| 64 | FontHeight = 180
|
|---|
| 65 | FontCharSet = 136
|
|---|
| 66 | FontPitchAndFamily= 34
|
|---|
| 67 | End
|
|---|
| 68 | Begin MSForms.CommandButton cmdOK
|
|---|
| 69 | Height = 375
|
|---|
| 70 | Left = 5760
|
|---|
| 71 | TabIndex = 1
|
|---|
| 72 | Top = 360
|
|---|
| 73 | Width = 1335
|
|---|
| 74 | Caption = "Confirm"
|
|---|
| 75 | Size = "2355;661"
|
|---|
| 76 | FontName = "·s²Ó©úÅé"
|
|---|
| 77 | FontHeight = 180
|
|---|
| 78 | FontCharSet = 136
|
|---|
| 79 | FontPitchAndFamily= 34
|
|---|
| 80 | ParagraphAlign = 3
|
|---|
| 81 | End
|
|---|
| 82 | Begin MSForms.ComboBox LangCombo
|
|---|
| 83 | Height = 375
|
|---|
| 84 | Left = 3360
|
|---|
| 85 | TabIndex = 0
|
|---|
| 86 | Top = 360
|
|---|
| 87 | Width = 2295
|
|---|
| 88 | VariousPropertyBits= 746604571
|
|---|
| 89 | DisplayStyle = 3
|
|---|
| 90 | Size = "4048;661"
|
|---|
| 91 | MatchEntry = 1
|
|---|
| 92 | ShowDropButtonWhen= 2
|
|---|
| 93 | FontName = "·s²Ó©úÅé"
|
|---|
| 94 | FontHeight = 180
|
|---|
| 95 | FontCharSet = 136
|
|---|
| 96 | FontPitchAndFamily= 34
|
|---|
| 97 | End
|
|---|
| 98 | Begin VB.Image Image1
|
|---|
| 99 | Height = 1935
|
|---|
| 100 | Left = 0
|
|---|
| 101 | Picture = "LanguagePage.frx":0CCA
|
|---|
| 102 | Stretch = -1 'True
|
|---|
| 103 | Top = 0
|
|---|
| 104 | Width = 1935
|
|---|
| 105 | End
|
|---|
| 106 | End
|
|---|
| 107 | Attribute VB_Name = "LanguagePage"
|
|---|
| 108 | Attribute VB_GlobalNameSpace = False
|
|---|
| 109 | Attribute VB_Creatable = False
|
|---|
| 110 | Attribute VB_PredeclaredId = True
|
|---|
| 111 | Attribute VB_Exposed = False
|
|---|
| 112 |
|
|---|
| 113 | Private Sub cmdOK_Click()
|
|---|
| 114 |
|
|---|
| 115 | SetCurrLangPath (GetLanguagePath(LangCombo.ListIndex))
|
|---|
| 116 | SetCurrLangIndex LangCombo.ListIndex
|
|---|
| 117 |
|
|---|
| 118 | 'MsgBox GetCurrLangPath()
|
|---|
| 119 | FormatPage.SetLocale
|
|---|
| 120 | InstallPage.SetLocale
|
|---|
| 121 | BootPage.SetLocale
|
|---|
| 122 | InstallHPDialog.SetLocale
|
|---|
| 123 | ReadyDialog.SetLocale
|
|---|
| 124 |
|
|---|
| 125 | FormatPage.Show
|
|---|
| 126 | Unload Me
|
|---|
| 127 | End Sub
|
|---|
| 128 |
|
|---|
| 129 | Private Sub Form_Load()
|
|---|
| 130 | Dim index As Integer
|
|---|
| 131 | Me.Top = FormatPage.Top
|
|---|
| 132 | Me.Left = FormatPage.Left
|
|---|
| 133 | 'SetLocale
|
|---|
| 134 |
|
|---|
| 135 | If Not LoadLanguages Then
|
|---|
| 136 | Exit Sub
|
|---|
| 137 | End If
|
|---|
| 138 |
|
|---|
| 139 | Dim langs() As String
|
|---|
| 140 | Dim pos As Integer
|
|---|
| 141 | pos = 0
|
|---|
| 142 |
|
|---|
| 143 | langs = GetLanguages
|
|---|
| 144 |
|
|---|
| 145 | Do While pos < UBound(langs)
|
|---|
| 146 | If langs(pos) <> "" Then
|
|---|
| 147 | LangCombo.AddItem langs(pos)
|
|---|
| 148 |
|
|---|
| 149 | End If
|
|---|
| 150 | pos = pos + 1
|
|---|
| 151 | Loop
|
|---|
| 152 | index = GetCurrLangIndex
|
|---|
| 153 |
|
|---|
| 154 | If index > -1 And index < LangCombo.ListCount Then
|
|---|
| 155 | LangCombo.ListIndex = index
|
|---|
| 156 | End If
|
|---|
| 157 |
|
|---|
| 158 | LangCombo_Change
|
|---|
| 159 |
|
|---|
| 160 | End Sub
|
|---|
| 161 |
|
|---|
| 162 | Public Sub SetLocale()
|
|---|
| 163 | If (LoadLocalizedResources) Then
|
|---|
| 164 | lbl1.Caption = GetString(17)
|
|---|
| 165 | cmdOK.Caption = GetString(14)
|
|---|
| 166 | End If
|
|---|
| 167 | End Sub
|
|---|
| 168 |
|
|---|
| 169 | Private Sub Form_Unload(Cancel As Integer)
|
|---|
| 170 | If InstallPage.Visible = False Then
|
|---|
| 171 | Unload InstallPage
|
|---|
| 172 | End If
|
|---|
| 173 |
|
|---|
| 174 | If FormatPage.Visible = False Then
|
|---|
| 175 | Unload FormatPage
|
|---|
| 176 | End If
|
|---|
| 177 |
|
|---|
| 178 | If BootPage.Visible = False Then
|
|---|
| 179 | Unload BootPage
|
|---|
| 180 | End If
|
|---|
| 181 |
|
|---|
| 182 | If InstallHPDialog.Visible = False Then
|
|---|
| 183 | Unload InstallHPDialog
|
|---|
| 184 | End If
|
|---|
| 185 |
|
|---|
| 186 | If ReadyDialog.Visible = False Then
|
|---|
| 187 | Unload ReadyDialog
|
|---|
| 188 | End If
|
|---|
| 189 |
|
|---|
| 190 | End Sub
|
|---|
| 191 |
|
|---|
| 192 | Private Sub LangCombo_Change()
|
|---|
| 193 | SetCurrLangPath (GetLanguagePath(LangCombo.ListIndex))
|
|---|
| 194 | SetLocale
|
|---|
| 195 | End Sub
|
|---|
| 196 |
|
|---|
| 197 | Private Sub lbl2_Click()
|
|---|
| 198 | ShellExecute hwnd, "Open", lbl2.Caption, "", App.path, 1
|
|---|
| 199 | End Sub
|
|---|
| 200 |
|
|---|
| 201 | Private Sub lbl3_Click()
|
|---|
| 202 | ShellExecute hwnd, "Open", lbl3.Caption, "", App.path, 1
|
|---|
| 203 | End Sub
|
|---|
