/usr/lib/libreoffice/share/extensions/DmathsAddon/OOoTep/CouleurForm.xba is in libreoffice-dmaths 3.4+dfsg1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 | <?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="CouleurForm" script:language="StarBasic">
'OOoGdmath
'Copyright (C) 2005-2006 Gilles Daurat
'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation; either version 2
'of the License, or (at your option) any later version.
'This program 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 General Public License for more details.
'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
Option Explicit
dim oCouleurForm as Object
Sub Main
oCouleurForm=LoadDialog("OOoTep","CouleurForm")
End Sub
Sub CouleurForm_MAJLabel()
if val(oCouleurForm.Model.TextField1.Text)>255 then oCouleurForm.Model.TextField1.Text="255"
if val(oCouleurForm.Model.TextField2.Text)>255 then oCouleurForm.Model.TextField2.Text="255"
if val(oCouleurForm.Model.TextField3.Text)>255 then oCouleurForm.Model.TextField3.Text="255"
if val(oCouleurForm.Model.TextField1.Text)<0 then oCouleurForm.Model.TextField1.Text="0"
if val(oCouleurForm.Model.TextField2.Text)<0 then oCouleurForm.Model.TextField2.Text="0"
if val(oCouleurForm.Model.TextField3.Text)<0 then oCouleurForm.Model.TextField3.Text="0"
oCouleurForm.Model.Image1.Backgroundcolor=rgb(oCouleurForm.Model.TextField1.Text,oCouleurForm.Model.TextField2.Text,oCouleurForm.Model.TextField3.Text)
oCouleurForm.Model.ScrollBar1.ScrollValue = oCouleurForm.Model.TextField1.Text
oCouleurForm.Model.ScrollBar2.ScrollValue = oCouleurForm.Model.TextField2.Text
oCouleurForm.Model.ScrollBar3.ScrollValue = oCouleurForm.Model.TextField3.Text
' oCouleurForm.Model.TextField1.Text = (oCouleurForm.Model.Image17.BackColor And 255)
' oCouleurForm.Model.TextField2.Text = (oCouleurForm.Model.Image17.BackColor And 65280) / 256
' oCouleurForm.Model.TextField3.Text = (oCouleurForm.Model.Image17.BackColor And 16711680) / 65536
End Sub
Private Sub CouleurForm_CommandButton1_Click()
CouleurForm_MAJLabel
oCouleurForm.Model.Label8.Label="O"
oCouleurForm.EndExecute()
End Sub
Private Sub CouleurForm_CommandButton2_Click()
oCouleurForm.Model.Label8.Label="N"
oCouleurForm.EndExecute()
End Sub
Private Sub CouleurForm_TextField()
CouleurForm_MAJLabel
End Sub
Private Sub CouleurForm_ScrollBar()
dim delta
if val(oCouleurForm.Model.TextField1.Text) <> oCouleurForm.Model.ScrollBar1.ScrollValue then
delta=-val(oCouleurForm.Model.TextField1.Text)+ oCouleurForm.Model.ScrollBar1.ScrollValue
oCouleurForm.Model.TextField1.Text=oCouleurForm.Model.ScrollBar1.ScrollValue
if oCouleurForm.Model.CheckBox1.State then
oCouleurForm.Model.TextField2.Text=oCouleurForm.Model.ScrollBar2.ScrollValue+delta
oCouleurForm.Model.TextField3.Text=oCouleurForm.Model.ScrollBar3.ScrollValue+delta
end if
else
if val(oCouleurForm.Model.TextField2.Text) <> oCouleurForm.Model.ScrollBar2.ScrollValue then
delta=-val(oCouleurForm.Model.TextField2.Text)+ oCouleurForm.Model.ScrollBar2.ScrollValue
oCouleurForm.Model.TextField2.Text=oCouleurForm.Model.ScrollBar2.ScrollValue
if oCouleurForm.Model.CheckBox1.State then
oCouleurForm.Model.TextField1.Text=oCouleurForm.Model.ScrollBar1.ScrollValue+delta
oCouleurForm.Model.TextField3.Text=oCouleurForm.Model.ScrollBar3.ScrollValue+delta
end if
else
if val(oCouleurForm.Model.TextField3.Text) <> oCouleurForm.Model.ScrollBar3.ScrollValue then
delta=-val(oCouleurForm.Model.TextField3.Text)+ oCouleurForm.Model.ScrollBar3.ScrollValue
oCouleurForm.Model.TextField3.Text=oCouleurForm.Model.ScrollBar3.ScrollValue
if oCouleurForm.Model.CheckBox1.State then
oCouleurForm.Model.TextField1.Text=oCouleurForm.Model.ScrollBar1.ScrollValue+delta
oCouleurForm.Model.TextField2.Text=oCouleurForm.Model.ScrollBar2.ScrollValue+delta
end if
end if
end if
end if
CouleurForm_MAJLabel
End Sub
Private Sub CouleurForm_TypeTrait()
oCouleurForm.Model.Image1.HelpText= oCouleurForm.Model.ComboBox1.Text & " " & oCouleurForm.Model.TextField4.Text & " pt"
End Sub
Private Sub CouleurForm_Image(UneImage as Object)
oCouleurForm.Model.TextField1.Text=(UneImage.BackgroundColor and 16711680) / 65536
oCouleurForm.Model.TextField2.Text=(UneImage.BackgroundColor and 65280) / 256
oCouleurForm.Model.TextField3.Text=(UneImage.BackgroundColor and 255)
CouleurForm_MAJLabel
End Sub
Private Sub CouleurForm_Image1()
CouleurForm_Image oCouleurForm.Model.ImageControl1
End Sub
Private Sub CouleurForm_Image2()
CouleurForm_Image oCouleurForm.Model.ImageControl2
End Sub
Private Sub CouleurForm_Image3()
CouleurForm_Image oCouleurForm.Model.ImageControl3
End Sub
Private Sub CouleurForm_Image4()
CouleurForm_Image oCouleurForm.Model.ImageControl4
End Sub
Private Sub CouleurForm_Image5()
CouleurForm_Image oCouleurForm.Model.ImageControl5
End Sub
Private Sub CouleurForm_Image6()
CouleurForm_Image oCouleurForm.Model.ImageControl6
End Sub
Private Sub CouleurForm_Image7()
CouleurForm_Image oCouleurForm.Model.ImageControl7
End Sub
Private Sub CouleurForm_Image8()
CouleurForm_Image oCouleurForm.Model.ImageControl8
End Sub
Private Sub CouleurForm_Image9()
CouleurForm_Image oCouleurForm.Model.ImageControl9
End Sub
Private Sub CouleurForm_Image10()
CouleurForm_Image oCouleurForm.Model.ImageControl10
End Sub
Private Sub CouleurForm_Image11()
CouleurForm_Image oCouleurForm.Model.ImageControl11
End Sub
Private Sub CouleurForm_Image12()
CouleurForm_Image oCouleurForm.Model.ImageControl12
End Sub
Private Sub CouleurForm_Image13()
CouleurForm_Image oCouleurForm.Model.ImageControl13
End Sub
Private Sub CouleurForm_Image14()
CouleurForm_Image oCouleurForm.Model.ImageControl14
End Sub
Private Sub CouleurForm_Image15()
CouleurForm_Image oCouleurForm.Model.ImageControl15
End Sub
Private Sub CouleurForm_Image16()
CouleurForm_Image oCouleurForm.Model.ImageControl16
End Sub
Private Sub CouleurForm_Image17()
CouleurForm_Image oCouleurForm.Model.ImageControl17
End Sub
Private Sub CouleurForm_Image18()
CouleurForm_Image oCouleurForm.Model.ImageControl18
End Sub
Private Sub CouleurForm_Image19()
CouleurForm_Image oCouleurForm.Model.ImageControl19
End Sub
Private Sub CouleurForm_Image20()
CouleurForm_Image oCouleurForm.Model.ImageControl20
End Sub
Private Sub CouleurForm_Image21()
CouleurForm_Image oCouleurForm.Model.ImageControl21
End Sub
Private Sub CouleurForm_Image22()
CouleurForm_Image oCouleurForm.Model.ImageControl22
End Sub
Private Sub CouleurForm_Image23()
CouleurForm_Image oCouleurForm.Model.ImageControl23
End Sub
Private Sub CouleurForm_Image24()
CouleurForm_Image oCouleurForm.Model.ImageControl24
End Sub
Private Sub CouleurForm_Image25()
CouleurForm_Image oCouleurForm.Model.ImageControl25
End Sub
Sub ChangeCouleur(UneImage As Object)
oCouleurForm=LoadDialog("OOoTep","CouleurForm")
oCouleurForm.Model.TextField1.Text=(UneImage.BackgroundColor and RGB(255,0,0))/65536
oCouleurForm.Model.TextField2.Text=(UneImage.BackgroundColor and RGB(0,255,0))/256
oCouleurForm.Model.TextField3.Text=(UneImage.BackgroundColor and RGB(0,0,255))
CouleurForm_MAJLabel()
oCouleurForm.Execute()
if (oCouleurForm.Model.Label8.Label="O") then
UneImage.Backgroundcolor=oCouleurForm.Model.Image1.BackGroundcolor
UneImage.HelpText=oCouleurForm.Model.Image1.HelpText
end if
End Sub
</script:module>
|