Archív Inet.sk Pôvodný autor: Július Pastierik

18. 05. 2011 o 00:00 2500x

Makrá v OpenOffice.org: Parametre formátu textu (3)

V treťom pokračovaní makier pre nastavenie sklonu, hrúbky, šírky, reliéfu, prečiarknutia, podčiarknutia a nadčiarknutia textu si ukážeme funkcie pre testovanie, či určitý reťazec má nastavené zvolené parametre.

Okrem nastavovania potrebujeme niekedy aj vyhľadávať reťazce, ktoré majú nastavené nami špecifikované parametre sklonu, hrúbky, šírky, reliéfu, prečiarknutia, podčiarknutia a nadčiarknutia textu. Samozrejme, okrem ich hľadania požadujeme častokrát zmeniť príslušné nastavenia. Preto si v ďalších dieloch ukážeme funkcie, pomocou ktorých to dokážeme urobiť.

Podobne, ako pri nastavovaní, aj teraz budeme používať dialógové okno, v ktorom si nastavíme hľadané parametre a parametre, aké chceme nastaviť. V dnešnom pokračovaní si na úvod uvedieme feunkciu, pomocou ktorej zistíme, či určitý text má nastavené všetky nami špecifikované parametre.

REM Testovanie zadanej podmienky
function test_podmienky (znak as object) as boolean
 dim splnena as boolean
 dim pom_text as string
 dim podmienka as long
 
 REM Či je zadaná aspoň jedna podmienka
 splnena=(oDlgz.model.FontSlantCheck1.State=1) _
         or (oDlgz.model.FontWeightCheck1.State=1) _
         or (oDlgz.model.FontWidthCheck1.State=1) _
         or (oDlgz.model.FontReliefCheck1.State=1) _
         or (oDlgz.model.FontStrikeoutCheck1.State=1) _
         or (oDlgz.model.FontUnderlineCheck1.State=1) _
         or (oDlgz.model.FontOverlineCheck1.State=1)
         
 if splnena then
  ' Je zadaná aspoň jedna podmienka
  REM Sklon písma
  if oDlgz.model.FontSlantCheck1.State=1 then
   pom_text=trim(oDlgz.getControl("FontSlantBox1").Text)
   select case pom_text
    case "None"
     podmienka=com.sun.star.awt.FontSlant.NONE
    case "Oblique"
     podmienka=com.sun.star.awt.FontSlant.OBLIQUE
    case "Italic"
     podmienka=com.sun.star.awt.FontSlant.ITALIC
    case "Don't Know"
     podmienka=com.sun.star.awt.FontSlant.DONTKNOW
    case "Reverse Oblique"
     podmienka=com.sun.star.awt.FontSlant.REVERSE_OBLIQUE
    case "Reverse Italic"
     podmienka=com.sun.star.awt.FontSlant.REVERSE_ITALIC
   end select
   if oDlgz.model.FontSlantR.State=1 then
    splnena=splnena and (znak.CharPosture=podmienka)
   else
    splnena=splnena and (znak.CharPosture<>podmienka)
   endif
  endif
  
  REM Hrúbka písma
  if oDlgz.model.FontWeightCheck1.State=1 then
   pom_text=trim(oDlgz.getControl("FontWeightBox1").Text)
   select case pom_text
    case "Don't Know"
     podmienka=com.sun.star.awt.FontWeight.DONTKNOW
    case "Thin"
     podmienka=com.sun.star.awt.FontWeight.THIN
    case "Ultra Light"
     podmienka=com.sun.star.awt.FontWeight.ULTRALIGHT
    case "Light"
     podmienka=com.sun.star.awt.FontWeight.LIGHT
    case "Semi Light"
     podmienka=com.sun.star.awt.FontWeight.SEMILIGHT
    case "Normal"
     podmienka=com.sun.star.awt.FontWeight.NORMAL
    case "Semi Bold"
     podmienka=com.sun.star.awt.FontWeight.SEMIBOLD
    case "Bold"
     podmienka=com.sun.star.awt.FontWeight.BOLD
    case "Ultra Bold"
     podmienka=com.sun.star.awt.FontWeight.ULTRABOLD
    case "Black"
     podmienka=com.sun.star.awt.FontWeight.BLACK
   end select
   if oDlgz.model.FontWeightR.State=1 then
    splnena=splnena and (znak.CharWeight=podmienka)
   else
    splnena=splnena and (znak.CharWeight<>podmienka)
   endif
  endif
  
  REM Šírka písma
  if oDlgz.model.FontWidthCheck1.State=1 then
   pom_text=trim(oDlgz.getControl("FontWidthBox1").Text)
   select case pom_text
    case "Don't Know"
     podmienka=com.sun.star.awt.FontWidth.DONTKNOW
    case "Ultra Condensed"
     podmienka=com.sun.star.awt.FontWidth.ULTRACONDENSED
    case "Extra Condensed"
     podmienka=com.sun.star.awt.FontWidth.EXTRACONDENSED
    case "Condensed"
     podmienka=com.sun.star.awt.FontWidth.CONDENSED
    case "Semi Condensed"
     podmienka=com.sun.star.awt.FontWidth.SEMICONDENSED
    case "Normal"
     podmienka=com.sun.star.awt.FontWidth.NORMAL
    case "Semi Expanded"
     podmienka=com.sun.star.awt.FontWidth.SEMIEXPANDED
    case "Expanded"
     podmienka=com.sun.star.awt.FontWidth.EXPANDED
    case "Extra Expanded"
     podmienka=com.sun.star.awt.FontWidth.EXTRAEXPANDED
    case "Ultra Expanded"
     podmienka=com.sun.star.awt.FontWidth.ULTRAEXPANDED 
   end select
   if oDlgz.model.FontWidthR.State=1 then
    splnena=splnena and (znak.CharScaleWidth=podmienka)
   else
    splnena=splnena and (znak.CharScaleWidth<>podmienka)
   endif
  endif
  
  REM Reliéf písma
  if oDlgz.model.FontReliefCheck1.State=1 then
   pom_text=trim(oDlgz.getControl("FontReliefBox1").Text)
   select case pom_text
    case "None"
     podmienka=com.sun.star.awt.FontRelief.NONE
    case "Embossed"
     podmienka=com.sun.star.awt.FontRelief.EMBOSSED
    case "Engraved"
     podmienka=com.sun.star.awt.FontRelief.ENGRAVED
   end select
   if oDlgz.model.FontReliefR.State=1 then
    splnena=splnena and (znak.CharRelief=podmienka)
   else
    splnena=splnena and (znak.CharRelief<>podmienka)
   endif
  endif
  
  REM Prečiarknutie písma
  if oDlgz.model.FontStrikeoutCheck1.State=1 then
   pom_text=trim(oDlgz.getControl("FontStrikeoutBox1").Text)
   select case pom_text
    case "None"
     podmienka=com.sun.star.awt.FontStrikeout.NONE
    case "Single"
     podmienka=com.sun.star.awt.FontStrikeout.SINGLE
    case "Double"
     podmienka=com.sun.star.awt.FontStrikeout.DOUBLE
    case "Don't Know"
     podmienka=com.sun.star.awt.FontStrikeout.DONTKNOW
    case "Bold"
     podmienka=com.sun.star.awt.FontStrikeout.BOLD
    case "Slash"
     podmienka=com.sun.star.awt.FontStrikeout.SLASH
    case "X"
     podmienka=com.sun.star.awt.FontStrikeout.X
   end select
   if oDlgz.model.FontStrikeoutR.State=1 then
    splnena=splnena and (znak.CharStrikeout=podmienka)
   else
    splnena=splnena and (znak.CharStrikeout<>podmienka)
   endif
  endif
  
  REM Podčiarknutie písma
  if oDlgz.model.FontUnderlineCheck1.State=1 then
   pom_text=trim(oDlgz.getControl("FontUnderlineBox1").Text)
   select case pom_text
    case "None"
     podmienka=com.sun.star.awt.FontUnderline.NONE
    case "Single"
     podmienka=com.sun.star.awt.FontUnderline.SINGLE
    case "Double"
     podmienka=com.sun.star.awt.FontUnderline.DOUBLE
    case "Dotted"
     podmienka=com.sun.star.awt.FontUnderline.DOTTED
    case "Don't Know"
     podmienka=com.sun.star.awt.FontUnderline.DONTKNOW
    case "Dash"
     podmienka=com.sun.star.awt.FontUnderline.DASH
    case "Long Dash"
     podmienka=com.sun.star.awt.FontUnderline.LONGDASH
    case "Dash Dot"
     podmienka=com.sun.star.awt.FontUnderline.DASHDOT
    case "Dash Dot Dot"
     podmienka=com.sun.star.awt.FontUnderline.DASHDOTDOT
    case "Small Wave"
     podmienka=com.sun.star.awt.FontUnderline.SMALLWAVE
    case "Wave"
     podmienka=com.sun.star.awt.FontUnderline.WAVE
    case "Double Wave"
     podmienka=com.sun.star.awt.FontUnderline.DOUBLEWAVE
    case "Bold"
     podmienka=com.sun.star.awt.FontUnderline.BOLD
    case "Bold Dotted"
     podmienka=com.sun.star.awt.FontUnderline.BOLDDOTTED
    case "Bold Dash"
     podmienka=com.sun.star.awt.FontUnderline.BOLDDASH
    case "Bold Long Dash"
     podmienka=com.sun.star.awt.FontUnderline.BOLDLONGDASH
    case "Bold Dash Dot"
     podmienka=com.sun.star.awt.FontUnderline.BOLDDASHDOT
    case "Bold Dash Dot Dot"
     podmienka=com.sun.star.awt.FontUnderline.BOLDDASHDOTDOT
    case "Bold Wave"
     podmienka=com.sun.star.awt.FontUnderline.BOLDWAVE
   end select
   if oDlgz.model.FontUnderlineR.State=1 then
    splnena=splnena and (znak.CharUnderline=podmienka)
   else
    splnena=splnena and (znak.CharUnderline<>podmienka)
   endif
  endif
  
  REM Nadčiarknutie písma (konštanty sú ako pri podčiarknutí)
  if oDlgz.model.FontOverlineCheck1.State=1 then
   pom_text=trim(oDlgz.getControl("FontOverlineBox1").Text)
   select case pom_text
    case "None"
     podmienka=com.sun.star.awt.FontUnderline.NONE
    case "Single"
     podmienka=com.sun.star.awt.FontUnderline.SINGLE
    case "Double"
     podmienka=com.sun.star.awt.FontUnderline.DOUBLE
    case "Dotted"
     podmienka=com.sun.star.awt.FontUnderline.DOTTED
    case "Don't Know"
     podmienka=com.sun.star.awt.FontUnderline.DONTKNOW
    case "Dash"
     podmienka=com.sun.star.awt.FontUnderline.DASH
    case "Long Dash"
     podmienka=com.sun.star.awt.FontUnderline.LONGDASH
    case "Dash Dot"
     podmienka=com.sun.star.awt.FontUnderline.DASHDOT
    case "Dash Dot Dot"
     podmienka=com.sun.star.awt.FontUnderline.DASHDOTDOT
    case "Small Wave"
     podmienka=com.sun.star.awt.FontUnderline.SMALLWAVE
    case "Wave"
     podmienka=com.sun.star.awt.FontUnderline.WAVE
    case "Double Wave"
     podmienka=com.sun.star.awt.FontUnderline.DOUBLEWAVE
    case "Bold"
     podmienka=com.sun.star.awt.FontUnderline.BOLD
    case "Bold Dotted"
     podmienka=com.sun.star.awt.FontUnderline.BOLDDOTTED
    case "Bold Dash"
     podmienka=com.sun.star.awt.FontUnderline.BOLDDASH
    case "Bold Long Dash"
     podmienka=com.sun.star.awt.FontUnderline.BOLDLONGDASH
    case "Bold Dash Dot"
     podmienka=com.sun.star.awt.FontUnderline.BOLDDASHDOT
    case "Bold Dash Dot Dot"
     podmienka=com.sun.star.awt.FontUnderline.BOLDDASHDOTDOT
    case "Bold Wave"
     podmienka=com.sun.star.awt.FontUnderline.BOLDWAVE
   end select
   if oDlgz.model.FontOverlineR.State=1 then
    splnena=splnena and (znak.CharOverline=podmienka)
   else
    splnena=splnena and (znak.CharOverline<>podmienka)
   endif
  endif
 
 endif
 test_podmienky=splnena
