home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 May / IMM0595.ISO / share / tools / truedic / amipro30 / truedicd.smm < prev    next >
Encoding:
INI File  |  1994-11-27  |  7.1 KB  |  386 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.     786033060
  24.     52
  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.     86 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. <:#284,9025>iBook =<:f240,2Times New Roman,0,0,0> <:f><:f240,2Times New Roman,0,0,0>DEUTSCH        <: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.     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. <:#284,9025>    StatusBarMsg("AlphaSoft W<\v>rterbuch Deutsch/Englisch")
  246.  
  247. <:#284,9025>    fkt = DLLCall(hSet, &lpCmd, iCmdLine , iBook, iReserved )
  248.  
  249. <:#284,9025>
  250.  
  251. <:#284,9025>else
  252.  
  253. <:#284,9025>    Message("Programm ist nicht korrekt installiert!", "W<\v>rterbuch")
  254.  
  255. <:#284,9025>    Exit Function
  256.  
  257. <:#284,9025>    
  258.  
  259. <:#284,9025>endif
  260.  
  261. <:#284,9025>
  262.  
  263. <:#284,9025>
  264.  
  265. <:#284,9025>if  fkt  =  <:f240,2Times New Roman,0,0,0>IDC_UEBERSETZEN and <:f>iErsetzen 
  266. <:f240,2Times New Roman,0,0,0> = 1<:f> then
  267.  
  268. <:#284,9025>    Paste()
  269.  
  270. <:#284,9025>endif
  271.  
  272. <:#284,9025>
  273.  
  274. <:#284,9025>
  275.  
  276. <:#284,9025>endit:
  277.  
  278. <:#284,9025>
  279.  
  280. <:#284,9025>DLLFreeLib(hSet)    'Free DLL
  281.  
  282. <:#284,9025>StatusBarMsg("")
  283.  
  284. <:#284,9025>
  285.  
  286. <:#284,9025>END FUNCTION
  287.  
  288. <+@><:S+-1><:#284,9025><:f240,2Times New Roman,0,0,0>'********************  E O F<:f><:f240,2Times New Roman,0,0,0>    **************************************<:f>
  289.  
  290. <+@><:#284,9025>
  291.  
  292. >
  293.  
  294. [Embedded]
  295. 00006153
  296. >
  297. [macsum] 1
  298. main 0 0 11 21
  299. [macse]
  300. 14 main
  301. 19 00000991
  302. 20 00000991
  303. 5 2
  304. 8 4
  305. 5 2
  306. 8 5
  307. 5 0
  308. 8 6
  309. 7 "                                                                    "
  310. 8 1
  311. 0 1050
  312. 13
  313. 1 3
  314. 11 00000210
  315. 5 0
  316. 8 7
  317. 10 00000389
  318. 10 00000220
  319. 5 1
  320. 8 7
  321. 0 24
  322. 13
  323. 8 1
  324. 6 1
  325. 7 ""
  326. 18 0
  327. 11 00000389
  328. 0 23
  329. 13
  330. 8 1
  331. 6 1
  332. 7 ""
  333. 18 0
  334. 11 00000389
  335. 7 "                                                                    "
  336. 8 1
  337. 0 286 "Anwendung" "TrServer" "TRUEDIC.INI"
  338. 13
  339. 8 3
  340. 0 286 "Anwendung" "Firstloaded" "TRUEDIC.INI"
  341. 13
  342. 8 8
  343. 6 8
  344. 7 "No"
  345. 18 0
  346. 11 00000648
  347. 0 16 "{3}" "\BESTELL.SAM"
  348. 13
  349. 8 2
  350. 2 102 1 "{2}" 1 ""
  351. 13
  352. 8 9
  353. 0 287 "Anwendung" "Firstloaded" "Yes" "TRUEDIC.INI"
  354. 0 16 "{3}" "\truedic.dll"
  355. 13
  356. 8 2
  357. 0 297 "{2}" "ShowTrueDic" "ACAAA"
  358. 13
  359. 8 9
  360. 6 9
  361. 11 00000853
  362. 0 789 "AlphaSoft W<\v>rterbuch Deutsch/Englisch"
  363. 0 284 "{9}" &1 "{5}" "{4}" "{6}"
  364. 13
  365. 8 10
  366. 10 00000928
  367. 0 3 "Programm ist nicht korrekt installiert!" "W<\v>rterbuch"
  368. 6 0
  369. 15
  370. 9
  371. 6 10
  372. 5 1017
  373. 18 0
  374. 6 7
  375. 5 1
  376. 18 0
  377. 1 1
  378. 11 00000991
  379. 2 155 1
  380. 0 298 "{9}"
  381. 0 789 ""
  382. 6 0
  383. 15
  384. 9
  385. 00006178
  386.