home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 06 / MOD618A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1997-12-18  |  14KB  |  312 lines
  1.  w_poMOD18AX
  2.  e h l e d    f u n k c 
  3. RIIS 6.9
  4. Detail
  5. mod618ad
  6. mod618a
  7. Zadejte funkci : 
  8. m6_fun
  9. funkce
  10.  Funkce
  11. ' '+m6_fun.funkce+' '
  12. m6_fun.funkce
  13.        N
  14. '       '+m6_fun.nazev
  15. m6_fun.nazev
  16. POLEX
  17. w_poOBSAHX
  18.   RAMECEK
  19. lsNAZEVT
  20.    RIIS
  21.     dRTOP
  22.     RBOT
  23.      CLEFT
  24.     CRIGHT
  25.    FREEZE
  26. .f.F1
  27.        F2
  28.     endF4
  29.       eF6
  30.       F7
  31. estore F9
  32.    F10
  33.  konecF10_JM
  34.    F10PRG
  35.    DETAIL
  36. 12 DET_JM
  37. ) aENTER
  38.  PROCX
  39.  zmeF9KEY
  40.     M6_FUN
  41.  scFUNKCE
  42. obrZAHL
  43.      JMENO
  44. lor HODN
  45. dezvMOD_PSV
  46.   OBSAH
  47. 10,27
  48. c6_funt
  49. OPRAVA
  50. _poW_POLE
  51.   C6_FUNT
  52. m6_funt
  53. m6_funt
  54. funkce
  55. c6_funt+
  56. c6_funt
  57. c6_funt
  58. set color to b/w
  59. set color to bg/n
  60. set color to w+/bg
  61. set color to b/bg,w+/rb
  62. set color to w+/b
  63. set color to w/n
  64. set color to w+/w
  65. &barvau
  66. _poOBRAZ
  67.   NOVY_TXT
  68. sZMENA
  69.   ZMENA2
  70.   dZMENA_F
  71.   NOVY_Z
  72.    W_POLE
  73.    POM_FUNKCEM6_FUNT
  74. f.FUNKCE
  75.   C6_FUNT
  76.  AKTUAL
  77. ndMM_AUTOR
  78. eAUTOR
  79.     DAT_AKT
  80.  JMENO_C
  81.  WJMENO_C
  82. cRADEK_C
  83.   SLOUPEC_C
  84. 12 Q1
  85. ) aQ2
  86.  zmeQ4
  87.     Q5
  88.  scQ6
  89. obrQ7
  90.      Q8
  91. lor Q9
  92.    Q10
  93. dezvQ11
  94.   Q12
  95. 10,2Q13
  96. r to Q14
  97.     Q15
  98.  14,(7Q19
  99. (txt))Q20
  100. y txt
  101. key(3)Q22
  102. tore sQ23
  103.  from CISELNIK
  104. o &colDOL
  105. eturn
  106. POCET
  107. ****DOP1
  108. *****DOP2
  109. *****POR
  110. ******COUNT
  111. ****ZAKAZNIK
  112. *POMOC
  113. ocedY
  114.  menu
  115. lor toSL
  116. @ 21,POC
  117. ar to KONTROLA
  118. 1BARVAS
  119. ,79BARVAR
  120. @ BARVAZ
  121. y 'BARVAU
  122.    BARVAN
  123. hr(BARVAH
  124. +chBARVAT
  125. @ 2BARVA
  126. y ' KS
  127.    MENU
  128. PgDPORADI
  129. ,2 PORAD2
  130.    NEA_POZN
  131.  KONEC
  132. @ 23I
  133. ay '  X
  134.         R
  135.  ^HomeZ
  136. 23,63 U
  137.  '      T
  138. End,Esc'Q
  139. et colorA
  140.  w+/n
  141. @POCET2
  142. ay ZMENY
  143. @ PS_RETURN
  144. &barvau
  145. &barvas
  146. &barvaz
  147. &barvar
  148. Aktualizace funkc
  149. &barvaz
  150. &barvat
  151. Funkce :
  152. zev  :
  153. Autor  :              Aktual:            Datum akt.:
  154. &barvau
  155. _poWTEXT
  156. &barvau
  157. &barvas
  158. !XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  159. &barvau
  160. _poW_POLE
  161. @  4,11 &vloz w_pole(1) picture '@!X'       
  162. @  5,11 &vloz w_pole(2) picture '!XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'       
  163.   W_POLE
  164.   POM_FUNKCEZMENA_F
  165.   MM_AUTOR
  166. EDAT_AKT
  167.   ZMENA
  168. do proc&y
  169. do zmen&y with 'get'
  170. do zmen&y with 'say'
  171.  vypln
  172. slo funkce, nelze nav
  173. st charakteristiky
  174. c6_funt
  175. c6_funt+
  176. c6_funt
  177. c6_funt
  178. &barvau
  179. c6_funt
  180. c6_funt+
  181. c6_funt
  182. c6_funt
  183. &barvau
  184. it pr
  185. ci beze zm
  186. n? (a/N)
  187. Konec beze zm
  188. n ? (a/N): 
  189. &barvau
  190. M_FUNKCEI
  191. ENA_F
  192.   KONEC
  193. _FUNT
  194. ndW_POLE
  195. eZMENA_F
  196.   KON_FUNKCEM6_FUN
  197.  C6_FUNT
  198. cFUNKCE
  199.   RAD_TX
  200. PREPOC_RADQ
  201. ) aPORADI
  202.  PROC1
  203.  zmePORAD2
  204.    PROC2
  205.  scMENU2
  206. obrHLASKA
  207.    ZAPIS
  208. NKCEM6_FUNT
  209.   NOVY_Z
  210. zvZMENA
  211.   POM_FUNKCEAKTUAL
  212. o MM_AUTOR
  213.  AUTOR
  214. DAT_AKT
  215. NOVY_TXT
  216. bNEA_POZN
  217. 7ZMENA2
  218. ENA_F
  219. CEPOCET
  220. re sOBR1
  221. KCEODEZVA
  222. colora
  223. set color to &color
  224. _poCOLOR
  225.   OBR
  226.            - 
  227.                  - ^PgDn
  228.                 - F2
  229.                  - ^Home
  230.       - ^End,Esc
  231. Pohyb
  232. znamu
  233. Charakteristiky
  234. znamu
  235. Konec
  236. &barvas
  237. &barvau
  238. &barvar
  239. &barvaz
  240.  Charakteristiky funkce 
  241. &barvat
  242. &barvau
  243. _poWTEXT
  244. &barvas
  245. &barvau
  246. _poPU
  247.   DOL
  248. FUNKCETEXT
  249. &barvau
  250. @ x,2 &vloz c6_funt.text
  251.   POCET2
  252. FUNKCEAKTUAL
  253.   MM_AUTOR
  254. EDAT_AKT
  255.   ZMENA2
  256.       - 
  257. ,PgDn,PgUp
  258.                  - ^PgDn
  259.                  - ^Home
  260.       - ^End,Esc
  261. Pohyb
  262. Konec
  263. c6_funt
  264. ZAPIS
  265. _poMOD_SYS
  266.   ZMENA2
  267. sM6_FUNT
  268.   ZMENA_F
  269. CEPOM_FUNKCEFUNKCE
  270. EW_POLE
  271. KCEC6_FUNT
  272. CETEXT
  273. f.RAD_TX
  274. ST_ZAZ
  275. _poALL
  276.   RAD_TX
  277. &barvas
  278. C6_FUNT
  279.   TEXT
  280. sM6_FUN
  281. C6_FUNT
  282. poFUNKCE
  283.   W_POLE
  284. sZMENA2
  285.   MOD18AX
  286. MOD618AD
  287. OPRAVA
  288. PORADI
  289. PROC1
  290.      
  291. ZMEN1
  292.      
  293. ZMENY
  294.  from
  295. HLASKA
  296.    $%
  297. PORAD2
  298. PROC2
  299.     im(
  300. ZMEN2
  301. nkce)
  302. MENU2
  303.     r
  304. ZAPIS
  305. kce w
  306. PREPOC_RAD
  307. NEA_POZN
  308. KON_FUNKCE
  309. X:\OBEC\06\
  310. MOD618A.FXP
  311. X:\OBEC\06\MOD618A.PRG
  312.