end function

Kategórie:

[Blog] Archív

Tagy:

#Programovanie

Všetky články blogu Všetky návody

Novinky a inšpirácie

Z nášho blogu

Prečítajte si novinky, inšpirácie a dôležité informácie zo sveta webhostingu a technológií.

Bezpečnostné aktualizácie PHP: Chráňte svoj web pred hrozbami

Oznamy

21. 10. 2026

Bezpečnostné aktualizácie PHP: Chráňte svoj web pred hrozbami

Vývojársky tím PHP vydal dôležité bezpečnostné záplaty pre všetky oficiálne podporované verzie PHP 8. Na našich serveroch sme nezaváhali ...

Čítať viac

Gmail končí s funkciou „Odoslať ako“ pre cudzie e-mailové adresy. Čo to znamená pre vás?

Oznamy

01. 10. 2026

Gmail končí s funkciou „Odoslať ako“ pre cudzie e-mailové adresy. Čo to znamená pre vás?

Google oznámil, že v januári 2027 zruší v Gmaile funkciu „Odoslať ako“ (Send as) pre e-mailové adresy od iných poskytovateľov. Ak ste si ...

Čítať viac

Oznamy

25. 09. 2026

Večerná „prestávka“ pre server VIP033

Neustále pracujeme na tom, aby vaše weby bežali hladko, rýchlo a bezpečne. Technológie idú míľovými krokmi vpred a my v Inet.sk s nimi dr...

