home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS029.DSK / MACROLIB.SMM < prev    next >
INI File  |  1994-07-25  |  25KB  |  1,558 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _MACRO.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Apple LaserWriter Plus
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     Library of useful macro routines.
  28.     
  29.     
  30.     
  31.     
  32.     775179246
  33.     41
  34.     731818190
  35.     720
  36.     9
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     1
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53.     
  54.     
  55. [lnopts]
  56.     2
  57.     Body Text
  58.     1
  59. [docopts]
  60.     5
  61.     2
  62. [GramStyle]
  63.     
  64. [ParaNum]
  65.     1
  66. [tag]
  67.     Function
  68.     4
  69.     [fnt]
  70.         Arial
  71.         240
  72.         0
  73.         16385
  74.     [algn]
  75.         1
  76.         1
  77.         0
  78.         0
  79.         0
  80.     [spc]
  81.         33
  82.         244
  83.         1
  84.         0
  85.         0
  86.         1
  87.         100
  88.     [brk]
  89.         68
  90.     [line]
  91.         8
  92.         0
  93.         1
  94.         0
  95.         1
  96.         1
  97.         1
  98.         10
  99.         10
  100.         1
  101.     [spec]
  102.         0
  103.         2
  104.         
  105.         0
  106.         1
  107.         1
  108.         0
  109.         0
  110.         0
  111.         0
  112.     [nfmt]
  113.         272
  114.         1
  115.         3
  116.         .
  117.         ,
  118.         $
  119.     Body Text
  120.     0
  121.     0
  122. [tag]
  123.     Table Text
  124.     5
  125.     [fnt]
  126.         Arial
  127.         240
  128.         0
  129.         16384
  130.     [algn]
  131.         1
  132.         1
  133.         0
  134.         0
  135.         0
  136.     [spc]
  137.         33
  138.         273
  139.         1
  140.         0
  141.         0
  142.         1
  143.         100
  144.     [brk]
  145.         4
  146.     [line]
  147.         8
  148.         0
  149.         1
  150.         0
  151.         1
  152.         1
  153.         1
  154.         10
  155.         10
  156.         1
  157.     [spec]
  158.         0
  159.         0
  160.         
  161.         0
  162.         1
  163.         1
  164.         0
  165.         0
  166.         0
  167.         0
  168.     [nfmt]
  169.         272
  170.         1
  171.         3
  172.         .
  173.         ,
  174.         $
  175.     Table Text
  176.     0
  177.     0
  178. [tag]
  179.     Main Macro
  180.     6
  181.     [fnt]
  182.         Arial
  183.         240
  184.         0
  185.         16387
  186.     [algn]
  187.         1
  188.         1
  189.         0
  190.         0
  191.         0
  192.     [spc]
  193.         33
  194.         244
  195.         1
  196.         0
  197.         0
  198.         1
  199.         100
  200.     [brk]
  201.         68
  202.     [line]
  203.         8
  204.         0
  205.         1
  206.         0
  207.         1
  208.         1
  209.         1
  210.         10
  211.         10
  212.         1
  213.     [spec]
  214.         0
  215.         1
  216.         
  217.         0
  218.         1
  219.         1
  220.         0
  221.         0
  222.         0
  223.         0
  224.     [nfmt]
  225.         272
  226.         1
  227.         3
  228.         .
  229.         ,
  230.         $
  231.     Body Text
  232.     0
  233.     0
  234. [frm]
  235.     1
  236.     1573060
  237.     360
  238.     9240
  239.     2191
  240.     10381
  241.     0
  242.     1
  243.     1
  244.     1 0 0 0 0 0 0
  245.     0
  246.     16777215
  247.     3
  248.     0
  249.     6400
  250.     0 0
  251.     [frmlay]
  252.         9520
  253.         1831
  254.         1
  255.         0
  256.         0
  257.         1
  258.         9240
  259.         0
  260.         0
  261.         2
  262.         0
  263.         0
  264.         0
  265.         0
  266.         1
  267.         360
  268.         1886
  269.         0
  270.     [tbl]
  271.          3 1 0 86 1440 86 1 43 43
  272.         [h]
  273.              0 280 86 2 0 1 0
  274.              1 280 86 2 0 1 0
  275.              2 280 86 2 0 1 0
  276.         [e]
  277.         [w]
  278.              0 1728 60 6 0
  279.         [e]
  280.         [data]
  281.              0 0 8 0 0 0 0 1 0 0 0 0
  282. <+@><:S+-1><:f240, Arial MT,0,0,0>Clarke
  283.  
  284. >
  285.              1 0 8 0 0 0 0 1 0 0 0 0
  286. <+@><:S+-1><:f240, Arial MT,0,0,0>Aubry
  287.  
  288. >
  289.              2 0 8 0 0 0 0 1 0 0 0 0
  290. <+@><:S+-1><:f240, Arial MT,0,0,0>Kaplan
  291.  
  292. >
  293.         [e]
  294.     [tble]
  295. [lay]
  296.     Standard
  297.     513
  298.     [rght]
  299.         15840
  300.         12240
  301.         1
  302.         720
  303.         1440
  304.         1
  305.         1440
  306.         720
  307.         0
  308.         1
  309.         0
  310.         1
  311.         0
  312.         2
  313.         1
  314.         720
  315.         11520
  316.         12
  317.         1
  318.         720
  319.         1
  320.         1440
  321.         1
  322.         2160
  323.         1
  324.         2880
  325.         1
  326.         3600
  327.         1
  328.         4320
  329.         1
  330.         5040
  331.         1
  332.         5760
  333.         1
  334.         6480
  335.         1
  336.         7200
  337.         1
  338.         7920
  339.         1
  340.         8640
  341.     [hrght]
  342.     [lyfrm]
  343.         1
  344.         11200
  345.         0
  346.         0
  347.         12240
  348.         1440
  349.         0
  350.         1
  351.         3
  352.         1 0 0 0 0 0 0
  353.         0
  354.         0
  355.         1
  356.     [frmlay]
  357.         1440
  358.         12240
  359.         1
  360.         1440
  361.         72
  362.         1
  363.         792
  364.         1440
  365.         0
  366.         1
  367.         0
  368.         1
  369.         1
  370.         0
  371.         1
  372.         1440
  373.         10800
  374.         1
  375.         3
  376.         9360
  377.     [txt]
  378. >
  379.     [frght]
  380.     [lyfrm]
  381.         1
  382.         13248
  383.         0
  384.         14400
  385.         12240
  386.         15840
  387.         0
  388.         1
  389.         3
  390.         1 0 0 0 0 0 0
  391.         0
  392.         0
  393.         2
  394.     [frmlay]
  395.         15840
  396.         12240
  397.         1
  398.         1440
  399.         792
  400.         1
  401.         14472
  402.         1440
  403.         0
  404.         1
  405.         0
  406.         1
  407.         1
  408.         0
  409.         1
  410.         1440
  411.         10800
  412.         2
  413.         2
  414.         4680
  415.         3
  416.         9360
  417.     [txt]
  418. >
  419. [elay]
  420. [l1]
  421.     0
  422. [pg]
  423.     9
  424.     42 0 14 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
  425.     87 0 28 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
  426.     131 0 40 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
  427.     173 0 15 512 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
  428.     216 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
  429.     234 0 5 512 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
  430.     276 0 19 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
  431.     306 0 5 512 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
  432.     334 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
  433. [edoc]
  434. <:#284,10800>' Declare all main functions in this macro library
  435.  
  436. <:#284,10800>Declare    FontDlg(What,hdlg, id)
  437.  
  438. <:#284,10800>
  439.  
  440. <:#284,10800>
  441.  
  442. <:#284,10800>
  443.  
  444. <:#284,10800>' Api Defines
  445.  
  446. <:#568,10800>define    SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  447.  
  448. <:#284,10800>define    WM_SETFONT    0x30
  449.  
  450. <:#284,10800>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
  451.  
  452. <:#284,10800>Define SetFocus() DllCall("user,SetFocus,HH",%1)
  453.  
  454. <:#284,10800>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
  455.  
  456. <:#284,10800>DEFINE GetWindowrect()    DllCall("user,GetWindowRect,HHN",%1,%2)
  457.  
  458. <:#568,10800>define SetWindowPos(hwnd, hwndinsertafter, x, y, cx, cy, wflags) DllCall("user,SetWindowPos,HHHHHHHI", %1, %2, %3, %4, %5, %6, %7)
  459.  
  460. <:#284,10800>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  461.  
  462. <:#284,10800>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)
  463.  
  464. <:#284,10800>define SWP_NOMOVE    0x0002
  465.  
  466. <:#284,10800>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
  467.  
  468. <:#284,10800>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)
  469.  
  470. <:#284,10800>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  471.  
  472. <:#284,10800>
  473.  
  474. <:#284,10800>define    MF_BYPOSITION    0x400
  475.  
  476. <:#284,10800>
  477.  
  478. <:#284,10800>Define WM_SETREDRAW            0x000B
  479.  
  480. <:#284,10800>define WM_COMMAND        0x0111
  481.  
  482. <:#284,10800>define SC_RESTORE      0xF120
  483.  
  484. <:#284,10800>define WM_SYSCOMMAND       0x0112
  485.  
  486. <:#284,10800>
  487.  
  488. <:#284,10800>
  489.  
  490. <:#284,10800>' Declares
  491.  
  492. <:#284,10800>declare hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)
  493.  
  494. <:#284,10800>
  495.  
  496. @Function@<:#293,10800>
  497.  
  498. @Function@<:#293,10800>Function Main()
  499.  
  500. <:#568,10800>Message("This macro is provided as a macro library.  This macro library can store useful macro functions")
  501.  
  502. <:#284,10800>End Function
  503.  
  504. <:#284,10800>
  505.  
  506. @Function@<:#293,10800>
  507.  
  508. @Function@<:#293,10800>
  509.  
  510. @Function@<:#293,10800>
  511.  
  512. @Function@<:#293,10800>Function FloatingNotesInstructions(Instructions, Caption, ButtonText, MacroCallBack)
  513.  
  514. <:#284,10800>onerror endit
  515.  
  516. <:#284,10800>oncancel endit
  517.  
  518. <:#284,10800>rmac = getrunningmacrofile$()
  519.  
  520. <:#284,10800>dim rect(4)
  521.  
  522. <:#284,10800>
  523.  
  524. <:#284,10800> appname = "<:f240,BArial,255,0,0>Notes<:f>"
  525.  
  526. <:#284,10800>AppTitleBarName = "<:f240,BArial,255,0,0>Lotus Notes - Workspace<:f>"
  527.  
  528. <:#284,10800>LotusIniAppName = "<:f240,BArial,255,0,0>Notes<:f>"
  529.  
  530. <:#284,10800>ClassName = "<:f240,BArial,255,0,0>Notes<:f>"
  531.  
  532. <:#284,10800>
  533.  
  534. <:#284,10800>hwndNotes = hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)
  535.  
  536. <:#284,10800>if hwndNotes = 0
  537.  
  538. <:#284,10800>    return 0
  539.  
  540. <:#284,10800>endif
  541.  
  542. <:#284,10800>allocglobalvar("lotusapphwnd", 1)
  543.  
  544. <:#284,10800>setglobalvar("lotusapphwnd", hwndNotes)
  545.  
  546. <:#284,10800>
  547.  
  548. <:#284,10800>
  549.  
  550. <:#284,10800>
  551.  
  552. <:#284,10800>hwndpro = findwindow("amiprownda", 0)
  553.  
  554. <:#284,10800>if isiconic(hwndNotes)
  555.  
  556. <:#284,10800>    appsendmessage(findwindow("Progman", 0), WM_SYSCOMMAND, SC_RESTORE, 0)
  557.  
  558. <:#284,10800>endif
  559.  
  560. <:#284,10800>showwindow(hwndpro, 0)
  561.  
  562. <:#284,10800>
  563.  
  564. <:#284,10800>Size = Arraysize(&Instructions)
  565.  
  566. <:#284,10800>For count = 1 to size
  567.  
  568. <:#284,10800>    InstructText = *Instructions(Count)    
  569.  
  570. <:#284,10800>    FillEdit(999 + Count, InstructText)
  571.  
  572. <:#284,10800>Next
  573.  
  574. <:#284,10800>
  575.  
  576. <:#284,10800>FillEdit(8000, Caption)
  577.  
  578. <:#284,10800>FillEdit(8001, ButtonText)
  579.  
  580. <:#284,10800>FillEdit(8002, hWndNotes)
  581.  
  582. <:#284,10800>
  583.  
  584. <:#284,10800>setdlgcallback(0, "initdlg")
  585.  
  586. <:#284,10800>setdlgcallback(71, MacroCallBack)
  587.  
  588. <:#284,10800>runlater("{rmac}!setappfocus({hwnd})", 0.1)
  589.  
  590. <:#284,10800>
  591.  
  592. <:#284,10800>FontDlg(1,0,0)
  593.  
  594. <:#284,10800>dialogbox(".", "box1")
  595.  
  596. <:#284,10800>freeglobalvar("lotusapphwnd")
  597.  
  598. <:#284,10800>FontDlg(4,0,0)
  599.  
  600. <:#284,10800>
  601.  
  602. <:#284,10800>Endit:
  603.  
  604. <:#284,10800>showwindow(hwndpro, 5)
  605.  
  606. <:#284,10800>activateapp(AppTitleBarName)
  607.  
  608. <:#284,10800>end function
  609.  
  610. <:#284,10800>
  611.  
  612. @Function@<:#293,10800>function setappfocus()
  613.  
  614. <:#284,10800>setfocus(getglobalvar$("lotusapphwnd"))
  615.  
  616. <:#284,10800>end function
  617.  
  618. @Function@<:#293,10800>
  619.  
  620. @Function@<:#293,10800>function helpme()
  621.  
  622. <:#568,10800>'WinHelpa(FindWindow("AmiProWndA", 0), strcat$(GetAmiDirectory$(), "HelpPack.hlp"), 0x0001, 15)
  623.  
  624. <:#284,10800>Message("This is the help")
  625.  
  626. <:#284,10800>end function
  627.  
  628. <:#284,10800>
  629.  
  630. @Subhead@<:#284,10800>
  631.  
  632. <:#284,10800>Define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)
  633.  
  634. <:#284,10800>
  635.  
  636. <:#284,10800>
  637.  
  638. @Function@<:#293,10800>function initdlg(hdlg, id, value)
  639.  
  640. <:#284,10800>Caption = GetDlgItemText(Hdlg, 8000)
  641.  
  642. <:#284,10800>ButtonText = GetDlgItemText(Hdlg, 8001)
  643.  
  644. <:#284,10800>
  645.  
  646. <:#284,10800>' Hide the 8000 editbox - this holds the new caption
  647.  
  648. <:#284,10800>ShowWindow(GetDlgItem(Hdlg, 8000),0)
  649.  
  650. <:#284,10800>ShowWindow(GetDlgItem(Hdlg, 8001),0)
  651.  
  652. <:#284,10800>ShowWindow(GetDlgItem(Hdlg, 8002),0)
  653.  
  654. SetDlgItemText(Hdlg, 71, ButtonText)
  655.  
  656. SetWindowText(hdlg,Caption)
  657.  
  658.  
  659. <:#284,10800>for i = 1000 to 1006
  660.  
  661. <:#284,10800>    FontDlg(3,Hdlg, i)
  662.  
  663. <:#284,10800>next
  664.  
  665. <:#284,10800>dim rect(4)
  666.  
  667. <:#284,10800>GetWindowRect(hdlg, &rect)
  668.  
  669. <:#284,10800>x = rect(1)
  670.  
  671. <:#284,10800>y = rect(2)
  672.  
  673. <:#284,10800>cx = rect(3) - x
  674.  
  675. <:#284,10800>cy = rect(4) - y
  676.  
  677. <:#284,10800>setwindowpos(hdlg, -1, x, y, cx, cy, 0)
  678.  
  679. <:#284,10800>end function
  680.  
  681. <:#284,10800>
  682.  
  683. @Function@<:#293,10800>FUNCTION hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)
  684.  
  685. <:#284,10800>' loads a Lotus Appliction
  686.  
  687. <:#284,10800>Define FindWindowLoadLotusApp() DllCall("user,FindWindow,HCC", %1, 0)
  688.  
  689. <:#284,10800>ONERROR endit
  690.  
  691. <:#284,10800>ONCANCEL endit
  692.  
  693. <:#284,10800>hwnd = FindWindowLoadLotusApp(classname)
  694.  
  695. <:#284,10800>if hwnd <<<;> 0
  696.  
  697. <:#284,10800>    ActivateApp(AppTitleBarName)
  698.  
  699. <:#284,10800>    if isiconic(hwnd)
  700.  
  701. <:#284,10800>        appsendmessage(hwnd, WM_SYSCOMMAND, SC_RESTORE, 0)
  702.  
  703. <:#284,10800>    endif
  704.  
  705. <:#284,10800>    RETURN hwnd
  706.  
  707. <:#284,10800>endif
  708.  
  709. <:#284,10800>app = GetProfileString$("<:f240,BArial,255,0,0>Lotus Applications<:f>", LotusIniAppName, "<:f240,BArial,255,0,0>lotus.ini<:f>")
  710.  
  711. <:#284,10800>if app <<<;> ""
  712.  
  713. <:#284,10800>    appexecname = strfield$(app, 1, ".")
  714.  
  715. <:#284,10800>    hwnd = FindWindowLoadLotusApp(classname)
  716.  
  717. <:#284,10800>    if hwnd = 0
  718.  
  719. <:#284,10800>        if Exec("{appexecname}.exe", "") << 32
  720.  
  721. <:#284,10800>            goto endit
  722.  
  723. <:#284,10800>        endif
  724.  
  725. <:#284,10800>    endif
  726.  
  727. <:#284,10800>    hwnd = findwindowLoadLotusApp(classname)
  728.  
  729. <:#284,10800>    if hwnd = 0
  730.  
  731. <:#284,10800>        goto endit
  732.  
  733. <:#284,10800>    endif
  734.  
  735. <:#284,10800>endif
  736.  
  737. <:#284,10800>ActivateApp(AppTitleBarName)
  738.  
  739. <:#284,10800>endit:
  740.  
  741. <:#284,10800>RETURN hwnd
  742.  
  743. <:#284,10800>END FUNCTION
  744.  
  745. <:#284,10800>
  746.  
  747. @Function@<:#293,10800>
  748.  
  749. <:#284,10800>DIALOG    box1
  750.  
  751. -2134376448    11    182    184    199    54    ""    ""    "Insert Automated Form"
  752.  
  753. <:#284,10800>FONT    8    "Helv"
  754.  
  755. <:#568,10800>130    3    65    14    71    1342373889    "button"    "&Insert Ami Pro doc"    0 
  756.  
  757. <:#284,10800>130    20    65    14    2    1342373888    "button"    "Done"    0 
  758.  
  759. <:#284,10800>10    2    105    16    1000    1342177280    "static"    ""    0 
  760.  
  761. <:#284,10800>10    18    109    16    1001    1342177280    "static"    ""    0 
  762.  
  763. 10    34    103    16    1002    1342177280    "static"    ""    0 
  764.  
  765. <:#284,10800>2    2    6    10    1004    1342177280    "static"    "1."    0 
  766.  
  767. <:#284,10800>2    18    6    10    1005    1342177280    "static"    "2."    0 
  768.  
  769. 2    34    6    10    1006    1342177280    "static"    "3."    0 
  770.  
  771. <:#284,10800>131    35    13    6    8000    1350631552    "edit"    ""    0 
  772.  
  773. <:#284,10800>147    35    13    6    8001    1350631552    "edit"    ""    0 
  774.  
  775. <:#284,10800>162    35    16    6    8002    1350631552    "edit"    ""    0 
  776.  
  777. END DIALOG<:p<* >>
  778.  
  779. @Main Macro@<:#284,10800>Function FontDlg(Action, Hdlg, id)
  780.  
  781. <:#284,10800>' 1    Create a font and allocvar
  782.  
  783. <:#284,10800>' 2    Return the handle of the create font 
  784.  
  785. <:#284,10800>' 3    Set the id specified to the font
  786.  
  787. <:#284,10800>' 4    Freeglobalvar and delete created object
  788.  
  789. <:#284,10800>
  790.  
  791. @Outline2@<:#568,10800>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  792.  
  793. @Outline2@<:#284,10800>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  794.  
  795. @Outline2@<:#568,10800>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  796.  
  797. @Outline2@<:#284,10800>
  798.  
  799. @Outline2@<:#284,10800>
  800.  
  801. <:#284,10800>Switch Action
  802.  
  803. <:#284,10800>    Case 1    ' Create the font and store it
  804.  
  805. <:#284,10800>        AllocGlobalVar("FontHandle",1)
  806.  
  807. <:#284,10800>        If GetGlobalVar$("FontHandle") != ""
  808.  
  809. @Outline2@<:#284,10800>            ' If we have already created a small font, return the fonthandle
  810.  
  811. @Outline2@<:#284,10800>            Return GetGlobalVar$("FontHandle")
  812.  
  813. @Outline2@<:#284,10800>        Endif
  814.  
  815. @Outline2@<:#284,10800>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  816.  
  817. <:#284,10800>        If Font
  818.  
  819. <:#284,10800>            SetGlobalVar("FontHandle",Font)
  820.  
  821. <:#284,10800>            Return Font
  822.  
  823. <:#284,10800>        Else
  824.  
  825. <:#284,10800>            Return 0;    ' no font
  826.  
  827. <:#284,10800>        Endif
  828.  
  829. <:#284,10800>        Break;
  830.  
  831. <:#284,10800>    Case 2    ' Return the handle to the font
  832.  
  833. <:#284,10800>        Handle = GetGlobalVar$("FontHandle")
  834.  
  835. <:#284,10800>        If Handle 
  836.  
  837. <:#284,10800>            Return Handle
  838.  
  839. <:#284,10800>        Else
  840.  
  841. <:#284,10800>            Return 0
  842.  
  843. <:#284,10800>        Endif
  844.  
  845. <:#284,10800>
  846.  
  847. <:#284,10800>    Case 3    ' Set the id to the font
  848.  
  849. <:#284,10800>        Handle = GetGlobalVar$("FontHandle")
  850.  
  851. <:#284,10800>        If Handle 
  852.  
  853. <:#284,10800>            IdControl = GetDlgITem(Hdlg, id)
  854.  
  855. <:#284,10800>            SendMessageDlg(idControl, 0x30, Handle, 0)
  856.  
  857. <:#284,10800>            Return 1
  858.  
  859. <:#284,10800>        Else
  860.  
  861. <:#284,10800>            Return 0
  862.  
  863. <:#284,10800>        Endif
  864.  
  865. <:#284,10800>        Break;        
  866.  
  867. <:#284,10800>        
  868.  
  869. <:#284,10800>    Case 4    ' Delete the font and clear the var
  870.  
  871. <:#284,10800>        Handle = GetGlobalVar$("FontHandle")
  872.  
  873. <:#284,10800>        If Handle
  874.  
  875. <:#284,10800>            DeleteObjectDLG(Handle)
  876.  
  877. <:#284,10800>            Stat = 1    
  878.  
  879. <:#284,10800>        Else
  880.  
  881. <:#284,10800>            Stat = 0
  882.  
  883. <:#284,10800>        Endif
  884.  
  885. <:#284,10800>        FreeGlobalVar("FontHandle")
  886.  
  887. <:#284,10800>        Return Stat        
  888.  
  889. <:#284,10800>    Default
  890.  
  891. <:#284,10800>        Message("Fontdlg received an invalid parameter {Action}")
  892.  
  893. <:#284,10800>EndSwitch    
  894.  
  895. <:#284,10800>
  896.  
  897. <:#284,10800>End Function
  898.  
  899. @SubFunction@<:p<* >>
  900.  
  901. @Main Macro@<:#284,10800>Function CellEngine(Action, cFormula)
  902.  
  903. <:#284,10800>'Available Actions
  904.  
  905. <:#284,10800>'    1         Start the engine and allocate globalvar
  906.  
  907. <:#284,10800>'    2        Return the handle to the instance of the sheet
  908.  
  909. <:#284,10800>'    3        Evaluate the formula which is the second param
  910.  
  911. <:#284,10800>'    0        Shut everything down
  912.  
  913. <:#284,10800>'    Default    Expect a formula and return an answer
  914.  
  915. <:#284,10800>
  916.  
  917. <:#284,10800>' these defines may be useful at the beginning of your macro
  918.  
  919. <:#284,10800>Define StartEngine    1
  920.  
  921. <:#284,10800>Define GetInstance    2
  922.  
  923. <:#284,10800>Define CloseEngine    0
  924.  
  925. <:#284,10800>
  926.  
  927. <:#568,10800>Define    CECREATEINSTANCE(LPHANDLE)    DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
  928.  
  929. <:#568,10800>Define    CEDESTROYINSTANCE(HANDLE)    DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
  930.  
  931. <:#568,10800>Define    CECALCNOW(HINSTANCE, lpFormula, lpOutPut)    DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
  932.  
  933. <:#284,10800>
  934.  
  935. <:#284,10800>DefStr hInstance, Answer, Var;
  936.  
  937. <:#284,10800>Mac = GetRunningMacroFile$()
  938.  
  939. <:#284,10800>GlobalInstance = StrCat$(Mac,"hIstance")
  940.  
  941. <:#284,10800>
  942.  
  943. <:#284,10800>Switch Action
  944.  
  945. <:#284,10800>    Case 1
  946.  
  947. <:#284,10800>        ' start the engine
  948.  
  949. <:#284,10800>        LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO")
  950.  
  951. <:#284,10800>        If LibId = 0
  952.  
  953. <:#284,10800>            Message("LTSCE01.DLL not found.  Copy the dll to your windows directory")    
  954.  
  955. <:#284,10800>            Return -1;
  956.  
  957. <:#284,10800>        Endif
  958.  
  959. <:#284,10800>        RetVal = CECREATEINSTANCE(&hInstance)
  960.  
  961. <:#284,10800>        AllocGlobalVar("{GlobalInstance}",1)
  962.  
  963. <:#284,10800>        AllocGlobalVar("{Mac}LibId",1)
  964.  
  965. <:#284,10800>        SetGlobalVar("{Mac}Libid",LibId)
  966.  
  967. <:#284,10800>        SetGlobalVar("{GlobalInstance}",hInstance)
  968.  
  969. <:#284,10800>        Return hInstance;
  970.  
  971. <:#284,10800>        Break;
  972.  
  973. <:#284,10800>
  974.  
  975. <:#284,10800>    Case 2
  976.  
  977. <:#284,10800>        ' return the handle to the instance of the sheet
  978.  
  979. <:#284,10800>        AllocGlobalVar("{GlobalInstance}",1)
  980.  
  981. <:#284,10800>        hInstance = GetGlobalVar$("{GlobalInstance}")
  982.  
  983. <:#284,10800>        Return hInstance;
  984.  
  985. <:#284,10800>        Break;
  986.  
  987. <:#284,10800>
  988.  
  989. <:#284,10800>    Case 3
  990.  
  991. <:#284,10800>        ' Calculate the formula and return the answer
  992.  
  993. <:#284,10800>            AllocGlobalVar("{GlobalInstance}",1)
  994.  
  995. <:#284,10800>            hInstance = GetGlobalVar$("{GlobalInstance}")
  996.  
  997. <:#284,10800>            CECalcNow(hInstance,"{cFormula}",&Answer)
  998.  
  999. <:#284,10800>            Return Answer;
  1000.  
  1001. <:#284,10800>        Break;
  1002.  
  1003. <:#284,10800>
  1004.  
  1005. <:#284,10800>
  1006.  
  1007. <:#284,10800>
  1008.  
  1009. <:#284,10800>    Case 0
  1010.  
  1011. <:#284,10800>        ' destroy the instance of the sheet and free the global var and libid
  1012.  
  1013. <:#284,10800>        AllocGlobalVar("{GlobalInstance}",1)
  1014.  
  1015. <:#284,10800>        AllocGlobalVar("{Mac}LibId",1)
  1016.  
  1017. <:#284,10800>        hInstance = GetGlobalVar$("{GlobalInstance}")
  1018.  
  1019. <:#284,10800>        LibId = GetGlobalVar$("{Mac}LibId")
  1020.  
  1021. <:#284,10800>        If hInstance
  1022.  
  1023. <:#284,10800>            CEDestroyInstance(hInstance)
  1024.  
  1025. <:#284,10800>            DllFreeLib(Libid)
  1026.  
  1027. <:#284,10800>        Endif
  1028.  
  1029. <:#284,10800>        FreeGlobalVar("{GlobalInstance}")
  1030.  
  1031. <:#284,10800>        FreeGlobalVar("{Mac}LibId")
  1032.  
  1033. <:#284,10800>        Break;
  1034.  
  1035. <:#284,10800>
  1036.  
  1037. <:#284,10800>    Default
  1038.  
  1039. <:#284,10800>EndSwitch
  1040.  
  1041. <:#284,10800>End Function
  1042.  
  1043. @Subhead@<:p<* >>
  1044.  
  1045. @Main Macro@<:#284,10800>Function DisplaySplashScreen(Bitmap, DisplayTime, Size)
  1046.  
  1047. @Outline2@<:#284,10800>Define    EndDlg(Hdlg, Status)    DllCall("User,EndDialog,HHH",%1,%2)
  1048.  
  1049. @Outline2@<:#284,10800>
  1050.  
  1051. @Outline2@<:#284,10800>AmiDir = GetAmiDirectory$()
  1052.  
  1053. @Outline2@<:#284,10800>'Bitmap = StrCat$(AmiDir,"\","FXSplash.bmp")
  1054.  
  1055. @Outline2@<:#284,10800>'DisplayTime = 600
  1056.  
  1057. @Outline2@<:#284,10800>FillEdit(8000, DisplayTime)
  1058.  
  1059. @Outline2@<:#284,10800>FillEdit(1000, BitMap)
  1060.  
  1061. @Outline2@<:#284,10800>SetDlgCallBack(0,"Splash_InitDlg")
  1062.  
  1063. @Outline2@<:#284,10800>Box = DialogBox(".","Splash")
  1064.  
  1065. @Outline2@<:#284,10800>End Function
  1066.  
  1067. @Outline2@<:#284,10800>
  1068.  
  1069. @Outline2@<:#284,10800>
  1070.  
  1071. @Function@<:#293,10800>Function Splash_InitDlg(Hdlg)
  1072.  
  1073. @Outline2@<:#284,10800>Delay = GetDlgItemText(Hdlg, 8000)
  1074.  
  1075. @Outline2@<:#284,10800>ShowWindow(GetDlgItem(Hdlg, 8000), 0)    ' Hide the editbox holding the delay interval
  1076.  
  1077. @Outline2@<:#284,10800>ShowWindow(Hdlg, 1)            ' Show the dialogbox - normally in the init it is hidden
  1078.  
  1079. @Outline2@<:#284,10800>For t =  1 to Delay
  1080.  
  1081. @Outline2@<:#284,10800>    Next
  1082.  
  1083. @Outline2@<:#284,10800>EndDlg(Hdlg, 0)
  1084.  
  1085. @Outline2@<:#284,10800>
  1086.  
  1087. @Outline2@<:#284,10800>End Function
  1088.  
  1089. @Outline2@<:#284,10800>
  1090.  
  1091. @Function@<:#293,10800>DIALOG    splash
  1092.  
  1093. <:#284,10800>-2143289344    2    93    46    173    117    ""    ""    ""
  1094.  
  1095. <:#284,10800>1    1    171    115    1000    1342177290    "static"    "filename.bmp"    0 
  1096.  
  1097. <:#284,10800>2    102    44    10    8000    1350631552    "edit"    ""    0 
  1098.  
  1099. @Outline2@<:#284,10800>END DIALOG
  1100.  
  1101. >
  1102.  
  1103. [Embedded]
  1104. 00018761
  1105. >
  1106. [macsum] 12
  1107. Main 0 0 1 32
  1108. FloatingNotesInstructions 124 4 13 39
  1109. setappfocus 1085 0 1 89
  1110. helpme 1169 0 1 93
  1111. initdlg 1216 3 9 102
  1112. hActivateLotusApp 1870 3 4 125
  1113. box1 2464 0 -1 158
  1114. FontDlg 3053 3 5 173
  1115. CellEngine 3979 2 8 234
  1116. DisplaySplashScreen 4926 3 3 306
  1117. Splash_InitDlg 5065 1 3 319
  1118. splash 5349 0 -1 329
  1119. [macse]
  1120. 14 Main
  1121. 0 3 "This macro is provided as a macro library.  This macro library can store useful macro functions"
  1122. 6 0
  1123. 15
  1124. 9
  1125. 14 FloatingNotesInstructions
  1126. 20 00000899
  1127. 19 00000899
  1128. 0 802
  1129. 13
  1130. 8 5
  1131. 5 4
  1132. 21 6 [X]
  1133. 7 "Notes"
  1134. 8 7
  1135. 7 "Lotus Notes - Workspace"
  1136. 8 8
  1137. 7 "Notes"
  1138. 8 9
  1139. 7 "Notes"
  1140. 8 10
  1141. 16 hActivateLotusApp "{8}" "{9}" "{10}"
  1142. 13
  1143. 8 11
  1144. 6 11
  1145. 5 0
  1146. 18 0
  1147. 11 00000263
  1148. 5 0
  1149. 15
  1150. 9
  1151. 0 271 "lotusapphwnd" 1
  1152. 0 264 "lotusapphwnd" "{11}"
  1153. 0 284 "user,FindWindow,HCC" "amiprownda" 0
  1154. 13
  1155. 8 12
  1156. 0 284 "user,IsIconic,HH" "{11}"
  1157. 13
  1158. 11 00000489
  1159. 0 284 "user,FindWindow,HCC" "Progman" 0
  1160. 13
  1161. 0 1036 [X] 274 61728 0
  1162. 0 284 "user,ShowWindow,HHH" "{12}" 0
  1163. 0 1046 &0
  1164. 13
  1165. 8 13
  1166. 5 1
  1167. 8 14
  1168. 6 13
  1169. 6 14
  1170. 18 2
  1171. 12 00000638
  1172. 10 00000704
  1173. 5 1
  1174. 6 14
  1175. 3 0
  1176. 8 14
  1177. 10 00000559
  1178. 6 14
  1179. 22 0
  1180. 8 15
  1181. 5 999
  1182. 6 14
  1183. 3 0
  1184. 0 31 [X] "{15}"
  1185. 10 00000603
  1186. 0 31 8000 "{1}"
  1187. 0 31 8001 "{2}"
  1188. 0 31 8002 "{11}"
  1189. 0 41 0 "initdlg"
  1190. 0 41 71 "{3}"
  1191. 0 285 "{5}!setappfocus({16})" 0.1
  1192. 16 FontDlg 1 0 0
  1193. 0 26 "." "box1"
  1194. 0 266 "lotusapphwnd"
  1195. 16 FontDlg 4 0 0
  1196. 0 284 "user,ShowWindow,HHH" "{12}" 5
  1197. 0 38 "{8}"
  1198. 6 4
  1199. 15
  1200. 9
  1201. 14 setappfocus
  1202. 0 265 "lotusapphwnd"
  1203. 13
  1204. 0 284 "user,SetFocus,HH" [X]
  1205. 6 0
  1206. 15
  1207. 9
  1208. 14 helpme
  1209. 0 3 "This is the help"
  1210. 6 0
  1211. 15
  1212. 9
  1213. 14 initdlg
  1214. 0 42 "{0}" 8000
  1215. 13
  1216. 8 4
  1217. 0 42 "{0}" 8001
  1218. 13
  1219. 8 5
  1220. 0 44 "{0}" 8000
  1221. 13
  1222. 0 284 "user,ShowWindow,HHH" [X] 0
  1223. 0 44 "{0}" 8001
  1224. 13
  1225. 0 284 "user,ShowWindow,HHH" [X] 0
  1226. 0 44 "{0}" 8002
  1227. 13
  1228. 0 284 "user,ShowWindow,HHH" [X] 0
  1229. 0 43 "{0}" 71 "{5}"
  1230. 0 284 "user,SetWindowText,IHC" "{0}" "{4}"
  1231. 5 1000
  1232. 8 6
  1233. 5 1006
  1234. 6 6
  1235. 18 2
  1236. 12 00000388
  1237. 10 00000427
  1238. 5 1
  1239. 6 6
  1240. 3 0
  1241. 8 6
  1242. 10 00000310
  1243. 16 FontDlg 3 "{0}" "{6}"
  1244. 10 00000355
  1245. 5 4
  1246. 21 7 [X]
  1247. 0 284 "user,GetWindowRect,HHN" "{0}" &7
  1248. 5 1
  1249. 22 7
  1250. 8 8
  1251. 5 2
  1252. 22 7
  1253. 8 9
  1254. 5 3
  1255. 22 7
  1256. 6 8
  1257. 3 1
  1258. 8 10
  1259. 5 4
  1260. 22 7
  1261. 6 9
  1262. 3 1
  1263. 8 11
  1264. 0 284 "user,SetWindowPos,HHHHHHHI" "{0}" -1 "{8}" "{9}" "{10}" "{11}" 0
  1265. 6 3
  1266. 15
  1267. 9
  1268. 14 hActivateLotusApp
  1269. 20 00000570
  1270. 19 00000570
  1271. 0 284 "user,FindWindow,HCC" "{2}" 0
  1272. 13
  1273. 8 4
  1274. 6 4
  1275. 5 0
  1276. 18 1
  1277. 11 00000222
  1278. 0 38 "{0}"
  1279. 0 284 "user,IsIconic,HH" "{4}"
  1280. 13
  1281. 11 00000210
  1282. 0 1036 "{4}" 274 61728 0
  1283. 6 4
  1284. 15
  1285. 9
  1286. 0 286 "Lotus Applications" "{1}" "lotus.ini"
  1287. 13
  1288. 8 5
  1289. 6 5
  1290. 7 ""
  1291. 18 1
  1292. 11 00000558
  1293. 0 20 "{5}" 1 "."
  1294. 13
  1295. 8 6
  1296. 0 284 "user,FindWindow,HCC" "{2}" 0
  1297. 13
  1298. 8 4
  1299. 6 4
  1300. 5 0
  1301. 18 0
  1302. 11 00000470
  1303. 0 22 "{6}.exe" ""
  1304. 13
  1305. 5 32
  1306. 18 5
  1307. 11 00000470
  1308. 10 00000570
  1309. 0 284 "user,FindWindow,HCC" "{2}" 0
  1310. 13
  1311. 8 4
  1312. 6 4
  1313. 5 0
  1314. 18 0
  1315. 11 00000558
  1316. 10 00000570
  1317. 0 38 "{0}"
  1318. 6 4
  1319. 15
  1320. 9
  1321. 6 3
  1322. 15
  1323. 9
  1324. DIALOG box1
  1325. -2134376448 11 182 184 199 54 "" "" "Insert Automated Form" 
  1326. FONT 8 "Helv" 
  1327. 130 3 65 14 71 1342373889 "button" "&Insert Ami Pro doc" 0 
  1328. 130 20 65 14 2 1342373888 "button" "Done" 0 
  1329. 10 2 105 16 1000 1342177280 "static" "" 0 
  1330. 10 18 109 16 1001 1342177280 "static" "" 0 
  1331. 10 34 103 16 1002 1342177280 "static" "" 0 
  1332. 2 2 6 10 1004 1342177280 "static" "1." 0 
  1333. 2 18 6 10 1005 1342177280 "static" "2." 0 
  1334. 2 34 6 10 1006 1342177280 "static" "3." 0 
  1335. 131 35 13 6 8000 1350631552 "edit" "" 0 
  1336. 147 35 13 6 8001 1350631552 "edit" "" 0 
  1337. 162 35 16 6 8002 1350631552 "edit" "" 0 
  1338. 14 FontDlg
  1339. 5 1
  1340. 6 0
  1341. 18 0
  1342. 11 00000335
  1343. 0 271 "FontHandle" 1
  1344. 0 265 "FontHandle"
  1345. 13
  1346. 7 ""
  1347. 18 1
  1348. 11 00000143
  1349. 0 265 "FontHandle"
  1350. 13
  1351. 15
  1352. 9
  1353. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  1354. 13
  1355. 8 4
  1356. 6 4
  1357. 11 00000297
  1358. 0 264 "FontHandle" "{4}"
  1359. 6 4
  1360. 15
  1361. 9
  1362. 10 00000309
  1363. 5 0
  1364. 15
  1365. 9
  1366. 10 00000914
  1367. 10 00000914
  1368. 5 2
  1369. 6 0
  1370. 18 0
  1371. 11 00000461
  1372. 0 265 "FontHandle"
  1373. 13
  1374. 8 5
  1375. 6 5
  1376. 11 00000436
  1377. 6 5
  1378. 15
  1379. 9
  1380. 10 00000448
  1381. 5 0
  1382. 15
  1383. 9
  1384. 10 00000914
  1385. 5 3
  1386. 6 0
  1387. 18 0
  1388. 11 00000676
  1389. 0 265 "FontHandle"
  1390. 13
  1391. 8 5
  1392. 6 5
  1393. 11 00000638
  1394. 0 44 "{1}" "{2}"
  1395. 13
  1396. 8 6
  1397. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
  1398. 5 1
  1399. 15
  1400. 9
  1401. 10 00000650
  1402. 5 0
  1403. 15
  1404. 9
  1405. 10 00000914
  1406. 10 00000914
  1407. 5 4
  1408. 6 0
  1409. 18 0
  1410. 11 00000865
  1411. 0 265 "FontHandle"
  1412. 13
  1413. 8 5
  1414. 6 5
  1415. 11 00000810
  1416. 0 284 "gdi,DeleteObject,HH" "{5}"
  1417. 5 1
  1418. 8 7
  1419. 10 00000820
  1420. 5 0
  1421. 8 7
  1422. 0 266 "FontHandle"
  1423. 6 7
  1424. 15
  1425. 9
  1426. 10 00000914
  1427. 0 3 "Fontdlg received an invalid parameter {0}"
  1428. 6 3
  1429. 15
  1430. 9
  1431. 14 CellEngine
  1432. 0 802
  1433. 13
  1434. 8 6
  1435. 0 16 "{6}" "hIstance"
  1436. 13
  1437. 8 7
  1438. 5 1
  1439. 6 0
  1440. 18 0
  1441. 11 00000427
  1442. 0 297 "LTSCE01.DLL" "CECreateInstance" "HO"
  1443. 13
  1444. 8 8
  1445. 6 8
  1446. 5 0
  1447. 18 0
  1448. 11 00000258
  1449. 0 3 "LTSCE01.DLL not found.  Copy the dll to your windows directory"
  1450. 5 -1
  1451. 15
  1452. 9
  1453. 0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &3
  1454. 13
  1455. 8 9
  1456. 0 271 "{7}" 1
  1457. 0 271 "{6}LibId" 1
  1458. 0 264 "{6}Libid" "{8}"
  1459. 0 264 "{7}" "{3}"
  1460. 6 3
  1461. 15
  1462. 9
  1463. 10 00000935
  1464. 10 00000935
  1465. 5 2
  1466. 6 0
  1467. 18 0
  1468. 11 00000531
  1469. 0 271 "{7}" 1
  1470. 0 265 "{7}"
  1471. 13
  1472. 8 3
  1473. 6 3
  1474. 15
  1475. 9
  1476. 10 00000935
  1477. 10 00000935
  1478. 5 3
  1479. 6 0
  1480. 18 0
  1481. 11 00000686
  1482. 0 271 "{7}" 1
  1483. 0 265 "{7}"
  1484. 13
  1485. 8 3
  1486. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{3}" "{1}" &4
  1487. 6 4
  1488. 15
  1489. 9
  1490. 10 00000935
  1491. 10 00000935
  1492. 5 0
  1493. 6 0
  1494. 18 0
  1495. 11 00000935
  1496. 0 271 "{7}" 1
  1497. 0 271 "{6}LibId" 1
  1498. 0 265 "{7}"
  1499. 13
  1500. 8 3
  1501. 0 265 "{6}LibId"
  1502. 13
  1503. 8 8
  1504. 6 3
  1505. 11 00000878
  1506. 0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{3}"
  1507. 0 298 "{8}"
  1508. 0 266 "{7}"
  1509. 0 266 "{6}LibId"
  1510. 10 00000935
  1511. 10 00000935
  1512. 6 2
  1513. 15
  1514. 9
  1515. 14 DisplaySplashScreen
  1516. 0 798
  1517. 13
  1518. 8 4
  1519. 0 31 8000 "{1}"
  1520. 0 31 1000 "{0}"
  1521. 0 41 0 "Splash_InitDlg"
  1522. 0 26 "." "Splash"
  1523. 13
  1524. 8 5
  1525. 6 3
  1526. 15
  1527. 9
  1528. 14 Splash_InitDlg
  1529. 0 42 "{0}" 8000
  1530. 13
  1531. 8 2
  1532. 0 44 "{0}" 8000
  1533. 13
  1534. 0 284 "user,ShowWindow,HHH" [X] 0
  1535. 0 284 "user,ShowWindow,HHH" "{0}" 1
  1536. 5 1
  1537. 8 3
  1538. 6 2
  1539. 6 3
  1540. 18 2
  1541. 12 00000223
  1542. 10 00000236
  1543. 5 1
  1544. 6 3
  1545. 3 0
  1546. 8 3
  1547. 10 00000148
  1548. 10 00000190
  1549. 0 284 "User,EndDialog,HHH" "{0}" 0
  1550. 6 1
  1551. 15
  1552. 9
  1553. DIALOG splash
  1554. -2143289344 2 93 46 173 117 "" "" "" 
  1555. 1 1 171 115 1000 1342177290 "static" "filename.bmp" 0 
  1556. 2 102 44 10 8000 1350631552 "edit" "" 0 
  1557. 00018786
  1558.