home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 May / IMM0595.ISO / share / tools / truedic / amipro30 / truedice.smm < prev    next >
Encoding:
INI File  |  1994-11-27  |  7.2 KB  |  389 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _DEFAULT.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Kyocera F-1010
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     7
  17. [desc]
  18.     
  19.     
  20.     
  21.     
  22.     
  23.     786034101
  24.     53
  25.     782753813
  26.     399
  27.     2
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Text Abstand
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [tag]
  54.     Text
  55.     2
  56.     [fnt]
  57.         Times New Roman
  58.         240
  59.         0
  60.         49152
  61.     [algn]
  62.         1
  63.         2
  64.         0
  65.         0
  66.         0
  67.     [spc]
  68.         33
  69.         273
  70.         2
  71.         0
  72.         0
  73.         2
  74.         100
  75.     [brk]
  76.         4
  77.     [line]
  78.         8
  79.         0
  80.         2
  81.         0
  82.         1
  83.         1
  84.         1
  85.         10
  86.         10
  87.         1
  88.     [spec]
  89.         0
  90.         0
  91.         
  92.         0
  93.         2
  94.         1
  95.         0
  96.         0
  97.         0
  98.         0
  99.     [nfmt]
  100.         280
  101.         1
  102.         2
  103.         ,
  104.         .
  105.         DM
  106.     Text
  107.     0
  108.     0
  109. [l1]
  110.     0
  111. [pg]
  112.     2
  113.     49 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  114.     88 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  115. [edoc]
  116. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>' *************************************************************************
  117.  
  118. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>'    Schnittstelle zum TrueDic W<\v>rterbuch 
  119.  
  120. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>'    created by AlphaSoft<:f> 1994
  121.  
  122. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>'**************************************************************************
  123.  
  124. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>
  125.  
  126. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>'******************** global definitions    **************************************
  127.  
  128. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>
  129.  
  130. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>DEFINE <:f><:f240,2Times New Roman,0,0,0>IDCANCEL        <:f><:f240,2Times New Roman,0,0,0>2            ' R<\|>ckgabewert TrueDic <<Abbruch<;>
  131.  
  132. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>DEFINE <:f><:f240,2Times New Roman,0,0,0>IDC_UEBERSETZEN  
  133.     <:f><:f240,2Times New Roman,0,0,0> 1017        '                 <<<\|>bersetzen<;>    
  134.  
  135. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>
  136.  
  137. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>DEFINE <:f><:f240,2Times New Roman,0,0,0>FRAME3D 
  138.         <:f><:f240,2Times New Roman,0,0,0> 1<:f>
  139.  
  140. <+@><:S+-1><:#284,9025>
  141.  
  142. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>DEFINE <:f><:f240,2Times New Roman,0,0,0>ENGLISCH        <:f><:f240,2Times New Roman,0,0,0>1
  143.  
  144. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>DEFINE <:f><:f240,2Times New Roman,0,0,0>DEUTSCH        <:f><:f240,2Times New Roman,0,0,0>2
  145.  
  146. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>
  147.  
  148. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>DEFINE <:f><:f240,2Times New Roman,0,0,0>NOFRAME3D    <:f><:f240,2Times New Roman,0,0,0>2<:f>
  149.  
  150. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>'******************** functions<:f><:f240,2Times New Roman,0,0,0>    ********************************************<:f>
  151.  
  152. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>' ==============================
  153.  
  154. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>'    main()
  155.  
  156. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>'     Einsprungsroutine 
  157.  
  158. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>' ==============================
  159.  
  160. <:#284,9025>FUNCTION main()
  161.  
  162. <:#284,9025>
  163.  
  164. <:#284,9025>ONCANCEL endit
  165.  
  166. <:#284,9025>ONERROR endit
  167.  
  168. <:#284,9025>
  169.  
  170. <:#284,9025>defstr lpCmd,  lpPath, lpPathApp;
  171.  
  172. <:#284,9025>
  173.  
  174. iBook =<:f240,2Times New Roman,0,0,0> <:f><:f240,2Times New Roman,0,0,0><:f><:f240,2Times New Roman,0,0,0>ENGLISCH        <:f><:f240,2Times New Roman,0,0,0><:f><:f240,2Times New Roman,0,0,0><:f><:f240,2Times New Roman,0,0,0>' 
  175. <:f><:f240,2Times New Roman,0,0,0>Deutsch/<:f><:f240,2Times New Roman,0,0,0>Englisch<:f><:f240,2Times New Roman,0,0,0> laden
  176.  
  177. <:#284,9025>iCmdLine = <:f240,2Times New Roman,0,0,0>NOFRAME3D    <:f>' keinen 3D Rahmen
  178.  
  179. <:#284,9025>iReserved =0            ' for future things
  180.  
  181. <:#284,9025>lpCmd = "                                                                    "    
  182.  
  183. <:#284,9025>
  184.  
  185. <:#284,9025>If NOT GetOpenFileCount()
  186.  
  187. <:#284,9025>    iErsetzen = 0
  188.  
  189. <:#284,9025>    goto OpenTrueDic
  190.  
  191. <:#284,9025>Else
  192.  
  193. <:#284,9025>    iErsetzen = 1
  194.  
  195. <:#284,9025>endif
  196.  
  197. <:#284,9025>
  198.  
  199. <:#284,9025>lpCmd =   CurShade$()      ' markierten Bereich <;> TrueDic
  200.  
  201. <:#284,9025>if  lpCmd = "" then
  202.  
  203. <:#284,9025>    lpCmd = CurWord$()     ' aktuelles Wort -<;> TrueDic
  204.  
  205. <:#284,9025>    if  lpCmd = "" then
  206.  
  207. <:#284,9025>        lpCmd = "                                                                    "    
  208.  
  209. <:#284,9025>    endif
  210.  
  211. <:#284,9025>endif
  212.  
  213. <:#284,9025>
  214.  
  215. <:#284,9025>OpenTrueDic:
  216.  
  217. <:#289,9025>lpPathApp = GetProfileString$("<+!>Anwendung<-!>", "<+!>TrServer<-!>", "<+!>TRUEDIC.INI<-!>")
  218.  
  219. <:#289,9025>lpYesNo = GetProfileString$("<+!>Anwendung<-!>", "<+!>Firstloaded<-!>", "<+!>TRUEDIC.INI<-!>")
  220.  
  221. <:#284,9025>
  222.  
  223. <:#284,9025>if lpYesNo = "No"  then
  224.  
  225. <:#289,9025>    lpPath = strcat$( lpPathApp , "\<+!>BESTELL.SAM<-!>")
  226.  
  227. <:#284,9025>    hSet = FileOpen(lpPath, 1, "" )
  228.  
  229. <:#289,9025>    WriteProfileString("<+!>Anwendung<-!>", "<+!>Firstloaded<-!>", "<+!>Yes<-!>", "<+!>TRUEDIC.INI<-!>")
  230.  
  231. <:#284,9025>
  232.  
  233. <:#284,9025>endif
  234.  
  235. <:#284,9025>
  236.  
  237. <:#289,9025>lpPath= strcat$( lpPathApp , "\<+!>truedic.dll<-!>")
  238.  
  239. <:R1,0,><:#289,9025>hSet = DLLLoadlib (lpPath, "<+!>ShowTrueDic<-!>", "<+!>ACAAA<-!>")
  240.  
  241. <:R><:#284,9025>if  hSet then
  242.  
  243. <:#284,9025>    
  244.  
  245.     StatusBarMsg("AlphaSoft W<\v>rterbuch Englisch/Deutsch")
  246.  
  247. <:#284,9025>    fkt = DLLCall(hSet, &lpCmd, iCmdLine , iBook, iReserved )
  248.  
  249. <:#284,9025>
  250.  
  251. <:#284,9025>else
  252.  
  253.  
  254.     Message("Programm ist nicht korrekt installiert!", "W<\v>rterbuch")
  255.  
  256. <:#284,9025>    Exit Function
  257.  
  258. <:#284,9025>    
  259.  
  260. <:#284,9025>endif
  261.  
  262. <:#284,9025>
  263.  
  264. <:#284,9025>
  265.  
  266. <:#284,9025>if  fkt  =  <:f240,2Times New Roman,0,0,0>IDC_UEBERSETZEN and <:f>iErsetzen 
  267. <:f240,2Times New Roman,0,0,0> = 1<:f> then
  268.  
  269. <:#284,9025>    Paste()
  270.  
  271. <:#284,9025>endif
  272.  
  273. <:#284,9025>
  274.  
  275. <:#284,9025>
  276.  
  277. <:#284,9025>endit:
  278.  
  279. <:#284,9025>
  280.  
  281. <:#284,9025>DLLFreeLib(hSet)    'Free DLL
  282.  
  283. <:#284,9025>StatusBarMsg("")
  284.  
  285. <:#284,9025>
  286.  
  287. <:#284,9025>END FUNCTION
  288.  
  289. <+@><:S+-1><:f240,2Times New Roman,0,0,0>
  290.  
  291. <+@><:S+-1><:f240,2Times New Roman,0,0,0>'********************  E O F<:f><:f240,2Times New Roman,0,0,0>    **************************************<:f>
  292.  
  293. <+@><:#284,9025>
  294.  
  295. >
  296.  
  297. [Embedded]
  298. 00006267
  299. >
  300. [macsum] 1
  301. main 0 0 11 21
  302. [macse]
  303. 14 main
  304. 19 00000991
  305. 20 00000991
  306. 5 1
  307. 8 4
  308. 5 2
  309. 8 5
  310. 5 0
  311. 8 6
  312. 7 "                                                                    "
  313. 8 1
  314. 0 1050
  315. 13
  316. 1 3
  317. 11 00000210
  318. 5 0
  319. 8 7
  320. 10 00000389
  321. 10 00000220
  322. 5 1
  323. 8 7
  324. 0 24
  325. 13
  326. 8 1
  327. 6 1
  328. 7 ""
  329. 18 0
  330. 11 00000389
  331. 0 23
  332. 13
  333. 8 1
  334. 6 1
  335. 7 ""
  336. 18 0
  337. 11 00000389
  338. 7 "                                                                    "
  339. 8 1
  340. 0 286 "Anwendung" "TrServer" "TRUEDIC.INI"
  341. 13
  342. 8 3
  343. 0 286 "Anwendung" "Firstloaded" "TRUEDIC.INI"
  344. 13
  345. 8 8
  346. 6 8
  347. 7 "No"
  348. 18 0
  349. 11 00000648
  350. 0 16 "{3}" "\BESTELL.SAM"
  351. 13
  352. 8 2
  353. 2 102 1 "{2}" 1 ""
  354. 13
  355. 8 9
  356. 0 287 "Anwendung" "Firstloaded" "Yes" "TRUEDIC.INI"
  357. 0 16 "{3}" "\truedic.dll"
  358. 13
  359. 8 2
  360. 0 297 "{2}" "ShowTrueDic" "ACAAA"
  361. 13
  362. 8 9
  363. 6 9
  364. 11 00000853
  365. 0 789 "AlphaSoft W<\v>rterbuch Englisch/Deutsch"
  366. 0 284 "{9}" &1 "{5}" "{4}" "{6}"
  367. 13
  368. 8 10
  369. 10 00000928
  370. 0 3 "Programm ist nicht korrekt installiert!" "W<\v>rterbuch"
  371. 6 0
  372. 15
  373. 9
  374. 6 10
  375. 5 1017
  376. 18 0
  377. 6 7
  378. 5 1
  379. 18 0
  380. 1 1
  381. 11 00000991
  382. 2 155 1
  383. 0 298 "{9}"
  384. 0 789 ""
  385. 6 0
  386. 15
  387. 9
  388. 00006292
  389.