home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS009.DSK / IMPRCOPY.SMM < prev    next >
INI File  |  1993-08-20  |  22KB  |  1,220 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _DEFAULT.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Apple LaserWriter II NTX
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [desc]
  18.     
  19.     
  20.     
  21.     
  22.     
  23.     745873094
  24.     1
  25.     745873002
  26.     0
  27.     8
  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. [l1]
  54.     0
  55. [pg]
  56.     8
  57.     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
  58.     87 0 5 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
  59.     131 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
  60.     176 0 20 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
  61.     214 71 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
  62.     255 0 80 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
  63.     300 0 17 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
  64.     337 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
  65. [edoc]
  66. <:#284,9360>' Macro by Charlie Pappas
  67.  
  68. <:#284,9360>
  69.  
  70. <:#284,9360>'IMPRCOPY.SMM
  71.  
  72. <:#284,9360>define str300    "Collect & Copy"
  73.  
  74. <:#284,9360>define str301    "Lotus Improv"
  75.  
  76. <:#284,9360>define str302    "OLE Link"
  77.  
  78. <:#284,9360>define str303    "OLE Embed"
  79.  
  80. <:#284,9360>define str304    "_default.sty"
  81.  
  82. <:#284,9360>define curunits    1    ' 1 defaults to inches
  83.  
  84. <:#284,9360>' END SECTION
  85.  
  86. <:#284,9360>
  87.  
  88. <:#284,9360>
  89.  
  90. <:#568,9360>define    CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  91.  
  92. <:#284,9360>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)
  93.  
  94. <:#568,9360>define    SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  95.  
  96. <:#284,9360>define    WM_SETFONT    0x30
  97.  
  98. <:#284,9360>declare createdlgfont()
  99.  
  100. <:#284,9360>declare setfont(hdlg, id)
  101.  
  102. <:#284,9360>declare deletefont()
  103.  
  104. <:#284,9360>
  105.  
  106. <:#284,9360>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
  107.  
  108. <:#284,9360>Define SetFocus() DllCall("user,SetFocus,HH",%1)
  109.  
  110. <:#284,9360>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
  111.  
  112. <:#284,9360>DEFINE GetWindowrect()    DllCall("user,GetWindowRect,HHN",%1,%2)
  113.  
  114. <:#568,9360>define SetWindowPos(hwnd, hwndinsertafter, x, y, cx, cy, wflags) DllCall("user,SetWindowPos,HHHHHHHI", %1, %2, %3, %4, %5, %6, %7)
  115.  
  116. <:#284,9360>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  117.  
  118. <:#284,9360>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)
  119.  
  120. <:#284,9360>define SWP_NOMOVE    0x0002
  121.  
  122. <:#284,9360>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
  123.  
  124. <:#284,9360>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)
  125.  
  126. <:#284,9360>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  127.  
  128. <:#284,9360>
  129.  
  130. <:#284,9360>Define WM_SETREDRAW            0x000B
  131.  
  132. <:#284,9360>define WM_COMMAND        0x0111
  133.  
  134. <:#284,9360>define SC_RESTORE      0xF120
  135.  
  136. <:#284,9360>define WM_SYSCOMMAND       0x0112
  137.  
  138. <:#284,9360>
  139.  
  140. <:#284,9360>define MyAppName    str300
  141.  
  142. <:#284,9360>define MsgBox(msgtext)    Message(%1, myappname)
  143.  
  144. <:#284,9360>
  145.  
  146. <:#284,9360>declare newnow()
  147.  
  148. <:#284,9360>declare done()
  149.  
  150. <:#284,9360>declare insertdata(hdlg, id, val)
  151.  
  152. <:#284,9360>declare hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)
  153.  
  154. <:#284,9360>
  155.  
  156. <:#284,9360>declare showami(rect)
  157.  
  158. <:#284,9360>declare hideami(rect)
  159.  
  160. <:#284,9360>declare modframe()
  161.  
  162. <:#284,9360>declare setpagelayout()
  163.  
  164. <:#284,9360>declare winproc(hdlg, id, val)
  165.  
  166. <:#284,9360>declare box2(hdlg, id, val)
  167.  
  168. <:#284,9360>declare freeglobals()
  169.  
  170. <:#284,9360>
  171.  
  172. <:#284,9360>function bits()
  173.  
  174. <:#284,9360>appname = "IMPROV"
  175.  
  176. <:#284,9360>if appname = "123W"
  177.  
  178. <:#284,9360>    AppTitleBarName = "Lotus 1-2-3 Release 4"
  179.  
  180. <:#284,9360>    LotusIniAppName = "123W"
  181.  
  182. <:#284,9360>    ClassName = "123WParent"
  183.  
  184. <:#284,9360>else
  185.  
  186. <:#284,9360>    AppTitleBarName = str301
  187.  
  188. <:#284,9360>    LotusIniAppName = "IMPROV"
  189.  
  190. <:#284,9360>    ClassName = "bbw:0"
  191.  
  192. <:#284,9360>endif
  193.  
  194. <:#284,9360>newnow()
  195.  
  196. <:#284,9360>hwnd = hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)
  197.  
  198. <:#284,9360>if hwnd = 0
  199.  
  200. <:#284,9360>    return 0
  201.  
  202. <:#284,9360>endif
  203.  
  204. <:#284,9360>
  205.  
  206. <:#284,9360>dim rect(4)
  207.  
  208. <:#284,9360>onerror endit
  209.  
  210. <:#284,9360>oncancel endit
  211.  
  212. <:#284,9360>
  213.  
  214. <:#284,9360>allocglobalvar("bits", 1)
  215.  
  216. <:#284,9360>setglobalvar("bits", 0)
  217.  
  218. <:#284,9360>allocglobalvar("bitsapp", 1)
  219.  
  220. <:#284,9360>setglobalvar("bitsapp", lotusiniappname)
  221.  
  222. <:#284,9360>allocglobalvar("framecount", 1)
  223.  
  224. <:#284,9360>setglobalvar("framecount", 0)
  225.  
  226. <:#284,9360>allocglobalvar("lotusapphwnd", 1)
  227.  
  228. <:#284,9360>setglobalvar("lotusapphwnd", hwnd)
  229.  
  230. <:#284,9360>hwndpro = findwindow("amiprownda", 0)
  231.  
  232. <:#284,9360>if isiconic(hwnd)
  233.  
  234. <:#284,9360>    appsendmessage(findwindow("Progman", 0), WM_SYSCOMMAND, SC_RESTORE, 0)
  235.  
  236. <:#284,9360>    appmaximize(AppTitleBarName)
  237.  
  238. <:#284,9360>endif
  239.  
  240. <:#284,9360>showwindow(hwndpro, 0)
  241.  
  242. <:#284,9360>
  243.  
  244. <:#284,9360>rmac = getrunningmacrofile$()
  245.  
  246. <:#284,9360>setdlgcallback(0, "{rmac}!initdlg")
  247.  
  248. <:#284,9360>setdlgcallback(71, "{rmac}!insertdata")
  249.  
  250. <:#284,9360>runlater("{rmac}!setappfocus", 0.1)
  251.  
  252. <:#284,9360>dialogbox(".", "box1")
  253.  
  254. <:#284,9360>setdlgcallback(0, "{rmac}!initdlg2")
  255.  
  256. <:#284,9360>dlgkeyinterrupt(<[>f1], "{rmac}!helpme")
  257.  
  258. <:#284,9360>box = dialogbox(".", lotusiniappname)
  259.  
  260. <:#284,9360>if box = 1
  261.  
  262. <:#284,9360>    showwindow(hwndpro, 5)
  263.  
  264. <:#284,9360>else
  265.  
  266. <:#284,9360>    showwindow(hwndpro, 5)
  267.  
  268. <:#284,9360>    activateapp(AppTitleBarName)
  269.  
  270. <:#284,9360>endif
  271.  
  272. <:#284,9360>freeglobals()
  273.  
  274. <:#284,9360>return 1
  275.  
  276. <:#284,9360>endit:
  277.  
  278. <:#284,9360>showwindow(hwndpro, 5)
  279.  
  280. <:#284,9360>activateapp(AppTitleBarName)
  281.  
  282. <:#284,9360>freeglobals()
  283.  
  284. <:#284,9360>end function
  285.  
  286. <:#284,9360>
  287.  
  288. <:#284,9360>function setappfocus()
  289.  
  290. <:#284,9360>setfocus(getglobalvar$("lotusapphwnd"))
  291.  
  292. <:#284,9360>end function
  293.  
  294. <:#284,9360>
  295.  
  296. <:#284,9360>
  297.  
  298. <:#284,9360>function helpme()
  299.  
  300. <:#568,9360>WinHelpa(FindWindow("AmiProWndA", 0), strcat$(GetAmiDirectory$(), "HelpPack.hlp"), 0x0001, 145)
  301.  
  302. <:#284,9360>end function
  303.  
  304. <:#284,9360>
  305.  
  306. <:#284,9360>
  307.  
  308. <:#284,9360>function freeglobals()
  309.  
  310. <:#284,9360>freeglobalvar("framecount")
  311.  
  312. <:#284,9360>freeglobalvar("bits")
  313.  
  314. <:#284,9360>freeglobalvar("lotusapphwnd")
  315.  
  316. <:#284,9360>freeglobalvar("bitsapp")
  317.  
  318. <:#284,9360>deletefont()
  319.  
  320. <:#284,9360>end function
  321.  
  322. <:#284,9360>
  323.  
  324. <:#284,9360>
  325.  
  326. <:#284,9360>function initdlg2(hdlg, id, value)
  327.  
  328. <:#284,9360>for i = 1000 to 1006
  329.  
  330. <:#284,9360>    setfont(hdlg, i)
  331.  
  332. <:#284,9360>next
  333.  
  334. <:#284,9360>end function
  335.  
  336. <:#284,9360>
  337.  
  338. <:#284,9360>
  339.  
  340. <:#284,9360>function initdlg(hdlg, id, value)
  341.  
  342. <:#284,9360>for i = 1000 to 1006
  343.  
  344. <:#284,9360>    setfont(hdlg, i)
  345.  
  346. <:#284,9360>next
  347.  
  348. <:#284,9360>
  349.  
  350. <:#284,9360>dim rect(4)
  351.  
  352. <:#284,9360>GetWindowRect(hdlg, &rect)
  353.  
  354. <:#284,9360>x = rect(1)
  355.  
  356. <:#284,9360>y = rect(2)
  357.  
  358. <:#284,9360>cx = rect(3) - x
  359.  
  360. <:#284,9360>cy = rect(4) - y
  361.  
  362. <:#284,9360>setwindowpos(hdlg, -1, x, y, cx, cy, 0)
  363.  
  364. <:#284,9360>end function
  365.  
  366. <:#284,9360>
  367.  
  368. <:#284,9360>
  369.  
  370. <:#284,9360>function insertdata(hdlg, id, val)
  371.  
  372. <:#284,9360>setappfocus()
  373.  
  374. <:#284,9360>hwnd = getglobalvar$("lotusapphwnd")
  375.  
  376. <:#284,9360>appname = getglobalvar$("bitsapp")
  377.  
  378. <:#284,9360>AppSendMessage(hwnd, WM_COMMAND, 49, "")
  379.  
  380. <:#284,9360>activateapp("")
  381.  
  382. <:#284,9360>
  383.  
  384. <:#284,9360>if getinfo(217, 24, paste) <<<;> 1
  385.  
  386. <:#284,9360>    return 0
  387.  
  388. <:#284,9360>endif
  389.  
  390. <:#284,9360>if getmode() <<<;> 1
  391.  
  392. <:#284,9360>    layoutmode()
  393.  
  394. <:#284,9360>    if getmode() <<<;> 1
  395.  
  396. <:#284,9360>        return 0
  397.  
  398. <:#284,9360>    endif
  399.  
  400. <:#284,9360>endif
  401.  
  402. <:#284,9360>count = getglobalvar$("framecount")
  403.  
  404. <:#284,9360>count = count + 1
  405.  
  406. <:#284,9360>if count = 6
  407.  
  408. <:#284,9360>    PageBreak(1  )
  409.  
  410. <:#284,9360>    count = 1
  411.  
  412. <:#284,9360>endif
  413.  
  414. <:#284,9360>setglobalvar("framecount", count)
  415.  
  416. <:#284,9360>pastespecial(str302)
  417.  
  418. <:#284,9360>if isframeselected() <<<;> 1
  419.  
  420. <:#284,9360>    pastespecial(str303)
  421.  
  422. <:#284,9360>endif
  423.  
  424. <:#284,9360>if isframeselected()
  425.  
  426. <:#284,9360>    modframe()
  427.  
  428. <:#284,9360>    type("<[>esc]")
  429.  
  430. <:#284,9360>endif
  431.  
  432. <:#284,9360>endit:
  433.  
  434. <:#284,9360>setappfocus()
  435.  
  436. <:#284,9360>END FUNCTION
  437.  
  438. <:#284,9360>
  439.  
  440. <:#284,9360>
  441.  
  442. <:#284,9360>DIALOG    box1
  443.  
  444. <:#284,9360>-2134376448    9    170    210    185    38    ""    ""    "Collect & Copy"
  445.  
  446. <:#284,9360>FONT    8    "Helv"
  447.  
  448. <:#284,9360>118    3    63    14    71    1342373889    "button"    "&Copy to Ami Pro"    0 
  449.  
  450. <:#284,9360>118    19    63    14    2    1342373888    "button"    "Done"    0 
  451.  
  452. <:#284,9360>10    2    87    10    1000    1342177280    "static"    "Select the range or chart"    0 
  453.  
  454. <:#284,9360>10    9    77    10    1001    1342177280    "static"    "you want to print."    0 
  455.  
  456. <:#284,9360>10    18    81    10    1002    1342177280    "static"    "Choose Copy to Ami Pro."    0 
  457.  
  458. <:#568,9360>10    27    103    10    1003    1342177280    "static"    "Repeat these steps if you want."    0 
  459.  
  460. <:#284,9360>2    2    6    10    1004    1342177280    "static"    "1."    0 
  461.  
  462. <:#284,9360>2    18    6    10    1005    1342177280    "static"    "2."    0 
  463.  
  464. <:#284,9360>2    27    6    10    1006    1342177280    "static"    "3."    0 
  465.  
  466. <:#284,9360>END DIALOG
  467.  
  468. <:#284,9360>
  469.  
  470. <:#284,9360>
  471.  
  472. <:#284,9360>DIALOG    improv
  473.  
  474. <:#284,9360>-2134376448    9    90    50    200    67    ""    "amidialog"    "Collect & Copy"
  475.  
  476. <:#284,9360>FONT    8    "Helv"
  477.  
  478. <:#568,9360>126    3    68    14    1    1342373889    "button"    "&Switch to Ami Pro"    0 
  479.  
  480. <:#284,9360>126    19    68    14    2    1342373888    "button"    "Done"    0 
  481.  
  482. <:#568,9360>3    2    117    10    1000    1342177280    "static"    "You have selected some data to be"    0 
  483.  
  484. <:#568,9360>3    10    117    10    1001    1342177280    "static"    "included in an Ami Pro document."    0 
  485.  
  486. <:#568,9360>3    18    117    10    1002    1342177280    "static"    "This data is hot-linked to its origin"    0 
  487.  
  488. <:#284,9360>3    26    117    10    1003    1342177280    "static"    "worksheet."    0 
  489.  
  490. <:#568,9360>3    38    117    10    1004    1342177280    "static"    "You may now continue to work in"    0 
  491.  
  492. <:#568,9360>3    46    117    10    1005    1342177280    "static"    "Improv, or you may switch to Ami Pro"    0 
  493.  
  494. <:#568,9360>3    54    117    10    1006    1342177280    "static"    "to arrange or format your document."    0 
  495.  
  496. <:#284,9360>END DIALOG
  497.  
  498. <:#284,9360>
  499.  
  500. <:#284,9360>
  501.  
  502. <:#284,9360>FUNCTION newnow()
  503.  
  504. <:#568,9360>result = Decide("Do you want to use the current Ami Pro document to receive the source objects?","Ami Pro")
  505.  
  506. <:#284,9360>IF result = 0
  507.  
  508. <:#284,9360>    defstyle=getprofilestring$("AmiPro", "defstyle", "AMIPRO.INI")
  509.  
  510. <:#284,9360>if defstyle = ""
  511.  
  512. <:#284,9360>    defstyle = str304    ' use this style if not in amipro.ini
  513.  
  514. <:#284,9360>endif
  515.  
  516. <:#284,9360>New(defstyle  1 1024  )
  517.  
  518. <:#284,9360>fullpageview()
  519.  
  520. <:#284,9360>setpagelayout()
  521.  
  522. <:#284,9360>Endif
  523.  
  524. <:#284,9360>END FUNCTION
  525.  
  526. <:#284,9360>
  527.  
  528. <:#284,9360>
  529.  
  530. <:#284,9360>FUNCTION modframe()
  531.  
  532. <:#284,9360>count = getglobalvar$("framecount")
  533.  
  534. <:#284,9360>defstr width, length, left, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units;
  535.  
  536. <:#568,9360>getcurframeborders(&width, &length, &top, &leftx, &leftmarg, &topmarg, &rightmarg, &bottommarg, &units)
  537.  
  538. <:#284,9360>top = count * (16 / 10) * 1440
  539.  
  540. <:#284,9360>FrameModInit( )
  541.  
  542. <:#284,9360>FrameModLines(0 1 1 0 16777215 0 0 0 0 0  )
  543.  
  544. <:#284,9360>FrameModType((128 + 536870976) 0 ""   )
  545.  
  546. <:#284,9360>FrameModBorders(3816, 2160, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units)
  547.  
  548. <:#284,9360>FrameModFinish( )
  549.  
  550. <:#284,9360>END FUNCTION
  551.  
  552. <:#284,9360>
  553.  
  554. <:#284,9360>function setpagelayout()
  555.  
  556. <:#284,9360>ModLayoutInit(512  )
  557.  
  558. <:#568,9360>ModLayoutRightPage(1440 1440 1440 1440 CurUnits 0 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640  )
  559.  
  560. <:#284,9360>ModLayoutRightLines(0 1 0 1 2  )
  561.  
  562. <:#284,9360>country = GetProfileString$("intl", "sCountry")
  563.  
  564. <:#284,9360>if country <<<;> "United States" and country <<<;> "Canada"
  565.  
  566. <:#284,9360>    ModLayoutPageSize(16833 11908 CurUnits 4  ) ' A4
  567.  
  568. <:#284,9360>else
  569.  
  570. <:#284,9360>    ModLayoutPageSize(15840 12240 CurUnits 1  ) ' Letter
  571.  
  572. <:#284,9360>endif
  573.  
  574. <:#284,9360>ModLayoutRightHeader(1440 792 1440 72 CurUnits 0 1 1440 10465 2 2 4680 3 9360  )
  575.  
  576. <:#284,9360>ModLayoutRightFooter(1440 72 1440 792 CurUnits 0 1 1440 10465 2 2 4680 3 9360  )
  577.  
  578. <:#284,9360>ModLayoutFinish( )
  579.  
  580. <:#284,9360>END FUNCTION
  581.  
  582. <:#284,9360>
  583.  
  584. <:#284,9360>
  585.  
  586. <:#284,9360>FUNCTION hActivateLotusApp(AppTitleBarName, LotusIniAppName, ClassName)
  587.  
  588. <:#284,9360>' loads a Lotus Appliction
  589.  
  590. <:#284,9360>Define FindWindowLoadLotusApp() DllCall("user,FindWindow,HCC", %1, 0)
  591.  
  592. <:#284,9360>ONERROR endit
  593.  
  594. <:#284,9360>ONCANCEL endit
  595.  
  596. <:#284,9360>hwnd = FindWindowLoadLotusApp(classname)
  597.  
  598. <:#284,9360>if hwnd <<<;> 0
  599.  
  600. <:#284,9360>    ActivateApp(AppTitleBarName)
  601.  
  602. <:#284,9360>    RETURN hwnd
  603.  
  604. <:#284,9360>endif
  605.  
  606. <:#284,9360>app = GetProfileString$("Lotus Applications", LotusIniAppName, "lotus.ini")
  607.  
  608. <:#284,9360>if app <<<;> ""
  609.  
  610. <:#284,9360>    appexecname = strfield$(app, 1, ".")
  611.  
  612. <:#284,9360>    hwnd = FindWindowLoadLotusApp(classname)
  613.  
  614. <:#284,9360>    amidir = getamidirectory$()
  615.  
  616. <:#284,9360>    if hwnd = 0
  617.  
  618. <:#284,9360>        if Exec("{appexecname}.exe", "") << 32
  619.  
  620. <:#284,9360>            macro = "{amidir}lotuspal.smm!salesmsg"
  621.  
  622. <:#284,9360>            calli macro(5)
  623.  
  624. <:#284,9360>            goto endit
  625.  
  626. <:#284,9360>        endif
  627.  
  628. <:#284,9360>    endif
  629.  
  630. <:#284,9360>    hwnd = findwindowLoadLotusApp(classname)
  631.  
  632. <:#284,9360>    if hwnd = 0
  633.  
  634. <:#284,9360>        goto endit
  635.  
  636. <:#284,9360>    endif
  637.  
  638. <:#284,9360>else
  639.  
  640. <:#284,9360>    macro = "{amidir}lotuspal.smm!salesmsg"
  641.  
  642. <:#284,9360>    calli macro(5)
  643.  
  644. <:#284,9360>    goto endit
  645.  
  646. <:#284,9360>endif
  647.  
  648. <:#284,9360>ActivateApp(AppTitleBarName)
  649.  
  650. <:#284,9360>endit:
  651.  
  652. <:#284,9360>RETURN hwnd
  653.  
  654. <:#284,9360>END FUNCTION
  655.  
  656. <:#284,9360>
  657.  
  658. <:#284,9360>
  659.  
  660. <:#284,9360>
  661.  
  662. <:#284,9360>function createdlgfont()
  663.  
  664. <:#284,9360>ignorekeyboard(1)
  665.  
  666. <:#284,9360>rmac = getrunningmacrofile$()
  667.  
  668. <:#284,9360>hfont = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  669.  
  670. <:#284,9360>if hfont <;> 1
  671.  
  672. <:#284,9360>    AllocGlobalVar("{rmac}hfont", 1)
  673.  
  674. <:#284,9360>    SetGlobalVar("{rmac}hfont", hFont)
  675.  
  676. <:#284,9360>    Return hfont
  677.  
  678. <:#284,9360>endif
  679.  
  680. <:#284,9360>End Function
  681.  
  682. <:#284,9360>
  683.  
  684. <:#284,9360>
  685.  
  686. <:#284,9360>function deletefont()
  687.  
  688. <:#284,9360>ignorekeyboard(1)
  689.  
  690. <:#284,9360>rmac = getrunningmacrofile$()
  691.  
  692. <:#284,9360>AllocGlobalVar("{rmac}hfont", 1)
  693.  
  694. <:#284,9360>hfont = getglobalvar$("{rmac}hfont")
  695.  
  696. <:#284,9360>if hfont <;> 1
  697.  
  698. <:#284,9360>    deleteobject(hfont)
  699.  
  700. <:#284,9360>    freeglobalvar("{rmac}hfont")
  701.  
  702. <:#284,9360>endif
  703.  
  704. <:#284,9360>end function
  705.  
  706. <:#284,9360>
  707.  
  708. <:#284,9360>
  709.  
  710. <:#284,9360>function setfont(hdlg, id)
  711.  
  712. <:#284,9360>ignorekeyboard(1)
  713.  
  714. <:#284,9360>rmac = getrunningmacrofile$()
  715.  
  716. <:#284,9360>AllocGlobalVar("{rmac}hfont", 1)
  717.  
  718. <:#284,9360>hfont = getglobalvar$("{rmac}hfont")
  719.  
  720. <:#284,9360>if hfont << 1
  721.  
  722. <:#284,9360>    if createdlgfont() << 1
  723.  
  724. <:#284,9360>        return 0
  725.  
  726. <:#284,9360>    endif
  727.  
  728. <:#284,9360>endif
  729.  
  730. <:#284,9360>hfont = getglobalvar$("{rmac}hfont")
  731.  
  732. <:#284,9360>SendMessage(GetDlgITem(Hdlg, id), WM_SETFONT, hfont, 0)
  733.  
  734. <:#284,9360>end function
  735.  
  736. <:#284,9360>
  737.  
  738. <:#284,9360>
  739.  
  740. >
  741.  
  742. [Embedded]
  743. 00015134
  744. >
  745. [macsum] 16
  746. bits 0 0 10 53
  747. setappfocus 1145 0 1 111
  748. helpme 1229 0 1 116
  749. freeglobals 1382 0 1 121
  750. initdlg2 1498 3 2 130
  751. initdlg 1651 3 7 137
  752. insertdata 2014 3 4 152
  753. box1 2561 0 -1 188
  754. improv 3151 0 -1 203
  755. newnow 3869 0 3 218
  756. modframe 4177 0 12 232
  757. setpagelayout 4472 0 2 244
  758. hActivateLotusApp 4961 3 6 260
  759. createdlgfont 5616 0 3 298
  760. deletefont 5840 0 3 310
  761. setfont 6020 2 3 322
  762. [macse]
  763. 14 bits
  764. 7 "IMPROV"
  765. 8 1
  766. 6 1
  767. 7 "123W"
  768. 18 0
  769. 11 00000141
  770. 7 "Lotus 1-2-3 Release 4"
  771. 8 2
  772. 7 "123W"
  773. 8 3
  774. 7 "123WParent"
  775. 8 4
  776. 10 00000197
  777. 7 "Lotus Improv"
  778. 8 2
  779. 7 "IMPROV"
  780. 8 3
  781. 7 "bbw:0"
  782. 8 4
  783. 16 newnow
  784. 16 hActivateLotusApp "{2}" "{3}" "{4}"
  785. 13
  786. 8 5
  787. 6 5
  788. 5 0
  789. 18 0
  790. 11 00000298
  791. 5 0
  792. 15
  793. 9
  794. 5 4
  795. 21 6 [X]
  796. 20 00001068
  797. 19 00001068
  798. 0 271 "bits" 1
  799. 0 264 "bits" 0
  800. 0 271 "bitsapp" 1
  801. 0 264 "bitsapp" "{3}"
  802. 0 271 "framecount" 1
  803. 0 264 "framecount" 0
  804. 0 271 "lotusapphwnd" 1
  805. 0 264 "lotusapphwnd" "{5}"
  806. 0 284 "user,FindWindow,HCC" "amiprownda" 0
  807. 13
  808. 8 7
  809. 0 284 "user,IsIconic,HH" "{5}"
  810. 13
  811. 11 00000694
  812. 0 284 "user,FindWindow,HCC" "Progman" 0
  813. 13
  814. 0 1036 [X] 274 61728 0
  815. 0 1029 "{2}"
  816. 0 284 "user,ShowWindow,HHH" "{7}" 0
  817. 0 802
  818. 13
  819. 8 8
  820. 0 41 0 "{8}!initdlg"
  821. 0 41 71 "{8}!insertdata"
  822. 0 285 "{8}!setappfocus" 0.1
  823. 0 26 "." "box1"
  824. 0 41 0 "{8}!initdlg2"
  825. 0 47 112 "{8}!helpme"
  826. 0 26 "." "{3}"
  827. 13
  828. 8 9
  829. 6 9
  830. 5 1
  831. 18 0
  832. 11 00000991
  833. 0 284 "user,ShowWindow,HHH" "{7}" 5
  834. 10 00001040
  835. 0 284 "user,ShowWindow,HHH" "{7}" 5
  836. 0 38 "{2}"
  837. 16 freeglobals
  838. 5 1
  839. 15
  840. 9
  841. 0 284 "user,ShowWindow,HHH" "{7}" 5
  842. 0 38 "{2}"
  843. 16 freeglobals
  844. 6 0
  845. 15
  846. 9
  847. 14 setappfocus
  848. 0 265 "lotusapphwnd"
  849. 13
  850. 0 284 "user,SetFocus,HH" [X]
  851. 6 0
  852. 15
  853. 9
  854. 14 helpme
  855. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  856. 13
  857. 0 798
  858. 13
  859. 0 16 [X] "HelpPack.hlp"
  860. 13
  861. 0 284 "user,WinHelp,HHCHJ" [X] [X] 1 145
  862. 6 0
  863. 15
  864. 9
  865. 14 freeglobals
  866. 0 266 "framecount"
  867. 0 266 "bits"
  868. 0 266 "lotusapphwnd"
  869. 0 266 "bitsapp"
  870. 16 deletefont
  871. 6 0
  872. 15
  873. 9
  874. 14 initdlg2
  875. 5 1000
  876. 8 4
  877. 5 1006
  878. 6 4
  879. 18 2
  880. 12 00000104
  881. 10 00000141
  882. 5 1
  883. 6 4
  884. 3 0
  885. 8 4
  886. 10 00000026
  887. 16 setfont "{0}" "{4}"
  888. 10 00000071
  889. 6 3
  890. 15
  891. 9
  892. 14 initdlg
  893. 5 1000
  894. 8 4
  895. 5 1006
  896. 6 4
  897. 18 2
  898. 12 00000103
  899. 10 00000140
  900. 5 1
  901. 6 4
  902. 3 0
  903. 8 4
  904. 10 00000025
  905. 16 setfont "{0}" "{4}"
  906. 10 00000070
  907. 5 4
  908. 21 5 [X]
  909. 0 284 "user,GetWindowRect,HHN" "{0}" &5
  910. 5 1
  911. 22 5
  912. 8 6
  913. 5 2
  914. 22 5
  915. 8 7
  916. 5 3
  917. 22 5
  918. 6 6
  919. 3 1
  920. 8 8
  921. 5 4
  922. 22 5
  923. 6 7
  924. 3 1
  925. 8 9
  926. 0 284 "user,SetWindowPos,HHHHHHHI" "{0}" -1 "{6}" "{7}" "{8}" "{9}" 0
  927. 6 3
  928. 15
  929. 9
  930. 14 insertdata
  931. 16 setappfocus
  932. 0 265 "lotusapphwnd"
  933. 13
  934. 8 4
  935. 0 265 "bitsapp"
  936. 13
  937. 8 5
  938. 0 1036 "{4}" 273 49 ""
  939. 0 38 ""
  940. 0 1313 217 24 155
  941. 13
  942. 5 1
  943. 18 1
  944. 11 00000180
  945. 5 0
  946. 15
  947. 9
  948. 0 29
  949. 13
  950. 5 1
  951. 18 1
  952. 11 00000269
  953. 2 210 1
  954. 0 29
  955. 13
  956. 5 1
  957. 18 1
  958. 11 00000269
  959. 5 0
  960. 15
  961. 9
  962. 0 265 "framecount"
  963. 13
  964. 8 6
  965. 6 6
  966. 5 1
  967. 3 0
  968. 8 6
  969. 6 6
  970. 5 6
  971. 18 0
  972. 11 00000368
  973. 2 357 1 1
  974. 5 1
  975. 8 6
  976. 0 264 "framecount" "{6}"
  977. 2 588 1 "OLE Link"
  978. 0 800
  979. 13
  980. 5 1
  981. 18 1
  982. 11 00000470
  983. 2 588 1 "OLE Embed"
  984. 0 800
  985. 13
  986. 11 00000519
  987. 16 modframe
  988. 0 6 "[27]"
  989. 16 setappfocus
  990. 6 3
  991. 15
  992. 9
  993. DIALOG box1
  994. -2134376448 9 170 210 185 38 "" "" "Collect & Copy" 
  995. FONT 8 "Helv" 
  996. 118 3 63 14 71 1342373889 "button" "&Copy to Ami Pro" 0 
  997. 118 19 63 14 2 1342373888 "button" "Done" 0 
  998. 10 2 87 10 1000 1342177280 "static" "Select the range or chart" 0 
  999. 10 9 77 10 1001 1342177280 "static" "you want to print." 0 
  1000. 10 18 81 10 1002 1342177280 "static" "Choose Copy to Ami Pro." 0 
  1001. 10 27 103 10 1003 1342177280 "static" "Repeat these steps if you want." 0 
  1002. 2 2 6 10 1004 1342177280 "static" "1." 0 
  1003. 2 18 6 10 1005 1342177280 "static" "2." 0 
  1004. 2 27 6 10 1006 1342177280 "static" "3." 0 
  1005. DIALOG improv
  1006. -2134376448 9 90 50 200 67 "" "amidialog" "Collect & Copy" 
  1007. FONT 8 "Helv" 
  1008. 126 3 68 14 1 1342373889 "button" "&Switch to Ami Pro" 0 
  1009. 126 19 68 14 2 1342373888 "button" "Done" 0 
  1010. 3 2 117 10 1000 1342177280 "static" "You have selected some data to be" 0 
  1011. 3 10 117 10 1001 1342177280 "static" "included in an Ami Pro document." 0 
  1012. 3 18 117 10 1002 1342177280 "static" "This data is hot-linked to its origin" 0 
  1013. 3 26 117 10 1003 1342177280 "static" "worksheet." 0 
  1014. 3 38 117 10 1004 1342177280 "static" "You may now continue to work in" 0 
  1015. 3 46 117 10 1005 1342177280 "static" "Improv, or you may switch to Ami Pro" 0 
  1016. 3 54 117 10 1006 1342177280 "static" "to arrange or format your document." 0 
  1017. 14 newnow
  1018. 0 2 "Do you want to use the current Ami Pro document to receive the source objects?" "Ami Pro"
  1019. 13
  1020. 8 1
  1021. 6 1
  1022. 5 0
  1023. 18 0
  1024. 11 00000296
  1025. 0 286 "AmiPro" "defstyle" "AMIPRO.INI"
  1026. 13
  1027. 8 2
  1028. 6 2
  1029. 7 ""
  1030. 18 0
  1031. 11 00000247
  1032. 7 "_default.sty"
  1033. 8 2
  1034. 2 101 1 "{2}" 1 1024
  1035. 2 201 1
  1036. 16 setpagelayout
  1037. 6 0
  1038. 15
  1039. 9
  1040. 14 modframe
  1041. 0 265 "framecount"
  1042. 13
  1043. 8 1
  1044. 0 795 &2 &3 &5 &6 &7 &8 &9 &10 &11
  1045. 6 1
  1046. 5 16
  1047. 5 10
  1048. 4 1
  1049. 4 0
  1050. 5 1440
  1051. 4 0
  1052. 8 5
  1053. 2 421 1
  1054. 2 416 1 0 1 1 0 16777215 0 0 0 0 0
  1055. 5 128
  1056. 5 536870976
  1057. 3 0
  1058. 2 417 1 [X] 0 ""
  1059. 2 418 1 3816 2160 "{5}" "{6}" "{7}" "{8}" "{9}" "{10}" "{11}"
  1060. 2 420 1
  1061. 6 0
  1062. 15
  1063. 9
  1064. 14 setpagelayout
  1065. 2 361 1 512
  1066. 2 363 1 1440 1440 1440 1440 1 0 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640
  1067. 2 366 1 0 1 0 1 2
  1068. 0 286 "intl" "sCountry"
  1069. 13
  1070. 8 1
  1071. 6 1
  1072. 7 "United States"
  1073. 18 1
  1074. 6 1
  1075. 7 "Canada"
  1076. 18 1
  1077. 1 1
  1078. 11 00000325
  1079. 2 362 1 16833 11908 1 4
  1080. 10 00000350
  1081. 2 362 1 15840 12240 1 1
  1082. 2 364 1 1440 792 1440 72 1 0 1 1440 10465 2 2 4680 3 9360
  1083. 2 365 1 1440 72 1440 792 1 0 1 1440 10465 2 2 4680 3 9360
  1084. 2 376 1
  1085. 6 0
  1086. 15
  1087. 9
  1088. 14 hActivateLotusApp
  1089. 20 00000631
  1090. 19 00000631
  1091. 0 284 "user,FindWindow,HCC" "{2}" 0
  1092. 13
  1093. 8 4
  1094. 6 4
  1095. 5 0
  1096. 18 1
  1097. 11 00000147
  1098. 0 38 "{0}"
  1099. 6 4
  1100. 15
  1101. 9
  1102. 0 286 "Lotus Applications" "{1}" "lotus.ini"
  1103. 13
  1104. 8 5
  1105. 6 5
  1106. 7 ""
  1107. 18 1
  1108. 11 00000559
  1109. 0 20 "{5}" 1 "."
  1110. 13
  1111. 8 6
  1112. 0 284 "user,FindWindow,HCC" "{2}" 0
  1113. 13
  1114. 8 4
  1115. 0 798
  1116. 13
  1117. 8 7
  1118. 6 4
  1119. 5 0
  1120. 18 0
  1121. 11 00000458
  1122. 0 22 "{6}.exe" ""
  1123. 13
  1124. 5 32
  1125. 18 5
  1126. 11 00000458
  1127. 7 "{7}lotuspal.smm!salesmsg"
  1128. 8 8
  1129. 16 "{8}" 5
  1130. 10 00000631
  1131. 0 284 "user,FindWindow,HCC" "{2}" 0
  1132. 13
  1133. 8 4
  1134. 6 4
  1135. 5 0
  1136. 18 0
  1137. 11 00000546
  1138. 10 00000631
  1139. 10 00000619
  1140. 7 "{7}lotuspal.smm!salesmsg"
  1141. 8 8
  1142. 16 "{8}" 5
  1143. 10 00000631
  1144. 0 38 "{0}"
  1145. 6 4
  1146. 15
  1147. 9
  1148. 6 3
  1149. 15
  1150. 9
  1151. 14 createdlgfont
  1152. 0 32 1
  1153. 0 802
  1154. 13
  1155. 8 1
  1156. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  1157. 13
  1158. 8 2
  1159. 6 2
  1160. 5 1
  1161. 18 3
  1162. 11 00000212
  1163. 0 271 "{1}hfont" 1
  1164. 0 264 "{1}hfont" "{2}"
  1165. 6 2
  1166. 15
  1167. 9
  1168. 6 0
  1169. 15
  1170. 9
  1171. 14 deletefont
  1172. 0 32 1
  1173. 0 802
  1174. 13
  1175. 8 1
  1176. 0 271 "{1}hfont" 1
  1177. 0 265 "{1}hfont"
  1178. 13
  1179. 8 2
  1180. 6 2
  1181. 5 1
  1182. 18 3
  1183. 11 00000168
  1184. 0 284 "gdi,DeleteObject,HH" "{2}"
  1185. 0 266 "{1}hfont"
  1186. 6 0
  1187. 15
  1188. 9
  1189. 14 setfont
  1190. 0 32 1
  1191. 0 802
  1192. 13
  1193. 8 3
  1194. 0 271 "{3}hfont" 1
  1195. 0 265 "{3}hfont"
  1196. 13
  1197. 8 4
  1198. 6 4
  1199. 5 1
  1200. 18 5
  1201. 11 00000170
  1202. 16 createdlgfont
  1203. 13
  1204. 5 1
  1205. 18 5
  1206. 11 00000170
  1207. 5 0
  1208. 15
  1209. 9
  1210. 0 265 "{3}hfont"
  1211. 13
  1212. 8 4
  1213. 0 44 "{0}" "{1}"
  1214. 13
  1215. 0 284 "user,SendMessage,HHHHJ" [X] 48 "{4}" 0
  1216. 6 2
  1217. 15
  1218. 9
  1219. 00015159
  1220.