Čítať viac

Novinky

09. 09. 2026

Novinky na Inet.sk (09 / 2026)

Posledné mesiace sme v Inet.sk nevenovali len stabilite serverov, ale najmä počúvaniu vašich reálnych skúseností z každodennej praxe. Výs...

Čítať viac

Všetky články

Podpora klientom

Máte ďalšie otázky?

Nezúfajte, pripravili sme pre Vás jednoduché odpovede na najdôležitejšie otázky, ktoré od našich klientov dostávame.

Zistiť viac

Naše výhody

Prečo si nás vybrať?

Našim klientom ponúkame až 30-dňovú záruku vrátenia peňazí.

Sme skutočný slovenský webhosting

Slovenská
firma

Nepatríme pod žiadnu nadnárodnú spoločnosť, sme malá rodinná firma.

Na nás sa môžete kedykoľvek spoľahnúť

Dlhoročné
skúsenosti

Na slovenskom trhu pôsobíme už viac ako 20 rokov, sme overená značka.

Naši prví zákazníci sú stále s nami

Spokojní
zákazníci

Naši zákazníci sú ako naša rodina, preto nám verí už viac ako 1250 klientov.

Maximálna bezpečnosť

Maximálna
bezpečnosť

Chránime Vás pred útokmi i SPAMom. U nás sú Vaše dáta v bezpečí.

