Program Metropolis - Software Boutique 95/SOFTWARECD.iso/camipro3/macros.cmz/SAVEINFO.SMM

INI File | 1994-08-14 | 3.7 KB | 290 lines

[ver]
    4
[sty]
    _default.sty
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    ⌐w┤┴º≤╖sñσÑ≤╕Ω░T─µª∞íC[└╔«╫] Ñ\»α¬φ╖|╝WÑ[»S«φÑ\»α¬φíAñ]╖|Ñ]ºt╣╧Ñ▄íC
    Lotus WPD Technical Support
    Just Starting
    Menu Items, Conditions
    Autorun
    773107414
    20
    677458093
    102
    1
    61
    433
    4
    4






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        0
        1
        0
        2
        1
        1440
        10800
        4
        1
        720
        1
        1440
        1
        2160
        1
        2880
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        792
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
DocSaver.SMM


>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        792
        1
        14472
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
>
[elay]
[l1]
    0
[pg]
    1
    35 0 12 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
[edoc]
<:#284,9360>' Presents the Doc Info box automatically before a save,

<:#284,9360>'  so any necessary information can be added.

<:#284,9360>' DEZ080691

<:#284,9360>

<:#284,9360>'This stuff defines the Title Bar message (TitleBarMSG) stuff and is not necessary

<:#284,9360>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")

<:#284,9360>define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)

<:#284,9360>define TitleBarMsg()    SetWindowText(GetActiveWindow(), %1)

<:#284,9360>define GetWindowText()    DllCall("user,GetWindowText,HHFH", %1, %2, %3)

<:#284,9360>'define GetTitleBarText()    GetWindowText(GetActiveWindow(), %1, 80)

<:#284,9360>

<:#284,9360>

<:#284,9360>function docsaver()

<:#284,9360>rmac=GetRunningMacroFile$()

<:#284,9360>item="Save &with Doc Info"

<:#284,9360>isinstalled=checkmenuitem(1, "└╔«╫(&F)", item, 1)    ' Have to run this 2x to check and uncheck

<:#568,9360>isinstalled=checkmenuitem(1, "└╔«╫(&F)", item, 0)    ' so it gets correct value without altering item

<:#284,9360>if isinstalled = 8

<:#284,9360>    goto dokken

<:#284,9360>endif

<:#284,9360>TitleBarMsg("Installing new menu items to the File menu")

<:#284,9360>pause(008)

<:#284,9360>deletemenuitem(1, "└╔«╫(&F)", item)

<:#568,9360>insertmenuitem(1, "└╔«╫(&F)", 6, item, "{rmac}!docsaver", "Save this file after showing Doc Info box.")

<:#284,9360>TitleBarMsg("")

<:#284,9360>TitleBarMsg("Ami Pro")

<:#284,9360>exit function

<:#284,9360>

<:#284,9360>dokken:

<:#284,9360>keepgoing=docinfo

<:#284,9360>if keepgoing<<<;>1

<:#284,9360>    exit function

<:#284,9360>endif

<:#284,9360>save

<:#284,9360>end function

>

[Embedded]
00003034
>
[macsum] 1
docsaver 0 0 5 12
[macse]
14 docsaver
0 802
13
8 1
7 "Save &with Doc Info"
8 2
0 518 1 "└╔«╫(&F)" "{2}" 1
13
8 3
0 518 1 "└╔«╫(&F)" "{2}" 0
13
8 3
6 3
5 8
18 0
11 00000175
10 00000586
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Installing new menu items to the File menu"
0 274 008
0 520 1 "└╔«╫(&F)" "{2}"
0 527 1 "└╔«╫(&F)" 6 "{2}" "{1}!docsaver" "Save this file after showing Doc Info box."
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] ""
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Ami Pro"
6 0
15
9
24 109
13
8 4
6 4
5 1
18 1
11 00000644
6 0
15
9
24 103
6 0
15
9
00003059