home *** CD-ROM | disk | FTP | other *** search
/ In'side Shareware 1995 April / ish0495.iso / update / truedic / truedic.pak / AMIPRO / TRUEDICE.SMM < prev   
INI File  |  1995-07-07  |  8KB  |  486 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  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.     805140585
  24.     54
  25.     782753813
  26.     399
  27.     3
  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. [lay]
  110.     Standard
  111.     513
  112.     [rght]
  113.         15840
  114.         12240
  115.         1
  116.         1440
  117.         1440
  118.         1
  119.         1440
  120.         1440
  121.         0
  122.         1
  123.         0
  124.         1
  125.         1
  126.         1
  127.         1
  128.         1440
  129.         10800
  130.         0
  131.     [hrght]
  132.     [lyfrm]
  133.         1
  134.         11200
  135.         0
  136.         0
  137.         12240
  138.         1440
  139.         1
  140.         1
  141.         3
  142.         1 0 0 0 0 0 0
  143.         0
  144.         0
  145.         1
  146.     [frmlay]
  147.         1440
  148.         12240
  149.         1
  150.         1440
  151.         0
  152.         1
  153.         0
  154.         1440
  155.         0
  156.         1
  157.         0
  158.         1
  159.         1
  160.         1
  161.         1
  162.         1440
  163.         10800
  164.         0
  165.     [txt]
  166. >
  167.     [frght]
  168.     [lyfrm]
  169.         1
  170.         13248
  171.         0
  172.         14400
  173.         12240
  174.         15840
  175.         1
  176.         1
  177.         3
  178.         1 0 0 0 0 0 0
  179.         0
  180.         0
  181.         2
  182.     [frmlay]
  183.         15840
  184.         12240
  185.         1
  186.         1440
  187.         0
  188.         1
  189.         14400
  190.         1440
  191.         0
  192.         1
  193.         0
  194.         1
  195.         1
  196.         1
  197.         1
  198.         1440
  199.         10800
  200.         0
  201.     [txt]
  202. >
  203. [elay]
  204. [l1]
  205.     0
  206. [pg]
  207.     3
  208.     23 0 0 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
  209.     52 0 0 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
  210.     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
  211. [edoc]
  212. <+@><:S+-1><:#284,9360><:f240,2Times New Roman,0,0,0>' *************************************************************************
  213.  
  214. <+@><:S+-1><:#568,9360><:f240,2Times New Roman,0,0,0>'    Schnittstelle zum TrueDic W<\v>rterbuch 
  215.  
  216. <+@><:S+-1><:#568,9360><:f240,2Times New Roman,0,0,0>'    created by AlphaSoft<:f> 1994
  217.  
  218. <+@><:S+-1><:#284,9360><:f240,2Times New Roman,0,0,0>'**************************************************************************
  219.  
  220. <+@><:S+-1><:#284,9360><:f240,2Times New Roman,0,0,0>
  221.  
  222. <+@><:S+-1><:#284,9360><:f240,2Times New Roman,0,0,0>'******************** global definitions    **************************************
  223.  
  224. <+@><:S+-1><:#284,9360><:f240,2Times New Roman,0,0,0>
  225.  
  226. <+@><:S+-1><:#1704,9360><: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<;>
  227.  
  228. <+@><:S+-1><:#1988,9360><:f240,2Times New Roman,0,0,0>DEFINE <:f><:f240,2Times New Roman,0,0,0>IDC_UEBERSETZEN  
  229.     <:f><:f240,2Times New Roman,0,0,0> 1017        '                 <<<\|>bersetzen<;>    
  230.  
  231. <+@><:S+-1><:#284,9360><:f240,2Times New Roman,0,0,0>
  232.  
  233. <+@><:S+-1><:#852,9360><:f240,2Times New Roman,0,0,0>DEFINE <:f><:f240,2Times New Roman,0,0,0>FRAME3D 
  234.         <:f><:f240,2Times New Roman,0,0,0> 1<:f>
  235.  
  236. <+@><:S+-1><:#284,9360>
  237.  
  238. <+@><:S+-1><:#852,9360><: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
  239.  
  240. <+@><:S+-1><:#852,9360><: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
  241.  
  242. <+@><:S+-1><:#284,9360><:f240,2Times New Roman,0,0,0>
  243.  
  244. <+@><:S+-1><:#568,9360><: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>
  245.  
  246. <+@><:S+-1><:#284,9360><:f240,2Times New Roman,0,0,0>'******************** functions<:f><:f240,2Times New Roman,0,0,0>    ********************************************<:f>
  247.  
  248. <+@><:S+-1><:#284,9360><:f240,2Times New Roman,0,0,0>' ==============================
  249.  
  250. <+@><:S+-1><:#568,9360><:f240,2Times New Roman,0,0,0>'    main()
  251.  
  252. <+@><:S+-1><:#568,9360><:f240,2Times New Roman,0,0,0>'     Einsprungsroutine 
  253.  
  254. <+@><:S+-1><:#284,9360><:f240,2Times New Roman,0,0,0>' ==============================
  255.  
  256. <:#284,9360>FUNCTION main()
  257.  
  258. <:#284,9360>
  259.  
  260. <:#284,9360>ONCANCEL endit
  261.  
  262. <:#284,9360>ONERROR endit
  263.  
  264. <:#284,9360>
  265.  
  266. <:#284,9360>defstr lpCmd,  lpPath, lpPathApp;
  267.  
  268. <:#284,9360>
  269.  
  270. <:#852,9360>iBook =<:f240,2Times New Roman,0,0,0> <:f><:f240,2Times New Roman,0,0,0>ENGLISCH        <:f><:f240,2Times New Roman,0,0,0>' 
  271. <: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
  272.  
  273. <:#568,9360>iCmdLine = <:f240,2Times New Roman,0,0,0>NOFRAME3D    <:f>' keinen 3D Rahmen
  274.  
  275. <:#1136,9360>iReserved =0            ' for future things
  276.  
  277. <:#284,9360>lpCmd = "                                                                    "    
  278.  
  279. <:#284,9360>
  280.  
  281. <:#284,9360>If NOT GetOpenFileCount()
  282.  
  283. <:#568,9360>    iErsetzen = 0
  284.  
  285. <:#568,9360>    goto OpenTrueDic
  286.  
  287. <:#284,9360>Else
  288.  
  289. <:#568,9360>    iErsetzen = 1
  290.  
  291. <:#284,9360>endif
  292.  
  293. <:#284,9360>
  294.  
  295. <:#568,9360>lpCmd =   CurShade$()      ' markierten Bereich <;> TrueDic
  296.  
  297. <:#284,9360>if  lpCmd = "" then
  298.  
  299. <:#852,9360>    lpCmd = CurWord$()     ' aktuelles Wort -<;> TrueDic
  300.  
  301. <:#568,9360>    if  lpCmd = "" then
  302.  
  303. <:#852,9360>        lpCmd = "                                                                    "    
  304.  
  305. <:#568,9360>    endif
  306.  
  307. <:#284,9360>endif
  308.  
  309. <:#284,9360>
  310.  
  311. <:#284,9360>OpenTrueDic:
  312.  
  313. <:#289,9360>lpPathApp = GetProfileString$("<+!>Anwendung<-!>", "<+!>TrServer<-!>", "<+!>TRUEDIC.INI<-!>")
  314.  
  315. <:#289,9360>lpYesNo = GetProfileString$("<+!>Anwendung<-!>", "<+!>Firstloaded<-!>", "<+!>TRUEDIC.INI<-!>")
  316.  
  317. <:#284,9360>
  318.  
  319. <:#284,9360>if lpYesNo = "No"  then
  320.  
  321. <:#573,9360>    lpPath = strcat$( lpPathApp , "\<+!>BESTELL.SAM<-!>")
  322.  
  323. <:#568,9360>    hSet = FileOpen(lpPath, 1, "" )
  324.  
  325. <:#573,9360>    WriteProfileString("<+!>Anwendung<-!>", "<+!>Firstloaded<-!>", "<+!>Yes<-!>", "<+!>TRUEDIC.INI<-!>")
  326.  
  327. <:#284,9360>
  328.  
  329. <:#284,9360>endif
  330.  
  331. <:#284,9360>
  332.  
  333. lpPath= strcat$( lpPathApp , "\<+!>trclient<-!><+!>.dll<-!>")
  334.  
  335. <:R1,0,><:#289,9360>hSet = DLLLoadlib (lpPath, "<+!>ShowTrueDic<-!>", "<+!>ACAAA<-!>")
  336.  
  337. <:R><:#284,9360>if  hSet then
  338.  
  339. <:#284,9360>    
  340.  
  341. <:#568,9360>    StatusBarMsg("AlphaSoft W<\v>rterbuch Englisch/Deutsch")
  342.  
  343. <:#568,9360>    fkt = DLLCall(hSet, &lpCmd, iCmdLine , iBook, iReserved )
  344.  
  345. <:#284,9360>
  346.  
  347. <:#284,9360>else
  348.  
  349. <:#284,9360>
  350.  
  351. <:#568,9360>    Message("Programm ist nicht korrekt installiert!", "W<\v>rterbuch")
  352.  
  353. <:#568,9360>    Exit Function
  354.  
  355. <:#284,9360>    
  356.  
  357. <:#284,9360>endif
  358.  
  359. <:#284,9360>
  360.  
  361. <:#284,9360>
  362.  
  363. <:#284,9360>if  fkt  =  <:f240,2Times New Roman,0,0,0>IDC_UEBERSETZEN and <:f>iErsetzen 
  364. <:f240,2Times New Roman,0,0,0> = 1<:f> then
  365.  
  366. <:#568,9360>    Paste()
  367.  
  368. <:#284,9360>endif
  369.  
  370. <:#284,9360>
  371.  
  372. <:#284,9360>
  373.  
  374. <:#284,9360>endit:
  375.  
  376. <:#284,9360>
  377.  
  378. <:#568,9360>DLLFreeLib(hSet)    'Free DLL
  379.  
  380. <:#284,9360>StatusBarMsg("")
  381.  
  382. <:#284,9360>
  383.  
  384. <:#284,9360>END FUNCTION
  385.  
  386. <+@><:S+-1><:#284,9360><:f240,2Times New Roman,0,0,0>
  387.  
  388. <+@><:S+-1><:#284,9360><:f240,2Times New Roman,0,0,0>'********************  E O F<:f><:f240,2Times New Roman,0,0,0>    **************************************<:f>
  389.  
  390. <+@><:#284,9360>
  391.  
  392. >
  393.  
  394. [Embedded]
  395. 00006962
  396. >
  397. [macsum] 1
  398. main 0 0 11 21
  399. [macse]
  400. 14 main
  401. 19 00000992
  402. 20 00000992
  403. 5 1
  404. 8 4
  405. 5 2
  406. 8 5
  407. 5 0
  408. 8 6
  409. 7 "                                                                    "
  410. 8 1
  411. 0 1050
  412. 13
  413. 1 3
  414. 11 00000210
  415. 5 0
  416. 8 7
  417. 10 00000389
  418. 10 00000220
  419. 5 1
  420. 8 7
  421. 0 24
  422. 13
  423. 8 1
  424. 6 1
  425. 7 ""
  426. 18 0
  427. 11 00000389
  428. 0 23
  429. 13
  430. 8 1
  431. 6 1
  432. 7 ""
  433. 18 0
  434. 11 00000389
  435. 7 "                                                                    "
  436. 8 1
  437. 0 286 "Anwendung" "TrServer" "TRUEDIC.INI"
  438. 13
  439. 8 3
  440. 0 286 "Anwendung" "Firstloaded" "TRUEDIC.INI"
  441. 13
  442. 8 8
  443. 6 8
  444. 7 "No"
  445. 18 0
  446. 11 00000648
  447. 0 16 "{3}" "\BESTELL.SAM"
  448. 13
  449. 8 2
  450. 2 102 1 "{2}" 1 ""
  451. 13
  452. 8 9
  453. 0 287 "Anwendung" "Firstloaded" "Yes" "TRUEDIC.INI"
  454. 0 16 "{3}" "\trclient.dll"
  455. 13
  456. 8 2
  457. 0 297 "{2}" "ShowTrueDic" "ACAAA"
  458. 13
  459. 8 9
  460. 6 9
  461. 11 00000854
  462. 0 789 "AlphaSoft W<\v>rterbuch Englisch/Deutsch"
  463. 0 284 "{9}" &1 "{5}" "{4}" "{6}"
  464. 13
  465. 8 10
  466. 10 00000929
  467. 0 3 "Programm ist nicht korrekt installiert!" "W<\v>rterbuch"
  468. 6 0
  469. 15
  470. 9
  471. 6 10
  472. 5 1017
  473. 18 0
  474. 6 7
  475. 5 1
  476. 18 0
  477. 1 1
  478. 11 00000992
  479. 2 155 1
  480. 0 298 "{9}"
  481. 0 789 ""
  482. 6 0
  483. 15
  484. 9
  485. 00006987
  486.