Aktualizováno 28.04.12 07:57:00
****************
27.09.2012
V rámci nápravy letitých problémů jsem opravil problém komentování
návěští:

.goto Nazdar
<*
.nazdar:"Nazdar" !*>;Jana jde do sveta
.nazdar:"Sbohem"

Od jakživa to chodilo na první zakomentované návěští.
****************
29.03.2012
Protože mně jeden uživatel volal, že má Win7 a žádný problém se
zmenšováním oken nemá, usoudil jsem, že se to někde dá nastavit.
Zjistil jsem:

Ovladácí panely
Malé ikony
Individuální nastavení
Centrum usnadnění přístupu
Poslední volba dole
Zaškrtnout "Zabránit automatickému uspořádání oken ..."
Tlačítko Použít
****************
28.03.2012
Dost dlouho jsem se zabýval řešením problému posunu okna WR ve
Vistách a Win7. Autoři Windows systémů plytce usoudili, že
pokud je okno maximalizované, nedá se posouvat. Proto po stisknutí
levého tlačítka na liště vyvolá od Vist automatický pokyn na
zmenšení okna, aby se dalo posouvat. Zřejmě zcela pominuli fakt,
že maximalizované okno nemusí být nutně ode zdi ke zdi, tak jako
to máme u WinREDAPu. Tím pádem odsunutí WR okna se jeví jako
velký problém, protože ve zmenšeném tvaru se těžko odhaduje, zda
po zvětšení bude celé vidět.

První myšlenka byla nastavit ve WR standardní stav jako zmenšené,
což neprošlo, protože zmenšené je pak maximalizované, nedá se
měnit jeho velikost a nemůže mít šoupáky.

Po delším experimentování jsem dospěl k řešení, kdy uchopením okna
provedu jeho minimalizaci, ale tak, že se velikost okna nezmění
a hranice přesunu je pak zcela transparentní. Kliknutím na
zvětšení okna se pak v tomto stavu přejde na jeho zmenšení.

Při přesouvání se registruje levý horní roh okna, ten se ukládá
do atpxxx.his při ukončení WR a po novém spuštění WR se tato
souřadnice zachová. To ocení zejména majitelé širokoúhlých
displejů.
****************
20.03.2012
Přes obrácený apostrof + V lze pořídit značku průměru.
***************
19.03.2012
Tip: Pokud napíšete

%ind
x:\abc\cde.efg
muj.x00
pc.
%
...
%vst
!
muj.x00 x:\abc\cde.efg
...
%

Pak v rozporu s příručkou nemusí mít indexovaná tabulka příponu
RDA.
***************
17.03.2012
Příkazem

