libreoffice-dmaths 3.4+dfsg1-1 / usr / lib / libreoffice / share / extensions / DmathsAddon / OOoTep / Textes.xba

<?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="Textes" script:language="StarBasic">&apos;OOoGdmath
&apos;Copyright (C) 2005-2006  Gilles Daurat

&apos;This program is free software; you can redistribute it and/or
&apos;modify it under the terms of the GNU General Public License
&apos;as published by the Free Software Foundation; either version 2
&apos;of the License, or (at your option) any later version.

&apos;This program is distributed in the hope that it will be useful,
&apos;but WITHOUT ANY WARRANTY; without even the implied warranty of
&apos;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
&apos;GNU General Public License for more details.

&apos;You should have received a copy of the GNU General Public License
&apos;along with this program; if not, write to the Free Software
&apos;Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

Option Explicit
dim oChangeTexteForm as Object
dim unGroupe as Object
dim texteCourant as Object
dim indice() as String

Sub Main
Dim Param() as string

	oChangeTexteForm=LoadDialog(&quot;OOoTep&quot;, &quot;TextesForm&quot;)
	ChangeTitreDialog(oChangeTexteForm)

	&apos;on charge les polices
	ChargeNomPolice(param())
	oChangeTexteForm.GetControl(&quot;ComboBox2&quot;).Model.StringItemList=param()
	SetListIndex(oChangeTexteForm, &quot;ComboBox2&quot;, 0)
	
	&apos;on charge les formes
	If ChargeTexteForme(param()) Then
		oChangeTexteForm.GetControl(&quot;ComboBox1&quot;).Model.StringItemList=param()
		oChangeTexteForm.GetControl(&quot;ComboBox3&quot;).Model.StringItemList=indice()
		SetListIndex(oChangeTexteForm, &quot;ComboBox1&quot;, 0)
		SetListIndex(oChangeTexteForm, &quot;ComboBox3&quot;, 0)
	
		oChangeTexteForm.Execute()
	Else
		MsgBox1 &quot;Il faut sélectionner une forme avec des textes !&quot;
	End If
End Sub


Function ChargeTexteForme(param() as string) as Boolean
Dim unDocument as Object
Dim uneForme as Object
Dim i,j
dim fparam() as string
dim iparam() as string

	ChargeTexteForme() = False
	on error goto Erreur
	unDocument=thisComponent
	unGroupe=unDocument.CurrentSelection(0)
	if unGroupe.ShapeType = &quot;com.sun.star.drawing.GroupShape&quot; Then
		redim fparam(0 to unGroupe.Count-1)
		redim iparam(0 to unGroupe.Count-1)
		j=0
		for i=0 to unGroupe.Count-1
			uneForme = unGroupe(i)
			if uneForme.ShapeType=&quot;com.sun.star.drawing.TextShape&quot; then
				uneForme.RotateAngle=0
				if uneForme.String&lt;&gt;&quot; &quot; then 
					fparam(j)=uneForme.String
					iparam(j)=i
					j=j+1
				end if
			end if	
		next i
		redim param(0 to j-1)
		redim indice(0 to j-1)
		for i=0 to j-1
			param(i)=fparam(i)
			indice(i)=iparam(i)
		next i
		ChargeTexteForme() = True
	Endif
Erreur:
End Function

Private Sub DeplaceUnTexte(uneCommande as String, aPoint As com.sun.star.awt.Point)
	Select Case uneCommande
	case &quot;CommandButton2&quot;
		aPoint.x = aPoint.x - 50
	case &quot;CommandButton3&quot;
		aPoint.y = aPoint.y - 50
	case &quot;CommandButton4&quot;
		aPoint.x = aPoint.x + 50
	case &quot;CommandButton5&quot;
		aPoint.y = aPoint.y + 50
	case &quot;CommandButton6&quot;
		aPoint.x = aPoint.x - 300
	case &quot;CommandButton7&quot;
		aPoint.y = aPoint.y - 300
	case &quot;CommandButton8&quot;
		aPoint.x = aPoint.x + 300
	case &quot;CommandButton9&quot;
		aPoint.y = aPoint.y + 300
	End Select
End Sub

