Inet.sk - internetový denník

V treťom a poslednom pokračovaní makier pre nastavovanie indexov si ukážeme procedúry, pomocou ktorých dokážeme zmeniť veľkosť indexov. Podobne, ako minule, aj teraz budeme v makrách testovať, či je otvorené dialógové okno a ak áno, tak tam zmenené hodnoty v príslušných políčkach aj zobrazíme. Okrem toho si ukážeme procedúry pre nastavenie horného a spodného indexu podľa nastavených hodnôt aj pri zatvorenom dialógu a pre nastavenie „normálneho“ písma.

REM Procedúra pre posun veľkosti horného indexu o +10
sub Posun_HV_P10
 dim Kurzor as object
 
 Testuj_nulove_hodnoty ' Testovanie a prípadné nastavnie štandardných hodnôt
 if JP_Nastav_index_HI_V<=90 then JP_Nastav_index_HI_V=JP_Nastav_index_HI_V+10
 if JP_Nastav_Index_dialog then JP_Nastav_index_dlg.model.HI_V.text=trim(str(JP_Nastav_index_HI_V)) ' Nastavenie indexu do dialógu
 
 kurzor=ThisComponent.currentcontroller.getViewCursor() ' viditeľný kurzor
 kurzor.CharEscapement=JP_Nastav_index_HI_O ' Percentuálne odsadenie horného indexu nad bežný text
 kurzor.CharEscapementHeight=JP_Nastav_index_HI_V ' Percentuálna veľkosť horného indexu
end sub

REM Procedúra pre posun veľkosti horného indexu o +1
sub Posun_HV_P1
 dim Kurzor as object
 
 Testuj_nulove_hodnoty ' Testovanie a prípadné nastavnie štandardných hodnôt
 if JP_Nastav_index_HI_V<100 then JP_Nastav_index_HI_V=JP_Nastav_index_HI_V+1
 if JP_Nastav_Index_dialog then JP_Nastav_index_dlg.model.HI_V.text=trim(str(JP_Nastav_index_HI_V)) ' Nastavenie indexu do dialógu

 kurzor=ThisComponent.currentcontroller.getViewCursor() ' viditeľný kurzor
 kurzor.CharEscapement=JP_Nastav_index_HI_O ' Percentuálne odsadenie horného indexu nad bežný text
 kurzor.CharEscapementHeight=JP_Nastav_index_HI_V ' Percentuálna veľkosť horného indexu
end sub

REM Procedúra pre posun veľkosti horného indexu o –10
sub Posun_HV_M10
 dim Kurzor as object
 
 Testuj_nulove_hodnoty ' Testovanie a prípadné nastavnie štandardných hodnôt
 if JP_Nastav_index_HI_V>10 then JP_Nastav_index_HI_V=JP_Nastav_index_HI_V-10
 if JP_Nastav_Index_dialog then JP_Nastav_index_dlg.model.HI_V.text=trim(str(JP_Nastav_index_HI_V)) ' Nastavenie indexu do dialógu
 
 kurzor=ThisComponent.currentcontroller.getViewCursor() ' viditeľný kurzor
 kurzor.CharEscapement=JP_Nastav_index_HI_O ' Percentuálne odsadenie horného indexu nad bežný text
 kurzor.CharEscapementHeight=JP_Nastav_index_HI_V ' Percentuálna veľkosť horného indexu
end sub

REM Procedúra pre posun veľkosti horného indexu o –1
sub Posun_HV_M1
 dim Kurzor as object
 
 Testuj_nulove_hodnoty ' Testovanie a prípadné nastavnie štandardných hodnôt
 if JP_Nastav_index_HI_V>=1 then JP_Nastav_index_HI_V=JP_Nastav_index_HI_V-1
 if JP_Nastav_Index_dialog then JP_Nastav_index_dlg.model.HI_V.text=trim(str(JP_Nastav_index_HI_V)) ' Nastavenie indexu do dialógu

 kurzor=ThisComponent.currentcontroller.getViewCursor() ' viditeľný kurzor
 kurzor.CharEscapement=JP_Nastav_index_HI_O ' Percentuálne odsadenie horného indexu nad bežný text
 kurzor.CharEscapementHeight=JP_Nastav_index_HI_V ' Percentuálna veľkosť horného indexu
end sub

REM Procedúra pre posun veľkosti dolného indexu o +10
sub Posun_DV_P10
 dim Kurzor as object
 
 Testuj_nulove_hodnoty ' Testovanie a prípadné nastavnie štandardných hodnôt
 if JP_Nastav_index_DI_V<=90 then JP_Nastav_index_DI_V=JP_Nastav_index_DI_V+10
 if JP_Nastav_Index_dialog then JP_Nastav_index_dlg.model.DI_V.text=trim(str(JP_Nastav_index_DI_V)) ' Nastavenie indexu do dialógu

 kurzor=ThisComponent.currentcontroller.getViewCursor() ' viditeľný kurzor
 kurzor.CharEscapement=0-JP_Nastav_index_DI_O ' Percentuálne odsadenie dolného indexu pod bežný text – spodný index sa nastavuje zápornými hodnotami
 kurzor.CharEscapementHeight=JP_Nastav_index_DI_V ' Percentuálna veľkosť dolného indexu
