VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form LanguagePage 
   BackColor       =   &H00FFFFFF&
   Caption         =   "DRBL Helper"
   ClientHeight    =   1935
   ClientLeft      =   4305
   ClientTop       =   5565
   ClientWidth     =   7560
   Icon            =   "LanguagePage.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   1935
   ScaleWidth      =   7560
   Begin VB.Label lbl3 
      BackStyle       =   0  '透明
      Caption         =   "http://clonezilla.sf.net"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   255
      Left            =   1920
      TabIndex        =   4
      Top             =   1200
      Width           =   2535
   End
   Begin VB.Label lbl2 
      BackStyle       =   0  '透明
      Caption         =   "http://drbl.sf.net"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   255
      Left            =   1920
      TabIndex        =   3
      Top             =   840
      Width           =   1455
   End
   Begin MSForms.Label lbl1 
      Height          =   375
      Left            =   1920
      TabIndex        =   2
      Top             =   360
      Width           =   1335
      ForeColor       =   12632064
      BackColor       =   16777215
      VariousPropertyBits=   8388627
      Caption         =   "Select Language"
      Size            =   "2355;661"
      FontName        =   "新細明體"
      FontHeight      =   180
      FontCharSet     =   136
      FontPitchAndFamily=   34
   End
   Begin MSForms.CommandButton cmdOK 
      Height          =   375
      Left            =   5760
      TabIndex        =   1
      Top             =   360
      Width           =   1335
      Caption         =   "Confirm"
      Size            =   "2355;661"
      FontName        =   "新細明體"
      FontHeight      =   180
      FontCharSet     =   136
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.ComboBox LangCombo 
      Height          =   375
      Left            =   3360
      TabIndex        =   0
      Top             =   360
      Width           =   2295
      VariousPropertyBits=   746604571
      DisplayStyle    =   3
      Size            =   "4048;661"
      MatchEntry      =   1
      ShowDropButtonWhen=   2
      FontName        =   "新細明體"
      FontHeight      =   180
      FontCharSet     =   136
      FontPitchAndFamily=   34
   End
   Begin VB.Image Image1 
      Height          =   1935
      Left            =   0
      Picture         =   "LanguagePage.frx":0CCA
      Stretch         =   -1  'True
      Top             =   0
      Width           =   1935
   End
End
Attribute VB_Name = "LanguagePage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdOK_Click()
    
  SetCurrLangPath (GetLanguagePath(LangCombo.ListIndex))
  SetCurrLangIndex LangCombo.ListIndex
  
  'MsgBox GetCurrLangPath()
  FormatPage.SetLocale
  InstallPage.SetLocale
  BootPage.SetLocale
  InstallHPDialog.SetLocale
  ReadyDialog.SetLocale
  
  FormatPage.Show
  Unload Me
End Sub

Private Sub Form_Load()
  Dim index As Integer
  Me.Top = FormatPage.Top
  Me.Left = FormatPage.Left
  'SetLocale
    
  If Not LoadLanguages Then
       Exit Sub
  End If
  
  Dim langs() As String
  Dim pos As Integer
  pos = 0
  
  langs = GetLanguages
  
  Do While pos < UBound(langs)
     If langs(pos) <> "" Then
        LangCombo.AddItem langs(pos)
        
     End If
     pos = pos + 1
  Loop
  index = GetCurrLangIndex
  
  If index > -1 And index < LangCombo.ListCount Then
     LangCombo.ListIndex = index
  End If
  
  LangCombo_Change
  
End Sub

Public Sub SetLocale()
  If (LoadLocalizedResources) Then
     lbl1.Caption = GetString(17)
     cmdOK.Caption = GetString(14)
  End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If InstallPage.Visible = False Then
        Unload InstallPage
    End If
    
    If FormatPage.Visible = False Then
        Unload FormatPage
    End If
    
    If BootPage.Visible = False Then
        Unload BootPage
    End If
    
    If InstallHPDialog.Visible = False Then
        Unload InstallHPDialog
    End If
    
    If ReadyDialog.Visible = False Then
        Unload ReadyDialog
    End If
    
End Sub

Private Sub LangCombo_Change()
    SetCurrLangPath (GetLanguagePath(LangCombo.ListIndex))
    SetLocale
End Sub

Private Sub lbl2_Click()
    ShellExecute hwnd, "Open", lbl2.Caption, "", App.path, 1
End Sub

Private Sub lbl3_Click()
    ShellExecute hwnd, "Open", lbl3.Caption, "", App.path, 1
End Sub