summaryrefslogtreecommitdiff
path: root/wizards/source/tools/ModuleControls.xba
diff options
context:
space:
mode:
authorBehrend Cornelius <bc@openoffice.org>2002-12-02 11:48:13 +0000
committerBehrend Cornelius <bc@openoffice.org>2002-12-02 11:48:13 +0000
commita9ced50e3381dd4a6f8e5ab3d808ff0b82674213 (patch)
treeb4a6e07525d17783d3995962647d3b49f8fc8357 /wizards/source/tools/ModuleControls.xba
parentffb10922106e277aa8092f11c726d64b7028a0e1 (diff)
#105421# Resources added to common.src, inserted in Dialog
Diffstat (limited to 'wizards/source/tools/ModuleControls.xba')
-rw-r--r--wizards/source/tools/ModuleControls.xba24
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(&quot;&quot;, &quot;com&quot;) Then
- DlgOverwrite = LoadDialog(&quot;Tools&quot;, &quot;DlgOverwriteAll&quot;)
- DlgOverwrite.Title = sTitle
- QueryString = &quot;Das Dokument &apos;&lt;PATH&gt;&apos; existiert bereits.&lt;BR&gt;&lt;BR&gt;Möchten Sie Datei(en) überschreiben?&quot;
+ QueryString = GetResText(1007)
QueryString = ReplaceString(QueryString, ConvertFromUrl(FilePath), &quot;&lt;PATH&gt;&quot;)
QueryString = ReplaceString(QueryString, chr(13), &quot;&lt;BR&gt;&quot;)
- DlgOverwrite.Model.lblQueryforSave.Label = QueryString
+ lblYes = GetResText(1008)
+ lblYesToAll = GetResText(1009)
+ lblNo = GetResText(1010)
+ lblCancel = GetResText(1011)
+ DlgOverwrite = LoadDialog(&quot;Tools&quot;, &quot;DlgOverwriteAll&quot;)
+ 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(&quot;cmdNo&quot;).SetFocus()
LocRetValue = DlgOverwrite.execute()
If LocRetValue = 0 Then
iGeneralOverwrite = SBOVERWRITECANCEL