end sub

REM Procedúra pre posun veľkosti dolného indexu o +1
sub Posun_DV_P1
 dim Kurzor as object
 
 Testuj_nulove_hodnoty ' Testovanie a prípadné nastavnie štandardných hodnôt
 if JP_Nastav_index_DI_V<100 then JP_Nastav_index_DI_V=JP_Nastav_index_DI_V+1
 if JP_Nastav_Index_dialog then JP_Nastav_index_dlg.model.DI_V.text=trim(str(JP_Nastav_index_DI_V)) ' Nastavenie indexu do dialógu

 kurzor=ThisComponent.currentcontroller.getViewCursor() ' viditeľný kurzor
 kurzor.CharEscapement=0-JP_Nastav_index_DI_O ' Percentuálne odsadenie dolného indexu pod bežný text – spodný index sa nastavuje zápornými hodnotami
 kurzor.CharEscapementHeight=JP_Nastav_index_DI_V ' Percentuálna veľkosť dolného indexu
end sub

REM Procedúra pre posun veľkosti dolného indexu o –10
sub Posun_DV_M10
 dim Kurzor as object
 
 Testuj_nulove_hodnoty ' Testovanie a prípadné nastavnie štandardných hodnôt
 if JP_Nastav_index_DI_V>10 then JP_Nastav_index_DI_V=JP_Nastav_index_DI_V-10
 if JP_Nastav_Index_dialog then JP_Nastav_index_dlg.model.DI_V.text=trim(str(JP_Nastav_index_DI_V)) ' Nastavenie indexu do dialógu

 kurzor=ThisComponent.currentcontroller.getViewCursor() ' viditeľný kurzor
 kurzor.CharEscapement=0-JP_Nastav_index_DI_O ' Percentuálne odsadenie dolného indexu pod bežný text – spodný index sa nastavuje zápornými hodnotami
 kurzor.CharEscapementHeight=JP_Nastav_index_DI_V ' Percentuálna veľkosť dolného indexu
end sub

REM Procedúra pre posun veľkosti dolného indexu o –1
sub Posun_DV_M1
 dim Kurzor as object
 
 Testuj_nulove_hodnoty ' Testovanie a prípadné nastavnie štandardných hodnôt
 if JP_Nastav_index_DI_V>1 then JP_Nastav_index_DI_V=JP_Nastav_index_DI_V-1
 if JP_Nastav_Index_dialog then JP_Nastav_index_dlg.model.DI_V.text=trim(str(JP_Nastav_index_DI_V)) ' Nastavenie indexu do dialógu

 kurzor=ThisComponent.currentcontroller.getViewCursor() ' viditeľný kurzor
 kurzor.CharEscapement=0-JP_Nastav_index_DI_O ' Percentuálne odsadenie dolného indexu pod bežný text – spodný index sa nastavuje zápornými hodnotami
 kurzor.CharEscapementHeight=JP_Nastav_index_DI_V ' Percentuálna veľkosť dolného indexu
end sub

REM Procedúra pre nastavenie horného indexu podľa predtým definovaných hodnôt
sub Nastav_Horny_Index
 dim Kurzor as object
 
 Testuj_nulove_hodnoty ' Testovanie a prípadné nastavenie štandardných hodnôt

 kurzor=ThisComponent.currentcontroller.getViewCursor() ' viditeľný kurzor
 kurzor.CharEscapement=JP_Nastav_index_HI_O ' Percentuálne odsadenie horného indexu nad bežný text
 kurzor.CharEscapementHeight=JP_Nastav_index_HI_V ' Percentuálna veľkosť horného indexu
end sub

REM Procedúra pre nastavenie dolného indexu podľa predtým definovaných hodnôt
sub Nastav_Dolny_Index
 dim Kurzor as object
 
 Testuj_nulove_hodnoty ' Testovanie a prípadné nastavenie štandardných hodnôt

 kurzor=ThisComponent.currentcontroller.getViewCursor() ' viditeľný kurzor
 kurzor.CharEscapement=0-JP_Nastav_index_DI_O ' Percentuálne odsadenie dolného indexu pod bežný text – spodný index sa nastavuje zápornými hodnotami
 kurzor.CharEscapementHeight=JP_Nastav_index_DI_V ' Percentuálna veľkosť dolného indexu
end sub

REM Procedúra pre nastavenie normálneho písma
sub Nastav_normal_pismo
 dim Kurzor as object
 kurzor=ThisComponent.currentcontroller.getViewCursor() ' viditeľný kurzor
 kurzor.CharEscapement=0
 kurzor.CharEscapementHeight=100
end sub

29. 09. 2010 Július Pastierik Programovanie Komentáre