Prozákaznícka podpora

Ochotná
podpora

Zakladáme si na individuálnom prístupe, preto Vám vždy radi pomôžeme.

Kvalita a dobrá cena

Férová
cena

Cena pri obnove je rovnaká ako pri objednávke. Nezdražujeme po prvom roku a bez skrytých poplatkov.

U nás sa Vám nič nestratí

Pravidelné
zálohovanie

Vaše dáta zálohujeme každý deň, dostupné sú aj zálohy z pred niekoľkých mesiacov.

Svižný Admin Panel nájdete len u nás

Prehľadný
Admin Panel

Máme rýchly a prehľadný Admin Panel, ktorý zvládne používať naozaj každý.

Správa používateľov

Správa
používateľov

Spravujte svoje projekty bez akýchkoľvek obáv s kolegami alebo externými partnermi.

Máme zľavy pre verných klientov

Vernostné
zľavy

Verní klienti u nás automaticky získavajú 15 % zľavu na každú ďalšiu objednávku.

My Vás nebudeme obmedzovať

Bez
obmedzení

Neobmedzujeme počet databáz, e-mailov, ftp a ani prenos dát.

Hosting pre WordPress

WordPress
na 1 klik

Nainštalujte si obľúbené redakčné systémy rýchlo a jednoducho.

