source: DRBLLiveHelper/LanguagePage.frm @ 90

Last change on this file since 90 was 13, checked in by sunny, 17 years ago
File size: 5.3 KB
Line 
1VERSION 5.00
2Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
3Begin 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
106End
107Attribute VB_Name = "LanguagePage"
108Attribute VB_GlobalNameSpace = False
109Attribute VB_Creatable = False
110Attribute VB_PredeclaredId = True
111Attribute VB_Exposed = False
112
113Private 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
127End Sub
128
129Private 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 
160End Sub
161
162Public Sub SetLocale()
163  If (LoadLocalizedResources) Then
164     lbl1.Caption = GetString(17)
165     cmdOK.Caption = GetString(14)
166  End If
167End Sub
168
169Private 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   
190End Sub
191
192Private Sub LangCombo_Change()
193    SetCurrLangPath (GetLanguagePath(LangCombo.ListIndex))
194    SetLocale
195End Sub
196
197Private Sub lbl2_Click()
198    ShellExecute hwnd, "Open", lbl2.Caption, "", App.path, 1
199End Sub
200
201Private Sub lbl3_Click()
202    ShellExecute hwnd, "Open", lbl3.Caption, "", App.path, 1
203End Sub
Note: See TracBrowser for help on using the repository browser.