Pozdravljeni! Najlepša hvala! Stvar funkcionira odlično! Programčič sem si še malo prilagodil, da mi ne spreminja za 2 pt, ampak za 0,5 pt, kar mi še bolj paše. Hvala! Robert Brest
----- Original Message ----- From: "Dragan" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Friday, July 21, 2006 2:47 AM Subject: [USERS-SLOOO] Re: Robert Brest, veliost fontov > 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] > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
