diff options
Diffstat (limited to 'wizards/source/tools/ModuleControls.xba')
-rw-r--r-- | wizards/source/tools/ModuleControls.xba | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index a94f0a9977af..4b211370961b 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -313,13 +313,29 @@ End Sub Sub ShowOverwriteAllDialog(FilePath as String, sTitle as String) Dim QueryString as String Dim LocRetValue as Integer +Dim lblYes as String +Dim lblNo as String +Dim lblYesToAll as String +Dim lblCancel as String +Dim OverwriteModel as Object If InitResources("", "com") Then - DlgOverwrite = LoadDialog("Tools", "DlgOverwriteAll") - DlgOverwrite.Title = sTitle - QueryString = "Das Dokument '<PATH>' existiert bereits.<BR><BR>Möchten Sie Datei(en) überschreiben?" + QueryString = GetResText(1007) QueryString = ReplaceString(QueryString, ConvertFromUrl(FilePath), "<PATH>") QueryString = ReplaceString(QueryString, chr(13), "<BR>") - DlgOverwrite.Model.lblQueryforSave.Label = QueryString + lblYes = GetResText(1008) + lblYesToAll = GetResText(1009) + lblNo = GetResText(1010) + lblCancel = GetResText(1011) + DlgOverwrite = LoadDialog("Tools", "DlgOverwriteAll") + DlgOverwrite.Title = sTitle + OverwriteModel = DlgOverwrite.Model + OverwriteModel.cmdYes.Label = lblYes + OverwriteModel.cmdYesToAll.Label = lblYesToAll + OverwriteModel.cmdNo.Label = lblNo + OverwriteModel.cmdCancel.Label = lblCancel + OverwriteModel.lblQueryforSave.Label = QueryString + OverwriteModel.cmdNo.DefaultButton = True + DlgOverwrite.GetControl("cmdNo").SetFocus() LocRetValue = DlgOverwrite.execute() If LocRetValue = 0 Then iGeneralOverwrite = SBOVERWRITECANCEL |