home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS009.DSK / 123STYLE.SMM < prev    next >
INI File  |  1994-08-15  |  25KB  |  1,745 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.     Create styles in 123 for Windows based on styles in Ami Pro
  28.     
  29.     
  30.     
  31.     
  32.     776996139
  33.     19
  34.     735895100
  35.     548
  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.     Body Text
  68.     2
  69.     [fnt]
  70.         Arial
  71.         240
  72.         0
  73.         16384
  74.     [algn]
  75.         1
  76.         1
  77.         216
  78.         0
  79.         0
  80.     [spc]
  81.         33
  82.         273
  83.         1
  84.         0
  85.         0
  86.         1
  87.         100
  88.     [brk]
  89.         4
  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.         0
  104.         
  105.         0
  106.         1
  107.         1
  108.         0
  109.         16
  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.     Function
  124.     4
  125.     [fnt]
  126.         Arial
  127.         280
  128.         16711935
  129.         16385
  130.     [algn]
  131.         1
  132.         1
  133.         0
  134.         0
  135.         0
  136.     [spc]
  137.         33
  138.         244
  139.         1
  140.         0
  141.         0
  142.         1
  143.         100
  144.     [brk]
  145.         68
  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.         1
  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.     Body Text
  176.     0
  177.     0
  178. [tag]
  179.     sans
  180.     5
  181.     [fnt]
  182.         AvantGarde
  183.         240
  184.         0
  185.         16384
  186.     [algn]
  187.         1
  188.         1
  189.         216
  190.         0
  191.         0
  192.     [spc]
  193.         33
  194.         273
  195.         1
  196.         0
  197.         0
  198.         1
  199.         100
  200.     [brk]
  201.         4
  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.         0
  216.         
  217.         0
  218.         1
  219.         1
  220.         0
  221.         16
  222.         0
  223.         0
  224.     [nfmt]
  225.         272
  226.         1
  227.         3
  228.         .
  229.         ,
  230.         $
  231.     sans
  232.     0
  233.     0
  234. [tag]
  235.     serif
  236.     6
  237.     [fnt]
  238.         Bookman
  239.         240
  240.         0
  241.         49152
  242.     [algn]
  243.         1
  244.         1
  245.         216
  246.         0
  247.         0
  248.     [spc]
  249.         33
  250.         273
  251.         1
  252.         0
  253.         0
  254.         1
  255.         100
  256.     [brk]
  257.         4
  258.     [line]
  259.         8
  260.         0
  261.         1
  262.         0
  263.         1
  264.         1
  265.         1
  266.         10
  267.         10
  268.         1
  269.     [spec]
  270.         0
  271.         0
  272.         
  273.         0
  274.         1
  275.         1
  276.         0
  277.         16
  278.         0
  279.         0
  280.     [nfmt]
  281.         272
  282.         1
  283.         3
  284.         .
  285.         ,
  286.         $
  287.     serif
  288.     0
  289.     0
  290. [tag]
  291.     deco
  292.     7
  293.     [fnt]
  294.         BrushScript
  295.         240
  296.         0
  297.         16386
  298.     [algn]
  299.         1
  300.         1
  301.         216
  302.         0
  303.         0
  304.     [spc]
  305.         33
  306.         273
  307.         1
  308.         0
  309.         0
  310.         1
  311.         100
  312.     [brk]
  313.         4
  314.     [line]
  315.         8
  316.         0
  317.         1
  318.         0
  319.         1
  320.         1
  321.         1
  322.         10
  323.         10
  324.         1
  325.     [spec]
  326.         0
  327.         0
  328.         
  329.         0
  330.         1
  331.         1
  332.         0
  333.         16
  334.         0
  335.         0
  336.     [nfmt]
  337.         272
  338.         1
  339.         3
  340.         .
  341.         ,
  342.         $
  343.     deco
  344.     0
  345.     0
  346. [l1]
  347.     0
  348. [pg]
  349.     9
  350.     40 0 58 32 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
  351.     84 0 34 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
  352.     128 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
  353.     172 0 59 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
  354.     216 76 78 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
  355.     261 0 19 0 1 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  356.     306 0 21 0 1 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  357.     349 0 11 32 1 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  358.     370 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
  359. [edoc]
  360. <:#284,9360>Macro by Charlie Pappas
  361.  
  362. <:#284,9360>
  363.  
  364. <:#284,9360><:X3,-32768;include "amixlate.sam!123style">'123STYLE.SMM
  365.  
  366. <:#284,9360>define str400    "{{SELECT {range}}"
  367.  
  368. <:#284,9360>define str401    <:f240,BArial,255,0,0>"Lotus 1-2-3<:f><:f240,BArial,255,0,0>"<:f>
  369.  
  370. <:#284,9360>define str402    "<[>del]<[>home]"
  371.  
  372. <:#284,9360>define str403    "A1"
  373.  
  374. <:#284,9360>define str404    "{{SELECT {range}}"
  375.  
  376. <:#284,9360>define str405    "Unable to contact 1-2-3 for Windows.  Is the application running?"
  377.  
  378. <:#284,9360>define str406    "No styles selected."
  379.  
  380. <:#284,9360>define str407    "Too many styles."
  381.  
  382. <:#284,9360>define str408    "OFF"
  383.  
  384. <:#284,9360>define str409    "OFF"
  385.  
  386. <:#284,9360>define str410    "OFF"
  387.  
  388. <:#284,9360>define str411    "ON"
  389.  
  390. <:#284,9360>define str412    "ON"
  391.  
  392. <:#284,9360>define str413    "ON"
  393.  
  394. <:#284,9360>define str414    "Left"
  395.  
  396. <:#284,9360>define str415    "Right"
  397.  
  398. <:#284,9360>define str416    "Center"
  399.  
  400. <:#284,9360>define str417    "Justified"
  401.  
  402. <:#284,9360>define str418    "Left"
  403.  
  404. <:#284,9360>define str419    "TOP"
  405.  
  406. <:#284,9360>define str420    "ON"
  407.  
  408. <:#284,9360>define str421    "BOTTOM"
  409.  
  410. <:#284,9360>define str422    "ON"
  411.  
  412. <:#284,9360>define str423    <:f240,BArial,255,0,0>"Lotus 1-2-3<:f><:f240,BArial,255,0,0>"<:f>
  413.  
  414. <:#284,9360>define str424    "<[>alts]s{stylename}<[>enter]"
  415.  
  416. <:#284,9360>'define str424    "<[>alts]s<[>shiftins]<[>enter]"
  417.  
  418. <:#284,9360>'END SECTION<:X~3,-32768;include "amixlate.sam!123style">
  419.  
  420. <:#284,9360>
  421.  
  422. <:#568,9360>define    CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  423.  
  424. <:#284,9360>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)
  425.  
  426. <:#568,9360>define    SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  427.  
  428. <:#284,9360>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
  429.  
  430. <:#568,9360>define GetSelItems(hwnd, max, array) DllCall("user,sendmessage,HHHHN", %1, LB_GETSELITEMS, %2, %3)
  431.  
  432. <:#568,9360>define GetLBText(hwnd, index, ptr) dllcall("user,sendmessage,HHHHC", %1, LB_GETTEXT, %2, %3)
  433.  
  434. <:#284,9360>define    WM_SETFONT    0x30
  435.  
  436. <:#284,9360>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  437.  
  438. <:#284,9360>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
  439.  
  440. <:#568,9360>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  441.  
  442. <:#284,9360>
  443.  
  444. <:#284,9360>define LB_GETSELCOUNT 0x411
  445.  
  446. <:#284,9360>define LB_GETCOUNT 1036
  447.  
  448. <:#284,9360>define LB_SETSEL 1030
  449.  
  450. <:#284,9360>define LB_GETSELITEMS 0x412
  451.  
  452. <:#284,9360>define LB_GETTEXT 0x40a
  453.  
  454. <:#284,9360>
  455.  
  456. <:#284,9360>declare X123W(Cmd)
  457.  
  458. <:#284,9360>declare 123color(color)
  459.  
  460. <:#284,9360>declare init123()
  461.  
  462. <:#284,9360>declare createdlgfont()
  463.  
  464. <:#284,9360>declare setfont(hdlg, id)
  465.  
  466. <:#284,9360>declare deletefont()
  467.  
  468. <:#284,9360>declare make123style(stylename)
  469.  
  470. <:#284,9360>
  471.  
  472. <:#284,9360>
  473.  
  474. @Function@<:#332,9360>function 123style()
  475.  
  476.  
  477.  
  478. <:#284,9360>oncancel endit
  479.  
  480. <:#284,9360>if getopenfilecount() << 1
  481.  
  482. <:#284,9360>    return 0
  483.  
  484. <:#284,9360>endif
  485.  
  486. <:#284,9360>stylecount = GetStyleCount()
  487.  
  488. <:#284,9360>dim stylenames(stylecount)
  489.  
  490. <:#284,9360>GetStyleNames(&stylenames)
  491.  
  492. <:#284,9360>rmac = getrunningmacrofile$()
  493.  
  494. <:#284,9360>
  495.  
  496. <:#284,9360>allocglobalvar("123stylenames", 100)
  497.  
  498. <:#284,9360>freeglobalvar("123stylenames")
  499.  
  500. <:#284,9360>allocglobalvar("123stylenames", 100)
  501.  
  502. <:#284,9360>
  503.  
  504. <:#284,9360>SetDlgCallBack(0, "{rmac}!initdlg")
  505.  
  506. <:#284,9360>SetDlgCallBack(20, "{rmac}!selall") ' select all check box
  507.  
  508. <:#284,9360>SetDlgCallBack(9000, "{rmac}!uncheck") ' uncheck routine for box
  509.  
  510. <:#284,9360>SetDlgCallBack(71, "{rmac}!doit") ' this is our ok button
  511.  
  512. <:#284,9360>filledit(8000, &stylenames)
  513.  
  514. <:#284,9360>
  515.  
  516. <:#284,9360>dlgkeyinterrupt(<[>f1], "{rmac}!helpme")
  517.  
  518. <:#284,9360>if dialogbox(".", "box1") = 0
  519.  
  520. <:#284,9360>    goto endit
  521.  
  522. <:#284,9360>endif
  523.  
  524. <:#284,9360>
  525.  
  526. <:#284,9360>hwnd = findwindow("123WParent", 0)
  527.  
  528. <:#284,9360>showwindow(hwnd, 0)
  529.  
  530. <:#284,9360>
  531.  
  532. <:#284,9360>range = "IV8190" ' selecting another cell
  533.  
  534. <:#284,9360>if x123w(str400) <<<;> 1
  535.  
  536. <:#284,9360>    goto endit
  537.  
  538. <:#284,9360>endif
  539.  
  540. <:#284,9360>
  541.  
  542. <:#284,9360>stylecount = getglobalarray$("123stylenames", 1)
  543.  
  544. <:#284,9360>for i = 1 to stylecount
  545.  
  546. <:#284,9360>     test = make123style(getglobalarray$("123stylenames", (i + 1))) 
  547.  
  548. <:#284,9360>        if test = 0
  549.  
  550. <:#284,9360>        goto endit
  551.  
  552. <:#284,9360>    endif
  553.  
  554. <:#284,9360>next
  555.  
  556. <:#284,9360>activateapp(str401)
  557.  
  558. <:#284,9360>sendkeys(str402)
  559.  
  560. <:#284,9360>range = str403 ' selecting first cell in 123
  561.  
  562. <:#284,9360>if x123w(str404) <<<;> 1
  563.  
  564. <:#284,9360>    goto endit
  565.  
  566. <:#284,9360>endif
  567.  
  568. <:#284,9360>endit:
  569.  
  570. <:#284,9360>showwindow(hwnd, 5)
  571.  
  572. <:#284,9360>activateapp("")
  573.  
  574. <:#284,9360>deletefont()
  575.  
  576. <:#284,9360>allocglobalvar("123stylenames", 100)
  577.  
  578. <:#284,9360>freeglobalvar("123stylenames")
  579.  
  580. <:#284,9360>allocglobalvar(strcat$(getrunningmacrofile$(), "id"), 1)
  581.  
  582. <:#284,9360>if getglobalvar$(strcat$(getrunningmacrofile$(), "id")) <;> 0
  583.  
  584. <:#284,9360>    ddeterminate(getglobalvar$(strcat$(getrunningmacrofile$(), "id")))
  585.  
  586. <:#284,9360>endif
  587.  
  588. <:#284,9360>freeglobalvar(strcat$(getrunningmacrofile$(), "id"))
  589.  
  590. <:#284,9360>ClipboardWrite("", 1)
  591.  
  592. <:#284,9360>end function
  593.  
  594. <:#284,9360>
  595.  
  596. <:#284,9360>
  597.  
  598. @Function@<:#332,9360>function helpme()
  599.  
  600. <:#568,9360>WinHelpa(FindWindow("AmiProWndA", 0), strcat$(GetAmiDirectory$(), "HelpPack.hlp"), 0x0001, 20)
  601.  
  602. <:#284,9360>end function
  603.  
  604. <:#284,9360>
  605.  
  606. <:#284,9360>
  607.  
  608. @Function@<:#332,9360>function doit(hdlg, id, dummy)
  609.  
  610. <:#284,9360>'ignorekeyboard(1)
  611.  
  612. <:#284,9360>onerror endit
  613.  
  614. <:#284,9360>oncancel endit
  615.  
  616. <:#284,9360>if init123() <<<;> 1
  617.  
  618. <:#284,9360>    message(str405, "Ami Pro")
  619.  
  620. <:#284,9360>    exit function
  621.  
  622. <:#284,9360>endif
  623.  
  624. <:#284,9360>PostMessage(Hdlg,0x111,1,0) ' close the dialog box
  625.  
  626. <:#284,9360>hwnd = GetDlgItem(hdlg, 9000) ' get handle to list box on the right
  627.  
  628. <:#568,9360>cnt = AppSendMessage(hwnd, LB_GETSELCOUNT, 0, 0) ' how many items selected?
  629.  
  630. <:#284,9360>if cnt << 1
  631.  
  632. <:#284,9360>    message(str406, "Ami Pro") ' nothing selected
  633.  
  634. <:#284,9360>    goto endit
  635.  
  636. <:#284,9360>endif
  637.  
  638. <:#284,9360>dim    array(cnt)
  639.  
  640. <:#284,9360>GetSelItems(hwnd, cnt, &array) ' get selected items
  641.  
  642. <:#284,9360>defstr stuff;
  643.  
  644. <:#284,9360>for i = 1 to cnt
  645.  
  646. <:#284,9360>    if cnt = 100
  647.  
  648. <:#284,9360>        message(str407, "Ami Pro")
  649.  
  650. <:#284,9360>        goto endit
  651.  
  652. <:#284,9360>    endif
  653.  
  654. <:#284,9360>    GetLBText(hwnd, array(i), &stuff) ' get each selected style and pass it to modfont
  655.  
  656. <:#284,9360>    setglobalarray("123stylenames", (i + 1), stuff)
  657.  
  658. <:#284,9360>next
  659.  
  660. <:#284,9360>setglobalarray("123stylenames", 1, cnt)
  661.  
  662. <:#284,9360>stat = 1
  663.  
  664. <:#284,9360>endit:
  665.  
  666. <:#284,9360>end function
  667.  
  668. <:#284,9360>
  669.  
  670. <:#284,9360>
  671.  
  672. @Function@<:#332,9360>function make123style(stylename)
  673.  
  674. <:#284,9360>onerror endit
  675.  
  676. <:#284,9360>oncancel endit
  677.  
  678. <:#284,9360>boldflag = str408
  679.  
  680. <:#284,9360>italicflag = str409
  681.  
  682. <:#284,9360>underlineflag = str410
  683.  
  684. <:#284,9360>linetop = 0
  685.  
  686. <:#284,9360>linebottom = 0
  687.  
  688. <:#284,9360>
  689.  
  690. <:#284,9360>styledata = getinfo(93, stylename) ' this tells us what the current style is
  691.  
  692. <:#284,9360>stylealign = getinfo(92, stylename)
  693.  
  694. <:#284,9360>stylelines = getinfo(94, stylename)
  695.  
  696. <:#284,9360>
  697.  
  698. <:#284,9360>stylelines = strfield$(stylelines, 1, ",")
  699.  
  700. <:#284,9360>align = strfield$(stylealign, 1, ",")
  701.  
  702. <:#284,9360>size = strfield$(styledata, 1, ",")    ' get the size in twips
  703.  
  704. <:#284,9360>color = strfield$(styledata, 2, ",") ' get the color in rgb, 32 bits, 0=black
  705.  
  706. <:#284,9360>styleflag = strfield$(styledata, 3, ",") ' get the attributes as a flag
  707.  
  708. <:#284,9360>if styleflag & 4
  709.  
  710. <:#284,9360>    boldflag = str411
  711.  
  712. <:#284,9360>endif
  713.  
  714. <:#284,9360>if styleflag & 8
  715.  
  716. <:#284,9360>    italicflag = str412
  717.  
  718. <:#284,9360>endif
  719.  
  720. <:#284,9360>if styleflag & 16
  721.  
  722. <:#284,9360>    underlineflag = str413
  723.  
  724. <:#284,9360>endif
  725.  
  726. <:#284,9360>
  727.  
  728. <:#284,9360>switch align
  729.  
  730. <:#284,9360>    case 1
  731.  
  732. <:#284,9360>        alignment = str414
  733.  
  734. <:#284,9360>    case 2
  735.  
  736. <:#284,9360>        alignment = str415
  737.  
  738. <:#284,9360>    case 4
  739.  
  740. <:#284,9360>        alignment = str416
  741.  
  742. <:#284,9360>    case 8
  743.  
  744. <:#284,9360>        alignment = str417
  745.  
  746. <:#284,9360>    default
  747.  
  748. <:#284,9360>        alignment = str418
  749.  
  750. <:#284,9360>endswitch
  751.  
  752. <:#284,9360>
  753.  
  754. <:#284,9360>switch stylelines
  755.  
  756. <:#284,9360>    case 9
  757.  
  758. <:#284,9360>        linetop = 1
  759.  
  760. <:#284,9360>    case 10
  761.  
  762. <:#284,9360>        linebottom = 1
  763.  
  764. <:#284,9360>    case 11
  765.  
  766. <:#284,9360>        linetop = 1
  767.  
  768. <:#284,9360>        linebottom = 1
  769.  
  770. <:#284,9360>endswitch            
  771.  
  772. <:#284,9360>
  773.  
  774. <:#284,9360>name = strfield$(styledata, 4, ",")
  775.  
  776. <:#284,9360>Size = (Size / 20)
  777.  
  778. <:#284,9360>color = 123color(color)
  779.  
  780. <:#284,9360>lbr=CHR$(123)
  781.  
  782. <:#284,9360>
  783.  
  784. <:#284,9360>if x123w("{stylename}~") <<<;> 1
  785.  
  786. <:#284,9360>    return 0
  787.  
  788. <:#284,9360>endif
  789.  
  790. <:#568,9360> if x123w(<:f240,BArial,255,0,0>"{lbr}<:f><:f240,BArial,255,0,0>STYLE-FONT-ALL {name};{size};{Boldflag};{Italicflag};{Underlineflag};;0;SWISS;ANSI}"<:f>) <<<;> 1
  791.  
  792. <:#284,9360>    return 0
  793.  
  794. <:#284,9360>endif
  795.  
  796. <:#284,9360>if x123w(<:f240,BArial,255,0,0>"{lbr}STYLE-TEXT-COLOR {color}}"<:f>) <<<;> 1
  797.  
  798. <:#284,9360>    return 0
  799.  
  800. <:#284,9360>endif
  801.  
  802. <:#284,9360>if x123w(<:f240,BArial,255,0,0>"{lbr}STYLE-ALIGN-HORIZONTAL {alignment}}"<:f>) <<<;> 1
  803.  
  804. <:#284,9360>    return 0
  805.  
  806. <:#284,9360>endif
  807.  
  808. <:#284,9360>
  809.  
  810. <:#284,9360>
  811.  
  812. <:#284,9360>
  813.  
  814. <:#284,9360>if linetop = 1
  815.  
  816. <:#284,9360>    border = str419
  817.  
  818. <:#284,9360>    state = str420
  819.  
  820. <:#284,9360>    if x123w(<:f240,BArial,255,0,0>"{lbr}STYLE-BORDER {border};{state};}"<:f>) <<<;> 1
  821.  
  822. <:#284,9360>        return 0
  823.  
  824. <:#284,9360>    endif
  825.  
  826. <:#284,9360>endif
  827.  
  828. <:#284,9360>if linebottom = 1
  829.  
  830. <:#284,9360>    border = str421
  831.  
  832. <:#284,9360>    state = str422
  833.  
  834. <:#284,9360>    if x123w(<:f240,BArial,255,0,0>"{lbr}STYLE-BORDER {border};{state};}"<:f>) <<<;> 1
  835.  
  836. <:#284,9360>        return 0
  837.  
  838. <:#284,9360>    endif
  839.  
  840. <:#284,9360>endif
  841.  
  842. <:#284,9360>activateapp(str423)
  843.  
  844. <:#284,9360>sendkeys(str424) ' Sending keys to 123 for Style/Named Style box
  845.  
  846. <:#284,9360>endit:
  847.  
  848. <:#284,9360>return 1
  849.  
  850. <:#284,9360>end function
  851.  
  852. <:#284,9360>
  853.  
  854. <:#284,9360>
  855.  
  856. @Function@<:#332,9360>function init123()
  857.  
  858. <:#284,9360>allocglobalvar(strcat$(getrunningmacrofile$(), "id"), 1)
  859.  
  860. <:#284,9360>setglobalvar(strcat$(getrunningmacrofile$(), "id"), 0)
  861.  
  862. <:#284,9360>id = ddeinitiate("123w", "system")
  863.  
  864. <:#284,9360>if id = 0
  865.  
  866. <:#284,9360>    return 0
  867.  
  868. <:#284,9360>endif
  869.  
  870. <:#284,9360>setglobalvar(strcat$(getrunningmacrofile$(), "id"), id)
  871.  
  872. <:#284,9360>return 1
  873.  
  874. <:#284,9360>end function
  875.  
  876. <:#284,9360>
  877.  
  878. <:#284,9360>
  879.  
  880. @Function@<:#332,9360>FUNCTION X123W(Cmd)
  881.  
  882. <:#284,9360>id = getglobalvar$(strcat$(getrunningmacrofile$(), "id"))
  883.  
  884. lb = Chr$(91)
  885.  
  886. RunCmd = StrCat$("{lb}RUN(""",Cmd)
  887.  
  888. <:#284,9360>RunCmd = StrCat$(RunCmd,""")]")
  889.  
  890. <:#284,9360>return DDEExecute(id, RunCmd)
  891.  
  892. <:#284,9360>END FUNCTION
  893.  
  894. <:#284,9360>
  895.  
  896. <:#284,9360>
  897.  
  898. @Function@<:#332,9360>function 123color(color)
  899.  
  900. <:#284,9360>switch color
  901.  
  902. <:#284,9360>    case 16777215 ' white
  903.  
  904. <:#284,9360>        color = 15
  905.  
  906. <:#284,9360>    case 16776960 ' light blue
  907.  
  908. <:#284,9360>        color = 70
  909.  
  910. <:#284,9360>    case 65535 ' yellow
  911.  
  912. <:#284,9360>        color = 50
  913.  
  914. <:#284,9360>    case 16711935 ' purple
  915.  
  916. <:#284,9360>        color = 172
  917.  
  918. <:#284,9360>    case 65280 ' green
  919.  
  920. <:#284,9360>        color = 132
  921.  
  922. <:#284,9360>    case 255 ' red
  923.  
  924. <:#284,9360>        color = 129
  925.  
  926. <:#284,9360>    case 16711680 ' blue
  927.  
  928. <:#284,9360>        color = 168
  929.  
  930. <:#284,9360>    case 0 ' black
  931.  
  932. <:#284,9360>        color = 255
  933.  
  934. <:#284,9360>    default
  935.  
  936. <:#284,9360>        color = 255
  937.  
  938. <:#284,9360>endswitch
  939.  
  940. <:#284,9360>return color
  941.  
  942. <:#284,9360>end function
  943.  
  944. <:#284,9360>
  945.  
  946. <:#284,9360>
  947.  
  948. @Function@<:#332,9360>function createdlgfont()
  949.  
  950. <:#284,9360>rmac = getrunningmacrofile$()
  951.  
  952. <:#284,9360>hfont = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  953.  
  954. <:#284,9360>if hfont <;> 1
  955.  
  956. <:#284,9360>    AllocGlobalVar("{rmac}hfont", 1)
  957.  
  958. <:#284,9360>    SetGlobalVar("{rmac}hfont", hFont)
  959.  
  960. <:#284,9360>    Return hfont
  961.  
  962. <:#284,9360>endif
  963.  
  964. <:#284,9360>End Function
  965.  
  966. <:#284,9360>
  967.  
  968. <:#284,9360>
  969.  
  970. @Function@<:#332,9360>function deletefont()
  971.  
  972. <:#284,9360>rmac = getrunningmacrofile$()
  973.  
  974. <:#284,9360>AllocGlobalVar("{rmac}hfont", 1)
  975.  
  976. <:#284,9360>hfont = getglobalvar$("{rmac}hfont")
  977.  
  978. <:#284,9360>if hfont <;> 1
  979.  
  980. <:#284,9360>    deleteobject(hfont)
  981.  
  982. <:#284,9360>    freeglobalvar("{rmac}hfont")
  983.  
  984. <:#284,9360>endif
  985.  
  986. <:#284,9360>end function
  987.  
  988. <:#284,9360>
  989.  
  990. @Function@<:#332,9360>function setfont(hdlg, id)
  991.  
  992. <:#284,9360>rmac = getrunningmacrofile$()
  993.  
  994. <:#284,9360>AllocGlobalVar("{rmac}hfont", 1)
  995.  
  996. <:#284,9360>hfont = getglobalvar$("{rmac}hfont")
  997.  
  998. <:#284,9360>if hfont << 1
  999.  
  1000. <:#284,9360>    if createdlgfont() << 1
  1001.  
  1002. <:#284,9360>        return 0
  1003.  
  1004. <:#284,9360>    endif
  1005.  
  1006. <:#284,9360>endif
  1007.  
  1008. <:#284,9360>hfont = getglobalvar$("{rmac}hfont")
  1009.  
  1010. <:#284,9360>SendMessage(GetDlgITem(Hdlg, id), WM_SETFONT, hfont, 0)
  1011.  
  1012. <:#284,9360>end function
  1013.  
  1014. <:#284,9360>
  1015.  
  1016. <:#284,9360>
  1017.  
  1018. @Function@<:#332,9360>function initdlg(hdlg, id, value)
  1019.  
  1020. <:#284,9360>for i = 1000 to 1008
  1021.  
  1022. <:#284,9360>    setfont(hdlg, i)
  1023.  
  1024. <:#284,9360>next
  1025.  
  1026. <:#284,9360>end function
  1027.  
  1028. <:#284,9360>
  1029.  
  1030. <:#284,9360>
  1031.  
  1032. @Function@<:#332,9360>function uncheck(hdlg, id, dummy)
  1033.  
  1034. <:#284,9360>setdlgitemtext(hdlg, 20, 0) ' uncheck the select all box if user clicks on the listbox
  1035.  
  1036. <:#284,9360>end function
  1037.  
  1038. <:#284,9360>
  1039.  
  1040. <:#284,9360>
  1041.  
  1042. @Function@<:#332,9360>function selall(hdlg, id, dummy)
  1043.  
  1044. <:#284,9360>hdlg = GetDlgItem(hdlg, 9000) ' this routine selects all items in a listbox
  1045.  
  1046. <:#284,9360>val = (0 * 0x10000 + -1)
  1047.  
  1048. <:#284,9360>SendMessage(hdlg, LB_SETSEL, 1, val)
  1049.  
  1050. <:#284,9360>end function
  1051.  
  1052. <:#284,9360>
  1053.  
  1054. <:#284,9360>
  1055.  
  1056. @Function@<:#332,9360>DIALOG    box1
  1057.  
  1058. <:#568,9360>-2134376448    14    86    30    172    161    ""    "amidialog"    "Convert Styles"
  1059.  
  1060. <:#284,9360>FONT    8    "Helv"
  1061.  
  1062. <:#568,9360>4    4    116    18    1000    1342177280    "static"    "This feature creates 1-2-3 for Windows styles from Ami Pro styles"    0 
  1063.  
  1064. <:#284,9360>5    24    8    10    1001    1342177280    "static"    "1."    0 
  1065.  
  1066. <:#284,9360>15    24    52    10    1002    1342177280    "static"    "Load 1-2-3."    0 
  1067.  
  1068. <:#284,9360>5    34    7    10    1003    1342177280    "static"    "2."    0 
  1069.  
  1070. <:#568,9360>15    34    146    17    1004    1342177280    "static"    "Open the 1-2-3 spreadsheet for which you want to create styles."    0 
  1071.  
  1072. <:#284,9360>5    52    8    10    1005    1342177280    "static"    "3."    0 
  1073.  
  1074. <:#568,9360>15    52    143    17    1006    1342177280    "static"    "Open the Ami Pro document from which you want to create the styles."    0 
  1075.  
  1076. <:#284,9360>5    70    6    10    1007    1342177280    "static"    "4."    0 
  1077.  
  1078. <:#568,9360>15    70    145    17    1008    1342177280    "static"    "Choose this 'Convert Styles' feature and choose the styles which you want to convert."    0 
  1079.  
  1080. <:#568,9360>10    93    86    10    1009    1342177280    "static"    "&Ami Pro styles to convert:"    0 
  1081.  
  1082. <:#284,9360>10    105    57    50    9000    1352728587    "listbox"    ""    0 
  1083.  
  1084. <:#284,9360>75    145    69    12    20    1342242819    "button"    "&Select all"    0 
  1085.  
  1086. <:#284,9360>128    2    40    14    71    1342373889    "button"    "OK"    0 
  1087.  
  1088. <:#284,9360>128    18    40    14    2    1342373888    "button"    "Cancel"    0 
  1089.  
  1090. <:#284,9360>END DIALOG
  1091.  
  1092. <:#284,9360>
  1093.  
  1094. <:#284,9360>
  1095.  
  1096. <:#284,9360>
  1097.  
  1098. <:#284,9360>
  1099.  
  1100. >
  1101.  
  1102. [Embedded]
  1103. 00018184
  1104. >
  1105. [macsum] 14
  1106. 123style 0 0 8 57
  1107. helpme 1278 0 1 119
  1108. doit 1430 3 7 124
  1109. make123style 2188 1 18 156
  1110. init123 3833 0 2 248
  1111. X123W 4073 1 4 260
  1112. 123color 4253 1 1 269
  1113. createdlgfont 4769 0 3 294
  1114. deletefont 4985 0 3 305
  1115. setfont 5157 2 3 315
  1116. initdlg 5427 3 2 329
  1117. uncheck 5579 3 1 336
  1118. selall 5620 3 2 341
  1119. box1 5755 0 -1 348
  1120. [macse]
  1121. 14 123style
  1122. 19 00000935
  1123. 0 1050
  1124. 13
  1125. 5 1
  1126. 18 5
  1127. 11 00000074
  1128. 5 0
  1129. 15
  1130. 9
  1131. 0 1308
  1132. 13
  1133. 8 1
  1134. 6 1
  1135. 21 2 [X]
  1136. 0 1309 &2
  1137. 0 802
  1138. 13
  1139. 8 3
  1140. 0 271 "123stylenames" 100
  1141. 0 266 "123stylenames"
  1142. 0 271 "123stylenames" 100
  1143. 0 41 0 "{3}!initdlg"
  1144. 0 41 20 "{3}!selall"
  1145. 0 41 9000 "{3}!uncheck"
  1146. 0 41 71 "{3}!doit"
  1147. 0 31 8000 &2
  1148. 0 47 112 "{3}!helpme"
  1149. 0 26 "." "box1"
  1150. 13
  1151. 5 0
  1152. 18 0
  1153. 11 00000394
  1154. 10 00000935
  1155. 0 284 "user,FindWindow,HCC" "123WParent" 0
  1156. 13
  1157. 8 4
  1158. 0 284 "user,ShowWindow,HHH" "{4}" 0
  1159. 7 "IV8190"
  1160. 8 5
  1161. 16 x123w "{{SELECT {5}}"
  1162. 13
  1163. 5 1
  1164. 18 1
  1165. 11 00000568
  1166. 10 00000935
  1167. 0 273 "123stylenames" 1
  1168. 13
  1169. 8 1
  1170. 5 1
  1171. 8 6
  1172. 6 1
  1173. 6 6
  1174. 18 2
  1175. 12 00000687
  1176. 10 00000818
  1177. 5 1
  1178. 6 6
  1179. 3 0
  1180. 8 6
  1181. 10 00000612
  1182. 6 6
  1183. 5 1
  1184. 3 0
  1185. 0 273 "123stylenames" [X]
  1186. 13
  1187. 16 make123style [X]
  1188. 13
  1189. 8 7
  1190. 6 7
  1191. 5 0
  1192. 18 0
  1193. 11 00000805
  1194. 10 00000935
  1195. 10 00000654
  1196. 0 38 "Lotus 1-2-3"
  1197. 0 36 "[46][36]"
  1198. 7 "A1"
  1199. 8 5
  1200. 16 x123w "{{SELECT {5}}"
  1201. 13
  1202. 5 1
  1203. 18 1
  1204. 11 00000935
  1205. 10 00000935
  1206. 0 284 "user,ShowWindow,HHH" "{4}" 5
  1207. 0 38 ""
  1208. 16 deletefont
  1209. 0 271 "123stylenames" 100
  1210. 0 266 "123stylenames"
  1211. 0 802
  1212. 13
  1213. 0 16 [X] "id"
  1214. 13
  1215. 0 271 [X] 1
  1216. 0 802
  1217. 13
  1218. 0 16 [X] "id"
  1219. 13
  1220. 0 265 [X]
  1221. 13
  1222. 5 0
  1223. 18 3
  1224. 11 00001212
  1225. 0 802
  1226. 13
  1227. 0 16 [X] "id"
  1228. 13
  1229. 0 265 [X]
  1230. 13
  1231. 0 9 [X]
  1232. 0 802
  1233. 13
  1234. 0 16 [X] "id"
  1235. 13
  1236. 0 266 [X]
  1237. 0 1038 "" 1
  1238. 6 0
  1239. 15
  1240. 9
  1241. 14 helpme
  1242. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  1243. 13
  1244. 0 798
  1245. 13
  1246. 0 16 [X] "HelpPack.hlp"
  1247. 13
  1248. 0 284 "user,WinHelp,HHCHJ" [X] [X] 1 20
  1249. 6 0
  1250. 15
  1251. 9
  1252. 14 doit
  1253. 20 00000746
  1254. 19 00000746
  1255. 16 init123
  1256. 13
  1257. 5 1
  1258. 18 1
  1259. 11 00000170
  1260. 0 3 "Unable to contact 1-2-3 for Windows.  Is the application running?" "Ami Pro"
  1261. 6 3
  1262. 15
  1263. 9
  1264. 0 284 "User,PostMessage,HHHHJ" "{0}" 273 1 0
  1265. 0 44 "{0}" 9000
  1266. 13
  1267. 8 4
  1268. 0 1036 "{4}" 1041 0 0
  1269. 13
  1270. 8 5
  1271. 6 5
  1272. 5 1
  1273. 18 5
  1274. 11 00000353
  1275. 0 3 "No styles selected." "Ami Pro"
  1276. 10 00000746
  1277. 6 5
  1278. 21 6 [X]
  1279. 0 284 "user,sendmessage,HHHHN" "{4}" 1042 "{5}" &6
  1280. 5 1
  1281. 8 8
  1282. 6 5
  1283. 6 8
  1284. 18 2
  1285. 12 00000505
  1286. 10 00000705
  1287. 5 1
  1288. 6 8
  1289. 3 0
  1290. 8 8
  1291. 10 00000430
  1292. 6 5
  1293. 5 100
  1294. 18 0
  1295. 11 00000583
  1296. 0 3 "Too many styles." "Ami Pro"
  1297. 10 00000746
  1298. 6 8
  1299. 22 6
  1300. 0 284 "user,sendmessage,HHHHC" "{4}" 1034 [X] &7
  1301. 6 8
  1302. 5 1
  1303. 3 0
  1304. 0 272 "123stylenames" [X] "{7}"
  1305. 10 00000472
  1306. 0 272 "123stylenames" 1 "{5}"
  1307. 5 1
  1308. 8 9
  1309. 6 3
  1310. 15
  1311. 9
  1312. 14 make123style
  1313. 20 00001621
  1314. 19 00001621
  1315. 7 "OFF"
  1316. 8 2
  1317. 7 "OFF"
  1318. 8 3
  1319. 7 "OFF"
  1320. 8 4
  1321. 5 0
  1322. 8 5
  1323. 5 0
  1324. 8 6
  1325. 0 1313 93 "{0}"
  1326. 13
  1327. 8 7
  1328. 0 1313 92 "{0}"
  1329. 13
  1330. 8 8
  1331. 0 1313 94 "{0}"
  1332. 13
  1333. 8 9
  1334. 0 20 "{9}" 1 ","
  1335. 13
  1336. 8 9
  1337. 0 20 "{8}" 1 ","
  1338. 13
  1339. 8 10
  1340. 0 20 "{7}" 1 ","
  1341. 13
  1342. 8 11
  1343. 0 20 "{7}" 2 ","
  1344. 13
  1345. 8 12
  1346. 0 20 "{7}" 3 ","
  1347. 13
  1348. 8 13
  1349. 6 13
  1350. 5 4
  1351. 25 1
  1352. 11 00000365
  1353. 7 "ON"
  1354. 8 2
  1355. 6 13
  1356. 5 8
  1357. 25 1
  1358. 11 00000408
  1359. 7 "ON"
  1360. 8 3
  1361. 6 13
  1362. 5 16
  1363. 25 1
  1364. 11 00000452
  1365. 7 "ON"
  1366. 8 4
  1367. 5 1
  1368. 6 10
  1369. 18 0
  1370. 11 00000511
  1371. 7 "Left"
  1372. 8 14
  1373. 10 00000712
  1374. 5 2
  1375. 6 10
  1376. 18 0
  1377. 11 00000571
  1378. 7 "Right"
  1379. 8 14
  1380. 10 00000712
  1381. 5 4
  1382. 6 10
  1383. 18 0
  1384. 11 00000632
  1385. 7 "Center"
  1386. 8 14
  1387. 10 00000712
  1388. 5 8
  1389. 6 10
  1390. 18 0
  1391. 11 00000696
  1392. 7 "Justified"
  1393. 8 14
  1394. 10 00000712
  1395. 7 "Left"
  1396. 8 14
  1397. 5 9
  1398. 6 9
  1399. 18 0
  1400. 11 00000764
  1401. 5 1
  1402. 8 5
  1403. 10 00000867
  1404. 5 10
  1405. 6 9
  1406. 18 0
  1407. 11 00000817
  1408. 5 1
  1409. 8 6
  1410. 10 00000867
  1411. 5 11
  1412. 6 9
  1413. 18 0
  1414. 11 00000867
  1415. 5 1
  1416. 8 5
  1417. 5 1
  1418. 8 6
  1419. 0 20 "{7}" 4 ","
  1420. 13
  1421. 8 15
  1422. 6 11
  1423. 5 20
  1424. 4 1
  1425. 8 11
  1426. 16 123color "{12}"
  1427. 13
  1428. 8 12
  1429. 0 39 123
  1430. 13
  1431. 8 16
  1432. 16 x123w "{0}~"
  1433. 13
  1434. 5 1
  1435. 18 1
  1436. 11 00001025
  1437. 5 0
  1438. 15
  1439. 9
  1440. 16 x123w "{16}STYLE-FONT-ALL {15};{11};{2};{3};{4};;0;SWISS;ANSI}"
  1441. 13
  1442. 5 1
  1443. 18 1
  1444. 11 00001133
  1445. 5 0
  1446. 15
  1447. 9
  1448. 16 x123w "{16}STYLE-TEXT-COLOR {12}}"
  1449. 13
  1450. 5 1
  1451. 18 1
  1452. 11 00001212
  1453. 5 0
  1454. 15
  1455. 9
  1456. 16 x123w "{16}STYLE-ALIGN-HORIZONTAL {14}}"
  1457. 13
  1458. 5 1
  1459. 18 1
  1460. 11 00001297
  1461. 5 0
  1462. 15
  1463. 9
  1464. 6 5
  1465. 5 1
  1466. 18 0
  1467. 11 00001436
  1468. 7 "TOP"
  1469. 8 17
  1470. 7 "ON"
  1471. 8 18
  1472. 16 x123w "{16}STYLE-BORDER {17};{18};}"
  1473. 13
  1474. 5 1
  1475. 18 1
  1476. 11 00001436
  1477. 5 0
  1478. 15
  1479. 9
  1480. 6 6
  1481. 5 1
  1482. 18 0
  1483. 11 00001578
  1484. 7 "BOTTOM"
  1485. 8 17
  1486. 7 "ON"
  1487. 8 18
  1488. 16 x123w "{16}STYLE-BORDER {17};{18};}"
  1489. 13
  1490. 5 1
  1491. 18 1
  1492. 11 00001578
  1493. 5 0
  1494. 15
  1495. 9
  1496. 0 38 "Lotus 1-2-3"
  1497. 0 36 "[8275]s{0}[13]"
  1498. 5 1
  1499. 15
  1500. 9
  1501. 6 1
  1502. 15
  1503. 9
  1504. 14 init123
  1505. 0 802
  1506. 13
  1507. 0 16 [X] "id"
  1508. 13
  1509. 0 271 [X] 1
  1510. 0 802
  1511. 13
  1512. 0 16 [X] "id"
  1513. 13
  1514. 0 264 [X] 0
  1515. 0 8 "123w" "system"
  1516. 13
  1517. 8 1
  1518. 6 1
  1519. 5 0
  1520. 18 0
  1521. 11 00000169
  1522. 5 0
  1523. 15
  1524. 9
  1525. 0 802
  1526. 13
  1527. 0 16 [X] "id"
  1528. 13
  1529. 0 264 [X] "{1}"
  1530. 5 1
  1531. 15
  1532. 9
  1533. 6 0
  1534. 15
  1535. 9
  1536. 14 X123W
  1537. 0 802
  1538. 13
  1539. 0 16 [X] "id"
  1540. 13
  1541. 0 265 [X]
  1542. 13
  1543. 8 2
  1544. 0 39 91
  1545. 13
  1546. 8 3
  1547. 0 16 "{3}RUN(""" "{0}"
  1548. 13
  1549. 8 4
  1550. 0 16 "{4}" """)]"
  1551. 13
  1552. 8 4
  1553. 0 11 "{2}" "{4}"
  1554. 13
  1555. 15
  1556. 9
  1557. 6 1
  1558. 15
  1559. 9
  1560. 14 123color
  1561. 5 16777215
  1562. 6 0
  1563. 18 0
  1564. 11 00000073
  1565. 5 15
  1566. 8 0
  1567. 10 00000492
  1568. 5 16776960
  1569. 6 0
  1570. 18 0
  1571. 11 00000133
  1572. 5 70
  1573. 8 0
  1574. 10 00000492
  1575. 5 65535
  1576. 6 0
  1577. 18 0
  1578. 11 00000190
  1579. 5 50
  1580. 8 0
  1581. 10 00000492
  1582. 5 16711935
  1583. 6 0
  1584. 18 0
  1585. 11 00000251
  1586. 5 172
  1587. 8 0
  1588. 10 00000492
  1589. 5 65280
  1590. 6 0
  1591. 18 0
  1592. 11 00000309
  1593. 5 132
  1594. 8 0
  1595. 10 00000492
  1596. 5 255
  1597. 6 0
  1598. 18 0
  1599. 11 00000365
  1600. 5 129
  1601. 8 0
  1602. 10 00000492
  1603. 5 16711680
  1604. 6 0
  1605. 18 0
  1606. 11 00000426
  1607. 5 168
  1608. 8 0
  1609. 10 00000492
  1610. 5 0
  1611. 6 0
  1612. 18 0
  1613. 11 00000480
  1614. 5 255
  1615. 8 0
  1616. 10 00000492
  1617. 5 255
  1618. 8 0
  1619. 6 0
  1620. 15
  1621. 9
  1622. 6 1
  1623. 15
  1624. 9
  1625. 14 createdlgfont
  1626. 0 802
  1627. 13
  1628. 8 1
  1629. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  1630. 13
  1631. 8 2
  1632. 6 2
  1633. 5 1
  1634. 18 3
  1635. 11 00000204
  1636. 0 271 "{1}hfont" 1
  1637. 0 264 "{1}hfont" "{2}"
  1638. 6 2
  1639. 15
  1640. 9
  1641. 6 0
  1642. 15
  1643. 9
  1644. 14 deletefont
  1645. 0 802
  1646. 13
  1647. 8 1
  1648. 0 271 "{1}hfont" 1
  1649. 0 265 "{1}hfont"
  1650. 13
  1651. 8 2
  1652. 6 2
  1653. 5 1
  1654. 18 3
  1655. 11 00000160
  1656. 0 284 "gdi,DeleteObject,HH" "{2}"
  1657. 0 266 "{1}hfont"
  1658. 6 0
  1659. 15
  1660. 9
  1661. 14 setfont
  1662. 0 802
  1663. 13
  1664. 8 3
  1665. 0 271 "{3}hfont" 1
  1666. 0 265 "{3}hfont"
  1667. 13
  1668. 8 4
  1669. 6 4
  1670. 5 1
  1671. 18 5
  1672. 11 00000162
  1673. 16 createdlgfont
  1674. 13
  1675. 5 1
  1676. 18 5
  1677. 11 00000162
  1678. 5 0
  1679. 15
  1680. 9
  1681. 0 265 "{3}hfont"
  1682. 13
  1683. 8 4
  1684. 0 44 "{0}" "{1}"
  1685. 13
  1686. 0 284 "user,SendMessage,HHHHJ" [X] 48 "{4}" 0
  1687. 6 2
  1688. 15
  1689. 9
  1690. 14 initdlg
  1691. 5 1000
  1692. 8 4
  1693. 5 1008
  1694. 6 4
  1695. 18 2
  1696. 12 00000103
  1697. 10 00000140
  1698. 5 1
  1699. 6 4
  1700. 3 0
  1701. 8 4
  1702. 10 00000025
  1703. 16 setfont "{0}" "{4}"
  1704. 10 00000070
  1705. 6 3
  1706. 15
  1707. 9
  1708. 14 uncheck
  1709. 0 43 "{0}" 20 0
  1710. 6 3
  1711. 15
  1712. 9
  1713. 14 selall
  1714. 0 44 "{0}" 9000
  1715. 13
  1716. 8 0
  1717. 5 0
  1718. 5 65536
  1719. 4 0
  1720. 5 -1
  1721. 3 0
  1722. 8 4
  1723. 0 284 "user,SendMessage,HHHHJ" "{0}" 1030 1 "{4}"
  1724. 6 3
  1725. 15
  1726. 9
  1727. DIALOG box1
  1728. -2134376448 14 86 30 172 161 "" "amidialog" "Convert Styles" 
  1729. FONT 8 "Helv" 
  1730. 4 4 116 18 1000 1342177280 "static" "This feature creates 1-2-3 for Windows styles from Ami Pro styles" 0 
  1731. 5 24 8 10 1001 1342177280 "static" "1." 0 
  1732. 15 24 52 10 1002 1342177280 "static" "Load 1-2-3." 0 
  1733. 5 34 7 10 1003 1342177280 "static" "2." 0 
  1734. 15 34 146 17 1004 1342177280 "static" "Open the 1-2-3 spreadsheet for which you want to create styles." 0 
  1735. 5 52 8 10 1005 1342177280 "static" "3." 0 
  1736. 15 52 143 17 1006 1342177280 "static" "Open the Ami Pro document from which you want to create the styles." 0 
  1737. 5 70 6 10 1007 1342177280 "static" "4." 0 
  1738. 15 70 145 17 1008 1342177280 "static" "Choose this 'Convert Styles' feature and choose the styles which you want to convert." 0 
  1739. 10 93 86 10 1009 1342177280 "static" "&Ami Pro styles to convert:" 0 
  1740. 10 105 57 50 9000 1352728587 "listbox" "" 0 
  1741. 75 145 69 12 20 1342242819 "button" "&Select all" 0 
  1742. 128 2 40 14 71 1342373889 "button" "OK" 0 
  1743. 128 18 40 14 2 1342373888 "button" "Cancel" 0 
  1744. 00018209
  1745.