home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 September / PCWorld_2002-09_cd.bin / Software / Topware / pspad / Context / OtherCad.DEF < prev    next >
Text File  |  2002-04-01  |  10KB  |  241 lines
  1. ; PSPad code template for OtherCad
  2. ; Created by PSPad   09.09.2001  13:41
  3. ; Formßt p°φkaz∙ :
  4. ;   [jmΘno_p°φkazu | popis p°φkazu (libovoln² text)]*klßvesovß_zkratka
  5. ;   °ßdek p°φkazu, kter² bude vlo₧en 
  6. ;   °ßdek p°φkazu, kter² bude vlo₧en ...
  7. ; 
  8. ; hlaviΦka p°φkazu je uzav°ena do [], znak | slou₧φ jako odd∞lovaΦ
  9. ; jmΘna p°φkazu a komentß°e. 
  10. ; * urΦuje nepovinnou klßvesovou zkratku
  11. ; pokud °ßdek p°φkazu obsahuje znak |, kurzor se po vlo₧enφ do
  12. ; textu zastavφ na tomto mφst∞
  13. ; pokud °ßdek p°φkazu obsahuje znak º, bude zde vlo₧en oznaΦen² text
  14. ;
  15. ; Authors:  AleÜ ╚ern², Ing. Ivan SlepiΦka, Petr SlepiΦka
  16. ;
  17. [OPEN | Otev°i libovoln² soubor]
  18. @open;/ otevre libovolny soubor / *31.3.2002* Ing. Ivan Slepicka
  19. / pouzite promenne: a=radek retezce i=pracovni promenna
  20.  a = sv 390;a += 1;jmpr 2;/ a = cislo radku v OCP programu (pouzije se pro zapis stringu)
  21. / radek cislo "a" pro zapis stringu - nemenit!
  22.  a$ = "";a$ = foname "*.*" "Otev°enφ libovolnΘho souboru (*.*)|*.*";if a$ == "";stop "Nebyl vybrßn ₧ßdn² soubor"
  23.  i = exist a$;if i != 0;jmpr 2
  24.  i = 1;msg cnf i "Chyba otevφrßnφ souboru - opakovat pokus?";if i == 1;jmpr -2;else;stop
  25.  msg info a$ " je otev°en";/ tento °ßdek je jen informaΦnφ a je mo₧no ho vymazat
  26. / tady MUSI nasledovat vhodna rutina pro dalsi zpracovani souboru
  27.  
  28. [OCD_NEW | Otev°i nov² v²kres]
  29. @ocd_new;/ ulozi rozpracovany vykres, otevre novy cisty a umozni ho pojmenovat / *19.12.2000* Ales Cerny
  30.  run 1 1 "NEW.OCP";stop
  31. |
  32.  
  33. [OCD_OPEN | Otev°i jin² v²kres]
  34. @ocd_open;/ ulozi rozpracovany vykres a otevre jiny / *5.10.2001* Ing. Ivan Slepicka
  35.  run 1 1 "F3.OCP";stop
  36. |
  37.  
  38. [OCD_SAVE | Ulo₧ aktußlnφ v²kres]
  39. @ocd_save;/ ulozi aktualni vykres / sablona / *19.12.2000* Ales Cerny / *31.3.2002* Ing. Ivan Slepicka
  40. / pouzite promenne: a=radek retezce i=pracovni promenna
  41.  i = sv 0;if i == 0;msg err "OtherCAD nenφ odklφΦovßn!";stop
  42.  a = sv 390;a += 1;jmpr 2;/ a = cislo radku v OCP programu (pouzije se pro zapis stringu)
  43. / radek cislo "a" pro zapis stringu - nemenit!
  44.  sv 47 0;a$ = name;a$ = norm a$;if a$ == "";stop "V²kres nemß jmΘno!"
  45.  a$ = norm name ".OCD" a$;save "" a$;i = sv 77;if i == 0;msg info a$ " byl ulo₧en.";stop
  46.  msg err a$ ô NELZE ULOÄIT!";stop;/ ukonceni programu
  47. |
  48.  
  49. [OCD_SAVEAS | Ulo₧ aktußlnφ v²kres pod jin²m jmΘnem]
  50. @ocd_saveas;/ ulozi aktualni vykres pod jinym jmenem / sablona / *19.12.2000* Ales Cerny
  51.  run 1 1 "SAVEAS.OCP";stop
  52. |
  53.  
  54. [PUMENU | Rolovacφ menu]
  55. @pumenu;/ rolovaci menu o maximalne 32 radcich / sablona / *5.10.2001* Ing. Ivan Slepicka
  56. / pouzite promenne: i=cislo radku pumenu p=vyhodnoceni vyberu z pumenu
  57. / pumenu je pripraveno na maximalni moznou delku = 32 radku; delka se upravi odebranim nepotrebnych radku
  58.  i = 0
  59.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i1
  60.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i2
  61.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i3
  62.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i4
  63.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i5
  64.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i6
  65.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i7
  66.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i8
  67.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i9
  68.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i10
  69.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i11
  70.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i12
  71.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i13
  72.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i14
  73.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i15
  74.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i16
  75.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i17
  76.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i18
  77.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i19
  78.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i20
  79.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i21
  80.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i22
  81.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i23
  82.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i24
  83.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i25
  84.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i26
  85.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i27
  86.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i28
  87.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i29
  88.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i30
  89.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i31
  90.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i32
  91.  p = pumenu i 0 250 250
  92. / nasleduje vyhodnoceni vyberu / adresovani je nutno upravit!!!
  93.   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
  94.   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
  95. |
  96.  
  97. [GET 1 | ╚ti rßmeΦek]
  98. / a=1...16 poradove cislo dialog, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  99. / d=0/1 zapusteny/vystouply, e$=napoveda
  100.  dlg 1 a get b c X Y x y d e$
  101. |
  102.  
  103. [SET 1 | Nastav rßmeΦek]
  104. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  105. / d=0/1 zapusteny/vystouply, e$=napoveda
  106.  dlg 1 a set b c X Y x y d e$
  107. |
  108.  
  109. [GET 2 | ╚ti nßpis]
  110. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  111. / d$=napis, e$=napoveda
  112.  dlg 2 a get b c X Y x y d$ e$
  113. |
  114.  
  115. [SET 2 | Nastav nßpis]
  116. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  117. / d=0...255 barva, e$=napis, f$=napoveda
  118.  dlg 2 a set b c X Y x y d e$ f$
  119. |
  120.  
  121. [GET 3.1 | ╚ti CEL▌ editaΦnφ box]
  122. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  123. / d$=editovatelny text v okne, e$=napoveda
  124.  dlg 3 a get b c X Y x y d$ e$
  125. |
  126.  
  127. [GET 3.2 | ╚ti TEXT editaΦnφho boxu]
  128. / a=1...16 poradove cislo dialogu, d$=editovatelny text v okne, ostatni se nezjistuje
  129.  dlg 3 a get -1 -1 -1 -1 -1 -1 d$ -1
  130. |
  131.  
  132. [SET 3 | Nastav editaΦnφ box]
  133. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  134. / d=0...255 barva, e$=text, f$=napoveda
  135.  dlg 3 a set b c X Y x y d e$ f$
  136. |
  137.  
  138. [GET 4.1 | ╚ti hodnoty tlaΦφtka]
  139. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1/2 nedostupny/dostupny/default, X,Y=poloha, x,y=velikost,
  140. / d$=napis na tlacitku, e$=napoveda
  141.  dlg 4 a get b c X Y x y d$ e$
  142. |
  143.  
  144. [GET 4.2 | ╚ti stav tlaΦφtek - modßlnφ verze]
  145.  dlg status a
  146.  on a 0 +@0 1 +@1 2 +@2;/ atd az ... 16 +@16
  147. |
  148.  
  149. [GET 4.3 | ╚ti stav tlaΦφtek - nemodßlnφ verze]
  150.  dlg status a b
  151.  if a == 0;if b == 0;stop;/ jmp +@end;/ je potreba si vybrat variantu zakonceni stopkou nebo skokem na end
  152.  on a 0 +@0 1 +@1 2 +@2;/ atd az ... 16 +@16
  153. |
  154.  
  155. [SET 4 | Nastav tlaΦφtko]
  156. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1/2 nedostupny/dostupny/default, X,Y=poloha, x,y=velikost,
  157. / d$=napis na tlacitku, e$=napoveda
  158.  dlg 4 a set b c X Y x y d$ e$
  159. |
  160.  
  161. [GET 5.1 | ╚ti hodnoty checkboxu]
  162. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  163. / d$=napis u checkboxu, e=0/1 nezaÜkrtnut²/zaÜkrtnut², f$=napoveda
  164.  dlg 5 a get b c X Y x y d$ e f$
  165. |
  166.  
  167. [GET 5.2 | ╚ti stav checkboxu]
  168. / a=1...16 poradove cislo dialogu, e=0/1 nezaÜkrtnut²/zaÜkrtnut²
  169.  dlg 5 a get -1 -1 -1 -1 -1 -1 -1 e -1
  170. |
  171.  
  172. [SET 5 | Nastav checkbox]
  173. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  174. / d=0...255 barva, e$=napis u checkboxu, f=0/1 nezaÜkrtnut²/zaÜkrtnut², g$=napoveda
  175.  dlg 5 a set b c X Y x y d e$ f g$
  176. |
  177.  
  178. [GET 6.1 | ╚ti hodnoty radiobutonu]
  179. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  180. / d$=napis u radiobutonu, e=0/1 nezamacknuty/zamacknuty, f$=napoveda
  181.  dlg 6 a get b c X Y x y d$ e f$
  182. |
  183.  
  184. [GET 6.2 | ╚ti stav radiobutonu]
  185. / a=1...16 poradove cislo dialogu, e=0/1 nezamacknuty/zamacknuty
  186.  dlg 6 a get -1 -1 -1 -1 -1 -1 -1 e -1
  187. |
  188.  
  189. [SET 6 | Nastav radiobuton]
  190. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  191. / d=0...255 barva, e$=napis u radiobutonu, f=0/1 nezamacknuty/zamacknuty, g$=napoveda
  192.  dlg 6 a set b c X Y x y d e$ f g$
  193. |
  194.  
  195. [GET 7.1 | ╚ti skupinu 2+2+2+2+3 radiobuton∙]
  196. / 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,
  197. / d$=nadpis skupiny, e$=napoveda
  198.  dlg 7 a get b c X Y x y d$ e$
  199. |
  200.  
  201. [SET 7.1 | Nastav skupinu 2+2+2+2+3 radiobuton∙]
  202. / 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,
  203. / d=0...255 barva, e$=nadpis skupiny, f$=napoveda
  204.  dlg 7 a set b c X Y x y d e$ f$
  205. |
  206.  
  207. [GET 7.2 | ╚ti stav tlaΦφtka ze skupiny 2+2+2+2+3 radiobuton∙]
  208. / a=2+3/5+6/8+9/11+12/14+15+16 poradove cislo tlacitka,d=0/1 nezamacknuty/zamacknuty
  209.  dlg 7 a get -1 -1 d
  210. |
  211.  
  212. [SET 7.2 | Nastav tlaΦφtko ze skupiny 2+2+2+2+3 radiobuton∙]
  213. / 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,
  214. / e=0/1 nezamacknuty/zamacknuty
  215.  dlg 7 a set b c d$ e
  216. |
  217.  
  218. [GET 8.1 | ╚ti skupinu 2+3+3+4 radiobuton∙]
  219. / a=1/4/8/12 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  220. / d$=nadpis skupiny, e$=napoveda
  221.  dlg 8 a get b c X Y x y d$ e$
  222. |
  223.  
  224. [GET 8.2 | ╚ti stav tlaΦφtka ze skupiny 2+3+3+4 radiobuton∙]
  225. / a=2+3/5+6+7/9+10+11/13+14+15+16 poradove cislo tlacitka, d=0/1 nezamacknuty/zamacknuty
  226.  dlg 8 a get -1 -1 d
  227. |
  228.  
  229. [SET 8.1 | Nastav skupinu 2+3+3+4 radiobuton∙]
  230. / a=1/4/8/12 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  231. / d=0...255 barva, e$=nadpis skupiny, f$=napoveda
  232.  dlg 8 a set b c X Y x y d e$ f$
  233. |
  234.  
  235. [SET 8.2 | Nastav tlaΦφtko ze skupiny 2+3+3+4 radiobuton∙]
  236. / 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,
  237. / e=0/1 nezamacknuty/zamacknuty
  238.  dlg 8 a set b c d$ e
  239. |
  240.  
  241.