From a9ced50e3381dd4a6f8e5ab3d808ff0b82674213 Mon Sep 17 00:00:00 2001 From: Behrend Cornelius Date: Mon, 2 Dec 2002 11:48:13 +0000 Subject: #105421# Resources added to common.src, inserted in Dialog --- wizards/source/tools/ModuleControls.xba | 24 ++++++++++++++++++++---- 1 file changed, 20 insertions(+), 4 deletions(-) (limited to 'wizards/source/tools/ModuleControls.xba') 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 -- cgit v1.2.3