diff options
| author | Oliver Bolte <obo@openoffice.org> | 2009-02-12 14:03:59 +0000 |
|---|---|---|
| committer | Oliver Bolte <obo@openoffice.org> | 2009-02-12 14:03:59 +0000 |
| commit | 20cea29aa241c198cfbd6cdda9f4cf198e6933bd (patch) | |
| tree | 16b877dc84dbf8eff62614606d8f145d8cc2e9d7 /wizards/source/webwizard/HtmlAutoPilotBasic.xba | |
| parent | bbef3ea39fc3fe0bed5bc6307e396fd434e02296 (diff) | |
CWS-TOOLING: integrate CWS fwk99
2009-01-20 17:39:31 +0100 pb r266605 : fix: #i98280# new 'More templates'-URL
2009-01-15 20:17:58 +0100 mst r266391 : #i95702# convert wizards to DocumentProperties (partially based on patch by cmc)
2009-01-12 07:35:44 +0100 pb r266131 : fix: #i96851# HID_PASTE_DLG and HID_LINKDLG_TABLB added
2009-01-09 10:40:48 +0100 pb r266061 : fix: #i97386# Execute_Impl() while sub-dialog is open this could be deleted; #i68415# patch from cmc
2009-01-09 10:35:24 +0100 pb r266059 : fix: #i97386# struct Deleted added
2009-01-09 10:05:17 +0100 pb r266057 : fix: #i97365# ModalDialog RID_SVXPAGE_IMPROVEMENT removed
2009-01-09 10:02:39 +0100 pb r266056 : fix: #i97841# new: set InfoURL and HandleHyperLink()
2009-01-09 09:59:13 +0100 pb r266053 : fix: #i97391# MinWidth re-calculated; #i97365# SvxImprovementDialog2 removed
2009-01-09 09:55:00 +0100 pb r266051 : fix: #i97841# new: HandleHyperLink(); #i97365# SvxImprovementDialog2 removed
2009-01-06 14:24:24 +0100 cd r265921 : #i96831# Fix build problem with gcc 4.3.2 using the return value of link correctly.
2009-01-06 12:18:41 +0100 cd r265907 : #i96831# Fix build problem with gcc 4.3.2
2009-01-06 12:02:59 +0100 mst r265905 : fix #i97775#
- xmloff/source/core/nmspmap.cxx:
+ SvXMLNamespaceMap::GetQNameByKey does not handle default namespace
correctly
Diffstat (limited to 'wizards/source/webwizard/HtmlAutoPilotBasic.xba')
| -rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba index f248b4e6c8b9..00675bbf0c74 100644 --- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba +++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba @@ -153,11 +153,11 @@ Dim OldWebPageIndex as Integer CurrentNext$ = GraphicsDir + Style(CurWebPageIndex, 3) CurrentHome$ = GraphicsDir + Style(CurWebPageIndex, 4) CurrentTop$ = GraphicsDir + Style(CurWebPageIndex, 5) - With oBaseDocument.DocumentInfo - .GetUserFieldValue(0) = ExtractGraphicNames(CurWebPageIndex,2) - .GetUserFieldValue(1) = ExtractGraphicNames(CurWebPageIndex, 4) - .GetUserFieldValue(2) = Style(CurWebPageIndex, 6) ' Bullet - .GetUserFieldValue(3) = Style(CurWebPageIndex, 7) ' Background + With oBaseDocument.DocumentProperties.UserDefinedProperties + .AutoPilotName1 = ExtractGraphicNames(CurWebPageIndex,2) + .AutoPilotName2 = ExtractGraphicNames(CurWebPageIndex, 4) + .AutoPilotBullet = Style(CurWebPageIndex, 6) + .AutoPilotBackground = Style(CurWebPageIndex, 7) End With SetBulletAndGraphics() CheckControls(oBaseDocument.DrawPage) @@ -235,6 +235,7 @@ Sub CopyGraphics Dim oGraphicObjects as Object Dim oGraphic as Object Dim i as Integer +Dim udProps as Object Dim SavePath as String BasicLibraries.LoadLibrary("Tools") oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") @@ -255,12 +256,12 @@ Dim SavePath as String BulletUrlsToSavePath(SavePath) - With oBaseDocument.DocumentInfo - .GetUserFieldValue(0) = "" - .GetUserFieldValue(1) = "" - .GetUserFieldValue(2) = "" - .GetUserFieldValue(3) = "" - End With + udProps = oBaseDocument.DocumentProperties.UserDefinedProperties + udProps.addProperty("AutoPilotName1", 0, "") + udProps.addProperty("AutoPilotName2", 0, "") + udProps.addProperty("AutoPilotBullet", 0, "") + udProps.addProperty("AutoPilotBackground", 0, "") + AttachBasicMacroToEvent(oBaseDocument,"OnSaveDone", "") AttachBasicMacroToEvent(oBaseDocument,"OnSaveAsDone", "") AttachBasicMacroToEvent(oBaseDocument,"OnNew", "") @@ -284,7 +285,7 @@ End Function Function getListBoxArrays(oUcb as Object, sFileFilter as String) -Dim oDocInfo as Object +Dim oDocProps as Object Dim oListboxControl as Object Dim Description as String Dim sField as String @@ -301,10 +302,10 @@ Dim n as Integer Dim s as Integer Dim a as Integer Dim LocMaxIndex as Integer -Dim InfoNames() +Dim Properties() Dim DimCount as Integer Dim sExtension as String - oDocInfo = CreateUnoService("com.sun.star.document.DocumentProperties") + oDocProps = CreateUnoService("com.sun.star.document.DocumentProperties") FilterLen = Len(sFileFilter) bItemFound = False ' It has to be made sure that the TemplatePath <> "" @@ -325,7 +326,7 @@ Dim sExtension as String Dim SortList(LocMaxIndex,1) For i = 0 to LocMaxIndex SortList(i,0) = DirContent(i) - SortList(i,1) = RetrieveDocTitle(oDocInfo, DirContent(i)) + SortList(i,1) = RetrieveDocTitle(oDocProps, DirContent(i)) Next i SortList() = BubbleSortList(SortList(),True) For i = 0 to LocMaxIndex @@ -337,16 +338,15 @@ Dim sExtension as String sExtension = Ucase(GetFileNameExtension(FileName)) If Instr(1,Filename, sFileFilter) And sExtension = "STW" Then bItemFound = True - Description = RetrieveDocTitle(oDocInfo, FileName) - oDocInfo.Read(FileName) - InfoNames = oDocInfo.ElementNames() + Description = RetrieveDocTitle(oDocProps, FileName) + Properties = oDocProps.UserDefinedProperties.PropertyValues List(a,1) = Description If sFileFilter = "/cnt" Then List(a,2) = Filename Else m = 2 For n = 0 To 3 - sField = oDocInfo.GetByName(InfoNames(n)) + sField = Properties(n).Value sFieldList() = ArrayoutofString(sField, " ", MaxIndex) For s = 0 To MaxIndex If m < 6 Then |