blob: 6ea6bddb8b86f7dce6ba6cec881669a82a61240d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
<?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="ScrollBar" script:language="StarBasic">REM ***** BASIC *****
Dim oDialog As Object
Const Border = 5
Sub Main()
Dim oLibContainer As Object, oLib As Object
Dim oInputStreamProvider As Object
Dim oDialogModel As Object
Dim oScrollBarModel As Object
Dim oLabelModel As Object
Dim sLabel As String
Dim VisibleSize As Double
Const sLibName = "ToolkitControls"
Const sDialogName = "ScrollBarDlg"
REM load/get library and input stream provider
oLibContainer = DialogLibraries
oLibContainer.loadLibrary( sLibName )
oLib = oLibContainer.getByName( sLibName )
oInputStreamProvider = oLib.getByName( sDialogName )
REM create dialog control
oDialog = CreateUnoDialog( oInputStreamProvider )
REM set the label
sLabel = "This Text exceeds the visible area of the dialog and can be"
sLabel = sLabel + " scrolled horizontally by clicking on the scroll bar."
oDialogModel = oDialog.Model
oLabelModel = oDialogModel.Label1
oLabelModel.Label = sLabel
REM scroll bar settings
oScrollBarModel = oDialog.Model.ScrollBar1
oScrollBarModel.ScrollValueMax = 100
VisibleSize = (oDialogModel.Width - Border - oLabelModel.PositionX) / oLabelModel.Width
VisibleSize = VisibleSize * oScrollBarModel.ScrollValueMax
oScrollBarModel.VisibleSize = VisibleSize
oScrollBarModel.BlockIncrement = oScrollBarModel.VisibleSize
oScrollBarModel.LineIncrement = oScrollBarModel.BlockIncrement / 20
REM show the dialog
oDialog.execute()
End Sub
Sub AdjustmentHandler()
Dim oLabelModel As Object
Dim oScrollBarModel As Object
Dim ScrollValue As Long, ScrollValueMax As Long
Dim VisibleSize As Long
Dim Factor As Double
Static bInit As Boolean
Static PositionX0 As Long
Static Offset As Long
REM get the model of the label control
oLabelModel = oDialog.Model.Label1
REM on initialization remember the position of the label control and calculate offset
If bInit = False Then
bInit = True
PositionX0 = oLabelModel.PositionX
OffSet = PositionX0 + oLabelModel.Width - (oDialog.Model.Width - Border)
End If
REM get the model of the scroll bar control
oScrollBarModel = oDialog.Model.ScrollBar1
REM get the actual scroll value
ScrollValue = oScrollBarModel.ScrollValue
REM calculate and set new position of the label control
ScrollValueMax = oScrollBarModel.ScrollValueMax
VisibleSize = oScrollBarModel.VisibleSize
Factor = Offset / (ScrollValueMax - VisibleSize)
oLabelModel.PositionX = PositionX0 - Factor * ScrollValue
End Sub
</script:module>
|