diff options
Diffstat (limited to 'wizards/source')
| -rw-r--r-- | wizards/source/access2base/L10N.xba | 4 | ||||
| -rw-r--r-- | wizards/source/access2base/Utils.xba | 6 | ||||
| -rw-r--r-- | wizards/source/euro/Protect.xba | 4 | ||||
| -rw-r--r-- | wizards/source/formwizard/tools.xba | 2 | ||||
| -rw-r--r-- | wizards/source/tools/ModuleControls.xba | 4 | ||||
| -rw-r--r-- | wizards/source/tools/Strings.xba | 2 |
6 files changed, 11 insertions, 11 deletions
diff --git a/wizards/source/access2base/L10N.xba b/wizards/source/access2base/L10N.xba index 4034b0a0f3a8..661e286286d4 100644 --- a/wizards/source/access2base/L10N.xba +++ b/wizards/source/access2base/L10N.xba @@ -164,7 +164,7 @@ Dim sLocal As String Case "ERR" & ERRMETHOD : sLocal = "La méthode '%0' n'est pas applicable dans ce contexte" Case "ERR" & ERRPROPERTYINIT : sLocal = "Propriété '%0' applicable mais non initialisée" Case "ERR" & ERRFILENOTCREATED : sLocal = "Erreur de création du fichier '%0'" - Case "ERR" & ERRDIALOGNOTFOUND : sLocal = "Dialogue '%0' introuvable dans les librairies chargées actuellement" + Case "ERR" & ERRDIALOGNOTFOUND : sLocal = "Dialogue '%0' introuvable dans les libraries chargées actuellement" Case "ERR" & ERRDIALOGUNDEFINED : sLocal = "Boîte de dialogue inconnue" Case "ERR" & ERRDIALOGSTARTED : sLocal = "Dialogue déjà initialisé précédemment" Case "ERR" & ERRDIALOGNOTSTARTED : sLocal = "Dialogue '%0' non initialisé" @@ -297,4 +297,4 @@ Dim oLocale as Object End Function ' GetLocale V0.8.9 -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/access2base/Utils.xba b/wizards/source/access2base/Utils.xba index dcc1b4cfe400..dd639d513e25 100644 --- a/wizards/source/access2base/Utils.xba +++ b/wizards/source/access2base/Utils.xba @@ -597,13 +597,13 @@ Private Function _PercentEncode(ByVal psChar As String) As String Dim lChar As Long, sByte1 As String, sByte2 As String, sByte3 As String lChar = Asc(psChar) - + Select Case lChar Case 48 To 57, 65 To 90, 97 To 122 ' 0-9, A-Z, a-z _PercentEncode = psChar Case Asc("-"), Asc("."), Asc("_"), Asc("~") _PercentEncode = psChar - Case Asc("!"), Asc("$"), Asc("&"), Asc("'"), Asc("("), Asc(")"), Asc("*"), Asc("+"), Asc(","), Asc(";"), Asc("=") ' Reserved characters used as delimitors in query strings + Case Asc("!"), Asc("$"), Asc("&"), Asc("'"), Asc("("), Asc(")"), Asc("*"), Asc("+"), Asc(","), Asc(";"), Asc("=") ' Reserved characters used as delimiters in query strings _PercentEncode = psChar Case Asc(" "), Asc("%") _PercentEncode = "%" & Right("00" & Hex(lChar), 2) @@ -839,4 +839,4 @@ Private Function _UTF8Encode(ByVal psChar As String) As String End Function ' _UTF8Encode V1.4.0 -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/euro/Protect.xba b/wizards/source/euro/Protect.xba index 32badc3f5164..68ffc72f18ce 100644 --- a/wizards/source/euro/Protect.xba +++ b/wizards/source/euro/Protect.xba @@ -133,7 +133,7 @@ End Sub ' Reprotects the previousliy protected sheets -' The passwordinformation is stored in the List 'UnProtectList()' +' The password information is stored in the List 'UnProtectList()' Sub ReprotectSheets() Dim i as Integer Dim oProtectSheet as Object @@ -189,4 +189,4 @@ Dim bProtectedSheets as Boolean End If Next i CheckSheetProtection() = False -End Function</script:module>
\ No newline at end of file +End Function</script:module> diff --git a/wizards/source/formwizard/tools.xba b/wizards/source/formwizard/tools.xba index 3bf6322e33a2..d6f8ed419c73 100644 --- a/wizards/source/formwizard/tools.xba +++ b/wizards/source/formwizard/tools.xba @@ -227,7 +227,7 @@ Function SetNumerics(ByVal oLocObject as Object, iLocFieldType as Integer) as Ob oLocObject.DefaultTime = CurDefaultValue ' Todo: Property TimeFormat? from where? ElseIf CurControlType = cCheckBox Then -' Todo Why does this not work?: oLocObject.DefautState = CurDefaultValue +' Todo Why does this not work?: oLocObject.DefaultState = CurDefaultValue End If If oLocObject.PropertySetInfo.HasPropertybyName("FormatKey") Then On Local Error Resume Next diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index 749ac1476ad9..96f23ad866d4 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -276,7 +276,7 @@ Dim FilterIndex as Integer End If On Local Error Goto NOSAVING If FilterName = "" Then - ' Todo: Catch the case that a document that has to be overwritten is writeportected (e.g. it is open) + ' Todo: Catch the case that a document that has to be overwritten is writeprotected (e.g. it is open) oDocument.StoreAsUrl(sPath, NoArgs()) Else oStoreProperties(0).Name = "FilterName" @@ -384,4 +384,4 @@ Sub SetOVERWRITEToNever() iGeneralOverwrite = SBOVERWRITENEVER DlgOverwrite.EndExecute() End Sub -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba index d05555fd9901..69389388251d 100644 --- a/wizards/source/tools/Strings.xba +++ b/wizards/source/tools/Strings.xba @@ -214,7 +214,7 @@ Dim a as Integer End Sub -' Searches for a String in a two-dimensional Array by querying all Searchindexex of the second dimension +' Searches for a String in a two-dimensional Array by querying all Searchindexes of the second dimension ' and delivers the specific String of the ReturnIndex in the second dimension of the Searchlist() Function StringInMultiArray(SearchList(), SearchString as String, SearchIndex as Integer, ReturnIndex as Integer, Optional MaxIndex as Integer) as String Dim i as integer |