Private Sub ChangeTexteForm_DeplaceObjet(Evenement as Objet)
Dim aPoint As New com.sun.star.awt.Point
Dim i,j

	if oChangeTexteForm.Model.CheckBox4.State&lt;&gt;1 then
		aPoint = unGroupe(val(indice(GetListIndex(oChangeTexteForm, &quot;ComboBox1&quot;)))).Position
		DeplaceUnTexte(Evenement.Source.Model.Name, aPoint)
		unGroupe(val(indice(GetListIndex(oChangeTexteForm, &quot;ComboBox1&quot;)))).Position = aPoint
	Else
		for i=lbound(indice()) to ubound(indice())
			j=indice(i)
			aPoint = unGroupe(j).Position
			DeplaceUnTexte(Evenement.Source.Model.Name, aPoint)
			unGroupe(j).Position = aPoint
		Next i
	End if
End Sub

Private Sub ChargeTexteForm_CommandButton1()
	oChangeTexteForm.EndExecute()
End Sub

Private Sub ChargeTexteForm_CommandButton2()
Dim aPoint As New com.sun.star.awt.Point
Dim unCurseur as Object
Dim i,j
	on error resume next
	if oChangeTexteForm.Model.CheckBox4.State&lt;&gt;1 then
		unCurseur=unGroupe(val(indice(GetListIndex(oChangeTexteForm, &quot;ComboBox1&quot;)))).Text.createTextCursor
		unCurseur.GotoStart(false)
		unCurseur.GotoEnd(true)
		unCurseur.CharHeight=val(oChangeTexteForm.Model.TextBox1.Text)
		if oChangeTexteForm.Model.CheckBox3.State then
			unCurseur.CharUnderLine=com.sun.star.awt.FontUnderline.SINGLE
		else
			unCurseur.CharUnderLine=com.sun.star.awt.FontUnderline.NONE
		end if
		if oChangeTexteForm.Model.CheckBox2.State then
			unCurseur.CharPosture=com.sun.star.awt.FontSlant.ITALIC
		else
			unCurseur.CharPosture=com.sun.star.awt.FontSlant.NONE
		end if
		if oChangeTexteForm.Model.CheckBox1.State then
			unCurseur.CharWeight=com.sun.star.awt.FontWeight.BOLD
		else
			unCurseur.CharWeight=com.sun.star.awt.FontWeight.NORMAL
		End if
		unCurseur.CharFontName=oChangeTexteForm.Model.ComboBox2.Text
	else
		for i=lbound(indice()) to ubound(indice())
			j=indice(i)
			unCurseur=unGroupe(val(j)).Text.createTextCursor
			unCurseur.GotoStart(false)
			unCurseur.GotoEnd(true)
			unCurseur.CharHeight=val(oChangeTexteForm.Model.TextBox1.Text)
			if oChangeTexteForm.Model.CheckBox3.State then
				unCurseur.CharUnderLine=com.sun.star.awt.FontUnderline.SINGLE
			else
				unCurseur.CharUnderLine=com.sun.star.awt.FontUnderline.NONE
			end if
			if oChangeTexteForm.Model.CheckBox2.State then
				unCurseur.CharPosture=com.sun.star.awt.FontSlant.ITALIC
			else
				unCurseur.CharPosture=com.sun.star.awt.FontSlant.NONE
			end if
			if oChangeTexteForm.Model.CheckBox1.State then
				unCurseur.CharWeight=com.sun.star.awt.FontWeight.BOLD
			else
				unCurseur.CharWeight=com.sun.star.awt.FontWeight.NORMAL
			End if
			unCurseur.CharFontName=oChangeTexteForm.Model.ComboBox2.Text
		next i
	end if
	if oChangeTexteForm.Model.CheckBox4.State&lt;&gt;1 then
		aPoint = unGroupe(val(indice(GetListIndex(oChangeTexteForm, &quot;ComboBox1&quot;)))).Position
		unGroupe(val(indice(GetListIndex(oChangeTexteForm, &quot;ComboBox1&quot;)))).Position = aPoint
	Else
		for i=lbound(indice()) to ubound(indice())
			j=indice(i)
			aPoint = unGroupe(j).Position
			unGroupe(j).Position = aPoint
		Next i
	End if
	on error goto 0
End Sub

Private Sub ChargeTexteForm_CheckBox1()
	ChargeTexteForm_MiseAJourExemple
End Sub

Private Sub ChargeTexteForm_CheckBox2()
	ChargeTexteForm_MiseAJourExemple
End Sub

Private Sub ChargeTexteForm_CheckBox3()
	ChargeTexteForm_MiseAJourExemple
End Sub

Private Sub ChargeTexteForm_Scroll1()
	if oChangeTexteForm.Model.ScrollBar1.ScrollValue&lt;&gt;val(oChangeTexteForm.Model.TextBox1.Text) then
		oChangeTexteForm.Model.TextBox1.Text=oChangeTexteForm.Model.ScrollBar1.ScrollValue
		ChargeTexteForm_MiseAJourExemple
	end if
