removed old statement 'LoadPicture'
This commit is contained in:
parent
e9dc584e7f
commit
8813b5960c
1 changed files with 4 additions and 5 deletions
|
@ -1,10 +1,10 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Main" script:language="StarBasic">' ***** BASIC *****
|
||||
' Todo: Problematik der VBA-Makros, die angeblich nicht mit abgespeichert werden können.
|
||||
' Todo: Problematik der VBA-Makros, die angeblich nicht mit abgespeichert werden koennen.
|
||||
' Evt. Erkennen der Arbeitsverzeichnisse von MS Office
|
||||
' Filternamen für Ziel-XML-Dokumente und deren Extensionen feststellen (auch für StarMath)
|
||||
' Extension für XML-Vorlagen klären
|
||||
' Filternamen fuer Ziel-XML-Dokumente und deren Extensionen feststellen (auch fuer StarMath)
|
||||
' Extension fuer XML-Vorlagen klaeren
|
||||
Public HeaderPreviews(4) as Object
|
||||
Public ImportDialog as Object
|
||||
Public ImportDialogArea as Object
|
||||
|
@ -92,7 +92,7 @@ Dim iCurStep as Integer
|
|||
Case 4
|
||||
FillStep_Summary()
|
||||
Case 3
|
||||
'Todo: müssen auch beim Zurücksteppen wirklich die Importpfade auf ihre Gültigkeit hin überprüft werden?
|
||||
'Todo: muessen auch beim Zuruecksteppen wirklich die Importpfade auf ihre Gueltigkeit hin Ueberprueft werden?
|
||||
FillStep_InputPaths(Applcount-1, False)
|
||||
Case 2
|
||||
If SaveStep_InputPath Then
|
||||
|
@ -157,7 +157,6 @@ Dim sBitmapPath as String
|
|||
Else
|
||||
sBitmapPath = SOBitmapPath & "Import_" & CurStep & ".bmp"
|
||||
End If
|
||||
Set Bitmap = LoadPicture (sBitmapPath)
|
||||
ImportDialog.ImportPreview.ImageURL = sBitmapPath
|
||||
End Sub
|
||||
|
||||
|
|
Loading…
Reference in a new issue