diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-07-11 14:36:57 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-07-11 14:36:57 +0000 |
| commit | d3af685a4997d8634db0545a9472101b3eb1621a (patch) | |
| tree | b215adf472f513e9a79e3fb02df63c53e5db23cd /wizards/source/euro/Common.xba | |
| parent | 1d777c6a0debcd0733a8f369f6c3777fb5b67597 (diff) | |
#95686# Progressbar now in Dialog inserted
Diffstat (limited to 'wizards/source/euro/Common.xba')
| -rw-r--r-- | wizards/source/euro/Common.xba | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/wizards/source/euro/Common.xba b/wizards/source/euro/Common.xba index 51e3f1d70c5c..e82ed658ed94 100644 --- a/wizards/source/euro/Common.xba +++ b/wizards/source/euro/Common.xba @@ -61,12 +61,12 @@ Function ConvertDocument() bRangeListDefined = False End If Else - oStatusline.SetValue(10) + DialogModel.ProgressBar.ProgressValue = 10 ' oStatusline.SetValue(10) ConvertTextFields() - oStatusline.SetValue(80) + DialogModel.ProgressBar.ProgressValue = 80 ' oStatusline.SetValue(80) ConvertWriterTables() End If - oStatusline.End + EndStatusLine() On Local Error Goto 0 End Function @@ -201,7 +201,11 @@ End Sub Sub IncreaseStatusValue(AddStatusValue as Integer) StatusValue = Int(StatusValue + AddStatusValue) - oStatusline.SetValue(StatusValue) + If DialogModel.Step = 3 Then + DialogModel.ProgressBar.ProgressValue = StatusValue + Else + oStatusline.SetValue(StatusValue) + End If End Sub @@ -255,6 +259,19 @@ End Sub Sub InitializeProgressbar() CurCellCount = 0 - oStatusline.Start(sStsPROGRESS,100) '"Konvertierungsfortschritt:" + If Not IsNull(oStatusLine) Then + oStatusline.Start(sStsPROGRESS, 100) + Else + DialogModel.ProgressBar.ProgressValue = 0 + End If StatusValue = 0 +End Sub + + +Sub EndStatusLine() + If Not IsNull(oStatusLine) Then + oStatusline.End + Else + DialogModel.ProgressBar.ProgressValue = 100 + End If End Sub</script:module>
\ No newline at end of file |