home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS009.DSK / QKGEOM.SMM < prev    next >
INI File  |  1993-06-25  |  19KB  |  1,448 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.     QMS-PS 810
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Quickly calculate Sine, Cosine, and Tangent of an angle.
  19.     
  20.     
  21.     
  22.     
  23.     741041106
  24.     25
  25.     732310448
  26.     658
  27.     6
  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.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Times New Roman
  60.         240
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         280
  103.         1
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Body Single
  113.     3
  114.     [fnt]
  115.         Times New Roman
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         1
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         273
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         280
  159.         1
  160.         2
  161.         .
  162.         ,
  163.         $
  164.     Body Single
  165.     0
  166.     0
  167. [tag]
  168.     Bullet
  169.     4
  170.     [fnt]
  171.         Times New Roman
  172.         240
  173.         0
  174.         49152
  175.     [algn]
  176.         1
  177.         1
  178.         0
  179.         288
  180.         288
  181.     [spc]
  182.         33
  183.         273
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         4
  191.     [line]
  192.         8
  193.         0
  194.         1
  195.         0
  196.         1
  197.         1
  198.         1
  199.         10
  200.         10
  201.         1
  202.     [spec]
  203.         0
  204.         0
  205.         <*0>
  206.         360
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         2
  217.         .
  218.         ,
  219.         $
  220.     Bullet
  221.     0
  222.     0
  223. [tag]
  224.     Bullet 1
  225.     5
  226.     [fnt]
  227.         Times New Roman
  228.         240
  229.         0
  230.         49152
  231.     [algn]
  232.         1
  233.         1
  234.         288
  235.         288
  236.         288
  237.     [spc]
  238.         33
  239.         273
  240.         1
  241.         0
  242.         0
  243.         1
  244.         100
  245.     [brk]
  246.         4
  247.     [line]
  248.         8
  249.         0
  250.         1
  251.         0
  252.         1
  253.         1
  254.         1
  255.         10
  256.         10
  257.         1
  258.     [spec]
  259.         0
  260.         0
  261.         <*5>
  262.         0
  263.         1
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         280
  271.         1
  272.         2
  273.         .
  274.         ,
  275.         $
  276.     Bullet 1
  277.     0
  278.     0
  279. [tag]
  280.     Number List
  281.     6
  282.     [fnt]
  283.         Times New Roman
  284.         240
  285.         0
  286.         49152
  287.     [algn]
  288.         1
  289.         1
  290.         360
  291.         360
  292.         360
  293.     [spc]
  294.         33
  295.         273
  296.         1
  297.         0
  298.         0
  299.         1
  300.         100
  301.     [brk]
  302.         4
  303.     [line]
  304.         8
  305.         0
  306.         1
  307.         0
  308.         1
  309.         1
  310.         1
  311.         10
  312.         10
  313.         1
  314.     [spec]
  315.         0
  316.         0
  317.         <*:>.
  318.         360
  319.         1
  320.         1
  321.         0
  322.         16
  323.         0
  324.         0
  325.     [nfmt]
  326.         272
  327.         1
  328.         2
  329.         .
  330.         ,
  331.         $
  332.     Number List
  333.     0
  334.     0
  335. [tag]
  336.     Subhead
  337.     7
  338.     [fnt]
  339.         Times New Roman
  340.         240
  341.         0
  342.         49155
  343.     [algn]
  344.         1
  345.         1
  346.         0
  347.         0
  348.         0
  349.     [spc]
  350.         33
  351.         273
  352.         1
  353.         72
  354.         72
  355.         1
  356.         100
  357.     [brk]
  358.         4
  359.     [line]
  360.         8
  361.         0
  362.         1
  363.         0
  364.         1
  365.         1
  366.         1
  367.         10
  368.         10
  369.         1
  370.     [spec]
  371.         0
  372.         2
  373.         
  374.         0
  375.         1
  376.         1
  377.         0
  378.         0
  379.         0
  380.         0
  381.     [nfmt]
  382.         272
  383.         1
  384.         2
  385.         .
  386.         ,
  387.         $
  388.     Subhead
  389.     0
  390.     0
  391. [tag]
  392.     Title
  393.     8
  394.     [fnt]
  395.         Arial
  396.         360
  397.         0
  398.         16385
  399.     [algn]
  400.         4
  401.         1
  402.         0
  403.         0
  404.         0
  405.     [spc]
  406.         33
  407.         446
  408.         1
  409.         144
  410.         72
  411.         1
  412.         100
  413.     [brk]
  414.         16
  415.     [line]
  416.         8
  417.         0
  418.         1
  419.         0
  420.         1
  421.         1
  422.         1
  423.         10
  424.         10
  425.         1
  426.     [spec]
  427.         0
  428.         1
  429.         
  430.         0
  431.         1
  432.         1
  433.         0
  434.         0
  435.         0
  436.         0
  437.     [nfmt]
  438.         272
  439.         1
  440.         2
  441.         .
  442.         ,
  443.         $
  444.     Title
  445.     0
  446.     0
  447. [tag]
  448.     Header
  449.     9
  450.     [fnt]
  451.         Times New Roman
  452.         240
  453.         0
  454.         49152
  455.     [algn]
  456.         1
  457.         1
  458.         0
  459.         0
  460.         0
  461.     [spc]
  462.         33
  463.         273
  464.         1
  465.         0
  466.         0
  467.         1
  468.         100
  469.     [brk]
  470.         4
  471.     [line]
  472.         8
  473.         0
  474.         1
  475.         0
  476.         1
  477.         1
  478.         1
  479.         10
  480.         10
  481.         1
  482.     [spec]
  483.         0
  484.         0
  485.         
  486.         0
  487.         1
  488.         1
  489.         0
  490.         0
  491.         0
  492.         0
  493.     [nfmt]
  494.         280
  495.         1
  496.         2
  497.         .
  498.         ,
  499.         $
  500.     Header
  501.     0
  502.     0
  503. [tag]
  504.     Footer
  505.     11
  506.     [fnt]
  507.         Times New Roman
  508.         240
  509.         0
  510.         49152
  511.     [algn]
  512.         1
  513.         1
  514.         0
  515.         0
  516.         0
  517.     [spc]
  518.         33
  519.         273
  520.         1
  521.         0
  522.         0
  523.         1
  524.         100
  525.     [brk]
  526.         4
  527.     [line]
  528.         8
  529.         0
  530.         1
  531.         0
  532.         1
  533.         1
  534.         1
  535.         10
  536.         10
  537.         1
  538.     [spec]
  539.         0
  540.         0
  541.         
  542.         0
  543.         1
  544.         1
  545.         0
  546.         0
  547.         0
  548.         0
  549.     [nfmt]
  550.         280
  551.         1
  552.         2
  553.         .
  554.         ,
  555.         $
  556.     Footer
  557.     0
  558.     0
  559. [lay]
  560.     Standard
  561.     516
  562.     [rght]
  563.         16833
  564.         11908
  565.         1
  566.         1440
  567.         1440
  568.         1
  569.         1440
  570.         1440
  571.         0
  572.         1
  573.         0
  574.         1
  575.         0
  576.         2
  577.         1
  578.         1440
  579.         10465
  580.         12
  581.         1
  582.         720
  583.         1
  584.         1440
  585.         1
  586.         2160
  587.         1
  588.         2880
  589.         1
  590.         3600
  591.         1
  592.         4320
  593.         1
  594.         5040
  595.         1
  596.         5760
  597.         1
  598.         6480
  599.         1
  600.         7200
  601.         1
  602.         7920
  603.         1
  604.         8640
  605.     [hrght]
  606.     [lyfrm]
  607.         1
  608.         11200
  609.         0
  610.         0
  611.         11908
  612.         1440
  613.         0
  614.         1
  615.         3
  616.         1 0 0 0 0 0 0
  617.         0
  618.         0
  619.         1
  620.     [frmlay]
  621.         1440
  622.         11908
  623.         1
  624.         1440
  625.         72
  626.         1
  627.         792
  628.         1440
  629.         0
  630.         1
  631.         0
  632.         1
  633.         1
  634.         0
  635.         1
  636.         1440
  637.         10465
  638.         2
  639.         2
  640.         4680
  641.         3
  642.         9360
  643.     [txt]
  644. Peyton McManus
  645.  
  646. Lotus WPD
  647.  
  648. >
  649.     [frght]
  650.     [lyfrm]
  651.         1
  652.         13248
  653.         0
  654.         15393
  655.         11908
  656.         16833
  657.         0
  658.         1
  659.         3
  660.         1 0 0 0 0 0 0
  661.         0
  662.         0
  663.         2
  664.     [frmlay]
  665.         16833
  666.         11908
  667.         1
  668.         1440
  669.         792
  670.         1
  671.         15465
  672.         1440
  673.         0
  674.         1
  675.         0
  676.         1
  677.         1
  678.         0
  679.         1
  680.         1440
  681.         10465
  682.         2
  683.         2
  684.         4680
  685.         3
  686.         9360
  687.     [txt]
  688. >
  689. [elay]
  690. [l1]
  691.     0
  692. [pg]
  693.     6
  694.     44 0 32 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
  695.     91 0 25 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
  696.     139 0 33 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
  697.     183 0 7 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  698.     231 0 42 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  699.     238 0 10 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
  700. [edoc]
  701. <:#284,9025>
  702.  
  703. <:#284,9025>Define    EM_SetSel    1025
  704.  
  705. <:#284,9025>
  706.  
  707. <:#568,9025>Define        CECREATEINSTANCE(LPHANDLE)    DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
  708.  
  709. <:#568,9025>Define        CEDESTROYINSTANCE(HANDLE)    DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
  710.  
  711. <:#568,9025>Define        CECALCNOW(HINSTANCE, lpFormula, lpOutPut)    DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
  712.  
  713. <:#284,9025><:f,,>
  714.  
  715. <:#284,9025>define IsOKToRun(menuname)    GetInfo(217, 24, %1);
  716.  
  717. <:#284,9025>
  718.  
  719. <:#284,9025>
  720.  
  721. <:#284,9025>' How we display numbers in the dlg
  722.  
  723. <:#284,9025>Define    NumDecimals    4
  724.  
  725. <:#284,9025>Define    MyFormat(Value)    FormatNum$("","",NumDecimals,%1)
  726.  
  727. <:#284,9025>
  728.  
  729. <:#284,9025>
  730.  
  731. <:#284,9025>' Dlg Defines
  732.  
  733. <:#284,9025>Define    Dataedit        8000
  734.  
  735. <:#284,9025>Define    Sinradio        20
  736.  
  737. <:#284,9025>Define    Cosradio        21
  738.  
  739. <:#284,9025>Define    Tanradio        22
  740.  
  741. <:#284,9025>Define    Sintext        1002
  742.  
  743. <:#284,9025>Define    Costext        1003
  744.  
  745. <:#284,9025>Define    Tantext        1004
  746.  
  747. <:#284,9025>Define     CopyDatabutton    31
  748.  
  749. <:#284,9025>
  750.  
  751. <:#284,9025><:X3,-32768;Include "Amixlate.sam!common">Define    NotFound    "LTSCE01.DLL not found.  Copy the dll to your windows directory"
  752.  
  753. <:#568,9025>Define    ErrorMessage    "The ltsce01.dll could not be loaded.  Please copy the dll to the Ami Pro directory."<:X~3,-32768;Include "Amixlate.sam!common">
  754.  
  755. <:#284,9025>
  756.  
  757. <:#284,9025><:X3,-32768;Include "Amixlate.sam!qkgeom">Define    SinFormula    "@Round(@Sin({Degree}*@PI/180);4)"
  758.  
  759. @Outline3@<:#284,9025>Define    CosFormula    "@Round(@cos({Degree}*@PI/180);4)"
  760.  
  761. @Outline3@<:#284,9025>Define    TanFormula    "@Round(@Tan({Degree}*@PI/180);4)"<:X~3,-32768;Include "Amixlate.sam!qkgeom">
  762.  
  763. <:#284,9025>
  764.  
  765. <:#284,9025>
  766.  
  767. <:#284,9025>
  768.  
  769. <:#284,9025>' Win API Defines
  770.  
  771. @Outline2@<:#568,9025>Define    MyGetDlgItemText(hdg, id, string, max)    DllCall("User,GetDlgItemText,HHHCH",%1,%2,%3,%4)
  772.  
  773. <:#284,9025>define    CloseDlg(id)    dllcall("user,PostMessage,HHHHHH", HDLG, 0X111, %1, 0, 0).
  774.  
  775. <:#284,9025>Define    EnableWindow()    DllCall("User,EnableWindow,AHA",%1,%2)
  776.  
  777. <:#284,9025>
  778.  
  779. <:#284,9025>
  780.  
  781. <:#284,9025>
  782.  
  783. @Outline2@<:#284,9025>
  784.  
  785. <:#284,9025>Declare StartEngine()
  786.  
  787. <:#284,9025>Declare DataDlg(Hdlg, id, value)
  788.  
  789. <:#284,9025>Declare FontDlg(Action, Hdlg, id)
  790.  
  791. <:#284,9025>
  792.  
  793. @Subhead@<:#284,9025>Function GetShade()
  794.  
  795. <:#284,9025>DefStr Stat, List, hInstance;
  796.  
  797. <:#284,9025>Mac = GetRunningMacroFile$()
  798.  
  799. <:#284,9025>Id = StartEngine()
  800.  
  801. <:#284,9025>If Id = 0
  802.  
  803. <:#284,9025>    Message(ErrorMessage)
  804.  
  805. <:#284,9025>    Return 0;
  806.  
  807. <:#284,9025>Endif
  808.  
  809. <:#284,9025>RetVal = CECREATEINSTANCE(&hInstance)
  810.  
  811. <:#284,9025>AllocGlobalVar("hInstance",1)
  812.  
  813. <:#284,9025>SetGlobalVar("hInstance",hInstance)
  814.  
  815. <:#284,9025>
  816.  
  817. <:#284,9025>FontDlg(1,0,0)
  818.  
  819. <:#284,9025>SetDlgCallBack(0,"{Mac}!InitDlg")
  820.  
  821. <:#284,9025>SetDlgCallBack(Dataedit,"{Mac}!DataDlg")
  822.  
  823. <:#284,9025>SetDlgCallBack(CopyDatabutton,"{Mac}!CopyData")
  824.  
  825. <:#284,9025>FillEdit(8000,"45")
  826.  
  827. @Outline3@<:#284,9025>FillEdit(20,1)
  828.  
  829. @Outline3@<:#284,9025>DlgKeyInterrupt(112, "{mac}!DisplayHelp")
  830.  
  831. @Outline3@<:#284,9025>
  832.  
  833. <:#284,9025>Box = DialogBox(".","QuickGeo")
  834.  
  835. <:#284,9025>CEDestroyInstance(hInstance)
  836.  
  837. <:#284,9025>FreeGlobalVar("hInstance")
  838.  
  839. <:#284,9025>FontDlg(4,0,0)
  840.  
  841. <:#284,9025>DllFreeLib(id)
  842.  
  843. <:#284,9025>End Function
  844.  
  845. <:#284,9025>
  846.  
  847. <:#284,9025>
  848.  
  849. @Subhead@<:#284,9025>Function StartEngine()
  850.  
  851. <:#284,9025>LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO")
  852.  
  853. <:#284,9025>If LibId = 0
  854.  
  855. <:#284,9025>    Message(ErrorMessage)
  856.  
  857. <:#284,9025>    Return 0;
  858.  
  859. <:#284,9025>Endif
  860.  
  861. <:#284,9025>Return Libid
  862.  
  863. <:#284,9025>End function
  864.  
  865. <:#284,9025>
  866.  
  867. @Subhead@<:#284,9025>Function InitDlg(Hdlg, Id, Value)
  868.  
  869. <:#284,9025>IgnoreKeyBoard(2)
  870.  
  871. <:#284,9025>HourGlass(on)
  872.  
  873. <:#284,9025>FontDlg(3,Hdlg, Sinradio)
  874.  
  875. <:#284,9025>FontDlg(3,Hdlg, CosRadio)
  876.  
  877. <:#284,9025>FontDlg(3,Hdlg, TanRadio)
  878.  
  879. <:#284,9025>FontDlg(3,Hdlg, SinText)
  880.  
  881. <:#284,9025>FontDlg(3, Hdlg, CosText)
  882.  
  883. <:#284,9025>FontDlg(3, Hdlg, TanText)
  884.  
  885. <:#284,9025>FontDlg(3,Hdlg, 1000)
  886.  
  887. <:#284,9025>FontDlg(3,Hdlg, 1001)
  888.  
  889. <:#284,9025>FontDlg(3,Hdlg, 8000)
  890.  
  891. <:#284,9025>DataDlg(Hdlg, Id, Value)
  892.  
  893. <:#284,9025>HourGlass(off)
  894.  
  895. <:#284,9025>End Function
  896.  
  897. <:#284,9025>
  898.  
  899. <:#284,9025>
  900.  
  901. @Subhead@<:#284,9025>Function DataDlg(Hdlg, id, value)
  902.  
  903. <:#284,9025>IgnoreKeyBoard(2)
  904.  
  905. <:#284,9025>DefStr Sin, Cos, Tan;
  906.  
  907. <:#284,9025>HourGlass(on)
  908.  
  909. <:#284,9025>hInstance = GetGlobalVar$("hInstance")
  910.  
  911. <:#284,9025>Degree = GetdlgItemText(hDlg, 8000)
  912.  
  913. <:#284,9025>
  914.  
  915. <:#284,9025>CECalcNow(hInstance,SinFormula,&Sin)
  916.  
  917. <:#284,9025>CECalcNow(hInstance,CosFormula,&Cos)
  918.  
  919. <:#284,9025>CECalcNow(hInstance,TanFormula,&Tan)
  920.  
  921. <:#284,9025>
  922.  
  923. <:#284,9025>If 0 != Instr(0,Sin,"E")
  924.  
  925. <:#284,9025>    Sin = 0
  926.  
  927. <:#284,9025>Endif
  928.  
  929. <:#284,9025>
  930.  
  931. <:#284,9025>' Need these lines because the number returned may be xE 10<+&>-19<-&>
  932.  
  933. <:#284,9025>
  934.  
  935. <:#284,9025>If 0 != Instr(0,Cos,"E")
  936.  
  937. <:#284,9025>    Cos = 0
  938.  
  939. <:#284,9025>Endif
  940.  
  941. <:#284,9025>
  942.  
  943. <:#284,9025>If 0 != Instr(0,Tan,"E")
  944.  
  945. <:#284,9025>    Tan = 0
  946.  
  947. <:#284,9025>Endif
  948.  
  949. <:#284,9025>If Degree = 90 or Degree = 270
  950.  
  951. <:#284,9025>    Tan = "NA"
  952.  
  953. <:#284,9025>Endif
  954.  
  955. <:#284,9025>
  956.  
  957. <:#284,9025>SetDlgItemText(Hdlg, Sintext, Sin)
  958.  
  959. <:#284,9025>SetDlgItemText(Hdlg, Costext, Cos)
  960.  
  961. <:#284,9025>SetDlgItemText(Hdlg, Tantext, Tan)
  962.  
  963. <:#284,9025>HourGlass(off)
  964.  
  965. <:#284,9025>End Function
  966.  
  967. <:#284,9025>
  968.  
  969. <:#284,9025>
  970.  
  971. <:#284,9025>
  972.  
  973. @Subhead@<:#284,9025>FUnction CopyData(Hdlg, Id, value)
  974.  
  975. <:#284,9025>DefStr Data;
  976.  
  977. <:#284,9025>If GetDlgItemText(Hdlg, Sinradio)
  978.  
  979. <:#284,9025>    MyGetDlgItemText(Hdlg, Sintext, &Data, 80)
  980.  
  981. <:#284,9025>Elseif GetDlgItemText(Hdlg, Cosradio)
  982.  
  983. <:#284,9025>    MyGetDlgItemText(hDlg, Costext, &Data, 80)
  984.  
  985. <:#284,9025>Elseif GetDlgItemText(hDlg, Tanradio)
  986.  
  987. <:#284,9025>    MyGetDlgItemText(hDlg, Tantext, &Data, 80)
  988.  
  989. <:#284,9025>Endif
  990.  
  991. <:#284,9025>ClipBoardWrite(Data,1)
  992.  
  993. <:#284,9025>CloseDlg(2)
  994.  
  995. <:#284,9025>End Function
  996.  
  997. <:#284,9025>
  998.  
  999. @Subhead@<:#284,9025>function DisplayHelp()
  1000.  
  1001. @Outline2@<:#284,9025>' two defines needed for help.  The help name and panel number are defined above
  1002.  
  1003. @Outline2@<:#284,9025>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
  1004.  
  1005. @Outline2@<:#568,9025>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  1006.  
  1007. @Outline2@<:#284,9025>prohWnd = FindWindowa("AmiProWndA", 0)
  1008.  
  1009. @Outline2@<:#284,9025>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
  1010.  
  1011. @Outline2@<:#284,9025>PanelNum= 85 
  1012.  
  1013. @Outline2@<:#284,9025>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
  1014.  
  1015. @Outline2@<:#284,9025>end function
  1016.  
  1017. @Subhead@<:#284,9025>
  1018.  
  1019. <:#284,9025>
  1020.  
  1021. <:#284,9025>
  1022.  
  1023. <:#284,9025>
  1024.  
  1025. @Subhead@<:#284,9025>Function FontDlg(Action, Hdlg, id)
  1026.  
  1027. <:#284,9025>' 1    Create a font and allocvar
  1028.  
  1029. <:#284,9025>' 2    Return the handle of the create font 
  1030.  
  1031. <:#284,9025>' 3    Set the id specified to the font
  1032.  
  1033. <:#284,9025>' 4    Freeglobalvar and delete created object
  1034.  
  1035. <:#284,9025>
  1036.  
  1037. @Outline2@<:#568,9025>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  1038.  
  1039. @Outline2@<:#284,9025>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  1040.  
  1041. @Outline2@<:#568,9025>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  1042.  
  1043. @Outline2@<:#284,9025>
  1044.  
  1045. @Outline2@<:#284,9025>
  1046.  
  1047. <:#284,9025>Switch Action
  1048.  
  1049. <:#284,9025>    Case 1    ' Create the font and store it
  1050.  
  1051. @Outline2@<:#284,9025>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  1052.  
  1053. <:#284,9025>        AllocGlobalVar("FontHandle",1)
  1054.  
  1055. <:#284,9025>        If Font
  1056.  
  1057. <:#284,9025>            SetGlobalVar("FontHandle",Font)
  1058.  
  1059. <:#284,9025>            Return Font
  1060.  
  1061. <:#284,9025>        Else
  1062.  
  1063. <:#284,9025>            Return 0;    ' no font
  1064.  
  1065. <:#284,9025>        Endif
  1066.  
  1067. <:#284,9025>        Break;
  1068.  
  1069. <:#284,9025>    Case 2    ' Return the handle to the font
  1070.  
  1071. <:#284,9025>        Handle = GetGlobalVar$("FontHandle")
  1072.  
  1073. <:#284,9025>        If Handle 
  1074.  
  1075. <:#284,9025>            Return Handle
  1076.  
  1077. <:#284,9025>        Else
  1078.  
  1079. <:#284,9025>            Return 0
  1080.  
  1081. <:#284,9025>        Endif
  1082.  
  1083. <:#284,9025>
  1084.  
  1085. <:#284,9025>    Case 3    ' Set the id to the font
  1086.  
  1087. <:#284,9025>        Handle = GetGlobalVar$("FontHandle")
  1088.  
  1089. <:#284,9025>        If Handle 
  1090.  
  1091. <:#284,9025>            IdControl = GetDlgITem(Hdlg, id)
  1092.  
  1093. <:#284,9025>            SendMessageDlg(idControl, 0x30, Handle, 0)
  1094.  
  1095. <:#284,9025>            Return 1
  1096.  
  1097. <:#284,9025>        Else
  1098.  
  1099. <:#284,9025>            Return 0
  1100.  
  1101. <:#284,9025>        Endif
  1102.  
  1103. <:#284,9025>        Break;        
  1104.  
  1105. <:#284,9025>        
  1106.  
  1107. <:#284,9025>    Case 4    ' Delete the font and clear the var
  1108.  
  1109. <:#284,9025>        Handle = GetGlobalVar$("FontHandle")
  1110.  
  1111. <:#284,9025>        If Handle
  1112.  
  1113. <:#284,9025>            DeleteObjectDLG(Handle)
  1114.  
  1115. <:#284,9025>            Stat = 1    
  1116.  
  1117. <:#284,9025>        Else
  1118.  
  1119. <:#284,9025>            Stat = 0
  1120.  
  1121. <:#284,9025>        Endif
  1122.  
  1123. <:#284,9025>        FreeGlobalVar("FontHandle")
  1124.  
  1125. <:#284,9025>        Return Stat        
  1126.  
  1127. <:#284,9025>    Default
  1128.  
  1129. <:#284,9025>        Message("Fontdlg received an invalid parameter {Action}")
  1130.  
  1131. <:#284,9025>EndSwitch    
  1132.  
  1133. <:#284,9025>
  1134.  
  1135. <:#284,9025>End Function
  1136.  
  1137. @Subhead@<:#284,9025>
  1138.  
  1139. <:#284,9025>
  1140.  
  1141. <:#284,9025>
  1142.  
  1143. <:#284,9025>
  1144.  
  1145. <:#284,9025>
  1146.  
  1147. <:#284,9025>DIALOG    QuickGeo
  1148.  
  1149. <:#284,9025>-2134376448    11    73    32    127    55    ""    "AmiDialog"    "QuickGeometry"
  1150.  
  1151. <:#284,9025>FONT    8    "Helv"
  1152.  
  1153. <:#284,9025>34    4    18    12    8000    1350631424    "edit"    ""    0 
  1154.  
  1155. <:#284,9025>6    20    34    8    20    1342242825    "button"    "Sine:"    0 
  1156.  
  1157. <:#284,9025>6    32    34    8    21    1342242825    "button"    "Cosine:"    0 
  1158.  
  1159. <:#284,9025>6    43    34    10    22    1342242825    "button"    "Tangent:"    0 
  1160.  
  1161. <:#284,9025>83    3    40    14    1    1342373889    "button"    "Done"    0 
  1162.  
  1163. <:#284,9025>83    19    40    14    31    1342373888    "button"    "Copy"    0 
  1164.  
  1165. <:#284,9025>48    20    29    8    1002    1342177280    "static"    "text"    0 
  1166.  
  1167. <:#284,9025>48    32    29    8    1003    1342177280    "static"    "text"    0 
  1168.  
  1169. <:#284,9025>48    44    29    8    1004    1342177280    "static"    "text"    0 
  1170.  
  1171. <:#284,9025>6    6    23    8    1000    1342177280    "static"    "Angle:"    0 
  1172.  
  1173. <:#284,9025>54    6    27    10    1001    1342177280    "static"    "degrees"    0 
  1174.  
  1175. <:#284,9025>END DIALOG
  1176.  
  1177. >
  1178.  
  1179. [Embedded]
  1180. 00014895
  1181. >
  1182. [macsum] 8
  1183. GetShade 0 0 8 46
  1184. StartEngine 569 0 2 74
  1185. InitDlg 795 3 1 83
  1186. DataDlg 1094 3 6 100
  1187. CopyData 1729 3 2 136
  1188. DisplayHelp 2097 0 4 149
  1189. FontDlg 2282 3 5 162
  1190. QuickGeo 3128 0 -1 223
  1191. [macse]
  1192. 14 GetShade
  1193. 0 802
  1194. 13
  1195. 8 4
  1196. 16 StartEngine
  1197. 13
  1198. 8 5
  1199. 6 5
  1200. 5 0
  1201. 18 0
  1202. 11 00000186
  1203. 0 3 "The ltsce01.dll could not be loaded.  Please copy the dll to the Ami Pro directory."
  1204. 5 0
  1205. 15
  1206. 9
  1207. 0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &3
  1208. 13
  1209. 8 6
  1210. 0 271 "hInstance" 1
  1211. 0 264 "hInstance" "{3}"
  1212. 16 FontDlg 1 0 0
  1213. 0 41 0 "{4}!InitDlg"
  1214. 0 41 8000 "{4}!DataDlg"
  1215. 0 41 31 "{4}!CopyData"
  1216. 0 31 8000 "45"
  1217. 0 31 20 1
  1218. 0 47 112 "{4}!DisplayHelp"
  1219. 0 26 "." "QuickGeo"
  1220. 13
  1221. 8 7
  1222. 0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{3}"
  1223. 0 266 "hInstance"
  1224. 16 FontDlg 4 0 0
  1225. 0 298 "{5}"
  1226. 6 0
  1227. 15
  1228. 9
  1229. 14 StartEngine
  1230. 0 297 "LTSCE01.DLL" "CECreateInstance" "HO"
  1231. 13
  1232. 8 1
  1233. 6 1
  1234. 5 0
  1235. 18 0
  1236. 11 00000202
  1237. 0 3 "The ltsce01.dll could not be loaded.  Please copy the dll to the Ami Pro directory."
  1238. 5 0
  1239. 15
  1240. 9
  1241. 6 1
  1242. 15
  1243. 9
  1244. 6 0
  1245. 15
  1246. 9
  1247. 14 InitDlg
  1248. 0 32 2
  1249. 0 296 1
  1250. 16 FontDlg 3 "{0}" 20
  1251. 16 FontDlg 3 "{0}" 21
  1252. 16 FontDlg 3 "{0}" 22
  1253. 16 FontDlg 3 "{0}" 1002
  1254. 16 FontDlg 3 "{0}" 1003
  1255. 16 FontDlg 3 "{0}" 1004
  1256. 16 FontDlg 3 "{0}" 1000
  1257. 16 FontDlg 3 "{0}" 1001
  1258. 16 FontDlg 3 "{0}" 8000
  1259. 16 DataDlg "{0}" "{1}" "{2}"
  1260. 0 296 0
  1261. 6 3
  1262. 15
  1263. 9
  1264. 14 DataDlg
  1265. 0 32 2
  1266. 0 296 1
  1267. 0 265 "hInstance"
  1268. 13
  1269. 8 7
  1270. 0 42 "{0}" 8000
  1271. 13
  1272. 8 8
  1273. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{7}" "@Round(@Sin({8}*@PI/180);4)" &4
  1274. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{7}" "@Round(@cos({8}*@PI/180);4)" &5
  1275. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{7}" "@Round(@Tan({8}*@PI/180);4)" &6
  1276. 5 0
  1277. 0 808 0 "{4}" "E"
  1278. 13
  1279. 18 1
  1280. 11 00000365
  1281. 5 0
  1282. 8 4
  1283. 5 0
  1284. 0 808 0 "{5}" "E"
  1285. 13
  1286. 18 1
  1287. 11 00000422
  1288. 5 0
  1289. 8 5
  1290. 5 0
  1291. 0 808 0 "{6}" "E"
  1292. 13
  1293. 18 1
  1294. 11 00000479
  1295. 5 0
  1296. 8 6
  1297. 6 8
  1298. 5 90
  1299. 18 0
  1300. 6 8
  1301. 5 270
  1302. 18 0
  1303. 1 2
  1304. 11 00000545
  1305. 7 "NA"
  1306. 8 6
  1307. 0 43 "{0}" 1002 "{4}"
  1308. 0 43 "{0}" 1003 "{5}"
  1309. 0 43 "{0}" 1004 "{6}"
  1310. 0 296 0
  1311. 6 3
  1312. 15
  1313. 9
  1314. 14 CopyData
  1315. 0 42 "{0}" 20
  1316. 13
  1317. 11 00000110
  1318. 0 284 "User,GetDlgItemText,HHHCH" "{0}" 1002 &4 80
  1319. 10 00000291
  1320. 0 42 "{0}" 21
  1321. 13
  1322. 11 00000207
  1323. 0 284 "User,GetDlgItemText,HHHCH" "{0}" 1003 &4 80
  1324. 10 00000291
  1325. 0 42 "{0}" 22
  1326. 13
  1327. 11 00000291
  1328. 0 284 "User,GetDlgItemText,HHHCH" "{0}" 1004 &4 80
  1329. 0 1038 "{4}" 1
  1330. 0 284 "user,PostMessage,HHHHHH" "{0}" 273 2 0 0
  1331. 6 3
  1332. 15
  1333. 9
  1334. 14 DisplayHelp
  1335. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  1336. 13
  1337. 8 1
  1338. 0 798
  1339. 13
  1340. 0 16 [X] "HelpPack.hlp"
  1341. 13
  1342. 8 2
  1343. 5 85
  1344. 8 3
  1345. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
  1346. 6 0
  1347. 15
  1348. 9
  1349. 14 FontDlg
  1350. 5 1
  1351. 6 0
  1352. 18 0
  1353. 11 00000255
  1354. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  1355. 13
  1356. 8 4
  1357. 0 271 "FontHandle" 1
  1358. 6 4
  1359. 11 00000217
  1360. 0 264 "FontHandle" "{4}"
  1361. 6 4
  1362. 15
  1363. 9
  1364. 10 00000229
  1365. 5 0
  1366. 15
  1367. 9
  1368. 10 00000834
  1369. 10 00000834
  1370. 5 2
  1371. 6 0
  1372. 18 0
  1373. 11 00000381
  1374. 0 265 "FontHandle"
  1375. 13
  1376. 8 5
  1377. 6 5
  1378. 11 00000356
  1379. 6 5
  1380. 15
  1381. 9
  1382. 10 00000368
  1383. 5 0
  1384. 15
  1385. 9
  1386. 10 00000834
  1387. 5 3
  1388. 6 0
  1389. 18 0
  1390. 11 00000596
  1391. 0 265 "FontHandle"
  1392. 13
  1393. 8 5
  1394. 6 5
  1395. 11 00000558
  1396. 0 44 "{1}" "{2}"
  1397. 13
  1398. 8 6
  1399. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
  1400. 5 1
  1401. 15
  1402. 9
  1403. 10 00000570
  1404. 5 0
  1405. 15
  1406. 9
  1407. 10 00000834
  1408. 10 00000834
  1409. 5 4
  1410. 6 0
  1411. 18 0
  1412. 11 00000785
  1413. 0 265 "FontHandle"
  1414. 13
  1415. 8 5
  1416. 6 5
  1417. 11 00000730
  1418. 0 284 "gdi,DeleteObject,HH" "{5}"
  1419. 5 1
  1420. 8 7
  1421. 10 00000740
  1422. 5 0
  1423. 8 7
  1424. 0 266 "FontHandle"
  1425. 6 7
  1426. 15
  1427. 9
  1428. 10 00000834
  1429. 0 3 "Fontdlg received an invalid parameter {0}"
  1430. 6 3
  1431. 15
  1432. 9
  1433. DIALOG QuickGeo
  1434. -2134376448 11 73 32 127 55 "" "AmiDialog" "QuickGeometry" 
  1435. FONT 8 "Helv" 
  1436. 34 4 18 12 8000 1350631424 "edit" "" 0 
  1437. 6 20 34 8 20 1342242825 "button" "Sine:" 0 
  1438. 6 32 34 8 21 1342242825 "button" "Cosine:" 0 
  1439. 6 43 34 10 22 1342242825 "button" "Tangent:" 0 
  1440. 83 3 40 14 1 1342373889 "button" "Done" 0 
  1441. 83 19 40 14 31 1342373888 "button" "Copy" 0 
  1442. 48 20 29 8 1002 1342177280 "static" "text" 0 
  1443. 48 32 29 8 1003 1342177280 "static" "text" 0 
  1444. 48 44 29 8 1004 1342177280 "static" "text" 0 
  1445. 6 6 23 8 1000 1342177280 "static" "Angle:" 0 
  1446. 54 6 27 10 1001 1342177280 "static" "degrees" 0 
  1447. 00014920
  1448.