diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-12-02 14:17:46 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-12-02 14:17:46 +0000 |
| commit | 0b0ae4662910d850c260357a78f483e918717acd (patch) | |
| tree | af4771c9549453a519861d3643cd37fedb6829c2 /wizards/source/tools | |
| parent | ddf748da19bfd1d5236fc1fb76c62a12f8f5c734 (diff) | |
#105421# Overwrite Dialog improved
Diffstat (limited to 'wizards/source/tools')
| -rw-r--r-- | wizards/source/tools/ModuleControls.xba | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index d5078c2fd65e..9fb2dc140258 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -277,11 +277,11 @@ NOSAVING: oStoreDialog.dispose() Resume NOERROR NOERROR: - End If + End If End Function -Sub AddFiltersToDialog(FilterNames() as String, oDialog as Object) +Sub AddFiltersToDialog(FilterNames() as String, oDialog as Object) Dim i as Integer Dim MaxIndex as Integer Dim ViewFiltername as String @@ -291,7 +291,7 @@ Dim sProdName as String sProdName = oProdNameAccess.getByName("ooName") MaxIndex = Ubound(FilterNames(), 1) For i = 0 To MaxIndex - Filternames(i,0) = ReplaceString(Filternames(i,0), sProdName,"%productname%") + Filternames(i,0) = ReplaceString(Filternames(i,0), sProdName,"%productname%") oDialog.AppendFilter(FilterNames(i,0), FilterNames(i,1)) Next i oDialog.SetCurrentFilter(FilterNames(0,0) @@ -321,9 +321,9 @@ Dim OverwriteModel as Object If InitResources("", "com") Then QueryString = GetResText(1007) QueryString = ReplaceString(QueryString, ConvertFromUrl(FilePath), "<PATH>") - If Len(QueryString) > 130 Then + If Len(QueryString) > 190 Then QueryString = DeleteStr(QueryString, ".<BR>") - End If + End If QueryString = ReplaceString(QueryString, chr(13), "<BR>") lblYes = GetResText(1008) lblYesToAll = GetResText(1009) @@ -338,7 +338,7 @@ Dim OverwriteModel as Object OverwriteModel.cmdCancel.Label = lblCancel OverwriteModel.lblQueryforSave.Label = QueryString OverwriteModel.cmdNo.DefaultButton = True - DlgOverwrite.GetControl("cmdNo").SetFocus() + DlgOverwrite.GetControl("cmdNo").SetFocus() LocRetValue = DlgOverwrite.execute() If LocRetValue = 0 Then iGeneralOverwrite = SBOVERWRITECANCEL @@ -365,4 +365,4 @@ End Sub Sub SetOVERWRITEToNever() iGeneralOverwrite = SBOVERWRITENEVER DlgOverwrite.EndExecute() -End Sub</script:module>
\ No newline at end of file +End Sub</script:module> |