diff options
Diffstat (limited to 'wizards/source/webwizard')
-rw-r--r-- | wizards/source/webwizard/Bullets.xba | 117 | ||||
-rw-r--r-- | wizards/source/webwizard/Common.xba | 145 | ||||
-rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 436 | ||||
-rw-r--r-- | wizards/source/webwizard/Language.xba | 84 | ||||
-rw-r--r-- | wizards/source/webwizard/WebWzrd.xdl | 28 | ||||
-rw-r--r-- | wizards/source/webwizard/delzip | 0 | ||||
-rw-r--r-- | wizards/source/webwizard/dialog.xlb | 5 | ||||
-rw-r--r-- | wizards/source/webwizard/makefile.mk | 53 | ||||
-rw-r--r-- | wizards/source/webwizard/script.xlb | 8 | ||||
-rw-r--r-- | wizards/source/webwizard/webwizar.src | 167 |
10 files changed, 1043 insertions, 0 deletions
diff --git a/wizards/source/webwizard/Bullets.xba b/wizards/source/webwizard/Bullets.xba new file mode 100644 index 000000000000..78b8fa0b0d52 --- /dev/null +++ b/wizards/source/webwizard/Bullets.xba @@ -0,0 +1,117 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Bullets" script:language="StarBasic">REM ***** BASIC ***** +Option Explicit + + +Sub SetBulletGraphics(sBulletUrl as String) +Dim i as Integer +Dim oBookMarkCursor as Object + oBookmarks = oBaseDocument.BookMarks + For i = 0 To oBookmarks.Count - 1 + oBookMark = oBookmarks.GetbyIndex(i) + oBookMarkCursor = oBookMark.Anchor.Text.CreateTextCursorByRange(oBookMark.Anchor) + If oBookMarkCursor.PropertySetInfo.HasPropertybyName("NumberingRules") Then + ChangeBulletURL(sBulletUrl, oBookMarkCursor) + End If + Next i +End Sub + + +Sub ChangeBulletURL(sBulletUrl as String, oBookMarkCursor as Object) +Dim n, m as Integer +Dim oLevel() +Dim oRules +Dim bDoReplace as Boolean +Dim oSize as New com.sun.star.awt.Size +Dim oNumberingBuffer(0) as New com.sun.star.beans.PropertyValue +Dim oNewBuffer(0) as New com.sun.star.beans.PropertyValue + oRules = oBookMarkCursor.NumberingRules + If Vartype(oRules()) = 9 Then + oNumberingBuffer(0).Name = "NumberingType" + oNumberingBuffer(0).Value = com.sun.star.style.NumberingType.BITMAP + For n = 0 To oRules.Count - 1 + oLevel() = oRules.GetByIndex(n) + bDoReplace = ModifyPropertyValue(oLevel(), oNumberingBuffer()) + If bDoReplace Then + oRules.ReplaceByIndex(n, oNumberingBuffer()) + End If + Next n + oBookmarkCursor.NumberingRules = oRules + oNewBuffer(0).Name = "GraphicURL" + oNewBuffer(0).Value = sBulletUrl + For n = 0 To oRules.Count - 1 + oLevel() = oRules.GetByIndex(0) + bDoReplace = ModifyPropertyValue(oLevel(), oNewBuffer()) + If bDoReplace Then + oRules.ReplaceByIndex(n, oNewBuffer()) + End If + Next n + oBookmarkCursor.NumberingRules = oRules + End If +End Sub + + +Sub BulletUrlsToSavePath(SavePath as String) +Dim n as Integer +Dim m as Integer +Dim i as Integer +Dim sNewBulletUrl as String +Dim oLevel() +Dim oRules +Dim bIsFirstRun as Boolean +Dim oNewBuffer()' as New com.sun.star.beans.PropertyValue +Dim bDoReplace as Boolean +Dim oBookmarkCursor as Object + bIsFirstRun = True + oBookmarks = oBaseDocument.BookMarks + For i = 0 To oBookmarks.Count - 1 + oBookMark = oBookmarks.GetbyIndex(i) + oBookMarkCursor = oBookMark.Anchor.Text.CreateTextCursorByRange(oBookMark.Anchor) + If oBookMarkCursor.PropertySetInfo.HasPropertybyName("NumberingRules") Then + oRules = oBookMarkCursor.NumberingRules + If Vartype(oRules()) = 9 Then + For n = 0 To oRules.Count - 1 + oLevel() = oRules.GetByIndex(n) + oNewBuffer() = ChangeBulletUrlToSavePath(SavePath, oLevel(), bIsFirstRun, bDoReplace) + If bDoReplace Then + bIsFirstRun = False + oRules.ReplaceByIndex(n, oNewBuffer()) + End If + Next n + oBookmarkCursor.NumberingRules = oRules + End If + End If + Next i +End Sub + + +Function ChangeBulletUrlToSavePath(SavePath as String, oLevel(), bIsFirstRun as Boolean, bDoReplace as Boolean) +Dim MaxIndex as Integer +Dim i as Integer +Dim BulletName as String +Dim oSize as New com.sun.star.awt.Size + MaxIndex = Ubound(oLevel()) + Dim oNewBuffer(MaxIndex) as New com.sun.star.beans.PropertyValue + For i = 0 To MaxIndex + oNewBuffer(i).Name = oLevel(i).Name + If oLevel(i).Name = "GraphicURL" Then + bDoReplace = True + BulletName = FileNameoutofPath(oLevel(i).Value) + If bIsFirstRun Then + If oUcb.exists(SavePath & Bulletname) Then + FileCopy(oLevel(i).Value, SavePath & BulletName) + End If + End If + oNewBuffer(i).Value = BulletName +' ElseIf oLevel(i).Name = "GraphicSize" Then +'' Todo: Get the original Size of the Bullet (see Bug #86196) +' oSize.Height = 300 +' oSize.Width = 300 +' oNewBuffer(i).Value = oSize + Else + oNewBuffer(i).Value = oLevel(i).Value + End If + Next i + ChangeBulletUrlToSavePath() = oNewBuffer() +End Function</script:module>
\ No newline at end of file diff --git a/wizards/source/webwizard/Common.xba b/wizards/source/webwizard/Common.xba new file mode 100644 index 000000000000..806c49423b67 --- /dev/null +++ b/wizards/source/webwizard/Common.xba @@ -0,0 +1,145 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Common" script:language="StarBasic">REM ***** BASIC ***** +Option Explicit + + +Function LoadNewStyles(oDocument as Object, oDialogModel as Object, CurIndex as Integer, SourceFile as String, Styles() as String, TextureDir as String) as Boolean +Dim BackGroundURL as String +Dim oBackGraph as Object +Dim i, BackColor as Long +Dim bLocWithBackGraphic as Boolean +Dim oFamilies as Object, oFamily as Object', oStyle as Object +Dim StylesOptions(0) as New com.sun.star.beans.PropertyValue + + If SourceFile <> "" Then + StylesOptions(0).Name = "OverwriteStyles" + StylesOptions(0).Value = True + oDocument.StyleFamilies.LoadStylesFromURL(SourceFile, StylesOptions()) + End If + + ' Read array fields for background, bullet & graphics + BackgroundURL = Styles(CurIndex, 7) + If Left(BackgroundURL, 1) <> "#" Then + BackgroundURL = TextureDir + BackgroundURL + bLocWithBackGraphic = True + Else + BackColor = clng("&H" & Right(BackgroundURL, Len(BackgroundURL)-1)) + bLocWithBackGraphic = False + End If + oFamilies = oDocument.StyleFamilies + oFamily = oFamilies.GetbyName("PageStyles") + For i = 0 To oFamily.Count - 1 + If oFamily.GetByIndex(i).IsInUse Then + oStyle = oFamily.GetbyIndex(i) + If oStyle.PropertySetInfo.HasPropertybyName("BackGraphicURL") Then + If Left(BackgroundURL, 1) = "#" Then + oStyle.BackGraphicURL = "" + oStyle.BackColor = BackColor + oStyle.BackTransparent = False + Else + oStyle.BackGraphicUrl = BackGroundURL + SetTileBackgroundorNot(oDialogModel, oStyle) + End If + Exit For + End If + End If + Next i + LoadNewStyles() = bLocWithBackGraphic +ErrorOcurred: + If Err <> 0 Then + MsgBox (WebWiz_gErrWhileLoadStyles$, 16, WebWiz_gWizardName$) + RESUME EXITSUB +EXITSUB: + End If +End Function + + + +Sub ChangeBackGraphicUrl(SavePath as String) +Dim oPageFamily as Object +Dim i as Integer + oPageFamily = oBaseDocument.StyleFamilies.GetbyName("PageStyles") + For i = 0 To oPageFamily.Count - 1 + If oPageFamily.GetByIndex(i).IsInUse Then + oStyle = oPageFamily.GetbyIndex(i) + If oStyle.PropertySetInfo.HasPropertybyName("BackGraphicURL") Then + If oStyle.BackGraphicUrl <> "" Then + oStyle.BackGraphicUrl = CopyFile(oStyle.BackGraphicUrl, SavePath) + Exit Sub + End If + End If + End If + Next i +End Sub + + +Sub SetBackGraphicStyle(oEvent as Object) +Dim oFamilies as Object +Dim oFamily as Object +Dim i as Integer +Dim oOptModel as Object +Dim iBackgroundValue as Integer +Dim oLocDocument as Object + ooptModel = oEvent.Source.Model + iBackgroundValue = Val(ooptModel.Tag) + oLocDocument = StarDesktop.ActiveFrame.Controller.Model + oLocDocument.LockControllers + oFamilies = oLocDocument.StyleFamilies + oFamily = oFamilies.GetbyName("PageStyles") + For i = 0 To oFamily.Count - 1 + If oFamily.GetByIndex(i).IsInUse Then + oStyle = oFamily.GetbyIndex(i) + If oStyle.PropertySetInfo.HasPropertybyName("BackGraphicURL") Then + oStyle.BackGraphicLocation = iBackgroundValue + End If + End If + Next i + oLocDocument.UnlockControllers +End Sub + + +Sub SetTileBackgroundorNot(DialogModel as Object, oStyle as Object) + If Not IsNull(DialogModel) Then + If DialogModel.optTiled.State = 1 Then + oStyle.BackGraphicLocation = com.sun.star.style.GraphicLocation.TILED + Else + oStyle.BackGraphicLocation = com.sun.star.style.GraphicLocation.AREA + End If + End If +End Sub + + +Sub ToggleOptionButtons(DialogModel as Object, bDoEnable as Integer) + If Not IsNull(DialogModel) Then + DialogModel.optTiled.Enabled = bDoEnable + DialogModel.optArea.Enabled = bDoEnable + DialogModel.hlnBackground.Enabled = bDoEnable + End If +End Sub + + +Function GetCurIndex(oListbox as Object, sList() as String, FileIndex as Integer) +Dim i as Integer +Dim n as Integer +Dim SelValue as String +Dim MaxIndex as Integer + If IsNull(oListBox) Then + ' Startup for WebWizard + SelValue = sList(0,1) + Else + n = oListbox.SelectedItems(0) + SelValue = oListbox.StringItemList(n) + End If + ' Find field index for chosen list entry + MaxIndex = Ubound(sList) + For i = 0 To MaxIndex + If sList(i,1) = SelValue Then + FileStr = sList(i, FileIndex) + Exit For + End If + Next + GetCurIndex = i +End Function + +</script:module>
\ No newline at end of file diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba new file mode 100644 index 000000000000..00675bbf0c74 --- /dev/null +++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba @@ -0,0 +1,436 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="HtmlAutoPilotBasic" script:language="StarBasic">' Variables must be declared +Option Explicit + +Public CurDocIndex as Integer +Public CurWebPageIndex as Integer + + +Public bWithBackGraphic as Boolean +Public oStyle as Object +' Maximum number of content templates, style templates and bullets +Const MaxLayouts = 50 +Const MaxStyles = 100 +Const MaxBullets = 10 + +'Public NumberOfLayouts%, NumberOfStyles% + +' Filled with title, previous, next, home, top, bullet, background, file name +Public Style(MaxStyles, 8) as String + +Public Layout$(MaxLayouts, 2) + +Public TextureDir$, BulletDir$, GraphicsDir$, GalleryDir$, PhotosDir$ +Public SOBitmapPath as String +Public CurrentBullet$, CurrentPrev$, CurrentNext$, CurrentHome$, CurrentTop$ +Public FileStr as String + +Public WebWiz_gWizardName$, WebWiz_gErrContentNotFound$, WebWiz_gErrStyleNotFound$ +Public WebWiz_gErrMainTemplateError$, WebWiz_gErrWhileReloading$ +Public WebWiz_gErrWhileLoadStyles$, WebWiz_gErrMsg$, WebWiz_gErrMainDocumentError$ + +Public ProgressBar as Object +Public ProgressValue As Long +Public oBaseDocument as Object +Public oViewCursor as Object +Public oViewSettings as Object +Public NoArgs() as New com.sun.star.beans.PropertyValue + +Public oCursor as Object +Public oBookmarks as Object +Public oBookMark as Object + +Public oUcb as Object +Public MainDialog as Object +Public DialogModel as Object + + +Sub Main +Dim RetValue +On Local Error Goto GlobalErrorHandler + BasicLibraries.LoadLibrary("Tools") + oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") + oBaseDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter/web", "_default", 0, NoArgs()) + oViewSettings = oBaseDocument.CurrentController.ViewSettings + oViewCursor = oBaseDocument.GetCurrentController.ViewCursor + CurWebPageIndex = -1 + ProgressBar = oBaseDocument.GetCurrentController.GetFrame.CreateStatusIndicator + ProgressBar.Start("", 100) + SetProgressValue(2) + oBaseDocument.LockControllers + oViewSettings.ShowTableBoundaries = False + If Not GetWebWizardPaths() Then + Exit Sub + End If + LoadLanguage + SetProgressValue(10) + Layout() = getListBoxArrays(oUcb, "/cnt") + GetCurIndex(DialogModel, Layout(),2) + SetProgressValue(30) + oCursor = oBasedocument.Text.CreateTextCursor + oCursor.InsertDocumentfromURL(FileStr, NoArgs()) + SetProgressValue(50) + Style() = getListBoxArrays(oUcb, "/stl") + SetProgressValue(70) + LoadWebPageStyles(oBaseDocument) + SetProgressValue(90) + oBaseDocument.UnlockControllers + OpenWebDialog() + SetProgressValue(98) + SetProgressValue(0) + MainDialog.Model.ImagePreview.BackGroundColor = RGB(0, 60,126) + RetValue = MainDialog.Execute + Select Case RetValue + Case 0 + MainDialog.Dispose() + DisposeDocument(oBaseDocument) + Case 1 + EndDialog() + MainDialog.Dispose() + End Select +GLOBALERRORHANDLER: + If Err <> 0 Then + MsgBox (WebWiz_gErrMsg$, 16, WebWiz_gWizardName$) + DisposeDocument(oBaseDocument) + RESUME EXITWIZARD +EXITWIZARD: + End If +End Sub + + +Function SetProgressValue(iValue as Integer) + If iValue = 0 Then + ProgressBar.End + End If + ProgressValue = iValue + ProgressBar.Value = iValue +End Function + + +Sub ReloadCurrentDocument() +Dim OldDocIndex as Integer +On Local Error Goto ErrorOcurred + OldDocIndex = CurDocIndex + CurDocIndex = GetCurIndex(DialogModel.lbTemplate, Layout(), 2) + If OldDocIndex <> CurDocIndex Then + oBaseDocument.LockControllers + ToggleDialogControls(False) + oCursor = oBaseDocument.Text.CreateTextCursor() + oCursor.GotoStart(False) + oCursor.GotoEnd(True) + oCursor.SetAllPropertiesToDefault() + oCursor.InsertDocumentfromURL(FileStr, NoArgs()) + SetBulletAndGraphics + CheckControls(oBaseDocument.DrawPage) + ErrorOcurred: + If Err <> 0 Then + MsgBox(WebWiz_gErrWhileReloading$, 16, WebWiz_gWizardName$) + End If + oBaseDocument.UnlockControllers + oViewCursor.GotoStart(False) + ToggleDialogControls(True, "lbTemplate") + End If +End Sub + + + + +Sub LoadWebPageStyles(aEvent as Object, Optional bStartUp as Boolean) +Dim OldWebPageIndex as Integer + OldWebPageIndex = CurWebPageIndex + If IsNull(DialogModel) Then + CurWebPageIndex = GetCurIndex(DialogModel, Style(), 8) + Else + CurWebPageIndex = GetCurIndex(DialogModel.lbStyles, Style(), 8) + End If + If OldWebPageIndex <> CurWebPageIndex Then + ToggleDialogControls(False) + oBaseDocument.LockControllers + bWithBackGraphic = LoadNewStyles(oBaseDocument, DialogModel, CurWebPageIndex, FileStr, Style(), TextureDir) + CurrentBullet$ = BulletDir + Style(CurWebPageIndex, 6) + CurrentPrev$ = GraphicsDir + Style(CurWebPageIndex, 2) + CurrentNext$ = GraphicsDir + Style(CurWebPageIndex, 3) + CurrentHome$ = GraphicsDir + Style(CurWebPageIndex, 4) + CurrentTop$ = GraphicsDir + Style(CurWebPageIndex, 5) + 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) + oViewCursor.GotoStart(False) + oBaseDocument.UnlockControllers + ToggleDialogControls(True, "lbStyles") + End If +End Sub + + +Function ExtractGraphicNames(CurIndex as Integer, i as Integer) as String +Dim FieldValue as String + FieldValue = GetFileNameWithoutExtension(Style(CurIndex, i)) + FieldValue = FieldValue & " " & GetFileNameWithoutExtension(Style(CurIndex, i+1)) + ExtractGraphicNames = FieldValue +End Function + + +Sub SetBulletAndGraphics + SetGraphic("Prev", CurrentPrev) + SetGraphic("Next", CurrentNext) + SetGraphic("Home", CurrentHome) + SetGraphic("Top", CurrentTop) + SetBulletGraphics(CurrentBullet) + SetGraphicsToOriginalSize() +End Sub + + +Sub SetGraphicsToOriginalSize() +Dim oGraphics as Object +Dim oGraphic as Object +Dim i as Integer +Dim aActSize as New com.sun.star.awt.Size + oGraphics = oBaseDocument.GraphicObjects + For i = 0 To oGraphics.Count-1 + oGraphic = oGraphics.GetByIndex(i) + aActSize = oGraphic.ActualSize + If aActSize.Height > 0 And aActSize.Width > 0 Then + oGraphic.SetSize(aActSize) + End If + Next i +End Sub + + +Sub EndDialog() + If DialogModel.chkSaveasTemplate.State = 1 Then + ' Generating template? Set events later! + AttachBasicMacroToEvent(oBaseDocument,"OnNew", "WebWizard.HtmlAutoPilotBasic.SetEvent()") + ' Call the Store template dialog + DispatchSlot(5538) + AttachBasicMacroToEvent(oBaseDocument,"OnNew", "") + End If + SetEvent() +End Sub + + +Sub SetEvent() +Dim oDocument as Object +' This sub links the events OnSaveDone and OnSaveAsDone to the procedure +' CopyGraphics. It is invoked when a document is created, either directly +' from the AutoPilot or from a template. It is not possible to set these +' links for the template created by the AutoPilot because then it is not +' possible to modify the template. + BasicLibraries.LoadLibrary("Tools") + oDocument = ThisComponent + AttachBasicMacroToEvent(oDocument,"OnSaveDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()") + AttachBasicMacroToEvent(oDocument,"OnSaveAsDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()") +End Sub + + + +Sub CopyGraphics +' This sub copies all the graphics used in the document to the same directory the +' document has been copied into and changes the graphics links in the document. +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") + GetWebWizardPaths() + oBaseDocument = ThisComponent +' oBaseDocument.LockControllers() + + ' Note: The sub DirectoryNameoutofPath should be change, so that the last character is a slash + SavePath = DirectoryNameoutofPath(oBaseDocument.Url, "/") & "/" + + oGraphicObjects = oBaseDocument.GraphicObjects + For i = 0 to oGraphicObjects.Count-1 + oGraphic = oGraphicObjects.GetbyIndex(i) + oGraphic.GraphicUrl = CopyFile(oGraphic.GraphicURL, SavePath) + Next i + + ChangeBackGraphicUrl(SavePath) + + BulletUrlsToSavePath(SavePath) + + 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", "") + oBaseDocument.Store +' oBaseDocument.UnlockControllers() +End Sub + + +Function CopyFile(ByVal SourceUrl as String, TargetDir as String) +Dim sFileName as String +Dim sNewFileUrl as String + If oUcb.Exists(TargetDir) Then + If Len(TargetDir) > 2 Then + sFileName = FileNameoutofPath(SourceUrl) + sNewFileUrl = TargetDir & sFileName + oUcb.Copy(SourceUrl, sNewFileUrl) + CopyFile() = sNewFileUrl + End If + End If +End Function + + +Function getListBoxArrays(oUcb as Object, sFileFilter as String) +Dim oDocProps as Object +Dim oListboxControl as Object +Dim Description as String +Dim sField as String +Dim sFieldList() as String +Dim bItemFound as Boolean +Dim MaxIndex as Integer +Dim DirContent() as String +Dim FileName as String +Dim TemplatePath as String +Dim FilterLen as Integer +Dim i as Integer +Dim m as Integer +Dim n as Integer +Dim s as Integer +Dim a as Integer +Dim LocMaxIndex as Integer +Dim Properties() +Dim DimCount as Integer +Dim sExtension as String + oDocProps = CreateUnoService("com.sun.star.document.DocumentProperties") + FilterLen = Len(sFileFilter) + bItemFound = False + ' It has to be made sure that the TemplatePath <> "" + TemplatePath = GetOfficeSubPath("Template", "wizard/web/") + If TemplatePath = "" Then + Dim NullList() + getListBoxArrays() = NullList() + Exit Function + End If + DirContent() = oUcb.GetFolderContents(TemplatePath,True) + If sFileFilter = "/cnt" Then + DimCount = 2 + Else + DimCount = 8 + End If + LocMaxIndex = Ubound(DirContent()) + Dim List(LocMaxIndex, DimCount) as String + Dim SortList(LocMaxIndex,1) + For i = 0 to LocMaxIndex + SortList(i,0) = DirContent(i) + SortList(i,1) = RetrieveDocTitle(oDocProps, DirContent(i)) + Next i + SortList() = BubbleSortList(SortList(),True) + For i = 0 to LocMaxIndex + DirContent(i) = SortList(i,0) + Next i + a = 0 + For i = 0 To LocMaxIndex + FileName = DirContent(i) + sExtension = Ucase(GetFileNameExtension(FileName)) + If Instr(1,Filename, sFileFilter) And sExtension = "STW" Then + bItemFound = True + 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 = Properties(n).Value + sFieldList() = ArrayoutofString(sField, " ", MaxIndex) + For s = 0 To MaxIndex + If m < 6 Then + List(a,m) = sFieldList(s) & ".gif" + Else + List(a,m) = sFieldList(s) + End If + m = m + 1 + Next s + Next n + List(a,8) = FileName + End If + a = a + 1 + End If + Next i + If sFileFilter = "/cnt" Then + ReDim Preserve List(a-1,2) as String + Else + ReDim Preserve List(a-1,8) as String + End If + If Not bItemfound Then + MsgBox(WebWiz_gErrContentNotFound$, 16, WebWiz_gWizardName$) + DisposeDocument(oBaseDocument) + Stop + End If + getListBoxArrays = List() +End Function + + +Sub SetGraphic(sWhich, sGraphicText as String) +Dim oLocCursor as Object +Dim oGraphic as Object +Dim bGetGraphic as Boolean + oBookmarks = oBaseDocument.BookMarks + If oBookmarks.HasbyName(sWhich)Then + oBookMark = oBookmarks.GetbyName(sWhich) + oLocCursor = oBookMark.Anchor.Text.CreateTextCursorByRange(oBookMark.Anchor) + oGraphic = oBaseDocument.CreateInstance("com.sun.star.text.GraphicObject") + oLocCursor.GoRight(3,True) + oGraphic.AnchorType = 1 + oGraphic.GraphicURL = ConverttoURL(sGraphicText) + oLocCursor.Text.InsertTextContent(oLocCursor, oGraphic, True) + oGraphic.Name = sWhich + ElseIf oBaseDocument.GraphicObjects.HasbyName(sWhich) Then + oGraphic = oBaseDocument.GraphicObjects.GetByName(sWhich) + oGraphic.GraphicUrl = sGraphicText + End If +End Sub + + +Sub CheckControls(oDrawPage as Object) +Dim aForm as Object +Dim m,n as integer +Dim lColor as Long +Dim oControl as Object + lColor = oBaseDocument.StyleFamilies.GetbyName("ParagraphStyles").GetByName("Standard").CharColor + 'SearchFor all possible Controls + For n = 0 to oDrawPage.Forms.Count - 1 + aForm = oDrawPage.Forms(n) + For m = 0 to aForm.Count-1 + oControl = aForm.GetbyIndex(m) + oControl.TextColor = lColor + Next + Next +End Sub + + +Sub RepaintHeaderPreview() +Dim Bitmap As Object +Dim sBitmapPath as String + sBitmapPath = SOBitmapPath & "webwizard.bmp" + WebWzrd.ImagePreview.ImageURL = sBitmapPath +End Sub + + +Sub ToggleDialogControls(ByVal bDoEnable as Boolean, Optional FocusControlName as String) + If Not IsNull(DialogModel) Then + DialogModel.Enabled = bDoEnable + If bDoEnable Then + ' Enable Controls referring to Background graphic only when this Property is set + bDoEnable = bWithBackGraphic + ToggleOptionButtons(DialogModel, bDoEnable) + MainDialog.GetControl(FocusControlName).SetFocus() + End If + End If +End Sub +</script:module> diff --git a/wizards/source/webwizard/Language.xba b/wizards/source/webwizard/Language.xba new file mode 100644 index 000000000000..1aa26fac30cb --- /dev/null +++ b/wizards/source/webwizard/Language.xba @@ -0,0 +1,84 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit + + + + +Sub LoadLanguage() + If InitResources("WebWizard","wwz") Then + WebWiz_gErrContentNotFound = GetResText(1101) + WebWiz_gErrStyleNotFound = GetResText(1102) + WebWiz_gErrMainTemplateError = GetResText(1103) + WebWiz_gErrWhileReloading = GetResText(1104) + WebWiz_gErrWhileLoadStyles = GetResText(1105) + WebWiz_gErrMainDocumentError = GetResText(1106) + WebWiz_gErrMsg = GetResText(1107) + End If +End Sub + + +Function GetWebWizardPaths() as Boolean +Dim TemplatePath as String + TextureDir = GetOfficeSubPath("Gallery","www-back") + If TextureDir <> "" Then + GraphicsDir = GetOfficeSubPath("Gallery","www-graf/") + If GraphicsDir <> "" Then + BulletDir = GetOfficeSubPath("Gallery", "bullets/") + If BulletDir <> "" Then + PhotosDir = GetPathSettings("Gallery", False, 1) + If PhotosDir <> "" Then + TemplatePath = GetOfficeSubPath("Template", "wizard/web/") + If TemplatePath <> "" Then + SOBitmapPath = GetOfficeSubPath("Template", "wizard/bitmap") + If SOBitmapPath <> "" Then + GetWebwizardPaths() = True + Exit Function + End If + End If + End If + End If + End If + End If + DisposeDocument(oBaseDocument) + GetWebWizardPaths() = False +End Function + + + +Sub OpenWebDialog() + Dim sBitmapPath as String + Dim BufferNames() as String + Dim SelList(0) as Integer + SelList(0) = 0 + MainDialog = LoadDialog("WebWizard","WebWzrd") + DialogModel = MainDialog.Model + With DialogModel + .cbHelp.Label = GetResText(1000) + .Title = GetResText(1001) + .cbCancel.Label = GetResText(1002) + .cbGoOn.Label = GetResText(1003) + .lblTemplate.Label = GetResText(1004) + .lblStyle.Label = GetResText(1005) + .hlnBackground.Label = GetResText(1006) + .optTiled.Label = GetRestext(1007) + .optArea.Label = GetResText(1008) + .chkSaveasTemplate.Label = GetResText(1010) + End With + + BufferNames() = ArrayfromMultiArray(Layout, 1) + DialogModel.lbTemplate.StringItemList() = BufferNames() + DialogModel.lbTemplate.SelectedItems() = SelList() + + + BufferNames() = ArrayfromMultiArray(Style, 1) + DialogModel.lbStyles.StringItemList() = BufferNames() + DialogModel.lbStyles.SelectedItems() = SelList() + sBitmapPath = SOBitmapPath & "webwizard.bmp" + + DialogModel.ImagePreview.ImageURL = sBitmapPath + ToggleOptionButtons(DialogModel, bWithBackGraphic) + MainDialog.GetControl("lbTemplate").SetFocus() + DialogModel.cbGoOn.DefaultButton = True + DialogModel.ImagePreview.BackGroundColor = RGB(0,60,126) +End Sub</script:module>
\ No newline at end of file diff --git a/wizards/source/webwizard/WebWzrd.xdl b/wizards/source/webwizard/WebWzrd.xdl new file mode 100644 index 000000000000..be1bec77eb40 --- /dev/null +++ b/wizards/source/webwizard/WebWzrd.xdl @@ -0,0 +1,28 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd"> +<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="WebWzrd" dlg:left="96" dlg:top="28" dlg:width="270" dlg:height="210" dlg:help-url="HID:34200" dlg:closeable="true" dlg:moveable="true"> + <dlg:bulletinboard> + <dlg:button dlg:id="cbCancel" dlg:tab-index="0" dlg:left="6" dlg:top="190" dlg:width="50" dlg:height="14" dlg:help-url="HID:34206" dlg:value="Cancel" dlg:button-type="cancel"/> + <dlg:button dlg:id="cbHelp" dlg:tab-index="1" dlg:left="66" dlg:top="190" dlg:width="50" dlg:height="14" dlg:tag="HID:34200" dlg:value="cbHelp" dlg:button-type="help"/> + <dlg:button dlg:id="cbGoOn" dlg:tab-index="2" dlg:left="214" dlg:top="190" dlg:width="50" dlg:height="14" dlg:help-url="HID:34205" dlg:default="true" dlg:value="cbGoOn" dlg:button-type="ok"/> + <dlg:img dlg:id="ImagePreview" dlg:tab-index="3" dlg:left="6" dlg:top="6" dlg:width="258" dlg:height="26" dlg:scale-image="false"/> + <dlg:menulist dlg:id="lbTemplate" dlg:tab-index="4" dlg:left="6" dlg:top="53" dlg:width="110" dlg:height="94" dlg:help-url="HID:34201"> + <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:WebWizard.HtmlAutoPilotBasic.ReloadCurrentDocument?language=Basic&location=application" script:language="Script"/> + </dlg:menulist> + <dlg:menulist dlg:id="lbStyles" dlg:tab-index="5" dlg:left="154" dlg:top="53" dlg:width="110" dlg:height="94" dlg:help-url="HID:34202"> + <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:WebWizard.HtmlAutoPilotBasic.LoadWebPageStyles?language=Basic&location=application" script:language="Script"/> + </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: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:checked="true"> + <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:WebWizard.Common.SetBackGraphicStyle?language=Basic&location=application" script:language="Script"/> + </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"> + <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="WebWizard.HtmlAutoPilotBasic.SetBackGraphicStyle" script:language="StarBasic"/> + </dlg:radio> + </dlg:radiogroup> + <dlg:fixedline dlg:id="hlnBackground" dlg:tab-index="11" dlg:left="154" dlg:top="152" dlg:width="110" dlg:height="9" dlg:value="hlnBackground"/> + </dlg:bulletinboard> +</dlg:window>
\ No newline at end of file diff --git a/wizards/source/webwizard/delzip b/wizards/source/webwizard/delzip new file mode 100644 index 000000000000..e69de29bb2d1 --- /dev/null +++ b/wizards/source/webwizard/delzip diff --git a/wizards/source/webwizard/dialog.xlb b/wizards/source/webwizard/dialog.xlb new file mode 100644 index 000000000000..d1b9cb066f0c --- /dev/null +++ b/wizards/source/webwizard/dialog.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="WebWizard" library:readonly="true" library:passwordprotected="false"> + <library:element library:name="WebWzrd"/> +</library:library> diff --git a/wizards/source/webwizard/makefile.mk b/wizards/source/webwizard/makefile.mk new file mode 100644 index 000000000000..415e08bf9475 --- /dev/null +++ b/wizards/source/webwizard/makefile.mk @@ -0,0 +1,53 @@ +#************************************************************************* +# +# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +# +# Copyright 2000, 2010 Oracle and/or its affiliates. +# +# OpenOffice.org - a multi-platform office productivity suite +# +# This file is part of OpenOffice.org. +# +# OpenOffice.org is free software: you can redistribute it and/or modify +# it under the terms of the GNU Lesser General Public License version 3 +# only, as published by the Free Software Foundation. +# +# OpenOffice.org is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU Lesser General Public License version 3 for more details +# (a copy is included in the LICENSE file that accompanied this code). +# +# You should have received a copy of the GNU Lesser General Public License +# version 3 along with OpenOffice.org. If not, see +# <http://www.openoffice.org/license.html> +# for a copy of the LGPLv3 License. +# +#************************************************************************* +PRJ=..$/.. + +PRJNAME=wizards +TARGET=webwizardall + +# --- Settings ----------------------------------------------------- + +.INCLUDE : settings.mk +.INCLUDE : $(PRJ)$/util$/target.pmk + +# --- Files -------------------------------------------------------- + +# +# testresource. +# +SRS2NAME = webwizar +SRC2FILES= webwizar.src +RESLIB2SRSFILES= $(SRS)$/webwizar.srs +RESLIB2NAME= wwz + +ZIP1TARGET = $(WEBWIZARD_ALL_TARGET) +ZIP1LIST = *.xdl *.xba *.xlb + +# --- Targets ------------------------------------------------------ + +.INCLUDE : target.mk + diff --git a/wizards/source/webwizard/script.xlb b/wizards/source/webwizard/script.xlb new file mode 100644 index 000000000000..1045820b7002 --- /dev/null +++ b/wizards/source/webwizard/script.xlb @@ -0,0 +1,8 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="WebWizard" library:readonly="true" library:passwordprotected="false"> + <library:element library:name="HtmlAutoPilotBasic"/> + <library:element library:name="Language"/> + <library:element library:name="Bullets"/> + <library:element library:name="Common"/> +</library:library> diff --git a/wizards/source/webwizard/webwizar.src b/wizards/source/webwizard/webwizar.src new file mode 100644 index 000000000000..19d77d89f4a9 --- /dev/null +++ b/wizards/source/webwizard/webwizar.src @@ -0,0 +1,167 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/#define WEBDIALOG 1000 +/* +#define WEBERROR 1100 +// -------------------------------------------------------------------- + +String WEBDIALOG +{ + Text [ en-US ] = "~Help"; +}; + + +String WEBDIALOG + 1 +{ + Text [ en-US ] = "AutoPilot Web Page"; +}; + + + + +String WEBDIALOG + 2 +{ + Text [ en-US ] = "~Cancel"; +}; + +String WEBDIALOG + 3 +{ + Text [ en-US ] = "C~reate"; +}; + + +String WEBDIALOG + 4 +{ + Text [ en-US ] = "Which template should be used?"; +}; + +String WEBDIALOG + 5 +{ + Text [ en-US ] = "Which layout should be used?"; +}; + + +String WEBDIALOG + 6 +{ + Text [ en-US ] = "Background Image"; +}; + + + +String WEBDIALOG + 7 +{ + Text [ en-US ] = "~Tiled"; +}; + + +String WEBDIALOG + 8 +{ + Text [ en-US ] = "~Scaled"; +}; + + +String WEBDIALOG + 9 +{ + Text [ en-US ] = "Edit document"; +}; + +String WEBDIALOG + 10 +{ + Text [ en-US ] = "Create template"; +}; + + +String WEBERROR + 1 +{ + Text [ en-US ] = "A template for the page setup could not be found."; +}; + +String WEBERROR + 2 +{ + Text [ en-US ] = "A Style for the Page Style could not be found."; +}; + +String WEBERROR + 3 +{ + Text [ en-US ] = "An error occurred as the templates were being interpreted."; +}; + +String WEBERROR + 4 +{ + Text [ en-US ] = "An error occurred as the template was being refreshed."; +}; + +String WEBERROR + 5 +{ + Text [ en-US ] = "An error occurred while applying the Styles."; +}; + +String WEBERROR + 6 +{ + Text [ en-US ] = "An error occurred while evaluating the documents."; +}; + +String WEBERROR + 7 +{ + Text [ en-US ] = "An error occurred while running the AutoPilot."; +}; + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +*/ |