Naslednja programčka počneta v Writerju to, kar si g. Brest želi.
FontIncHt povečuje velikost izbranega besedila za 2 piki, FontDecHt pa jo
zmanjšuje. Simpatični so efekti, ko pretiravamo v eno ali drugo smer.
Torej, bližnjice na tipke pa veselo na delo!
sub FontIncHt
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
dim oCurSelection as object
dim args1(0) as new com.sun.star.beans.PropertyValue
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
rem get current selection
oCurSelection = thisComponent.getCurrentSelection()
args1(0).Name = "FontHeight.Height"
args1(0).Value = oCurSelection(0).CharHeight + 2
dispatcher.executeDispatch(document, ".uno:FontHeight", "", 0, args1())
end sub
sub FontDecHt
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
dim oCurSelection as object
dim args1(0) as new com.sun.star.beans.PropertyValue
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
rem get current selection
oCurSelection = thisComponent.getCurrentSelection()
args1(0).Name = "FontHeight.Height"
args1(0).Value = oCurSelection(0).CharHeight - 2
dispatcher.executeDispatch(document, ".uno:FontHeight", "", 0, args1())
end sub
----- Original Message -----
From: "Robert Ludvik" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Tuesday, July 18, 2006 4:26 PM
Subject: [USERS-SLOOO] [Fwd: Re: Open Office]
-------- Izvirno sporočilo --------
Zadeva: Re: Open Office
Datum: Tue, 18 Jul 2006 00:33:05 +0200
Od: Robert Brest <[EMAIL PROTECTED]>
Za: Robert Ludvik <[EMAIL PROTECTED]>
Sklici: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
Pozdravljeni!
Torej kar k vprašanju.
Naložil sem si program Open Office.org vezijo 2.0.3. Naredil sem si
bližnjico (na določene tipke) za povečanje pisave in za pomanjšanje
pisave.
Stvar funkcionira, vendar je s to bližnjico možno pisavo povečati samo do
72
pt.Če nastavim ročno (se pravi, da vtipkam številko npr. 200, ni
problema),
ko pa hočem z bližnjično tipko pisavo zmanjšati, pa ta skoči na 72 pt in
potem od tam naprej zmanjšuje. Moja želja je, če bi se dalo popraviti
program, da bi z bližnjično tipko lahko pisavo zmanjševal oz. povečeval
čez
72 pt. Morda se to da celo kje nastaviti.
Za odgovor se vam najlepše zahvaljujem.
Lepo vas pozdravljam!
Robert Brest
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