Referencie

Spokojní zákazníci

Pozrite sa, čo o nás povedali naši klienti. Neváhajte a pridajte sa k nám ešte dnes.

"S firmou Inet.sk sme veľmi spokojní, vrelo ju odporúčam. Profesionálny a ústretový prístup pána Slančíka, seriózne jednanie a rýchla implementácia našich požiadaviek, 100% spokojnosť. Všetky služby od webhostingu cez výrobu stránky až po detailný servis počas chodu tu máme pod jednou strechou."

Ing. Jozef Brázdik
BB motors, s.r.o.

"Mal som možnosť vyskúšať rôzne webhostingy, ale nakoniec som sa rozhodol všetky moje stránky zveriť Inet.sk. Webhosting zvláda jednoduché, ale aj veľmi náročné stránky a magazíny. Podporuje najnovšie technológie a má veľmi prehľadnú a jednoduchú správu domén. Komunikácia s technickou podporou Inet.sk je vynikajúca a za mňa môžem túto firmu iba doporučiť."

Richard Horný
Final Vision, s. r. o.

"Pri migrácii našej stránky sme sa stretli s maximálnou podporou a profesionálnym prístupom. Inet.sk nám nielen pomohol celý proces zvládnuť bez komplikácií, ale tiež poskytol odborné poradenstvo, ktoré zabezpečilo hladký prechod. Ich hosting je rýchly a najmä stabilný, rovnako oceňujeme aj ich priateľskú komunikáciu."

Peter Kasan
Svet-mineralov.sk

"Proces migrácie bol zrealizovaný hladko a efektívne, pričom všetky kroky boli vykonané precízne a bez výpadkov. Inet.sk poskytol spoľahlivé a profesionálne riešenie, ktoré zjednodušilo správu domén a optimalizovalo ich prevádzku. Oceňujeme ich stabilnú infraštruktúru a kvalitné hostingové služby."

Lukáš Kazík
LKStudio.sk

"Mám u Inet.sk zaparkovanú jednu doménu a mám pocit, že tam zaparkujem aj všetky ostatné domény, ktoré mám, pretože po dlhoročných skúsenostiach s rôznymi inými firmami, mi Vaše služby vyhovujú zatiaľ najviac. Odporúčam kvôli dobrej konektivite a primeranej cene + rýchly support."

Ladislav Kéry
vypnutieimobilizera.sk

"Po rokoch skúšania dodávateľov na poli webhostingových služieb sme našli svojho spoľahlivého a stabilného partnera tu. Stabilita, ochota, znalosť, dobrá cena a rýchle vyriešenie prípadných problémov - to je pre nás Inet.sk."

Jaroslav Mráz
Allycom, s.r.o.

"Máme u Vás doménu a hosting. So službami sme nadmieru spokojní. Z Vašej strany máme pozitívne skúsenosti ako sú: rýchle jednanie, znalosť v problematike, ochota pomôcť, stabilita, zavádzanie noviniek, ak ich klient vyžaduje a dobrá cena. Za nás môžeme Inet.sk len odporučiť. Ďakujeme."

Mgr. Zuzana Valovičová
BL servis, s.r.o.

Makrá v OpenOffice.org: Parametre formátu textu (3)

Z nášho blogu

Bezpečnostné aktualizácie PHP: Chráňte svoj web pred hrozbami