strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source
This commit is contained in:
Behrend Cornelius 2001-10-29 14:21:06 +00:00
parent a076a3aea7
commit b037d1c39c
3 changed files with 4 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
wizards/source/webwizard/Bullets.xba
View file

@ -40,11 +40,6 @@ Dim oNewBuffer(0) as New com.sun.star.beans.PropertyValue
oBookmarkCursor.NumberingRules = oRules
oNewBuffer(0).Name = "GraphicURL"
oNewBuffer(0).Value = sBulletUrl
' oNewBuffer(1).Name = "GraphicSize"
' Todo: Get the original Size of the Bullet (see Bug #86196)
' oSize.Height = 300
' oSize.Width = 300
' oNewBuffer(1).Value = oSize
For n = 0 To oRules.Count - 1
oLevel() = oRules.GetByIndex(0)
bDoReplace = ModifyPropertyValue(oLevel(), oNewBuffer())

8
wizards/source/webwizard/HtmlAutoPilotBasic.xba
View file

@ -68,7 +68,6 @@ Sub Main
oCursor = oBasedocument.Text.CreateTextCursor
oCursor.InsertDocumentfromURL(FileStr, NoArgs())
SetProgressValue(40)
DialogModel.optTiled.State = 1
NumberofStyles = FillupWebListbox(oUcb, "/stl", MainDialog, "lbStyles", Style())
SetProgressValue(50)
LoadWebPageStyles(oBaseDocument)
@ -82,7 +81,6 @@ Sub Main
MainDialog.GetControl("lbTemplate").SetFocus = True
DialogModel.cbGoOn.DefaultButton = True
MainDialog.Execute
GLOBALERRORHANDLER:
If Err <> 0 Then
MsgBox (WebWiz_gErrMsg$, 16, WebWiz_gWizardName$)
@ -394,7 +392,7 @@ Dim Bitmap As Object
Dim sBitmapPath as String
sBitmapPath = SOBitmapPath & "webwizard.bmp"
WebWzrd.ImagePreview.ImageURL = sBitmapPath
End Sub
End Sub
Sub ToggleDialogControls(ByVal bDoEnable as Boolean, Optional FocusControlName as String)
@ -414,6 +412,4 @@ Sub ToggleDialogControls(ByVal bDoEnable as Boolean, Optional FocusControlName a
End If
ToggleOptionButtons(DialogModel, bDoEnable)
End With
End Sub
</script:module>
End Sub</script:module>

4
wizards/source/webwizard/WebWzrd.xdl
View file

@ -20,9 +20,9 @@
</dlg:menulist>
<dlg:text dlg:id="lblTemplate" dlg:tab-index="6" dlg:left="6" dlg:top="42" dlg:width="110" dlg:height="10"/>
<dlg:text dlg:id="lblStyle" dlg:tab-index="7" dlg:left="154" dlg:top="42" dlg:width="110" dlg:height="10" dlg:value="lblStyle"/>
<dlg:checkbox dlg:id="chkSaveasTemplate" dlg:tab-index="8" dlg:left="6" dlg:top="164" dlg:width="110" dlg:height="12" dlg:help-url="HID:34207" dlg:value="chkSaveasTemplate"/>
<dlg:checkbox dlg:id="chkSaveasTemplate" dlg:tab-index="8" dlg:left="6" dlg:top="164" dlg:width="110" dlg:height="12" dlg:help-url="HID:34207" dlg:value="chkSaveasTemplate" dlg:checked="false"/>
<dlg:radiogroup>
<dlg:radio dlg:id="optTiled" dlg:tab-index="9" dlg:left="161" dlg:top="164" dlg:width="96" dlg:height="10" dlg:tag="11" dlg:help-url="HID:34208" dlg:value="optTiled">
<dlg:radio dlg:id="optTiled" dlg:tab-index="9" dlg:left="161" dlg:top="164" dlg:width="96" dlg:height="10" dlg:tag="11" dlg:help-url="HID:34208" dlg:value="optTiled" dlg:checked="true">
<script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="WebWizard.HtmlAutoPilotBasic.SetBackGraphicStyle" script:language="StarBasic"/>
</dlg:radio>
<dlg:radio dlg:id="optArea" dlg:tab-index="10" dlg:left="161" dlg:top="177" dlg:width="96" dlg:height="10" dlg:tag="10" dlg:help-url="HID:34209" dlg:value="optArea">