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

25. 05. 2011 o 00:00 2624x

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

V štvrtom pokračovaní makier pre nastavenie sklonu, hrúbky, šírky, reliéfu, prečiarknutia, podčiarknutia a nadčiarknutia textu si ukážeme funkciu pre nastavenie zvolených parametrov pri zámene parametrov.

V minulej časti sme si ukázali, ako otestujeme, či určitý reťazec má zadané nami zvolené parametre. Ako logické pokračovanie je nastavenie nových parametrov v tomto texte, ak splnil príslušné podmienky.

REM Procedúra pre nastavenie parametrov
sub nastav_new_text (riadok as object)
 dim pom_text as string
 
 REM Sklon písma
 if oDlgz.model.FontSlantCheck2.State=1 then
  pom_text=trim(oDlgz.getControl("FontSlantBox2").Text)
  select case pom_text
   case "None"
    riadok.CharPosture=com.sun.star.awt.FontSlant.NONE
   case "Oblique"
    riadok.CharPosture=com.sun.star.awt.FontSlant.OBLIQUE
   case "Italic"
    riadok.CharPosture=com.sun.star.awt.FontSlant.ITALIC
   case "Don't Know"
    riadok.CharPosture=com.sun.star.awt.FontSlant.DONTKNOW
   case "Reverse Oblique"
    riadok.CharPosture=com.sun.star.awt.FontSlant.REVERSE_OBLIQUE
   case "Reverse Italic"
    riadok.CharPosture=com.sun.star.awt.FontSlant.REVERSE_ITALIC
  end select
 endif
 
 REM Hrúbka písma
 if oDlgz.model.FontWeightCheck2.State=1 then
  pom_text=trim(oDlgz.getControl("FontWeightBox2").Text)
  select case pom_text
   case "Don't Know"
    riadok.CharWeight=com.sun.star.awt.FontWeight.DONTKNOW
   case "Thin"
    riadok.CharWeight=com.sun.star.awt.FontWeight.THIN
   case "Ultra Light"
    riadok.CharWeight=com.sun.star.awt.FontWeight.ULTRALIGHT
   case "Light"
    riadok.CharWeight=com.sun.star.awt.FontWeight.LIGHT
   case "Semi Light"
    riadok.CharWeight=com.sun.star.awt.FontWeight.SEMILIGHT
   case "Normal"
    riadok.CharWeight=com.sun.star.awt.FontWeight.NORMAL
   case "Semi Bold"
    riadok.CharWeight=com.sun.star.awt.FontWeight.SEMIBOLD
   case "Bold"
    riadok.CharWeight=com.sun.star.awt.FontWeight.BOLD
   case "Ultra Bold"
    riadok.CharWeight=com.sun.star.awt.FontWeight.ULTRABOLD
   case "Black"
    riadok.CharWeight=com.sun.star.awt.FontWeight.BLACK
  end select
 endif
 
 REM Šírka písma
 if oDlgz.model.FontWidthCheck2.State=1 then
  pom_text=trim(oDlgz.getControl("FontWidthBox2").Text)
  select case pom_text
   case "Don't Know"
    riadok.CharScaleWidth=com.sun.star.awt.FontWidth.DONTKNOW
   case "Ultra Condensed"
    riadok.CharScaleWidth=com.sun.star.awt.FontWidth.ULTRACONDENSED
   case "Extra Condensed"
    riadok.CharScaleWidth=com.sun.star.awt.FontWidth.EXTRACONDENSED
   case "Condensed"
    riadok.CharScaleWidth=com.sun.star.awt.FontWidth.CONDENSED
   case "Semi Condensed"
    riadok.CharScaleWidth=com.sun.star.awt.FontWidth.SEMICONDENSED
   case "Normal"
    riadok.CharScaleWidth=com.sun.star.awt.FontWidth.NORMAL
   case "Semi Expanded"
    riadok.CharScaleWidth=com.sun.star.awt.FontWidth.SEMIEXPANDED
   case "Expanded"
    riadok.CharScaleWidth=com.sun.star.awt.FontWidth.EXPANDED
   case "Extra Expanded"
    riadok.CharScaleWidth=com.sun.star.awt.FontWidth.EXTRAEXPANDED
   case "Ultra Expanded"
    riadok.CharScaleWidth=com.sun.star.awt.FontWidth.ULTRAEXPANDED 
  end select
 endif
 
 REM Reliéf písma
 if oDlgz.model.FontReliefCheck2.State=1 then
  pom_text=trim(oDlgz.getControl("FontReliefBox2").Text)
  select case pom_text
   case "None"
    riadok.CharRelief=com.sun.star.awt.FontRelief.NONE
   case "Embossed"
    riadok.CharRelief=com.sun.star.awt.FontRelief.EMBOSSED
   case "Engraved"
    riadok.CharRelief=com.sun.star.awt.FontRelief.ENGRAVED
  end select
 endif
 
 REM Prečiarknutie písma
 if oDlgz.model.FontStrikeoutCheck2.State=1 then
  pom_text=trim(oDlgz.getControl("FontStrikeoutBox2").Text)
  select case pom_text
   case "None"
    riadok.CharStrikeout=com.sun.star.awt.FontStrikeout.NONE
   case "Single"
    riadok.CharStrikeout=com.sun.star.awt.FontStrikeout.SINGLE
   case "Double"
    riadok.CharStrikeout=com.sun.star.awt.FontStrikeout.DOUBLE
   case "Don't Know"
    riadok.CharStrikeout=com.sun.star.awt.FontStrikeout.DONTKNOW
   case "Bold"
    riadok.CharStrikeout=com.sun.star.awt.FontStrikeout.BOLD
   case "Slash"
    riadok.CharStrikeout=com.sun.star.awt.FontStrikeout.SLASH
   case "X"
    riadok.CharStrikeout=com.sun.star.awt.FontStrikeout.X
  end select
 endif
 
 REM Podčiarknutie písma
 if oDlgz.model.FontUnderlineCheck2.State=1 then
  pom_text=trim(oDlgz.getControl("FontUnderlineBox2").Text)
  select case pom_text
   case "None"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.NONE
   case "Single"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.SINGLE
   case "Double"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.DOUBLE
   case "Dotted"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.DOTTED
   case "Don't Know"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.DONTKNOW
   case "Dash"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.DASH
   case "Long Dash"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.LONGDASH
   case "Dash Dot"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.DASHDOT
   case "Dash Dot Dot"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.DASHDOTDOT
   case "Small Wave"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.SMALLWAVE
   case "Wave"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.WAVE
   case "Double Wave"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.DOUBLEWAVE
   case "Bold"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.BOLD
   case "Bold Dotted"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.BOLDDOTTED
   case "Bold Dash"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.BOLDDASH
   case "Bold Long Dash"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.BOLDLONGDASH
   case "Bold Dash Dot"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.BOLDDASHDOT
   case "Bold Dash Dot Dot"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.BOLDDASHDOTDOT
   case "Bold Wave"
    riadok.CharUnderline=com.sun.star.awt.FontUnderline.BOLDWAVE
  end select
 endif
 
 REM Nadčiarknutie písma
 if oDlgz.model.FontOverlineCheck2.State=1 then
  pom_text=trim(oDlgz.getControl("FontOverlineBox2").Text)
  select case pom_text
   case "None"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.NONE
   case "Single"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.SINGLE
   case "Double"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.DOUBLE
   case "Dotted"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.DOTTED
   case "Don't Know"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.DONTKNOW
   case "Dash"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.DASH
   case "Long Dash"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.LONGDASH
   case "Dash Dot"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.DASHDOT
   case "Dash Dot Dot"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.DASHDOTDOT
   case "Small Wave"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.SMALLWAVE
   case "Wave"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.WAVE
   case "Double Wave"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.DOUBLEWAVE
   case "Bold"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.BOLD
   case "Bold Dotted"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.BOLDDOTTED
   case "Bold Dash"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.BOLDDASH
   case "Bold Long Dash"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.BOLDLONGDASH
   case "Bold Dash Dot"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.BOLDDASHDOT
   case "Bold Dash Dot Dot"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.BOLDDASHDOTDOT
   case "Bold Wave"
    riadok.CharOverline=com.sun.star.awt.FontUnderline.BOLDWAVE
  end select
 endif
 
End Sub

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 (4)

Z nášho blogu

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