forked from amazingfate/loongoffice
20cea29aa2
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
369 lines
11 KiB
XML
369 lines
11 KiB
XML
<?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="Functions" script:language="StarBasic">REM ***** BASIC *****
|
|
Dim DialogVisible As Boolean
|
|
Dim TutorStep As Integer
|
|
Dim TutorLastStep As Integer
|
|
Dim myDialog As Object
|
|
Dim myTutorial As Object
|
|
Public TutorText() As String
|
|
Dim documentTitle As String
|
|
Dim exampleUse As Object
|
|
Dim properties() As Object
|
|
Dim docTYP As String
|
|
'public myWidth As Long
|
|
Dim myHeight As Long
|
|
Dim oTextField As Object
|
|
Dim stepTitle As String
|
|
Dim oOpenDialogFlag
|
|
Dim imageStatus As String
|
|
|
|
Sub LoadTutorialDialog(exampleToUse, documentTYP)
|
|
Init()
|
|
exampleUse = exampleToUse
|
|
TutorText() = exampleUse.LoadText()
|
|
properties() = exampleUse.GetProperties()
|
|
If properties(3).Value = "True" Then
|
|
Dim localisation(0) As new com.sun.star.beans.NamedValue
|
|
localisation(0).Name = "Localisation"
|
|
localisation(0).Value = properties()
|
|
myTutorial.execute(localisation())
|
|
Else
|
|
TutorStep = 0
|
|
TutorLastStep = 0
|
|
docTYP = documentTYP
|
|
InitAction()
|
|
ShowInfoMain()
|
|
DialogVisible = True
|
|
myDialog = LoadDialog("Tutorials","TutorialsDialog")
|
|
|
|
SetTutorialDocumentPosSize()
|
|
|
|
documentProps = ThisComponent.getDocumentProperties()
|
|
myDialog.Title = "Tutorials - " & documentProps.Title
|
|
oTextField = myDialog.GetControl("myTextField")
|
|
oTextField.setVisible(False)
|
|
|
|
imageStatus = "MIN"
|
|
setMaxMinImage(imageStatus)
|
|
|
|
'myWidth = myDialog.Size.Width
|
|
myHeight = myDialog.Size.Height
|
|
|
|
CheckForStepShowButtonStatus()
|
|
CheckForStepNextButtonStatus()
|
|
InitRoadMap()
|
|
SetVisibleTrue()
|
|
myDialog.model.myTextField.Label = stepTitle
|
|
myDialog.model.myText.Label = GetStepText()'TutorText(TutorStep)
|
|
|
|
|
|
Do
|
|
wait 1000
|
|
Loop Until DialogVisible = False
|
|
If( oOpenDialogFlag = True) Then
|
|
Destroy()
|
|
TutorialOpen.TutorialOpenMain()
|
|
Else
|
|
Destroy()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Sub setMaxMinImage(param As String)
|
|
On Local Error Goto NOIMAGE
|
|
oCommandButton = myDialog.GetControl("CommandButton")
|
|
templatePath = GetPathSettings("Template",false, 0)
|
|
Dim bitmapPath As String
|
|
iPos = InStr(templatePath,"/")
|
|
If(iPos > 0) Then
|
|
If(param = "MAX") Then
|
|
bitmapPath = templatePath & "/wizard/bitmap/maximize.bmp"
|
|
ElseIf(param = "MIN") Then
|
|
bitmapPath = templatePath & "/wizard/bitmap/minimize.bmp"
|
|
End If
|
|
Else
|
|
If(param = "MAX") Then
|
|
bitmapPath = templatePath & "\wizard\bitmap\maximize.bmp"
|
|
ElseIf(param = "MIN") Then
|
|
bitmapPath = templatePath & "\wizard\bitmap\minimize.bmp"
|
|
End If
|
|
End If
|
|
'printdbgInfo oCommandButton.Model
|
|
oCommandButton.Model.ImageUrl = bitmapPath
|
|
Exit Sub
|
|
NOIMAGE:
|
|
End Sub
|
|
|
|
Sub SetTutorialDocumentPosSize()
|
|
activDesktopWindow = StarDesktop.activeFrame.ContainerWindow
|
|
If(activDesktopWindow.posSize.Height < 550) Then
|
|
activDesktopWindow.setPosSize(0,0,0,550,8)
|
|
End If
|
|
If (activDesktopWindow.posSize.Width < 750 ) Then
|
|
activDesktopWindow.setPosSize(0,0,750,0,4)
|
|
EndIf
|
|
End Sub
|
|
|
|
Sub InitRoadMap()
|
|
RoadMapMain(Functions, myDialog)
|
|
SetControlModelPosSize(0, 0, 85, 176)
|
|
SetControlModelText("Steps")
|
|
|
|
StepSize = Ubound(TutorText())
|
|
Dim ItemsArray(StepSize) as String
|
|
For i = 0 To StepSize
|
|
stepcontent = TutorText(i)
|
|
iPos = InStr(stepcontent,CHR(13))
|
|
ItemName = Left(stepcontent, iPos)
|
|
ItemsArray(i) = ItemName
|
|
Next i
|
|
InsertItemsLabels( ItemsArray())
|
|
|
|
For i = 1 To StepSize
|
|
SetItemEnabled( i, False)
|
|
Next i
|
|
SetItemEnabled( 0, True)
|
|
End Sub
|
|
|
|
Sub Destroy()
|
|
'myDialog.dispose
|
|
wait 1000
|
|
ShowInfoDialog.DisposeIDialog()
|
|
|
|
' HIER WIRD DAS DOCUMENT GESCHLOSSEN!!!!!!!! GPF
|
|
thisComponent.CurrentController.Frame.close(True)
|
|
|
|
End Sub
|
|
|
|
Sub Init
|
|
GlobalScope.BasicLibraries.LoadLibrary("Tools")
|
|
myTutorial = createUNOService("com.sun.star.wizards.tutorial.executer.CallTutorialFramework")
|
|
documentTitle = ThisComponent.getCurrentController.getFrame.Title
|
|
End Sub
|
|
|
|
Sub InitStep
|
|
udProps = ThisComponent.DocumentProperties.UserDefinedProperties
|
|
If udProps.PropertySetInfo.hasPropertyByName("CurrentStep") Then
|
|
TutorStep = udProps.CurrentStep
|
|
Else
|
|
udProps.addProperty("CurrentStep", 0, TutorStep)
|
|
End If
|
|
End Sub
|
|
|
|
Sub setStep
|
|
ThisComponent.DocumentProperties.UserDefinedProperties.CurrentStep = TutorStep
|
|
End Sub
|
|
|
|
Sub InitAction()
|
|
SetStepTitle()
|
|
|
|
Dim property(6) As new com.sun.star.beans.PropertyValue
|
|
property(0).Name = "DocumentTYP"
|
|
property(0).Value = docTYP
|
|
property(1).Name = "MethodName"
|
|
property(1).Value = "setDelay"
|
|
property(2).Name = "Param"
|
|
property(2).Value = 0 'key insert speed (Millis)
|
|
property(3).Name = "Param"
|
|
property(3).Value = 4 'mouse animate speed (Millis)
|
|
property(4).Name = "Param"
|
|
property(4).Value = 2000 'after mouse animate sleep (Millis)
|
|
property(5).Name = "Param"
|
|
property(5).Value = 10 'mouse scroll speed (Millis)
|
|
property(6).Name = "Param"
|
|
property(6).Value = -1 'mouse speed (step)
|
|
myTutorial.setPropertyValues(property())
|
|
End Sub
|
|
|
|
Sub EndDialog
|
|
oOpenDialogFlag = False
|
|
If (myDialog.model.done.Label = "Close") Then
|
|
TutorialCloseMain()
|
|
Else
|
|
DialogVisible = False
|
|
End If
|
|
End Sub
|
|
|
|
Sub NextStep
|
|
GotoStep(TutorStep + 1)
|
|
End Sub
|
|
|
|
Sub GotoStep(StepIndex)
|
|
If(StepIndex <= Ubound(TutorText())) Then
|
|
TutorStep = StepIndex
|
|
If TutorStep > TutorLastStep Then
|
|
TutorLastStep = TutorStep
|
|
End If
|
|
If(TutorStep = Ubound(TutorText())) Then
|
|
myDialog.model.next.enabled = False
|
|
myDialog.model.done.Label = "Done"
|
|
myDialog.model.show.Label = "Tutorials"
|
|
Else
|
|
myDialog.model.next.enabled = True
|
|
End If
|
|
SetStepTitle()
|
|
myDialog.model.myText.Label = GetStepText()
|
|
CheckForStepShowButtonStatus()
|
|
SetItemEnabled( TutorStep, True)
|
|
'setStep()
|
|
End If
|
|
End Sub
|
|
|
|
Function GetStepText()
|
|
Dim tempText As String
|
|
tempText = TutorText(TutorStep)
|
|
iPos = InStr(tempText,CHR(13))
|
|
ResultString = Right(tempText, Len(tempText) - iPos - 1)
|
|
GetStepText() = ResultString
|
|
End Function
|
|
|
|
Sub ItemChange(CurrentItemID, SelectitemID)
|
|
GotoStep(SelectitemID)
|
|
End Sub
|
|
|
|
Sub SetDisableShowMeButton()
|
|
myDialog.model.show.enabled = False
|
|
TutorLastStep = TutorLastStep + 1
|
|
End Sub
|
|
|
|
Sub Minimize(aEvent)
|
|
ActionItemsTextField = myDialog.GetControl("ActionItemsLabel")
|
|
FixedLineVertikal = myDialog.GetControl("FixedLineVertikal")
|
|
|
|
If myDialog.Size.Height = 35 Then
|
|
myDialog.setPosSize(0,0,0,myHeight,8)
|
|
oTextField.setVisible(False)
|
|
ActionItemsTextField.setVisible(True)
|
|
FixedLineVertikal.setVisible(True)
|
|
RoadMap.SetVisibleRoadMap(True)
|
|
Else
|
|
myDialog.setPosSize(0,0,0,35,8)
|
|
rmSelectedIndex = RoadMap.GetSelectedIndex() + 1
|
|
gsTitle = GetStepTitle()
|
|
oTextField.setText(rmSelectedIndex & ". " & gsTitle)
|
|
oTextField.setVisible(True)
|
|
ActionItemsTextField.setVisible(False)
|
|
FixedLineVertikal.setVisible(False)
|
|
RoadMap.SetVisibleRoadMap(False)
|
|
End If
|
|
If(imageStatus = "MAX") Then
|
|
imageStatus = "MIN"
|
|
ElseIf(imageStatus = "MIN") Then
|
|
imageStatus = "MAX"
|
|
End If
|
|
setMaxMinImage(imageStatus)
|
|
|
|
End Sub
|
|
|
|
Sub SetStepTitle()
|
|
stepcontent = TutorText(TutorStep)
|
|
iPos = InStr(stepcontent,CHR(13))
|
|
stepTitle = Left(stepcontent, iPos)
|
|
SetStepTitle() = stepTitle
|
|
End Sub
|
|
|
|
Function GetStepTitle()
|
|
GetStepTitle() = stepTitle
|
|
End Function
|
|
|
|
Sub CheckForStepShowButtonStatus()
|
|
If ((exampleUse.ContainsStepAction() = True And TutorStep = TutorLastStep) Or myDialog.model.show.Label = "Tutorials") Then
|
|
myDialog.model.show.enabled = True
|
|
Else
|
|
myDialog.model.show.enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Sub CheckForStepNextButtonStatus()
|
|
If(TutorStep = Ubound(TutorText())) Then
|
|
myDialog.model.next.enabled = False
|
|
myDialog.model.done.Label = "Done"
|
|
End If
|
|
End Sub
|
|
|
|
Sub Show(aEvent)
|
|
'ShowInfoMain()
|
|
If( myDialog.model.show.Label = "Tutorials") Then
|
|
oOpenDialogFlag = True
|
|
DialogVisible = False
|
|
Else
|
|
SetMousePosition(aEvent)
|
|
exampleUse.Action()
|
|
End If
|
|
End Sub
|
|
|
|
Sub SetMousePosition(aEvent)
|
|
MyPoints() = MousePoints(aEvent)
|
|
|
|
Dim mousePosition(3) as new com.sun.star.beans.PropertyValue
|
|
mousePosition(0).Name = "DocumentTYP"
|
|
mousePosition(0).Value = docTYP
|
|
mousePosition(1).Name = "MethodName"
|
|
mousePosition(1).Value = "setMousePosition"
|
|
mousePosition(2).Name = "Param"
|
|
mousePosition(2).Value = MyPoints(0)
|
|
mousePosition(3).Name = "Param"
|
|
mousePosition(3).Value = MyPoints(1)
|
|
|
|
myTutorial.setPropertyValues(mousePosition())
|
|
End Sub
|
|
|
|
Function MousePoints(aEvent)
|
|
Dim position(1) As Integer
|
|
position(0) = myDialog.getControl("show").AccessibleContext.LocationOnScreen.X + aEvent.Source.Model.PositionX
|
|
position(1) = myDialog.getControl("show").AccessibleContext.LocationOnScreen.Y + aEvent.Source.Model.PositionY
|
|
MousePoints = position()
|
|
End Function
|
|
|
|
Function CheckPath(path() As String)
|
|
'documentTitle = ThisComponent.getCurrentController.getFrame.Title
|
|
sTitle = path(0)
|
|
ResultString = Right(sTitle, 3)
|
|
iPos = InStr(ResultString,"#")
|
|
ResultString = Right(ResultString, Len(ResultString) - iPos)
|
|
ResultFrameString = InStr (sTitle, "{D}FRAME#")
|
|
If ResultFrameString <> 0 Then
|
|
If Not (sTitle = ("{D}FRAME#" & documentTitle & "#" & ResultString)) Then
|
|
'path(0) = "{D}FRAME#" & documentTitle & "#" & ResultString
|
|
path(0) = "FRAME#" & documentTitle & "#" & ResultString
|
|
sTitle = path(1)
|
|
ResultString = Right(sTitle, 3)
|
|
iPos = InStr(ResultString,"#")
|
|
ResultString = Right(ResultString, Len(ResultString) - iPos)
|
|
path(1) = "ROOT_PANE#" & documentTitle & "#" & ResultString
|
|
Else
|
|
'path(0) = "{D}FRAME#" & documentTitle & "#" & ResultString
|
|
path(0) = "FRAME#" & documentTitle & "#" & ResultString
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
Sub SetVisibleTutorialsDialog(param)
|
|
myDialog.setVisible(param)
|
|
End Sub
|
|
|
|
Sub SetVisibleTrue()
|
|
myDialog.setVisible(True)
|
|
End Sub
|
|
|
|
Sub SetVisibleFalse()
|
|
myDialog.setVisible(False)
|
|
End Sub
|
|
|
|
Sub ExitTutorial()
|
|
Dim aUrl As new com.sun.star.util.URL
|
|
oDoc = ThisComponent
|
|
urlTransformer = createUNOService("com.sun.star.util.URLTransformer")
|
|
aUrl.Complete = "slot:5621"
|
|
urlTransformer.parseStrict(aUrl)
|
|
xController = oDoc.getCurrentController()
|
|
xDispatcher = xController.queryDispatch(aUrl, "", 0)
|
|
if NOT isNull(xDispatcher) then
|
|
xDispatcher.dispatch(aUrl, DimArray())
|
|
else
|
|
msgBox "Error! Cannot close document."
|
|
End If
|
|
End Sub
|
|
</script:module>
|