.stopwatch[cz] r[#],s[#],<Barva|font>

cz -centrovací značka spustíte vteřinové stopky, .noclock
je zastavíte. Jinak vše analogicky jako .setclock. Nelze
použít oba příkazy současně. Např.

.font 33 T "Courier New" 86/30 t
.stopwatch+ 0,0,<10433>
.read $key
***************
01.03.2012
Do CSV přidán přepínač UP. V tomto případě se přeskočí všechny
analýzy na čísla a data, zjistí se pouze maximální počet sloupců
a jejich maximální délka a vygeneruje se RDF s automatickým
pojmenováním sloupců (ai se nahodí implicitně) a všechny
sloupce se definují jako RV. Tak v vzniklém RDA jsou všechny
řádky. Každý řádek může mít vyplněný jiný počet sloupců.

Jedná se tedy o jakési .parse podle ; nebo tabelátoru nebo
zadaného oddělovače. Pak je možno snadno provést analýzu
sloupců a přímo v aritmetice a podmínce CSV vynechat nevhodné
řádky.

Co se týče automatických jmen řádků, je jejich délka 4. Lze
si vygenerovat v rámci CSV rozumnou definici pomocí:

%csv
up,q5:61.
mkonto.csv
(Prvnisloupec=s001,Tretisloupec=s003) kavk
;
//
%

Pokud, ale chcete následně v ZUZ přejmenovávat na delší, tak to
již nejde.

%csv
up,q5:61.
mkonto.csv
(=) mkonto
;
//
%

kavk.rda má maximální délku identifikátorů 4. Proto zavedena možnost
pomocí přepínače ai:x, zajistit, že (=) se vyrobí s délkou
identifikátorů x, pokud x>=4.

%csv
up,ai:10,q5:61.
mkonto.csv
(=) mkonto
;
//
%
%zuz
mkonto#
s001/prvnislou.
konto
;
//
%
inf konto
***************
30.01.2012
Potřeboval jsem si prohlédnout n-tou větu v RDA, ale jak
si na ní dostat? Překvapilo mě, že funguje v INF prosté

q0 1000

a zobrazí s tisící věta.
***************
19.01.2012
U VST zavedeny lokální přepínače ca a go. V obou případech bezprostředně
za seznam lokálních přepínačů napíšeme jméno procedury (max. 20 znaků).
Pro ca je typu .call, pro go je typu .gosub.

Po najetí na tuto položku se za údajem zobrazí trojúhelníček a po kliknutí
na něj myší se vyvolá daná procedura. Např.

%vst
nt,lk,mo:11,rf,de:1.
(pole(re:15:0)) pokus
{+up,0,0,10,40,'$c20','$c21',"",""}
.pr()
.co()
{-1,-1,0,0,'$c20'}
.pr(pole 2n;pole r;)
pole{1}
ca.
vyp
/
$
$
pole{2}
go.
vypis
/
$
$
/
.pr()
%

del pokus.rda
.exit

.VYPIS:
.parse $vstsou "," r# s# dr# ds#
.xy r+dr# s# "Nazdar z gosub!"
.pause 10
.putclips "Nazdar z gosub!"
.put $key,$ccv
.return

.VYP:()
.parse $vstsou "," r# s# dr# ds#
.xy r+dr# s# "Nazdar z callu!"
.pause 10
.putclips "Nazdar z callu!"
.put $key,$ccv
.end_call

Příkládek je na www.redap.cz/vstznc.zip
***************
18.01.2012
Pro usnadnění zobrazení doplňků k hodnotám VST je nyní k dispozici
po vykreslení údaje, na kterém stojí kurzor, textová proměnná $vstsou
s obsahem "rara,slsl,vyvy,sisi" - pixelová souřadnice levého horního
rohu prvního znaku je (rara,slsl), výška znaku je vyvy a šířka celého
okénka je sisi pixelů.
**************
18.01.2012
Upraven příkaz

.setprns "<Název tiskárny>"

na další variantu a to:

.setprns "<Název tiskárny>",<landscape>

kde hodnota landscape se udává ve shodě s globálním přepínačem
la:x. V tomto případě se tiskárna připojí, nastaví se podle
požadavků <landscape> (orientace a formát) a zjistí se potisknutelná
plocha. Výsledkem je $exstat a $stav s významem jako u .test $prn
a v $poc1 je původní implicitní orientace papíru u tiskárny a
v $poc2 je formát papíru - viz .setprnd.

Jestliže zadáme <landscape>=0, dostaneme implicitní potisknutelnou
plochu, orientaci tisku a kód formátu papíru.
*************
10.01.2012
Ve VST se šoupákem existoval jakýsi singulární případ a to
v okamžiku, kdy RDA měla hodně vět a podmínkou bylo zobrazeno
posledních několik vět. V tom případě byl šoupák zcela
nefunkční, protože sice nebyl o 1 pixel zcela na konci,
ale jeho relativní poloha určovala větu ještě nesplňující
danou podmínku.

Pro tento případ jsem udělal korekci, že se po vychýlení šoupáku
dolů postupuje po větě vpřed a nahoru po větě vzad cca 3 věty
za sekundu.

Další možností je pomocí přepínače uk:x:1 (doposud pouze uk:x)
dát pokyn VST, aby první vyhovující věta se počítala jako první.
Tím se formálně zkrátí soubor a šoupák pak funguje normálně.