home *** CD-ROM | disk | FTP | other *** search
- ; PSPad code template for OtherCad
- ; Created by PSPad 09.09.2001 13:41
- ; Formßt p°φkaz∙ :
- ; [jmΘno_p°φkazu | popis p°φkazu (libovoln² text)]*klßvesovß_zkratka
- ; °ßdek p°φkazu, kter² bude vlo₧en
- ; °ßdek p°φkazu, kter² bude vlo₧en ...
- ;
- ; hlaviΦka p°φkazu je uzav°ena do [], znak | slou₧φ jako odd∞lovaΦ
- ; jmΘna p°φkazu a komentß°e.
- ; * urΦuje nepovinnou klßvesovou zkratku
- ; pokud °ßdek p°φkazu obsahuje znak |, kurzor se po vlo₧enφ do
- ; textu zastavφ na tomto mφst∞
- ; pokud °ßdek p°φkazu obsahuje znak º, bude zde vlo₧en oznaΦen² text
- ;
- ; Authors: AleÜ ╚ern², Ing. Ivan SlepiΦka, Petr SlepiΦka
- ;
- [OPEN | Otev°i libovoln² soubor]
- @open;/ otevre libovolny soubor / *31.3.2002* Ing. Ivan Slepicka
- / pouzite promenne: a=radek retezce i=pracovni promenna
- a = sv 390;a += 1;jmpr 2;/ a = cislo radku v OCP programu (pouzije se pro zapis stringu)
- / radek cislo "a" pro zapis stringu - nemenit!
- a$ = "";a$ = foname "*.*" "Otev°enφ libovolnΘho souboru (*.*)|*.*";if a$ == "";stop "Nebyl vybrßn ₧ßdn² soubor"
- i = exist a$;if i != 0;jmpr 2
- i = 1;msg cnf i "Chyba otevφrßnφ souboru - opakovat pokus?";if i == 1;jmpr -2;else;stop
- msg info a$ " je otev°en";/ tento °ßdek je jen informaΦnφ a je mo₧no ho vymazat
- / tady MUSI nasledovat vhodna rutina pro dalsi zpracovani souboru
-
- [OCD_NEW | Otev°i nov² v²kres]
- @ocd_new;/ ulozi rozpracovany vykres, otevre novy cisty a umozni ho pojmenovat / *19.12.2000* Ales Cerny
- run 1 1 "NEW.OCP";stop
- |
-
- [OCD_OPEN | Otev°i jin² v²kres]
- @ocd_open;/ ulozi rozpracovany vykres a otevre jiny / *5.10.2001* Ing. Ivan Slepicka
- run 1 1 "F3.OCP";stop
- |
-
- [OCD_SAVE | Ulo₧ aktußlnφ v²kres]
- @ocd_save;/ ulozi aktualni vykres / sablona / *19.12.2000* Ales Cerny / *31.3.2002* Ing. Ivan Slepicka
- / pouzite promenne: a=radek retezce i=pracovni promenna
- i = sv 0;if i == 0;msg err "OtherCAD nenφ odklφΦovßn!";stop
- a = sv 390;a += 1;jmpr 2;/ a = cislo radku v OCP programu (pouzije se pro zapis stringu)
- / radek cislo "a" pro zapis stringu - nemenit!
- sv 47 0;a$ = name;a$ = norm a$;if a$ == "";stop "V²kres nemß jmΘno!"
- a$ = norm name ".OCD" a$;save "" a$;i = sv 77;if i == 0;msg info a$ " byl ulo₧en.";stop
- msg err a$ ô NELZE ULOÄIT!";stop;/ ukonceni programu
- |
-
- [OCD_SAVEAS | Ulo₧ aktußlnφ v²kres pod jin²m jmΘnem]
- @ocd_saveas;/ ulozi aktualni vykres pod jinym jmenem / sablona / *19.12.2000* Ales Cerny
- run 1 1 "SAVEAS.OCP";stop
- |
-
- [PUMENU | Rolovacφ menu]
- @pumenu;/ rolovaci menu o maximalne 32 radcich / sablona / *5.10.2001* Ing. Ivan Slepicka
- / pouzite promenne: i=cislo radku pumenu p=vyhodnoceni vyberu z pumenu
- / pumenu je pripraveno na maximalni moznou delku = 32 radku; delka se upravi odebranim nepotrebnych radku
- i = 0
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i1
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i2
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i3
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i4
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i5
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i6
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i7
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i8
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i9
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i10
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i11
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i12
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i13
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i14
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i15
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i16
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i17
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i18
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i19
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i20
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i21
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i22
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i23
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i24
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i25
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i26
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i27
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i28
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i29
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i30
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i31
- i += 1;pumenu i 1 0 0 "nazev_radku";/ i32
- p = pumenu i 0 250 250
- / nasleduje vyhodnoceni vyberu / adresovani je nutno upravit!!!
- on p 0 @0 1 @1 2 @2 3 @3 4 @4 5 @5 6 @6 7 @7 8 @8 9 @9 10 @10 11 @11 12 @12 13 @13 14 @14 15 @15 16 @16
- on p 17 @17 18 @18 19 @19 20 @20 21 @21 22 @22 23 @23 24 @24 25 @25 26 @26 27 @27 28 @28 29 @29 30 @30 31 @31 32 @32
- |
-
- [GET 1 | ╚ti rßmeΦek]
- / a=1...16 poradove cislo dialog, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d=0/1 zapusteny/vystouply, e$=napoveda
- dlg 1 a get b c X Y x y d e$
- |
-
- [SET 1 | Nastav rßmeΦek]
- / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d=0/1 zapusteny/vystouply, e$=napoveda
- dlg 1 a set b c X Y x y d e$
- |
-
- [GET 2 | ╚ti nßpis]
- / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d$=napis, e$=napoveda
- dlg 2 a get b c X Y x y d$ e$
- |
-
- [SET 2 | Nastav nßpis]
- / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d=0...255 barva, e$=napis, f$=napoveda
- dlg 2 a set b c X Y x y d e$ f$
- |
-
- [GET 3.1 | ╚ti CEL▌ editaΦnφ box]
- / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d$=editovatelny text v okne, e$=napoveda
- dlg 3 a get b c X Y x y d$ e$
- |
-
- [GET 3.2 | ╚ti TEXT editaΦnφho boxu]
- / a=1...16 poradove cislo dialogu, d$=editovatelny text v okne, ostatni se nezjistuje
- dlg 3 a get -1 -1 -1 -1 -1 -1 d$ -1
- |
-
- [SET 3 | Nastav editaΦnφ box]
- / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d=0...255 barva, e$=text, f$=napoveda
- dlg 3 a set b c X Y x y d e$ f$
- |
-
- [GET 4.1 | ╚ti hodnoty tlaΦφtka]
- / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1/2 nedostupny/dostupny/default, X,Y=poloha, x,y=velikost,
- / d$=napis na tlacitku, e$=napoveda
- dlg 4 a get b c X Y x y d$ e$
- |
-
- [GET 4.2 | ╚ti stav tlaΦφtek - modßlnφ verze]
- dlg status a
- on a 0 +@0 1 +@1 2 +@2;/ atd az ... 16 +@16
- |
-
- [GET 4.3 | ╚ti stav tlaΦφtek - nemodßlnφ verze]
- dlg status a b
- if a == 0;if b == 0;stop;/ jmp +@end;/ je potreba si vybrat variantu zakonceni stopkou nebo skokem na end
- on a 0 +@0 1 +@1 2 +@2;/ atd az ... 16 +@16
- |
-
- [SET 4 | Nastav tlaΦφtko]
- / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1/2 nedostupny/dostupny/default, X,Y=poloha, x,y=velikost,
- / d$=napis na tlacitku, e$=napoveda
- dlg 4 a set b c X Y x y d$ e$
- |
-
- [GET 5.1 | ╚ti hodnoty checkboxu]
- / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d$=napis u checkboxu, e=0/1 nezaÜkrtnut²/zaÜkrtnut², f$=napoveda
- dlg 5 a get b c X Y x y d$ e f$
- |
-
- [GET 5.2 | ╚ti stav checkboxu]
- / a=1...16 poradove cislo dialogu, e=0/1 nezaÜkrtnut²/zaÜkrtnut²
- dlg 5 a get -1 -1 -1 -1 -1 -1 -1 e -1
- |
-
- [SET 5 | Nastav checkbox]
- / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d=0...255 barva, e$=napis u checkboxu, f=0/1 nezaÜkrtnut²/zaÜkrtnut², g$=napoveda
- dlg 5 a set b c X Y x y d e$ f g$
- |
-
- [GET 6.1 | ╚ti hodnoty radiobutonu]
- / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d$=napis u radiobutonu, e=0/1 nezamacknuty/zamacknuty, f$=napoveda
- dlg 6 a get b c X Y x y d$ e f$
- |
-
- [GET 6.2 | ╚ti stav radiobutonu]
- / a=1...16 poradove cislo dialogu, e=0/1 nezamacknuty/zamacknuty
- dlg 6 a get -1 -1 -1 -1 -1 -1 -1 e -1
- |
-
- [SET 6 | Nastav radiobuton]
- / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d=0...255 barva, e$=napis u radiobutonu, f=0/1 nezamacknuty/zamacknuty, g$=napoveda
- dlg 6 a set b c X Y x y d e$ f g$
- |
-
- [GET 7.1 | ╚ti skupinu 2+2+2+2+3 radiobuton∙]
- / a=1/4/7/10/13 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d$=nadpis skupiny, e$=napoveda
- dlg 7 a get b c X Y x y d$ e$
- |
-
- [SET 7.1 | Nastav skupinu 2+2+2+2+3 radiobuton∙]
- / a=1/4/7/10/13 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d=0...255 barva, e$=nadpis skupiny, f$=napoveda
- dlg 7 a set b c X Y x y d e$ f$
- |
-
- [GET 7.2 | ╚ti stav tlaΦφtka ze skupiny 2+2+2+2+3 radiobuton∙]
- / a=2+3/5+6/8+9/11+12/14+15+16 poradove cislo tlacitka,d=0/1 nezamacknuty/zamacknuty
- dlg 7 a get -1 -1 d
- |
-
- [SET 7.2 | Nastav tlaΦφtko ze skupiny 2+2+2+2+3 radiobuton∙]
- / a=2+3/5+6/8+9/11+12/14+15+16 poradove cislo tlacitka, b=0/1 nedostupny/dostupny, c=0...255 barva, d$=napis u tlacitka,
- / e=0/1 nezamacknuty/zamacknuty
- dlg 7 a set b c d$ e
- |
-
- [GET 8.1 | ╚ti skupinu 2+3+3+4 radiobuton∙]
- / a=1/4/8/12 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d$=nadpis skupiny, e$=napoveda
- dlg 8 a get b c X Y x y d$ e$
- |
-
- [GET 8.2 | ╚ti stav tlaΦφtka ze skupiny 2+3+3+4 radiobuton∙]
- / a=2+3/5+6+7/9+10+11/13+14+15+16 poradove cislo tlacitka, d=0/1 nezamacknuty/zamacknuty
- dlg 8 a get -1 -1 d
- |
-
- [SET 8.1 | Nastav skupinu 2+3+3+4 radiobuton∙]
- / a=1/4/8/12 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
- / d=0...255 barva, e$=nadpis skupiny, f$=napoveda
- dlg 8 a set b c X Y x y d e$ f$
- |
-
- [SET 8.2 | Nastav tlaΦφtko ze skupiny 2+3+3+4 radiobuton∙]
- / a=2+3/5+6+7/9+10+11/13+14+15+16 poradove cislo tlacitka, b=0/1 nedostupny/dostupny, c=0...255 barva, d$=napis u tlacitka,
- / e=0/1 nezamacknuty/zamacknuty
- dlg 8 a set b c d$ e
- |
-
-