home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 04 / MOD46C.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-01-20  |  9KB  |  227 lines
  1. hledej1
  2. akt_nazev
  3. mod46c
  4. Slovn
  5.  polo
  6. RIIS 4.6
  7. v1_slov
  8. nazev_ces
  9. nazev_ces
  10. nazev_ces
  11. typ_pol+' '
  12. typ_pol
  13. nazev_nem
  14. nazev_nem
  15. Anglick
  16. nazev_angl
  17. nazev_angl
  18. POLEX
  19.  bPROCX
  20. n!RTOP
  21.      RBOT
  22. ska wCLEFT
  23.    CRIGHT
  24. = 2FREEZE
  25.   aORDER
  26.     HOR
  27. eturn
  28.  endifLEVA
  29. cPRAVA
  30.    NADPIS
  31. &vlZAHL
  32. JMENO
  33.   HODN
  34. 33 &vSOUC
  35. TITLE
  36. if TITLECOLORPOC0
  37. updatF0
  38.    zmeF1
  39. endiF2
  40. *******F4
  41. *******F6
  42. *******F7
  43. ure zmeF10
  44.  whileF0PRG
  45.    iF1ON
  46.     F1PRG
  47.  F4_JM
  48.  do F4PRG
  49.     TISKPRG
  50.  xF7_JM
  51.     F7PRG
  52.   x=F9PRG
  53.     F9KEY
  54. t=t+F9KEY1
  55.    F10_JM
  56. <=hF10PRG
  57.    RAMECEK
  58. orRIIS
  59.      NAZEVT
  60.  KLICO
  61.  endKLNAZ
  62.     SPACEBAR
  63.  TR_HL1
  64. TR_HL2
  65.  a=TR_HL3
  66. elsTR_HL4
  67.    TR_HL5
  68.    TR_HL6
  69.    TR_HL7
  70.    TR_HL8
  71.    TR_HL9
  72. DET_JM
  73.   ENTER
  74. n&y DETAIL
  75. DETPRG
  76. ursPS_LINE
  77. rePS_RETURN
  78. PS_ZAZN
  79.  KONEC
  80. dkeyF5
  81.  zmen&yV1_SLOV
  82. y'NAZEV_CES
  83. i=33MOD_PSV
  84. RIIS 4.6
  85. set color to b/w
  86. set color to w+/bg
  87. set color to b/bg,w+/rb
  88. &barvau
  89. MOD_SYS
  90.  bANSI
  91. n!OBRAZ
  92.     W_TYPPOL
  93. wTYP_POL
  94.   W_CESKY
  95.  2NAZEV_CES
  96. W_NEMEC
  97.   NAZEV_NEM
  98. W_ANGL
  99. difNAZEV_ANGLNOVY_Z
  100.    ZMENA
  101. &vlHOR
  102.   POCET
  103. 3 &vY
  104. BARVAS
  105. if BARVAZ
  106. LORBARVAU
  107. datBARVA
  108.  zmeMENU
  109. ndiPORADI
  110. **KONEC
  111. ****I
  112. ****X
  113. *******R
  114. re zmeU
  115.  whileT
  116.    iQ
  117.     A
  118.  ZMENY
  119.  do PS_RETURN
  120. NEXIT
  121.  Aktualizace slovn
  122. &barvaz
  123. Typ polo
  124. ky   : 
  125. zev   : 
  126. zev : 
  127. Anglick
  128. zev: 
  129. W_TYPPOL
  130. bW_CESKY
  131. n!W_NEMEC
  132.   W_ANGL
  133. @ 14,33 &vloz w_typpol pict '@!X'
  134. Typ polo
  135. ky mus
  136. t vypln
  137. Typ polo
  138. ky mus
  139. t V nebo N!
  140. @ 15,33 &vloz w_cesky
  141. zev mus
  142. t vypln
  143. @ 16,33 &vloz w_nemec
  144. @ 17,33 &vloz w_angl
  145. if vloz='&vloz' and updated()
  146. CESKY
  147. n!W_TYPPOL
  148. wHLASKA
  149.  2W_CESKY
  150. ZMENA
  151. do proc&y
  152. do zmen&y with 'get'
  153. do zmen&y with 'say'
  154. it pr
  155. ci beze zm
  156. n? (a/N)
  157. KONEC
  158. CESKY
  159. TYPPOL
  160.  2HOR
  161. ZEV_NEM
  162. ZEV_ANGLNOVY_Z
  163.    ZMENA
  164. &vlW_TYPPOL
  165. TYP_POL
  166.   W_CESKY
  167. &vNAZEV_CES
  168. W_NEMEC
  169. f NAZEV_NEM
  170. W_ANGL
  171. datNAZEV_ANGLPROC1
  172. ZEV_ANGLPOCET
  173. ****POM
  174.             - 
  175.                 - ^PgDn
  176.                 - ^Home
  177.       - ^End,Esc
  178. Pohyb
  179. znamu
  180. znamu
  181. Konec
  182. colora
  183. set color to &color
  184. bCOLOR
  185. n!OBR
  186. colorz
  187. FFFZ^D
  188. ordera
  189.  Vyhled
  190. zev: 
  191. nazev_ces
  192. nazev_ces
  193. set order to &st_order
  194. select &st_sel
  195. V1_SLOV
  196. zev nebyl nalezen
  197. set order to &st_order
  198. select &st_sel
  199. MCOLOR
  200. bOBR_HL
  201. n!ST_SEL
  202.  ST_REC
  203. wV1_SLOV
  204.   ST_ORDER
  205. 2ST_FOR
  206.  ST_ZAZ
  207. NASEL
  208. difCSNC
  209. NGLUPPERCS
  210.   NAZEV_CES
  211. HLASKA
  212. AKT_NAZEV
  213. PORADI
  214.     [
  215. PROC1
  216. 41114
  217. ZMEN1
  218. 99302
  219. ZMENY
  220. 19930
  221. 29.30 <
  222. HLASKA
  223. HLEDEJ1
  224. X:\OBEC\04\
  225. MOD46C.FXP
  226. X:\OBEC\04\MOD46C.PRG
  227.