28 lines
483 B
Text
28 lines
483 B
Text
' Gambas class file
|
|
|
|
Public Sub _new()
|
|
|
|
Dim sLanguage As String
|
|
Dim sPath As String
|
|
Dim sDest As String
|
|
|
|
sLanguage = Left$(System.Language, 2)
|
|
sPath = "Help_" & sLanguage & ".html"
|
|
sDest = File.SetExt(Temp$("help"), "html")
|
|
Try Copy sPath To sDest
|
|
|
|
If Error Then
|
|
sPath = "Help_en.html"
|
|
sDest = File.SetExt(Temp$("help"), "html")
|
|
Try Copy sPath To sDest
|
|
Endif
|
|
|
|
WebViewHelp.Url = "file://" & sDest
|
|
|
|
End
|
|
|
|
Public Sub btnClose_Click()
|
|
|
|
Me.Close
|
|
|
|
End
|