End Sub

Private Sub ChargeTexteForm_ComboBox1()
dim unCurseur

	unCurseur=unGroupe(val(indice(GetListIndex(oChangeTexteForm, &quot;ComboBox1&quot;)))).Text.createTextCursor
	unCurseur.GotoStart(false)
	unCurseur.GotoEnd(true)
	oChangeTexteForm.Model.CheckBox1.State=(unCurseur.CharWeight=com.sun.star.awt.FontWeight.BOLD)
	oChangeTexteForm.Model.CheckBox2.State=(unCurseur.CharPosture=com.sun.star.awt.FontSlant.ITALIC)
	oChangeTexteForm.Model.CheckBox3.State=(unCurseur.CharUnderline=com.sun.star.awt.FontUnderline.SINGLE)
	oChangeTexteForm.Model.TextBox1.Text=unCurseur.CharHeight
	oChangeTexteForm.Model.ScrollBar1.ScrollValue=unCurseur.CharHeight
	oChangeTexteForm.Model.ComboBox2.Text=unCurseur.CharFontName
	ChargeTexteForm_MiseAJourExemple
End Sub

Private Sub ChargeTexteForm_ComboBox2()
	ChargeTexteForm_MiseAJourExemple
End Sub

Private Sub ChargeTexteForm_TextBox1()
	if oChangeTexteForm.Model.ScrollBar1.ScrollValue&lt;&gt;val(oChangeTexteForm.Model.TextBox1.Text) then
		oChangeTexteForm.Model.ScrollBar1.ScrollValue = oChangeTexteForm.Model.TextBox1.Text
		ChargeTexteForm_MiseAJourExemple
	End if
End Sub

Private Sub ChargeTexteForm_MiseAJourExemple()
	oChangeTexteForm.Model.Label1.FontHeight=val(oChangeTexteForm.Model.TextBox1.Text)
	if oChangeTexteForm.Model.CheckBox3.State then
		oChangeTexteForm.Model.Label1.FontUnderLine=com.sun.star.awt.FontUnderline.SINGLE
	else
		oChangeTexteForm.Model.Label1.FontUnderLine=com.sun.star.awt.FontUnderline.NONE
	end if
	if oChangeTexteForm.Model.CheckBox2.State then
		oChangeTexteForm.Model.Label1.FontSlant=com.sun.star.awt.FontSlant.ITALIC
	else
		oChangeTexteForm.Model.Label1.FontSlant=com.sun.star.awt.FontSlant.NONE
	end if
	if oChangeTexteForm.Model.CheckBox1.State then
		oChangeTexteForm.Model.Label1.FontWeight=com.sun.star.awt.FontWeight.BOLD
	else
		oChangeTexteForm.Model.Label1.FontWeight=com.sun.star.awt.FontWeight.NORMAL
	End if
	oChangeTexteForm.Model.Label1.FontName=oChangeTexteForm.Model.ComboBox2.Text
	ChargeTexteForm_CommandButton2
End Sub

Sub ChargeNomPolice(fparam() as string)
	Dim i,j,k
	Dim oToolkit as Object
	Dim oDevice as Variant
	Dim oFontDescriptors As Variant
	Dim param() as String
	
	oToolkit = CreateUnoService(&quot;com.sun.star.awt.Toolkit&quot;)
	oDevice = oToolkit.createScreenCompatibleDevice(0, 0)
	oFontDescriptors = oDevice.FontDescriptors

	Redim param(lbound(oFontDescriptors) to UBound(oFontDescriptors)) as string
	
	thiscomponent.lockcontrollers
	dim trouve as Boolean
	k=0
	for i= LBound(oFontDescriptors) to UBound(oFontDescriptors)
		trouve=False
		for j=0 to k-1
			if param(j)=oFontDescriptors(i).Name then trouve=True
		next j
		if not trouve then
			param(k)=oFontDescriptors(i).Name
			k=k+1
		end if		
	next i
	thiscomponent.unlockcontrollers
	redim fparam(0 to k-1)
	for i=0 to k-1
		fparam(i)=param(i)
	next i
	do 
		trouve=false
		for i=0 to k-2
			if fparam(i)&gt;fparam(i+1) then 
				Echange(fparam(i), fparam(i+1))
				trouve=True
			end if
		next i
	loop while(trouve)
End Sub 

</script:module>