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

INI File | 1994-08-14 | 63.8 KB | 3,743 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    ª█¡q Ami Pro Ñ\»α¬φ
    Lotus Word Processing Division
    Advanced
    Define, AddMenu
    NoAutorun
    776713415
    71
    668987187
    976
    24
    0
    0
    0
    0






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

[ParaNum]
    1
[l1]
    0
[pg]
    24
    41 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
    80 0 17 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
    121 0 6 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
    168 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
    186 0 17 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
    214 0 17 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
    262 0 36 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
    306 0 6 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
    328 0 17 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
    371 0 17 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
    394 0 17 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
    443 0 26 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
    492 0 21 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
    541 0 35 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
    590 0 21 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
    633 0 17 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
    657 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
    701 0 0 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
    711 0 6 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
    755 0 17 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
    789 0 17 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
    820 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
    861 0 41 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
    906 0 10 1025 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
[edoc]
<:#284,9025>' CustMenu - Allow the user to add and delete menu item.sdeclare InitCombo(p1);

<:#284,9025>

<:#284,9025>' Now some handy defines for window messages.

<:#284,9025>define    MF_BYPOSITION    0x400

<:#284,9025>define    CB_SETCURSEL    0x40E

<:#284,9025>define    CB_GETCURSEL    0x407

<:#284,9025>

<:#284,9025>' Define Macros to actually make the Windows calls.

<:#284,9025>

<:#284,9025>define GetActiveWindow()

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

<:#284,9025>define    GetMenu(hWnd)

<:#284,9025>    DllCall("user,GetMenu,HH", %1)

<:#284,9025>define    GetMenuString(hMenu, offset, namep, max, flag)

<:#284,9025>    DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)

<:#284,9025>define    GetMenuItemCount(hMenu)

<:#284,9025>    DllCall("user,GetMenuItemCount,HH", %1)

<:#284,9025>define    GetParent(hWnd)

<:#284,9025>    DllCall("user,GetParent,HH", %1)

<:#284,9025>define    GetSubMenu(hMenu, pos)

<:#284,9025>    DllCall("user,GetSubMenu,HHH", %1, %2)

<:#284,9025>Define    Dllname    "User"

<:#284,9025>' Now functions we call

<:#284,9025>declare ComboCallBack(p1, p2, p3);

<:#284,9025>declare LocateHmenu(p1);

<:#284,9025>Declare FindMenu(p1, p2)

<:#284,9025>declare LoadTheBox(p1, p2)

<:#284,9025>declare FindAutoExec();

<:#284,9025>declare AddAccelStuff(p1, p2);

<:#284,9025>declare ShowAccel(p1);

<:#284,9025>declare DetermineAccel();

<:#284,9025><:>declare AddAccelerator<:>(amifuncnt, amifuns, menuids)

<:#284,9025>declare    LoadMenus(p1)

<:#284,9025>declare LoadAmiFuns(p1, p2)

<:#284,9025>declare GetAmiPro(p1, p2)

<:#284,9025>declare GetMacro()

<:#284,9025><:><:>declare AddToAutoexec(p1, p2, p3, p4, p5, p6, p7)

<:#284,9025>declare    AddItem(p1, p2, p3, p4, p5, p6)

<:#284,9025>declare DelMenu(p1)

<:#284,9025>

<:p<* >>

@Function@<:#293,9025><:ZCustMenu>FUNCTION CustMenu<:Z~CustMenu>()

<:#284,9025>'singlestep(0)

<:#284,9025>IF IsNewWave()

<:#284,9025>    Message("Macro not available while running under HP NewWave.")

<:#284,9025>    Exit Function

<:#284,9025>ENDIF

<:#284,9025>dim    menus(20)            ' Where to store the standard menu names

<:#284,9025>dim    amifuns(200)            ' Where to store ami function names

<:#284,9025>dim    menuids(200)            ' and there corresponding menuids

<:#284,9025><:><:>menucnt = LoadMenus(&menus)    ' Get the menu names

<:#284,9025>amifuncnt  = LoadAmiFuns(&amifuns, &menuids)    ' And the amipro functions

<:#284,9025>StatusBarMsg("")

<:#284,9025>defstr    stat;

<:#568,9025>FillEdit(8000, &menus)        ' Load the list box with the menus for them to choose

<:#568,9025>While (1 << Assign(&stat, DialogBox("." "PickMenu")))     'Loop here until OK or Cancel

<:#284,9025>    menuname = GetDialogField$(9000)

<:#568,9025>    if ("" != menuname)                    'Make sure they picked something

<:#284,9025>        ' Now determine which button caused the box to close.

<:#284,9025>        switch stat

<:#284,9025>            case 5

<:#284,9025><:><:><:><:>            hourglass(1)

<:#568,9025>            AddItem(menuname, amifuncnt, &amifuns, &menuids, menucnt, &menus)

<:#284,9025><:><:><:><:>            hourglass(0)

<:#284,9025>            break

<:#284,9025>            case 6

<:#284,9025><:><:><:><:>            hourglass(1)

<:#284,9025>            DelMenu(menuname)

<:#284,9025><:><:><:><:>            hourglass(0)

<:#284,9025>            break;

<:#284,9025>            case 7

<:#284,9025><:><:><:><:>            hourglass(1)

<:#284,9025>            AddAccelerator(amifuncnt, &amifuns, &menuids)

<:#284,9025><:><:><:><:>            hourglass(0)

<:#284,9025>            break;

<:#284,9025>        endswitch

<:#284,9025>    endif

<:#284,9025><:><:><:><:>    FillEdit(8000, &menus)        ' Reload the box for next goround

<:#284,9025><:><:><:><:>wend

END FUNCTION<:p<* >>

<:#568,9025>' AddItem - This macro will add either an AmiPro function or macro to any of the standard

<:#568,9025>'    menus.    Because we can not pass anything to our callback routines we will keep

<:#284,9025>'    the information in global variables.

<:#284,9025>define    POSVAR    "Cust1"        ' Currently selected position

<:#284,9025>define    GHMENU    "Cust2"        ' Handle the menu in question.

<:#284,9025>

@Function@<:#586,9025><:ZAddItem>FUNCTION AddItem<:Z~AddItem>(menuname, amifuncnt, amifuns, menuids, menucnt, menus)

<:#284,9025>menuid = 0                ' initialize all our variables

<:#284,9025>macroname = ""

<:#284,9025>itemname = ""

<:#284,9025>action = ""

<:#284,9025>Helptext = ""

<:#284,9025>temp = ""

<:#284,9025>itemnum = 0

<:#284,9025>pos = 0

<:#284,9025>accel = 0

<:#284,9025>hmenu = 0;

<:#284,9025>AllocGlobalVar(POSVAR, 1)

<:#284,9025>AllocGlobalVar(GHMENU, 1)

<:#568,9025>SetGlobalVar(POSVAR, 0)            ' Position 0 indicates none selected (add to end)

<:#284,9025>SetGlobalVar(GHMENU, LocateHmenu(menuname));    ' get hMenu and save

<:#568,9025>stat = 2                    ' Set stat so we execute dlgbox at least once

<:#284,9025>while (stat != 0 and stat != 1)        ' Do this till they cancel or ok it.

<:#284,9025>    FillEdit(1003, menuname)    ' Show em what we know so far.

<:#284,9025>    FillEdit(1005, action)

<:#284,9025>    FillEdit(8000, itemname)

<:#284,9025>    FillEdit(8001, helptext)

<:#284,9025>    FillEdit(8002, pos)

<:#284,9025>    ShowAccel(accel)

<:#568,9025>    ' For the "Insert Before Item" we really want to know what position on the menu to

<:#284,9025>    ' insert the new item.  We use a call back to simply determine which item was

<:#568,9025>    ' selected.  We dont sort the box so the CB_GETCURSEL will return the position

<:#568,9025>    ' we are intereted in.  Also we will use the special callback id == 0 to load this box.

<:#284,9025>    SetDlgCallBack(0, strcat$(GetRunningMacroFile$(), "!InitCombo"))

<:#284,9025><:><:>    SetDlgCallBack(9500, strcat$(GetRunningMacroFile$(),"!ComboCallback"))

<:#284,9025>    if (0 != Assign(&stat, DialogBox(".", "additem")))

<:#284,9025>        itemname = GetDialogField$(8000)    ' extract the item

<:#284,9025>        helptext = GetDialogField$(8001)    ' and help text

<:#284,9025>        pos = GetGlobalVar$(POSVAR)    ' get position from the global var

<:#284,9025>        accel = DetermineAccel()

<:#284,9025>    endif

<:#284,9025>    ' Now determine which button they pushed.

<:#284,9025>    switch stat

<:#284,9025>        case 4                    ' Select macro

<:#284,9025>            if ("" != Assign(&temp, GetMacro()))        ' Pick a macro

<:#284,9025>                macroname = temp    ' yes update it

<:#284,9025>                action = macroname

<:#284,9025>                menuid = 0        ' And zero the menuid

<:#284,9025>            endif

<:#284,9025>        case 3                    ' AmiPro Function

<:#284,9025>            if (0 != Assign(&itemnum, GetAmiPro(&amifuns, amifuncnt)))

<:#284,9025>                macro = ""

<:#284,9025>                menuid = *menuids(itemnum)

<:#284,9025>                action = *amifuns(itemnum)

<:#284,9025>            endif

<:#284,9025>    endswitch

<:#284,9025>wend

<:#284,9025>FreeGlobalVar(POSVAR);

<:#284,9025>FreeGlobalVar(GHMENU);

<:#568,9025>' If they have entered all information, make it take effect, then see if they want to make

<:#284,9025>' it permanent.

<:#284,9025>'

<:#284,9025>if ((stat) and (menuname != "") and ((menuid != 0) or (macroname != "")))

<:#284,9025>    if (accel)        ' if they made this an accelerator, add it to the itemname

<:#284,9025>        itemname = AddAccelStuff(itemname, accel)

<:#284,9025>    endif

<:#284,9025>    if (menuid != 0)        ' AmiPro Functoin?

<:#284,9025>        if (0 = pos)

<:#284,9025>            AddMenuItem(1, menuname, itemname, menuid)

<:#284,9025>        else

<:#284,9025>            InsertMenuItem(1, menuname, pos - 1, itemname, menuid)

<:#284,9025>        endif

<:#284,9025>        if (accel)

<:#284,9025>            if getopenfilecount() << 1

<:#284,9025>                sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")

<:#284,9025>                if sty = ""

<:#284,9025>                    sty = "_default.sty"

<:#284,9025>                endif

<:#284,9025>                new(sty, 0, 0)

<:#284,9025>            endif

<:#284,9025>            Onkey(accel, menuid, "")

<:#284,9025>        endif

<:#284,9025>    else

<:#284,9025>        if (0 = pos)

<:#284,9025>            AddMenuItem(1, menuname, itemname, macroname, helptext)

<:#284,9025>        else

<:#568,9025>            InsertMenuItem(1, menuname, pos - 1, itemname, macroname, helptext)

<:#284,9025>        endif

<:#284,9025>        if (accel)

<:#284,9025>            if getopenfilecount() << 1

<:#284,9025>                sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")

<:#284,9025>                if sty = ""

<:#284,9025>                    sty = "_default.sty"

<:#284,9025>                endif

<:#284,9025>                new(sty, 0, 0)

<:#284,9025>            endif

<:#284,9025>            OnKey(accel, 0, macroname)

<:#284,9025>        endif

<:#284,9025>    endif

<:#284,9025>    if (Decide("Keep settings for next session?"))

<:#568,9025><:><:><:><:>        AddToAutoexec(menuname, itemname, menuid, macroname, helptext, pos, accel)

<:#284,9025>    endif

<:#284,9025>elseif (1 = stat)        ' did they say ok but not specify enough stuff

<:#284,9025>    Message("Not all necessary information found")

<:#284,9025>endif

END FUNCTION<:p<* >>

<:#568,9025>' ComboCallBack - This gets called when the user has selected an item from the combo box.

<:#568,9025>'    we simply ask the combo box which one got selected, then we save that offset into

<:#284,9025>'    our global array.

@Function@<:#293,9025><:ZComboCallBack>FUNCTION ComboCallBack(hDlg, id, text)<:Z~ComboCallBack>

<:#568,9025>hCtrl = GetDlgItem(hDlg, id)                ' Need HWND of the combo box

<:#284,9025>off= AppSendMessage(hCtrl, CB_GETCURSEL, 0, 0)    ' Ask him

<:#284,9025>SetGlobalVar(POSVAR, off)                    ' Save it

<:#284,9025>END FUNCTION

<:#284,9025>'

<:#568,9025>' InitCombo - this is called before the dialog box is pulled up (SetDlgCallBack(0, InitCombo))

<:#568,9025>'    We get the menu handle from the global variale, then using windows calls, load the

<:#284,9025>'    combo box with items from that menu.

@Function@<:#293,9025><:ZInitCombo>FUNCTION InitCombo(hDlg)<:Z~InitCombo>

<:#284,9025><:><:>defstr    menuname;

<:#284,9025>hMenu = GetGlobalVar$(GHMENU)        ' Retrieve the handle to menu

<:#284,9025>SetDlgItemtext(hDlg, 9500, "")        ' Set a blank one at top

<:#568,9025>menucnt = GetMenuItemCount(hMenu)    ' Determin how many are on the menu

<:#284,9025>for i = 0 to menucnt - 1

<:#284,9025>    GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)

<:#284,9025>    if (0 << tlen(menuname))

<:#284,9025>        SetDlgItemText(hDlg, 9500,  menuname)

<:#284,9025>    else

<:#284,9025>        SetDlgItemText(hDlg, 9500, "------------------------------------")

<:#284,9025>    endif

<:#284,9025>next

<:#284,9025>' finally select one by position.

<:#568,9025>AppSendMessage(GetDlgItem(hDlg, 9500), CB_SETCURSEL, GetGlobalVar$(POSVAR), 0)

END FUNCTION<:p<* >>

<:#284,9025>

<:#568,9025>' AddAccelerator - Get either an amipro function or macro, and a key then make it an

<:#284,9025>'    accelerator.

<:#284,9025>'

@Function@<:#293,9025><:>FUNCTION <:ZAddAccelerator>AddAccelerator<:Z~AddAccelerator><:>(amifuncnt, amifuns, menuids)

<:#284,9025>menuid = 0

<:#284,9025>macroname = ""

<:#284,9025>action = ""

<:#284,9025>itemnum = 0

<:#284,9025>accel = 0

<:#284,9025>temp = ""

<:#284,9025>stat = 2

<:#284,9025>while (stat != 0 and stat != 1)        ' Do this till they cancel or ok it.

<:#284,9025>    FillEdit(1005, action)

<:#284,9025><:><:>    ShowAccel(accel)

<:#284,9025>    if (0 != Assign(&stat, DialogBox(".", "addaccel")))

<:#284,9025><:><:>        accel = DetermineAccel()

<:#284,9025>    endif

<:#284,9025>    switch stat

<:#284,9025>        case 4                    ' They push the select macro

<:#284,9025>            if ("" != Assign(&temp, GetMacro()))        ' Pick a macro

<:#284,9025>                macroname = temp    ' yes update it

<:#284,9025>                action = macroname

<:#284,9025>                menuid = 0        ' And zero the menuid

<:#284,9025>            endif

<:#284,9025>        case 3                    ' AmiPro Function

<:#284,9025>            if (0 != Assign(&itemnum, GetAmiPro(&amifuns, amifuncnt)))

<:#284,9025>                macro = ""

<:#284,9025>                menuid = *menuids(itemnum)

<:#284,9025>                action = *amifuns(itemnum)

<:#284,9025>            endif

<:#284,9025>    endswitch

<:#284,9025>wend

<:#284,9025>

<:#284,9025>if ((stat) and (accel != 0) and ((menuid != 0) or (macroname != "")))

<:#284,9025>    if getopenfilecount() << 1

<:#284,9025>        sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")

<:#284,9025>        if sty = ""

<:#284,9025>            sty = "_default.sty"

<:#284,9025>        endif

<:#284,9025>        new(sty, 0, 0)

<:#284,9025>    endif

<:#284,9025>    if (menuid != 0)

<:#284,9025>        Onkey(accel, menuid, "")

<:#284,9025>    else

<:#284,9025>        OnKey(accel, 0, macroname)

<:#284,9025>    endif

<:#284,9025>    if (Decide("Make this permanent?"))

<:#284,9025><:><:><:><:><:><:>        AddToAutoexec(0, 0, menuid, macroname, 0, 0, accel)

<:#284,9025>    endif

<:#284,9025>elseif (1 = stat)        ' did they say ok but not specify enough stuff

<:#284,9025>    Message("Not all necessary information found")

<:#284,9025>endif

<:#284,9025>END FUNCTION

<:#284,9025>

<:#284,9025>' DetermineAccel - turn the letter and the shift state check boxes into a number.

<:#284,9025>

@Function@<:#293,9025><:ZDetermineAccel>FUNCTION DetermineAccel()<:Z~DetermineAccel>

<:#284,9025>defstr    fkey;

<:#284,9025>accel = 0                    ' Assume they did not hit any thing

<:#284,9025>key = GetDialogField$(8003)            ' Get the letter

<:#284,9025>if ("" != key)                    ' they type something?

<:#284,9025>    if (1 = tlen(key))            ' Single letter?

<:#568,9025>                            ' The UCase is necessary because what

<:#284,9025>                            ' we really want is the virtual key.

<:#284,9025>        accel = asc(UCase$(kmid$(key,1, 1)));    ' Yes, turn it into a virtual key

<:#284,9025>    else

<:#568,9025>        ' We only accept function keys here, they must be of the form "Fx" where the

<:#284,9025>        ' x is 1 - 12.  So first make sure that the first letter is a F.

<:#568,9025>        ' Then make sure the rest of it is numeric.  While we have it use assign to

<:#284,9025>        ' set fkey to that value.

<:#284,9025>        if ("F" = UCase$(kmid$(key,1, 1)))

<:#284,9025>        AND IsNumeric(Assign(&fkey, Right$(key, tlen(key) - 1)))

<:#284,9025>            ' Set accel to the virtual key F0.  NOTE the BracketsToBin is

<:#568,9025>            ' necessary because asc returns the value of the first character of its

<:#284,9025>            ' input.  Since there is no F0, assign it to F1 then subtract 1.

<:#284,9025>            accel = asc(BracketsToBin("<[>F1]")) - 1

<:#568,9025>            accel = accel + fkey;            ' Bump it up to the proper value

<:#284,9025>        else

<:#284,9025>            Message("Invalid key.  It must be A - Z or F1 to F12");

<:#284,9025>            return 0;

<:#284,9025>        endif

<:#284,9025>    endif

<:#284,9025>    if (GetDialogField$(21))        ' Now add in the shift states.

<:#284,9025>        accel = accel | 0x4000;

<:#284,9025>        endif

<:#284,9025>    if (GetDialogField$(22))

<:#284,9025>        accel = accel | 0x1000;

<:#284,9025>    endif

<:#284,9025>    if (GetDialogField$(23))

<:#284,9025>        accel = accel | 0x2000;

<:#284,9025>    endif

<:#284,9025>endif

<:#284,9025>

<:#284,9025>return accel;

<:#284,9025>END FUNCTION

<:#284,9025>'

<:#284,9025>' ShowAccel - given the accelerate prime the dialog box.

<:#284,9025>

@Function@<:#293,9025><:ZShowAccel>FUNCTION ShowAccel(accel)<:Z~ShowAccel>

<:#284,9025>if (0 != accel)

<:#568,9025>    FillEdit(21, accel & 0x4000);        ' Set the check boxes for ctrl, shift and alt

<:#284,9025>    FillEdit(22, accel & 0x1000);

<:#284,9025>    FillEdit(23, accel & 0x2000);

<:#284,9025>    accel = accel & 0xff;            ' Strip off the shift states.

<:#284,9025>    lowf = asc(BracketsToBin("<[>f1]"))    ' Get virtual key for F1.

<:#284,9025>    if (lowf <<= accel AND accel <<= (lowf + 12))

<:#284,9025>        ' Create the "Fx" using strcat$.

<:#284,9025>        FillEdit(8003, strcat$("F", chr$(0x31 + (accel - lowf))))

<:#284,9025>    else

<:#284,9025>        FillEdit(8003, chr$(accel))

<:#284,9025>    endif

<:#284,9025>endif

END FUNCTION<:p<* >>

<:#284,9025>

<:#568,9025>' AddAccelStuff - given the itemname (what will show on the menu) add in a accelerator

<:#284,9025>'    key of the form CTRL+Z or ALT+F4

<:#284,9025>

@Function@<:#293,9025><:ZAddAccelStuff>FUNCTION AddAccelStuff(itemname, accel)<:Z~AddAccelStuff>

<:#284,9025>shift = "";

<:#284,9025>if (accel & 0x4000)

<:#284,9025>    shift = strcat$(shift, "Ctrl+")

<:#284,9025>endif

<:#284,9025>if (accel & 0x1000)

<:#284,9025>    shift = strcat$(shift, "Shift+");

<:#284,9025>endif

<:#284,9025>if (accel & 0x2000)

<:#284,9025>    shift = strcat$(shift, "Alt+");

<:#284,9025>endif

<:#284,9025>accel = accel & 0xff;            ' Strip off the shift states.

<:#284,9025>lowf = asc(BracketsToBin("<[>f1]"))    ' Get virtual key for F1.

<:#284,9025>if (lowf <<= accel AND accel <<= (lowf + 12))

<:#284,9025>    ' Create the "Fx" using strcat$.

<:#284,9025>    text = strcat$("F", chr$(0x31 + (accel - lowf)))

<:#284,9025>else

<:#284,9025>    text = chr$(accel)

<:#284,9025>endif

<:#284,9025>shift = strcat$(shift, text);

<:#284,9025>return strcat$(itemname, "    ", shift);

<:#284,9025>END FUNCTION

<:#284,9025>

<:#284,9025>' :LoadMenus - fill the callers array with top level menu names

<:#284,9025>'

@Function@<:#293,9025>FUNCTION <:ZLoadMenus>LoadMenus<:Z~LoadMenus>(menus)

<:#284,9025>hmenu = getmenu(getactivewindow())

<:#284,9025>menucnt = GetMenuItemCount(hmenu)

<:#284,9025>defstr menuname;

<:#284,9025>a = 1

<:#284,9025>for i = 0 to menucnt - 1

<:#284,9025>    GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)

<:#284,9025>    if menuname <<<;> "" and menuname <<<;> "&Window";

<:#284,9025>        *menus(a) = menuname;

<:#284,9025>        a = a + 1

<:#284,9025>    endif

<:#284,9025>next

<:#284,9025>return a

END FUNCTION<:p<* >>

<:#284,9025>'

<:#284,9025>' GetMacro - put up the macro list dialog box, and let the user pick a macro.

<:#284,9025>'     Return the macroname or a null string if they canceled out.

@Function@<:#293,9025><:><:ZGetMacro>Function GetMacro<:Z~GetMacro><:>()

<:#284,9025>onerror endit

<:#284,9025>oncancel endit

<:#284,9025>StatusBarMsg("One moment please...")

<:#568,9025>DOSchdir(GetMacPath$())        ' Change to macro directory before the dialogbox

<:#284,9025>FillEdit(9001, "*.smm")

<:#284,9025>StatusBarMsg("")

<:#284,9025>if (1 = DialogBox(".", "macrolst"))

<:#284,9025>

<:#284,9025>    ' GetDialogField will only return the filename, we want the entire path, so

<:#568,9025>    ' concatenate it with the current directory (the dialog box may have changed it)

<:#284,9025>    ' then lowercase everything so it looks better in the top level dialog box.

<:#284,9025>    macname = lcase$(strcat$(GetCurrentDir$(), GetDialogField$(8001)));

<:#284,9025>else

<:#284,9025>    macname = ""        ' cancel return null string.

<:#284,9025>endif

<:#284,9025>endit:

<:#284,9025>return macname;

<:#284,9025>StatusBarMsg("")

END FUNCTION<:p<* >>

<:#284,9025>' LoadAmiFuns - open the control file and load the two arrays.

<:#284,9025>'     This control file contains one line entries, each havig two fields.  The first is a

<:#284,9025>'    description of the function, the next it the MenuId.

<:#284,9025>'

@Function@<:#293,9025><:ZLoadAmiFuns>FUNCTION LoadAmiFuns<:Z~LoadAmiFuns>(names, menuids)

<:#284,9025>onerror endit

<:#284,9025>oncancel endit

<:#284,9025>StatusBarMsg("Loading control files...")    ' Tell en to wait

<:#284,9025>*names(1) = "New";

<:#284,9025>*menuids(1) = "101";

<:#284,9025>*names(2) = "Open";

<:#284,9025>*menuids(2) = "102";

<:#284,9025>*names(3) = "Save";

<:#284,9025>*menuids(3) = "103";

<:#284,9025>*names(4) = "Save As";

<:#284,9025>*menuids(4) = "104";

<:#284,9025>*names(5) = "Revert";

<:#284,9025>*menuids(5) = "105";

<:#284,9025>*names(6) = "Import/Export";

<:#284,9025>*menuids(6) = "107";

<:#284,9025>*names(7) = "Import Picture";

<:#284,9025>*menuids(7) = "141";

<:#284,9025>*names(8) = "File Management";

<:#284,9025>*menuids(8) = "108";

<:#284,9025>*names(9) = "Document Description";

<:#284,9025>*menuids(9) = "109";

<:#284,9025>*names(10) = "Rename Doc Info Fields";

<:#284,9025>*menuids(10) = "125";

<:#284,9025>*names(11) = "Links";

<:#284,9025>*menuids(11) = "115";

<:#284,9025>*names(12) = "Merge";

<:#284,9025>*menuids(12) = "110";

<:#284,9025>*names(13) = "Print";

<:#284,9025>*menuids(13) = "111";

<:#284,9025>*names(14) = "Printer Setup";

<:#284,9025>*menuids(14) = "112";

<:#284,9025>*names(15) = "Exit";

<:#284,9025>*menuids(15) = "113";

<:#284,9025>*names(16) = "Master Document";

<:#284,9025>*menuids(16) = "146";

<:#284,9025>*names(17) = "Undo";

<:#284,9025>*menuids(17) = "151";

<:#284,9025>*names(18) = "Cut";

<:#284,9025>*menuids(18) = "153";

<:#284,9025>*names(19) = "Copy";

<:#284,9025>*menuids(19) = "154";

<:#284,9025>*names(20) = "Paste";

<:#284,9025>*menuids(20) = "155";

<:#284,9025>*names(21) = "Paste Link";

<:#284,9025>*menuids(21) = "157";

<:#284,9025>*names(22) = "Insert Date";

<:#284,9025>*menuids(22) = "158";

<:#284,9025>*names(23) = "Footnotes";

<:#284,9025>*menuids(23) = "160";

<:#284,9025>*names(24) = "Defaults";

<:#284,9025>*menuids(24) = "162";

<:#284,9025>*names(25) = "Full Page";

<:#284,9025>*menuids(25) = "201";

<:#284,9025>*names(26) = "Custom View";

<:#284,9025>*menuids(26) = "202";

<:#284,9025>*names(27) = "Standard";

<:#284,9025>*menuids(27) = "203";

<:#284,9025>*names(28) = "Enlarged";

<:#284,9025>*menuids(28) = "204";

<:#284,9025>*names(29) = "Facing Pages";

<:#284,9025>*menuids(29) = "212";

<:#284,9025>*names(30) = "Layout Mode";

<:#284,9025>*menuids(30) = "210";

<:#284,9025>*names(31) = "Draft Mode";

<:#284,9025>*menuids(31) = "211";

<:#284,9025>*names(32) = "Display Preferences";

<:#284,9025>*menuids(32) = "206";

<:#284,9025>*names(33) = "Show Tab Ruler";

<:#284,9025>*menuids(33) = "207";

<:#284,9025>*names(34) = "Hide Side Bar";

<:#284,9025>*menuids(34) = "109";

<:#284,9025>*names(35) = "Envelope";

<:#284,9025>*menuids(35) = "237";

<:#284,9025>*names(36) = "Font";

<:#284,9025>*menuids(36) = "251";

<:#284,9025>*names(37) = "Alignment";

<:#284,9025>*menuids(37) = "263";

<:#284,9025>*names(38) = "Spacing";

<:#284,9025>*menuids(38) = "252";

<:#284,9025>*names(39) = "Normal";

<:#284,9025>*menuids(39) = "253";

<:#284,9025>*names(40) = "Bold";

<:#284,9025>*menuids(40) = "254";

<:#284,9025>*names(41) = "Italic";

<:#284,9025>*menuids(41) = "255";

<:#284,9025>*names(42) = "Underline";

<:#284,9025>*menuids(42) = "256";

<:#284,9025>*names(43) = "Word Underline";

<:#284,9025>*menuids(43) = "256";

<:#284,9025>*names(44) = "Caps";

<:#284,9025>*menuids(44) = "264";

<:#284,9025>*names(45) = "Special Effects";

<:#284,9025>*menuids(45) = "258";

<:#284,9025>*names(46) = "Create Style";

<:#284,9025>*menuids(46) = "301";

<:#284,9025>*names(47) = "Modify Style";

<:#284,9025>*menuids(47) = "302";

<:#284,9025>*names(48) = "Use Another Style Sheet";

<:#284,9025>*menuids(48) = "304";

<:#284,9025>*names(49) = "Save As A New Style Sheet";

<:#284,9025>*menuids(49) = "305";

<:#284,9025>*names(50) = "Style Management";

<:#284,9025>*menuids(50) = "303";

<:#284,9025>*names(51) = "Select a Style";

<:#284,9025>*menuids(51) = "306";

<:#284,9025>*names(52) = "Show Styles Box";

<:#284,9025>*menuids(52) = "307";

<:#284,9025>*names(53) = "Insert/Remove Layout";

<:#284,9025>*menuids(53) = "351";

<:#284,9025>*names(54) = "Modify Layout";

<:#284,9025>*menuids(54) = "352";

<:#284,9025>*names(55) = "Floating Header/Footer";

<:#284,9025>*menuids(55) = "360";

<:#284,9025>*names(56) = "Tab Ruler";

<:#284,9025>*menuids(56) = "355";

<:#284,9025>*names(57) = "Page Numbering";

<:#284,9025>*menuids(57) = "356";

<:#284,9025>*names(58) = "Line Numbering";

<:#284,9025>*menuids(58) = "359";

<:#284,9025>*names(59) = "Page Break";

<:#284,9025>*menuids(59) = "357";

<:#284,9025>*names(60) = "Add a Frame";

<:#284,9025>*menuids(60) = "409";

<:#284,9025>*names(61) = "Frame Layout";

<:#284,9025>*menuids(61) = "402";

<:#284,9025>*names(62) = "Graphics Scaling";

<:#284,9025>*menuids(62) = "403";

<:#284,9025>*names(63) = "Image Processing";

<:#284,9025>*menuids(63) = "410";

<:#284,9025>*names(64) = "Go To";

<:#284,9025>*menuids(64) = "452";

<:#284,9025>*names(65) = "Find Replace";

<:#284,9025>*menuids(65) = "451";

<:#284,9025>*names(66) = "Spelling";

<:#284,9025>*menuids(66) = "453";

<:#284,9025>*names(67) = "Thesaurus";

<:#284,9025>*menuids(67) = "455";

<:#284,9025>*names(68) = "Glossary";

<:#284,9025>*menuids(68) = "467";

<:#284,9025>*names(69) = "Sort";

<:#284,9025>*menuids(69) = "456";

<:#284,9025>*names(70) = "Generate Toc, Index";

<:#284,9025>*menuids(70) = "465";

<:#284,9025>*names(71) = "Tables";

<:#284,9025>*menuids(71) = "457";

<:#284,9025>*names(72) = "Insert Note";

<:#284,9025>*menuids(72) = "282";

<:#284,9025>*names(73) = "Insert Merge Field";

<:#284,9025>*menuids(73) = "182";

<:#284,9025>*names(74) = "Insert Doc Info";

<:#284,9025>*menuids(74) = "183";

<:#284,9025>*names(75) = "Insert Power Field";

<:#284,9025>*menuids(75) = "568";

<:#284,9025>*names(76) = "Update Power Field";

<:#284,9025>*menuids(76) = "571";

<:#284,9025>*names(77) = "Update All Power Fields";

<:#284,9025>*menuids(77) = "267";

<:#284,9025>*names(78) = "Next Power Field";

<:#284,9025>*menuids(78) = "569";

<:#284,9025>*names(79) = "Previous Power Field";

<:#284,9025>*menuids(79) = "570";

<:#284,9025>*names(80) = "Mark Index";

<:#284,9025>*menuids(80) = "180";

<:#284,9025>*names(81) = "Mark Glossary";

<:#284,9025>*menuids(81) = "199";

<:#284,9025>*names(82) = "Revision Marking";

<:#284,9025>*menuids(82) = "187";

<:#284,9025>*names(83) = "Protect Text";

<:#284,9025>*menuids(83) = "188";

<:#284,9025>*names(84) = "No Hyphenation";

<:#284,9025>*menuids(84) = "189";

<:#284,9025>*names(85) = "Left Align";

<:#284,9025>*menuids(85) = "259";

<:#284,9025>*names(86) = "Right Align";

<:#284,9025>*menuids(86) = "261";

<:#284,9025>*names(87) = "Center";

<:#284,9025>*menuids(87) = "260";

<:#284,9025>*names(88) = "Justify";

<:#284,9025>*menuids(88) = "262";

<:#284,9025>*names(89) = "Upper Case";

<:#284,9025>*menuids(89) = "273";

<:#284,9025>*names(90) = "Lower Case";

<:#284,9025>*menuids(90) = "287";

<:#284,9025>*names(91) = "Initial Caps";

<:#284,9025>*menuids(91) = "288";

<:#284,9025>*names(92) = "Small Caps";

<:#284,9025>*menuids(92) = "289";

<:#284,9025>*names(93) = "Insert Page Layout";

<:#284,9025>*menuids(93) = "375";

<:#284,9025>*names(94) = "Remove Page Layout";

<:#284,9025>*menuids(94) = "373";

<:#284,9025>*names(95) = "Revert Page Layout";

<:#284,9025>*menuids(95) = "374";

<:#284,9025>*names(96) = "Insert Tab Ruler";

<:#284,9025>*menuids(96) = "371";

<:#284,9025>*names(97) = "Remove Tab Ruler";

<:#284,9025>*menuids(97) = "372";

<:#284,9025>*names(98) = "Macro Play";

<:#284,9025>*menuids(98) = "502";

<:#284,9025>*names(99) = "Macro Record";

<:#284,9025>*menuids(99) = "503";

<:#284,9025>*names(100) = "Macro Edit";

<:#284,9025>*menuids(100) = "501";

<:#284,9025>*names(101) = "Quick Record";

<:#284,9025>*menuids(101) = "505";

<:#284,9025>*names(102) = "Quick Play";

<:#284,9025>*menuids(102) = "506";

<:#284,9025>*names(103) = "Insert Bullet";

<:#284,9025>*menuids(103) = "836";

<:#284,9025>*names(104) = "Fast Format";

<:#284,9025>*menuids(104) = "246";

<:#284,9025>*names(105) = "Header Footer";

<:#284,9025>*menuids(105) = "377";

<:#284,9025>*names(106) = "Control Panel";

<:#284,9025>*menuids(106) = "601";

<:#284,9025>*names(107) = "Tab Ruler";

<:#284,9025>*menuids(107) = "810";

<:#284,9025>*names(108) = "Assign Macro To File";

<:#284,9025>*menuids(108) = "436";

<:#284,9025>*names(109) = "Toggle Clean Screen";

<:#284,9025>*menuids(109) = "233";

<:#284,9025>*names(110) = "Clean Screen Option";

<:#284,9025>*menuids(110) = "234";

<:#284,9025>*names(111) = "Mark Index Word";

<:#284,9025>*menuids(111) = "180";

<:#284,9025>*names(112) = "Mark TOC Entry";

<:#284,9025>*menuids(112) = "835";

<:#284,9025>*names(113) = "Set Default Paths";

<:#284,9025>*menuids(113) = "170";

<:#284,9025>endit:

<:#284,9025>hourglass(0)

<:#284,9025>StatusBarMsg("")

<:#284,9025>return 113

END FUNCTION<:p<* >>

<:#284,9025>'

<:#284,9025>' GetAmiPro - let them pick an AmiPro function from the passed list

<:#284,9025>'    Return the index into the passed array or 0 if the user canceled.

@Function@<:#293,9025><:><:ZGetAmiPro>FUNCTION GetAmiPro<:Z~GetAmiPro><:>(names, cnt)

<:#284,9025>onerror endit

<:#284,9025>oncancel endit

<:#284,9025>StatusBarMsg("One moment please...")

<:#284,9025>hourglass(1)

<:#284,9025>FillEdit(8000, &names)

<:#284,9025>hourglass(0)

<:#284,9025>endit:

<:#284,9025>StatusBarMsg("")

<:#284,9025>i = 0                        ' set default return status

<:#284,9025>if 1 = DialogBox(".", "funclst")        ' They hit OK?

<:#284,9025>    selected = GetDialogField$(9000)    ' Yes, get the text

<:#284,9025>    for i = 1 to cnt            ' Now run through the array

<:#284,9025>        if selected = *names(i)    ' to find the index

<:#284,9025>            break

<:#284,9025>        endif

<:#284,9025>    next

<:#284,9025>endif

<:#284,9025>return i

<:#284,9025>END FUNCTION

<:p<* >>

<:#284,9025>'

<:#568,9025>' AddToAutoExec - Add lines to the autoexec.smm file that will add a new menu item

<:#284,9025>'

@Function@<:#586,9025><:ZAddToAutoExec>FUNCTION AddToAutoexec<:Z~AddToAutoExec>(menuname, itemname, menuid, macroname, helptext, pos, accel)

<:#284,9025>declare OpenAutoExec()

<:#284,9025><:><:>OpenAutoExec()                ' open autoexec.smm and position

<:#284,9025>

<:#284,9025>if (accel != 0)                    ' This one have an accelerator?

<:#284,9025>    type("accel = {accel}<[>enter]")

<:#284,9025>    type("menuid = {menuid}<[>enter]")

<:#284,9025>    type("macroname = ""{macroname}""<[>enter]")

<:#284,9025>    type("OnKey(accel, menuid, macroname)")

<:#284,9025>endif

<:#284,9025>if (0 != menuname)

<:#284,9025>    type("menuname = ""{menuname}""<[>enter]")    ' make variable assignments

<:#568,9025>    type("itemname = ""{itemname}""<[>enter]")    ' so the AddmenuItem line wont be to long.

<:#284,9025>    if (0 != menuid)                ' We adding an AmiPro Function?

<:#284,9025>        type("menuid = {menuid}<[>enter]")    ' Yes

<:#284,9025>        if (0 = pos)

<:#284,9025>            type("AddmenuItem(1, {{menuname}, {{itemname}, {{menuid})")

<:#284,9025>        else

<:#284,9025>            pos = pos - 1;

<:#284,9025>            type("pos = {pos}<[>enter]")

<:#568,9025>            type("InsertMenuItem(1, {{menuname}, {{pos}, {{itemname}, {{menuid})")

<:#284,9025>        endif

<:#284,9025>    else

<:#284,9025>        type("macroname = ""{macroname}""<[>enter]")        ' its a macro.

<:#284,9025>        type("helptext = ""{helptext}""<[>enter]")

<:#284,9025>        if (0 = pos)

<:#568,9025>            type("AddmenuItem(1, {{menuname}, {{itemname}, {{macroname}, {{helptext})")

<:#284,9025>        else

<:#284,9025>            pos = pos - 1;

<:#284,9025>            type("pos = {pos}<[>enter]");

<:#284,9025>            type("InsertMenuItem(1, {{menuname}, {{pos},");

<:#284,9025>            type(" {{itemname}, {{macroname}, {{helptext})");

<:#284,9025>        endif

<:#284,9025>    endif

<:#284,9025>endif

<:#284,9025>Save()                    ' and save it

<:#284,9025>FileClose()                ' and close it

<:#284,9025>END FUNCTION

<:#284,9025>

<:#284,9025>' DelFromAutoExec - Add lines in the autoexec to delete a menu item.

<:#284,9025>

@Function@<:#293,9025><:ZDelFromAutoExec>FUNCTION DelFromAutoexec(<:Z~DelFromAutoExec>menuname, itemname)

<:#284,9025>declare OpenAutoExec()

<:#284,9025>OpenAutoExec()                ' open autoexec.smm and position

<:#284,9025>type("menuname = ""{menuname}""<[>enter]")    ' make variable assignments

<:#568,9025>type("itemname = ""{itemname}""<[>enter]")    ' so the AddmenuItem statement wont be to long.

<:#284,9025>type("DeleteMenuItem(1, {{menuname}, {{itemname})")

<:#284,9025>Save()                    ' and save it

<:#284,9025>FileClose()                ' and close it

<:#284,9025>END FUNCTION

'<:p<* >>

<:#568,9025>' OpenAutoExec - Open-Create the autoexec.smm then position the insertion point just before

<:#284,9025>'    the first END FUNCTION

<:#284,9025>'

@Function@<:#293,9025><:ZOpenAutoExec>FUNCTION OpenAutoExec(<:Z~OpenAutoExec>)

<:#284,9025>defstr fid;

<:#284,9025><:ZMACUTEMP><:Z~MACUTEMP>auto = FindAutoExec();            ' Determine where the autoexec is

<:#284,9025>if (0 = Assign(&fid, fopen(auto, "r")))    ' Does it exist?

<:#284,9025>    sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")

<:#284,9025>    if sty = ""

<:#284,9025>        sty = "_default.sty"

<:#284,9025>    endif

<:#284,9025>    new(sty, 0, 0)            ' No let ami create it.

<:#284,9025>    type("FUNCTION auto()<[>enter]")    ' And fill in an empty

<:#284,9025>    type("END FUNCTION<[>enter]")    ' Function - End Function Pait

<:#284,9025>    type("<[>ctrlhome]")            ' Position at top of file

<:#284,9025>    saveas(auto, 32,"", "")            ' Create it.

<:#284,9025>else

<:#284,9025>    fclose(fid)                ' it existed. so close this

<:#284,9025>    FileOpen(auto, 1, "")            ' let ami open

<:#284,9025>endif

<:#284,9025>Replace(0, 0, 24576, "End function", "")    ' position at first end function

<:#284,9025>type("<[>home]")                    ' before the End

<:#284,9025>type("<[>enter]")                    ' create a line

<:#284,9025>type("<[>up]")                    ' position on that line

<:#284,9025>END FUNCTION                ' that all folks

<:#284,9025>'

<:#568,9025>' FindAutoExec - determine where the autoexec.smm file is.  If we can find it in the macro

<:#284,9025>'    directory or the docs directory, return the amipro directory.

<:#284,9025>'

@Function@<:#293,9025><:ZFindAutoExec>FUNCTION FindAutoExec()<:Z~FindAutoExec>

<:#284,9025>defstr    fid;

<:#284,9025>auto = strcat$(GetMacPath$(), "autoexec.smm")    ' check macro dir first

<:#284,9025>if (0 = Assign(&fid, fopen(auto, "r")))    ' Does it exist?

<:#284,9025>    auto = strcat$(GetDocPath$(), "autoexec.smm")    ' Now the docs dir

<:#284,9025>    if (0 = Assign(&fid, fopen(auto, "r")))    ' Does it exist?

<:#284,9025>        auto = strcat$(GetAmiDirectory$(), "autoexec.smm")    ' lastly amipro dir

<:#284,9025>    else

<:#284,9025>        fclose(fid)

<:#284,9025>    endif

<:#284,9025>else

<:#284,9025>    fclose(fid)

<:#284,9025>endif

<:#284,9025>return auto

END FUNCTION<:p<* >>

<:#284,9025>' LocateHmenu Given a menuname (File, Edit etc) return the handle to that menu.

<:#284,9025>

@Function@<:#293,9025><:ZLocateHmenu>FUNCTION LocateHmenu(menu)<:Z~LocateHmenu>

<:#284,9025>hWnd = GetActiveWindow()                ' Who is active

<:#284,9025>hPrevWnd = hWnd;

<:#568,9025>while 0 != Assign(&hWnd, GetParent(hWnd))    ' Go til we find a window with no parent

<:#284,9025>    hPrevWnd = hWnd;

<:#284,9025>wend

<:#284,9025>hWnd = hPrevWnd;

<:#568,9025>hMenu = GetMenu(hWnd)                ' Get the hMenu for the menu bar

<:#284,9025><:><:><:><:><:><:>return FindMenu(hMenu, Menu)            ' Find the menu

<:#284,9025>END FUNCTION

<:#284,9025>

<:#568,9025>' DelMenu - pass us a menu name (File, Edit etc) and we will display a list box with all items

<:#284,9025>'    From that menu and let the user delete one.

@Function@<:#293,9025>FUNCTION <:ZDelMenu>DelMenu<:Z~DelMenu>(Menu)

<:#284,9025>hWnd = GetActiveWindow()

<:#284,9025>hPrevWnd = hWnd;

<:#284,9025>while 0 != Assign(&hWnd, GetParent(hWnd))

<:#284,9025>    hPrevWnd = hWnd;

<:#284,9025>wend

<:#284,9025>hWnd = hPrevWnd;

<:#284,9025>hMenu = GetMenu(hWnd)

<:#284,9025><:><:><:><:><:><:>if (0 != Assign(&hMenu, FindMenu(hMenu, Menu)))    ' If we can find that menu

<:#284,9025><:><:><:><:>    LoadTheBox(hMenu, 9000);                ' Load the list box

<:#284,9025>    if (1 = DialogBox(".", "DelMenu"))            ' Let em pick one

<:#284,9025>        item = GetDialogField$(9000)

<:#284,9025>        DeleteMenuItem(1, menu, item)        ' Delete it

<:#284,9025>        if (Decide("Make this permanent?"))

<:#284,9025>            DelFromAutoExec(menu, item)

<:#284,9025>        endif

<:#284,9025>    endif

<:#284,9025>endif

END FUNCTION<:p<* >>

<:#568,9025>' LoadTheBox - given a hMenu and id load it with all menu items, includeing seiarators.

<:#284,9025>'

@Function@<:#293,9025>FUNCTION <:ZLoadTheBox>LoadTheBox<:Z~LoadTheBox>(hMenu, id)

<:#284,9025>defstr    menuname;

<:#284,9025>menucnt = GetMenuItemCount(hMenu)        'Find out how many

<:#284,9025>for i = 0 to menucnt - 1

<:#284,9025>    GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)    ' Get one

<:#284,9025>    if (0 << tlen(menuname))

<:#284,9025>        FillEdit(id, menuname)

<:#284,9025>    else

<:#284,9025>        FillEdit(id, "------------------------------------")

<:#284,9025>    endif

<:#284,9025>next

<:#284,9025>

<:#284,9025>END FUNCTION

<:#284,9025>'

<:#284,9025>' FindMenu - Given a hMenu and name, return a handle that that menu.

@Function@<:#293,9025>FUNCTION <:ZFindMenu>FindMenu<:Z~FindMenu>(hMenu, Name)

<:#284,9025>defstr    menuname;

<:#284,9025>menucnt = GetMenuItemCount(hMenu)        ' How many

<:#284,9025>for i = 0 to menucnt - 1

<:#284,9025>    GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)

<:#284,9025>    if (Name = menuname)            ' Match?

<:#284,9025>        hMenu = GetSubMenu(hMenu, i);    ' Yes, get its handle.

<:#284,9025>        return hMenu;

<:#284,9025>    endif

<:#284,9025>next

<:#284,9025>return 0

<:#284,9025>END FUNCTION

<:#284,9025>

<:p<* >>

<:#284,9025>

@Function@<:#293,9025>DIALOG    DelMenu

<:#568,9025>-2134376448    5    98    46    176    86    ""    ""    "Delete Menu Item"

<:#284,9025>FONT    8    "Helv"

<:#284,9025>130    4    40    14    1    1342242817    "button"    "OK"    0

<:#284,9025>130    20    40    14    2    1342242816    "button"    "Cancel"    0

<:#284,9025>5    40    120    42    9000    1352728577    "listbox"    ""    0

<:#284,9025>6    30    56    8    1000    1342177280    "static"    "&Menu items:"    0

<:#568,9025>5    7    99    17    1001    1342177280    "static"    "Select a menu item to delete."    0

<:#284,9025>END DIALOG

<:#284,9025>

@Function@<:#293,9025>DIALOG    PickMenu

<:#568,9025>-2134376448    6    89    47    200    78    ""    ""    "Customize Ami Pro"

<:#284,9025>FONT    8    "Helv"

<:#284,9025>5    20    56    54    9000    1352728577    "listbox"    ""    0

<:#284,9025>149    4    44    14    2    1342242816    "button"    "Done"    0

<:#568,9025>67    20    126    14    5    1342242816    "button"    "&Add an Ami Pro Function or Macro..."    0

<:#568,9025>67    36    126    14    6    1342242816    "button"    "&Delete a menu item..."    0

<:#284,9025>6    9    56    8    1000    1342177280    "static"    "&Menus:"    0

<:#568,9025>67    53    126    14    7    1342242816    "button"    "Assign Key Commands..."    0

<:#284,9025>END DIALOG

<:#284,9025>

@Function@<:#293,9025><:>DIALOG    AddItem

<:#284,9025>-2134376448    20    35    26    260    104    ""    ""    "Add Menu Item"

<:#284,9025>FONT    8    "Helv"

<:#284,9025>5    16    82    8    1000    1342177282    "static"    "Name for Menu:"    0

<:#284,9025>89    14    84    12    8000    1350631552    "edit"    ""    0

<:#284,9025>5    30    82    8    1006    1342177282    "static"    "&Insert before:"    0

<:#568,9025>99    78    141    8    1001    1342177280    "static"    "Optional help text for macro functions only:"    0

<:#568,9025>183    41    71    14    3    1342242816    "button"    "Ami Pro &Function..."    0

<:#284,9025>183    57    71    14    4    1342242816    "button"    "&Macro..."    0

<:#284,9025>99    88    138    12    8001    1350631552    "edit"    ""    0

<:#284,9025>9    78    18    12    8003    1350631552    "edit"    ""    0

<:#284,9025>5    56    86    44    20    1342177287    "button"    "&Shortcut key"    0

<:#284,9025>49    67    38    10    21    1342242819    "button"    "&Control"    0

<:#284,9025>49    77    38    10    22    1342242819    "button"    "&Shift"    0

<:#284,9025>49    87    38    10    23    1342242819    "button"    "Al&t"    0

<:#284,9025>5    4    82    8    1002    1342177282    "static"    "Add to me&nu:"    0

<:#284,9025>214    6    40    14    1    1342242817    "button"    "OK"    0

<:#284,9025>214    22    40    14    2    1342242816    "button"    "Cancel"    0

<:#284,9025>108    4    84    8    1003    1342177280    "static"    ""    0

<:#568,9025>5    42    82    8    1004    1342177282    "static"    "Fun&ction/macro to add:"    0

<:#284,9025>89    42    84    8    1005    1342177280    "static"    ""    0

<:#284,9025>9    67    38    10    1007    1342177280    "static"    "&Keystroke:"    0

<:#284,9025>89    28    84    58    9500    1344274435    "combobox"    ""    0

<:#284,9025>END DIALOG

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>DIALOG    AddAccel

<:#568,9025>-2134376448    12    93    28    208    72    ""    ""    "Add Keyboard Shortcut"

<:#284,9025>FONT    8    "Helv"

<:#568,9025>128    36    74    14    3    1342242816    "button"    "Ami Pro &Function..."    0

<:#284,9025>128    52    74    14    4    1342242816    "button"    "&Macro..."    0

<:#284,9025>10    34    18    12    8003    1350631552    "edit"    ""    0

<:#284,9025>6    14    90    44    20    1342177287    "button"    "Shortcut key"    0

<:#284,9025>50    26    36    10    21    1342242819    "button"    "&Control"    0

<:#284,9025>50    36    38    10    22    1342242819    "button"    "&Shift"    0

<:#284,9025>50    46    38    10    23    1342242819    "button"    "&Alt"    0

<:#284,9025>162    4    40    14    1    1342242817    "button"    "OK"    0

<:#284,9025>162    20    40    14    2    1342242816    "button"    "Cancel"    0

<:#284,9025>6    4    64    10    1004    1342177280    "static"    "Function/macro:"    0

<:#284,9025>74    4    80    10    1005    1342177280    "static"    "text"    0

<:#284,9025>10    26    38    8    1007    1342177280    "static"    "Keystroke:"    0

<:#284,9025>END DIALOG

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>DIALOG MacroLst

<:#284,9025>-2134376448 6 108 30 154 90 "" "" "Add Macro "

<:#284,9025>FONT 8 "Helv"

<:#284,9025>8 16 60 12 8001 1350631552 "edit" "" 0

<:#284,9025>8 32 60 54 9001 1352728579 "listbox" "" 0

<:#284,9025>72 38 74 8 7999 1342177280 "static" "" 0

<:#284,9025>106 4 40 14 1 1342242817 "button" "OK" 0

<:#284,9025>106 20 40 14 2 1342242816 "button" "Cancel" 0

<:#284,9025>8 6 68 8 1001 1342177280 "static" "&Macro to execute:" 0

<:#284,9025>END DIALOG

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>DIALOG FuncLst

<:#284,9025>-2134376448 4 112 28 158 68 "" "" "Add Function"

<:#284,9025>FONT 8 "Helv"

<:#284,9025>6 16 100 46 9000 1352728579 "listbox" "" 0

<:#284,9025>6 6 66 8 1000 1342177280 "static" "&Ami Pro functions:" 0

<:#284,9025>112 6 40 14 1 1342242817 "button" "OK" 0

<:#284,9025>112 22 40 14 2 1342242816 "button" "Cancel" 0

@Function@<:#293,9025>END DIALOG

>

[Embedded]
00045154
>
[macsum] 26
CustMenu 0 0 8 41
AddItem 690 6 14 86
ComboCallBack 2736 3 3 189
InitCombo 2846 1 5 198
AddAccelerator 3327 3 10 218
DetermineAccel 4414 0 4 271
ShowAccel 5067 1 2 313
AddAccelStuff 5458 2 4 332
LoadMenus 5962 1 6 357
GetMacro 6394 0 2 374
LoadAmiFuns 6684 2 1 398
GetAmiPro 12560 2 3 636
AddToAutoexec 12920 7 1 660
DelFromAutoexec 13811 2 1 701
OpenAutoExec 13989 0 4 714
FindAutoExec 14437 0 3 740
LocateHmenu 14791 1 4 757
DelMenu 15058 1 5 770
LoadTheBox 15548 2 4 791
FindMenu 15913 2 4 806
DelMenu 16256 0 -1 821
PickMenu 16603 0 -1 831
AddItem 17034 0 -1 842
AddAccel 18153 0 -1 868
MacroLst 18846 0 -1 886
FuncLst 19206 0 -1 898
[macse]
14 CustMenu
0 1317
13
11 00000109
0 3 "Macro not available while running under HP NewWave."
6 0
15
9
5 20
21 1 [X]
5 200
21 2 [X]
5 200
21 3 [X]
16 LoadMenus &1
13
8 4
16 LoadAmiFuns &2 &3
13
8 5
0 789 ""
0 31 8000 &1
5 1
0 26 "." "PickMenu"
13
0 805 &6 [X]
13
18 5
11 00000678
0 27 9000
13
8 7
7 ""
6 7
18 1
11 00000651
5 5
6 6
18 0
11 00000469
0 296 1
16 AddItem "{7}" "{5}" &2 &3 "{4}" &1
0 296 0
10 00000651
10 00000651
5 6
6 6
18 0
11 00000560
0 296 1
16 DelMenu "{7}"
0 296 0
10 00000651
10 00000651
5 7
6 6
18 0
11 00000651
0 296 1
16 AddAccelerator "{5}" &2 &3
0 296 0
10 00000651
0 31 8000 &1
10 00000240
6 0
15
9
14 AddItem
5 0
8 7
7 ""
8 8
7 ""
8 9
7 ""
8 10
7 ""
8 11
7 ""
8 12
5 0
8 13
5 0
8 14
5 0
8 15
5 0
8 16
0 271 "Cust1" 1
0 271 "Cust2" 1
0 264 "Cust1" 0
16 LocateHmenu "{0}"
13
0 264 "Cust2" [X]
5 2
8 17
6 17
5 0
18 1
6 17
5 1
18 1
1 1
11 00000957
0 31 1003 "{0}"
0 31 1005 "{10}"
0 31 8000 "{9}"
0 31 8001 "{11}"
0 31 8002 "{14}"
16 ShowAccel "{15}"
0 802
13
0 16 [X] "!InitCombo"
13
0 41 0 [X]
0 802
13
0 16 [X] "!ComboCallback"
13
0 41 9500 [X]
5 0
0 26 "." "additem"
13
0 805 &17 [X]
13
18 1
11 00000661
0 27 8000
13
8 9
0 27 8001
13
8 11
0 265 "Cust1"
13
8 14
16 DetermineAccel
13
8 15
5 4
6 17
18 0
11 00000797
7 ""
16 GetMacro
13
0 805 &12 [X]
13
18 1
11 00000784
6 12
8 8
6 8
8 10
5 0
8 7
10 00000944
5 3
6 17
18 0
11 00000944
5 0
16 GetAmiPro &2 "{1}"
13
0 805 &13 [X]
13
18 1
11 00000944
7 ""
8 18
6 13
22 3
8 7
6 13
22 2
8 10
10 00000231
0 266 "Cust1"
0 266 "Cust2"
6 17
6 0
7 ""
18 1
6 7
5 0
18 1
6 8
7 ""
18 1
1 2
1 1
1 1
11 00001961
6 15
11 00001130
16 AddAccelStuff "{9}" "{15}"
13
8 9
6 7
5 0
18 1
11 00001494
5 0
6 14
18 0
11 00001229
0 516 1 "{0}" "{9}" "{7}"
10 00001276
6 14
5 1
3 1
0 527 1 "{0}" [X] "{9}" "{7}"
6 15
11 00001481
0 1050
13
5 1
18 5
11 00001456
0 286 "AmiPro" "defstyle" "amipro.ini"
13
8 19
6 19
7 ""
18 0
11 00001436
7 "_default.sty"
8 19
2 101 1 "{19}" 0 0
2 422 1 "{15}" "{7}" ""
10 00001829
5 0
6 14
18 0
11 00001571
0 516 1 "{0}" "{9}" "{8}" "{11}"
10 00001625
6 14
5 1
3 1
0 527 1 "{0}" [X] "{9}" "{8}" "{11}"
6 15
11 00001829
0 1050
13
5 1
18 5
11 00001805
0 286 "AmiPro" "defstyle" "amipro.ini"
13
8 19
6 19
7 ""
18 0
11 00001785
7 "_default.sty"
8 19
2 101 1 "{19}" 0 0
2 422 1 "{15}" 0 "{8}"
0 2 "Keep settings for next session?"
13
11 00001948
16 AddToAutoexec "{0}" "{9}" "{7}" "{8}" "{11}" "{14}" "{15}"
10 00002034
5 1
6 17
18 0
11 00002034
0 3 "Not all necessary information found"
6 6
15
9
14 ComboCallBack
0 44 "{0}" "{1}"
13
8 4
0 1036 "{4}" 1031 0 0
13
8 5
0 264 "Cust1" "{5}"
6 3
15
9
14 InitCombo
0 265 "Cust2"
13
8 3
0 43 "{0}" 9500 ""
0 284 "user,GetMenuItemCount,HH" "{3}"
13
8 4
5 0
8 5
6 4
5 1
3 1
6 5
18 2
12 00000202
10 00000406
5 1
6 5
3 0
8 5
10 00000117
0 284 "user,GetMenuString,HHHFHH" "{3}" "{5}" &2 80 1024
5 0
0 134 "{2}"
13
18 5
11 00000337
0 43 "{0}" 9500 "{2}"
10 00000393
0 43 "{0}" 9500 "------------------------------------"
10 00000169
0 44 "{0}" 9500
13
0 265 "Cust1"
13
0 1036 [X] 1038 [X] 0
6 1
15
9
14 AddAccelerator
5 0
8 4
7 ""
8 5
7 ""
8 6
5 0
8 7
5 0
8 8
7 ""
8 9
5 2
8 10
6 10
5 0
18 1
6 10
5 1
18 1
1 1
11 00000567
0 31 1005 "{6}"
16 ShowAccel "{8}"
5 0
0 26 "." "addaccel"
13
0 805 &10 [X]
13
18 1
11 00000278
16 DetermineAccel
13
8 8
5 4
6 10
18 0
11 00000411
7 ""
16 GetMacro
13
0 805 &9 [X]
13
18 1
11 00000398
6 9
8 5
6 5
8 6
5 0
8 4
10 00000554
5 3
6 10
18 0
11 00000554
5 0
16 GetAmiPro &1 "{0}"
13
0 805 &7 [X]
13
18 1
11 00000554
7 ""
8 11
6 7
22 2
8 4
6 7
22 1
8 6
10 00000093
6 10
6 8
5 0
18 1
6 4
5 0
18 1
6 5
7 ""
18 1
1 2
1 1
1 1
11 00001002
0 1050
13
5 1
18 5
11 00000811
0 286 "AmiPro" "defstyle" "amipro.ini"
13
8 12
6 12
7 ""
18 0
11 00000791
7 "_default.sty"
8 12
2 101 1 "{12}" 0 0
6 4
5 0
18 1
11 00000877
2 422 1 "{8}" "{4}" ""
10 00000900
2 422 1 "{8}" 0 "{5}"
0 2 "Make this permanent?"
13
11 00000989
16 AddToAutoexec 0 0 "{4}" "{5}" 0 0 "{8}"
10 00001075
5 1
6 10
18 0
11 00001075
0 3 "Not all necessary information found"
6 3
15
9
14 DetermineAccel
5 0
8 2
0 27 8003
13
8 3
7 ""
6 3
18 1
11 00000629
5 1
0 134 "{3}"
13
18 0
11 00000187
0 133 "{3}" 1 1
13
0 18 [X]
13
0 40 [X]
13
8 2
10 00000478
7 "F"
0 133 "{3}" 1 1
13
0 18 [X]
13
18 0
0 134 "{3}"
13
5 1
3 1
0 807 "{3}" [X]
13
0 805 &1 [X]
13
0 277 [X]
13
1 1
11 00000415
0 784 "[112]"
13
0 40 [X]
13
5 1
3 1
8 2
6 2
6 1
3 0
8 2
10 00000478
0 3 "Invalid key.  It must be A - Z or F1 to F12"
5 0
15
9
0 27 21
13
11 00000529
6 2
5 16384
25 2
8 2
0 27 22
13
11 00000579
6 2
5 4096
25 2
8 2
0 27 23
13
11 00000629
6 2
5 8192
25 2
8 2
6 2
15
9
6 0
15
9
14 ShowAccel
5 0
6 0
18 1
11 00000379
6 0
5 16384
25 1
0 31 21 [X]
6 0
5 4096
25 1
0 31 22 [X]
6 0
5 8192
25 1
0 31 23 [X]
6 0
5 255
25 1
8 0
0 784 "[112]"
13
0 40 [X]
13
8 2
6 2
6 0
18 4
6 0
6 2
5 12
3 0
18 4
1 1
11 00000348
5 49
6 0
6 2
3 1
3 0
0 39 [X]
13
0 16 "F" [X]
13
0 31 8003 [X]
10 00000379
0 39 "{0}"
13
0 31 8003 [X]
6 1
15
9
14 AddAccelStuff
7 ""
8 3
6 1
5 16384
25 1
11 00000091
0 16 "{3}" "Ctrl+"
13
8 3
6 1
5 4096
25 1
11 00000153
0 16 "{3}" "Shift+"
13
8 3
6 1
5 8192
25 1
11 00000213
0 16 "{3}" "Alt+"
13
8 3
6 1
5 255
25 1
8 1
0 784 "[112]"
13
0 40 [X]
13
8 4
6 4
6 1
18 4
6 1
6 4
5 12
3 0
18 4
1 1
11 00000411
5 49
6 1
6 4
3 1
3 0
0 39 [X]
13
0 16 "F" [X]
13
8 5
10 00000432
0 39 "{1}"
13
8 5
0 16 "{3}" "{5}"
13
8 3
0 16 "{0}" "    " "{3}"
13
15
9
6 2
15
9
14 LoadMenus
0 284 "user,GetActiveWindow,H"
13
0 284 "user,GetMenu,HH" [X]
13
8 2
0 284 "user,GetMenuItemCount,HH" "{2}"
13
8 3
5 1
8 5
5 0
8 6
6 3
5 1
3 1
6 6
18 2
12 00000242
10 00000408
5 1
6 6
3 0
8 6
10 00000157
0 284 "user,GetMenuString,HHHFHH" "{2}" "{6}" &4 80 1024
6 4
7 ""
18 1
6 4
7 "&Window"
18 1
1 1
11 00000395
6 5
6 4
23 0
6 5
5 1
3 0
8 5
10 00000209
6 5
15
9
6 1
15
9
14 GetMacro
20 00000256
19 00000256
0 789 "One moment please..."
0 295
13
0 781 [X]
0 31 9001 "*.smm"
0 789 ""
5 1
0 26 "." "macrolst"
13
18 0
11 00000245
0 290
13
0 27 8001
13
0 16 [X] [X]
13
0 17 [X]
13
8 1
10 00000256
7 ""
8 1
6 1
15
9
0 789 ""
6 0
15
9
14 LoadAmiFuns
20 00005831
19 00005831
0 789 "Loading control files..."
5 1
7 "New"
23 0
5 1
7 "101"
23 1
5 2
7 "Open"
23 0
5 2
7 "102"
23 1
5 3
7 "Save"
23 0
5 3
7 "103"
23 1
5 4
7 "Save As"
23 0
5 4
7 "104"
23 1
5 5
7 "Revert"
23 0
5 5
7 "105"
23 1
5 6
7 "Import/Export"
23 0
5 6
7 "107"
23 1
5 7
7 "Import Picture"
23 0
5 7
7 "141"
23 1
5 8
7 "File Management"
23 0
5 8
7 "108"
23 1
5 9
7 "Document Description"
23 0
5 9
7 "109"
23 1
5 10
7 "Rename Doc Info Fields"
23 0
5 10
7 "125"
23 1
5 11
7 "Links"
23 0
5 11
7 "115"
23 1
5 12
7 "Merge"
23 0
5 12
7 "110"
23 1
5 13
7 "Print"
23 0
5 13
7 "111"
23 1
5 14
7 "Printer Setup"
23 0
5 14
7 "112"
23 1
5 15
7 "Exit"
23 0
5 15
7 "113"
23 1
5 16
7 "Master Document"
23 0
5 16
7 "146"
23 1
5 17
7 "Undo"
23 0
5 17
7 "151"
23 1
5 18
7 "Cut"
23 0
5 18
7 "153"
23 1
5 19
7 "Copy"
23 0
5 19
7 "154"
23 1
5 20
7 "Paste"
23 0
5 20
7 "155"
23 1
5 21
7 "Paste Link"
23 0
5 21
7 "157"
23 1
5 22
7 "Insert Date"
23 0
5 22
7 "158"
23 1
5 23
7 "Footnotes"
23 0
5 23
7 "160"
23 1
5 24
7 "Defaults"
23 0
5 24
7 "162"
23 1
5 25
7 "Full Page"
23 0
5 25
7 "201"
23 1
5 26
7 "Custom View"
23 0
5 26
7 "202"
23 1
5 27
7 "Standard"
23 0
5 27
7 "203"
23 1
5 28
7 "Enlarged"
23 0
5 28
7 "204"
23 1
5 29
7 "Facing Pages"
23 0
5 29
7 "212"
23 1
5 30
7 "Layout Mode"
23 0
5 30
7 "210"
23 1
5 31
7 "Draft Mode"
23 0
5 31
7 "211"
23 1
5 32
7 "Display Preferences"
23 0
5 32
7 "206"
23 1
5 33
7 "Show Tab Ruler"
23 0
5 33
7 "207"
23 1
5 34
7 "Hide Side Bar"
23 0
5 34
7 "109"
23 1
5 35
7 "Envelope"
23 0
5 35
7 "237"
23 1
5 36
7 "Font"
23 0
5 36
7 "251"
23 1
5 37
7 "Alignment"
23 0
5 37
7 "263"
23 1
5 38
7 "Spacing"
23 0
5 38
7 "252"
23 1
5 39
7 "Normal"
23 0
5 39
7 "253"
23 1
5 40
7 "Bold"
23 0
5 40
7 "254"
23 1
5 41
7 "Italic"
23 0
5 41
7 "255"
23 1
5 42
7 "Underline"
23 0
5 42
7 "256"
23 1
5 43
7 "Word Underline"
23 0
5 43
7 "256"
23 1
5 44
7 "Caps"
23 0
5 44
7 "264"
23 1
5 45
7 "Special Effects"
23 0
5 45
7 "258"
23 1
5 46
7 "Create Style"
23 0
5 46
7 "301"
23 1
5 47
7 "Modify Style"
23 0
5 47
7 "302"
23 1
5 48
7 "Use Another Style Sheet"
23 0
5 48
7 "304"
23 1
5 49
7 "Save As A New Style Sheet"
23 0
5 49
7 "305"
23 1
5 50
7 "Style Management"
23 0
5 50
7 "303"
23 1
5 51
7 "Select a Style"
23 0
5 51
7 "306"
23 1
5 52
7 "Show Styles Box"
23 0
5 52
7 "307"
23 1
5 53
7 "Insert/Remove Layout"
23 0
5 53
7 "351"
23 1
5 54
7 "Modify Layout"
23 0
5 54
7 "352"
23 1
5 55
7 "Floating Header/Footer"
23 0
5 55
7 "360"
23 1
5 56
7 "Tab Ruler"
23 0
5 56
7 "355"
23 1
5 57
7 "Page Numbering"
23 0
5 57
7 "356"
23 1
5 58
7 "Line Numbering"
23 0
5 58
7 "359"
23 1
5 59
7 "Page Break"
23 0
5 59
7 "357"
23 1
5 60
7 "Add a Frame"
23 0
5 60
7 "409"
23 1
5 61
7 "Frame Layout"
23 0
5 61
7 "402"
23 1
5 62
7 "Graphics Scaling"
23 0
5 62
7 "403"
23 1
5 63
7 "Image Processing"
23 0
5 63
7 "410"
23 1
5 64
7 "Go To"
23 0
5 64
7 "452"
23 1
5 65
7 "Find Replace"
23 0
5 65
7 "451"
23 1
5 66
7 "Spelling"
23 0
5 66
7 "453"
23 1
5 67
7 "Thesaurus"
23 0
5 67
7 "455"
23 1
5 68
7 "Glossary"
23 0
5 68
7 "467"
23 1
5 69
7 "Sort"
23 0
5 69
7 "456"
23 1
5 70
7 "Generate Toc, Index"
23 0
5 70
7 "465"
23 1
5 71
7 "Tables"
23 0
5 71
7 "457"
23 1
5 72
7 "Insert Note"
23 0
5 72
7 "282"
23 1
5 73
7 "Insert Merge Field"
23 0
5 73
7 "182"
23 1
5 74
7 "Insert Doc Info"
23 0
5 74
7 "183"
23 1
5 75
7 "Insert Power Field"
23 0
5 75
7 "568"
23 1
5 76
7 "Update Power Field"
23 0
5 76
7 "571"
23 1
5 77
7 "Update All Power Fields"
23 0
5 77
7 "267"
23 1
5 78
7 "Next Power Field"
23 0
5 78
7 "569"
23 1
5 79
7 "Previous Power Field"
23 0
5 79
7 "570"
23 1
5 80
7 "Mark Index"
23 0
5 80
7 "180"
23 1
5 81
7 "Mark Glossary"
23 0
5 81
7 "199"
23 1
5 82
7 "Revision Marking"
23 0
5 82
7 "187"
23 1
5 83
7 "Protect Text"
23 0
5 83
7 "188"
23 1
5 84
7 "No Hyphenation"
23 0
5 84
7 "189"
23 1
5 85
7 "Left Align"
23 0
5 85
7 "259"
23 1
5 86
7 "Right Align"
23 0
5 86
7 "261"
23 1
5 87
7 "Center"
23 0
5 87
7 "260"
23 1
5 88
7 "Justify"
23 0
5 88
7 "262"
23 1
5 89
7 "Upper Case"
23 0
5 89
7 "273"
23 1
5 90
7 "Lower Case"
23 0
5 90
7 "287"
23 1
5 91
7 "Initial Caps"
23 0
5 91
7 "288"
23 1
5 92
7 "Small Caps"
23 0
5 92
7 "289"
23 1
5 93
7 "Insert Page Layout"
23 0
5 93
7 "375"
23 1
5 94
7 "Remove Page Layout"
23 0
5 94
7 "373"
23 1
5 95
7 "Revert Page Layout"
23 0
5 95
7 "374"
23 1
5 96
7 "Insert Tab Ruler"
23 0
5 96
7 "371"
23 1
5 97
7 "Remove Tab Ruler"
23 0
5 97
7 "372"
23 1
5 98
7 "Macro Play"
23 0
5 98
7 "502"
23 1
5 99
7 "Macro Record"
23 0
5 99
7 "503"
23 1
5 100
7 "Macro Edit"
23 0
5 100
7 "501"
23 1
5 101
7 "Quick Record"
23 0
5 101
7 "505"
23 1
5 102
7 "Quick Play"
23 0
5 102
7 "506"
23 1
5 103
7 "Insert Bullet"
23 0
5 103
7 "836"
23 1
5 104
7 "Fast Format"
23 0
5 104
7 "246"
23 1
5 105
7 "Header Footer"
23 0
5 105
7 "377"
23 1
5 106
7 "Control Panel"
23 0
5 106
7 "601"
23 1
5 107
7 "Tab Ruler"
23 0
5 107
7 "810"
23 1
5 108
7 "Assign Macro To File"
23 0
5 108
7 "436"
23 1
5 109
7 "Toggle Clean Screen"
23 0
5 109
7 "233"
23 1
5 110
7 "Clean Screen Option"
23 0
5 110
7 "234"
23 1
5 111
7 "Mark Index Word"
23 0
5 111
7 "180"
23 1
5 112
7 "Mark TOC Entry"
23 0
5 112
7 "835"
23 1
5 113
7 "Set Default Paths"
23 0
5 113
7 "170"
23 1
0 296 0
0 789 ""
5 113
15
9
6 2
15
9
14 GetAmiPro
20 00000102
19 00000102
0 789 "One moment please..."
0 296 1
0 31 8000 &0
0 296 0
0 789 ""
5 0
8 3
5 1
0 26 "." "funclst"
13
18 0
11 00000336
0 27 9000
13
8 4
5 1
8 3
6 1
6 3
18 2
12 00000275
10 00000336
5 1
6 3
3 0
8 3
10 00000200
6 4
6 3
22 0
18 0
11 00000323
10 00000336
10 00000242
6 3
15
9
6 2
15
9
14 AddToAutoexec
16 OpenAutoExec
6 6
5 0
18 1
11 00000181
0 6 "accel = {6}[13]"
0 6 "menuid = {2}[13]"
0 6 "macroname = ""{3}""[13]"
0 6 "OnKey(accel, menuid, macroname)"
5 0
6 0
18 1
11 00000861
0 6 "menuname = ""{0}""[13]"
0 6 "itemname = ""{1}""[13]"
5 0
6 2
18 1
11 00000548
0 6 "menuid = {2}[13]"
5 0
6 5
18 0
11 00000424
0 6 "AddmenuItem(1, {{menuname}, {{itemname}, {{menuid})"
10 00000535
6 5
5 1
3 1
8 5
0 6 "pos = {5}[13]"
0 6 "InsertMenuItem(1, {{menuname}, {{pos}, {{itemname}, {{menuid})"
10 00000861
0 6 "macroname = ""{3}""[13]"
0 6 "helptext = ""{4}""[13]"
5 0
6 5
18 0
11 00000726
0 6 "AddmenuItem(1, {{menuname}, {{itemname}, {{macroname}, {{helptext})"
10 00000861
6 5
5 1
3 1
8 5
0 6 "pos = {5}[13]"
0 6 "InsertMenuItem(1, {{menuname}, {{pos},"
0 6 " {{itemname}, {{macroname}, {{helptext})"
2 103 1
2 147 1
6 7
15
9
14 DelFromAutoexec
16 OpenAutoExec
0 6 "menuname = ""{0}""[13]"
0 6 "itemname = ""{1}""[13]"
0 6 "DeleteMenuItem(1, {{menuname}, {{itemname})"
2 103 1
2 147 1
6 2
15
9
14 OpenAutoExec
16 FindAutoExec
13
8 2
5 0
0 259 "{2}" "r"
13
0 805 &1 [X]
13
18 0
11 00000330
0 286 "AmiPro" "defstyle" "amipro.ini"
13
8 3
6 3
7 ""
18 0
11 00000208
7 "_default.sty"
8 3
2 101 1 "{3}" 0 0
0 6 "FUNCTION auto()[13]"
0 6 "END FUNCTION[13]"
0 6 "[16420]"
2 104 1 "{2}" 32 "" ""
10 00000363
0 260 "{1}"
2 102 1 "{2}" 1 ""
2 488 1 0 0 24576 "End function" ""
0 6 "[36]"
0 6 "[13]"
0 6 "[38]"
6 0
15
9
14 FindAutoExec
0 295
13
0 16 [X] "autoexec.smm"
13
8 2
5 0
0 259 "{2}" "r"
13
0 805 &1 [X]
13
18 0
11 00000317
0 268
13
0 16 [X] "autoexec.smm"
13
8 2
5 0
0 259 "{2}" "r"
13
0 805 &1 [X]
13
18 0
11 00000291
0 798
13
0 16 [X] "autoexec.smm"
13
8 2
10 00000304
0 260 "{1}"
10 00000330
0 260 "{1}"
6 2
15
9
6 0
15
9
14 LocateHmenu
0 284 "user,GetActiveWindow,H"
13
8 2
6 2
8 3
5 0
0 284 "user,GetParent,HH" "{2}"
13
0 805 &2 [X]
13
18 1
11 00000169
6 2
8 3
10 00000067
6 3
8 2
0 284 "user,GetMenu,HH" "{2}"
13
8 4
16 FindMenu "{4}" "{0}"
13
15
9
6 1
15
9
14 DelMenu
0 284 "user,GetActiveWindow,H"
13
8 2
6 2
8 3
5 0
0 284 "user,GetParent,HH" "{2}"
13
0 805 &2 [X]
13
18 1
11 00000165
6 2
8 3
10 00000063
6 3
8 2
0 284 "user,GetMenu,HH" "{2}"
13
8 4
5 0
16 FindMenu "{4}" "{0}"
13
0 805 &4 [X]
13
18 1
11 00000478
16 LoadTheBox "{4}" 9000
5 1
0 26 "." "DelMenu"
13
18 0
11 00000478
0 27 9000
13
8 5
0 520 1 "{0}" "{5}"
0 2 "Make this permanent?"
13
11 00000478
16 DelFromAutoExec "{0}" "{5}"
6 1
15
9
14 LoadTheBox
0 284 "user,GetMenuItemCount,HH" "{0}"
13
8 4
5 0
8 5
6 4
5 1
3 1
6 5
18 2
12 00000159
10 00000353
5 1
6 5
3 0
8 5
10 00000074
0 284 "user,GetMenuString,HHHFHH" "{0}" "{5}" &3 80 1024
5 0
0 134 "{3}"
13
18 5
11 00000289
0 31 "{1}" "{3}"
10 00000340
0 31 "{1}" "------------------------------------"
10 00000126
6 2
15
9
14 FindMenu
0 284 "user,GetMenuItemCount,HH" "{0}"
13
8 4
5 0
8 5
6 4
5 1
3 1
6 5
18 2
12 00000157
10 00000319
5 1
6 5
3 0
8 5
10 00000072
0 284 "user,GetMenuString,HHHFHH" "{0}" "{5}" &3 80 1024
6 1
6 3
18 0
11 00000306
0 284 "user,GetSubMenu,HHH" "{0}" "{5}"
13
8 0
6 0
15
9
10 00000124
5 0
15
9
6 2
15
9
DIALOG DelMenu
-2134376448 5 98 46 176 86 "" "" "Delete Menu Item"
FONT 8 "Helv"
130 4 40 14 1 1342242817 "button" "OK" 0
130 20 40 14 2 1342242816 "button" "Cancel" 0
5 40 120 42 9000 1352728577 "listbox" "" 0
6 30 56 8 1000 1342177280 "static" "&Menu items:" 0
5 7 99 17 1001 1342177280 "static" "Select a menu item to delete." 0
DIALOG PickMenu
-2134376448 6 89 47 200 78 "" "" "Customize Ami Pro"
FONT 8 "Helv"
5 20 56 54 9000 1352728577 "listbox" "" 0
149 4 44 14 2 1342242816 "button" "Done" 0
67 20 126 14 5 1342242816 "button" "&Add an Ami Pro Function or Macro..." 0
67 36 126 14 6 1342242816 "button" "&Delete a menu item..." 0
6 9 56 8 1000 1342177280 "static" "&Menus:" 0
67 53 126 14 7 1342242816 "button" "Assign Key Commands..." 0
DIALOG AddItem
-2134376448 20 35 26 260 104 "" "" "Add Menu Item"
FONT 8 "Helv"
5 16 82 8 1000 1342177282 "static" "Name for Menu:" 0
89 14 84 12 8000 1350631552 "edit" "" 0
5 30 82 8 1006 1342177282 "static" "&Insert before:" 0
99 78 141 8 1001 1342177280 "static" "Optional help text for macro functions only:" 0
183 41 71 14 3 1342242816 "button" "Ami Pro &Function..." 0
183 57 71 14 4 1342242816 "button" "&Macro..." 0
99 88 138 12 8001 1350631552 "edit" "" 0
9 78 18 12 8003 1350631552 "edit" "" 0
5 56 86 44 20 1342177287 "button" "&Shortcut key" 0
49 67 38 10 21 1342242819 "button" "&Control" 0
49 77 38 10 22 1342242819 "button" "&Shift" 0
49 87 38 10 23 1342242819 "button" "Al&t" 0
5 4 82 8 1002 1342177282 "static" "Add to me&nu:" 0
214 6 40 14 1 1342242817 "button" "OK" 0
214 22 40 14 2 1342242816 "button" "Cancel" 0
108 4 84 8 1003 1342177280 "static" "" 0
5 42 82 8 1004 1342177282 "static" "Fun&ction/macro to add:" 0
89 42 84 8 1005 1342177280 "static" "" 0
9 67 38 10 1007 1342177280 "static" "&Keystroke:" 0
89 28 84 58 9500 1344274435 "combobox" "" 0
DIALOG AddAccel
-2134376448 12 93 28 208 72 "" "" "Add Keyboard Shortcut"
FONT 8 "Helv"
128 36 74 14 3 1342242816 "button" "Ami Pro &Function..." 0
128 52 74 14 4 1342242816 "button" "&Macro..." 0
10 34 18 12 8003 1350631552 "edit" "" 0
6 14 90 44 20 1342177287 "button" "Shortcut key" 0
50 26 36 10 21 1342242819 "button" "&Control" 0
50 36 38 10 22 1342242819 "button" "&Shift" 0
50 46 38 10 23 1342242819 "button" "&Alt" 0
162 4 40 14 1 1342242817 "button" "OK" 0
162 20 40 14 2 1342242816 "button" "Cancel" 0
6 4 64 10 1004 1342177280 "static" "Function/macro:" 0
74 4 80 10 1005 1342177280 "static" "text" 0
10 26 38 8 1007 1342177280 "static" "Keystroke:" 0
DIALOG MacroLst
-2134376448 6 108 30 154 90 "" "" "Add Macro "
FONT 8 "Helv"
8 16 60 12 8001 1350631552 "edit" "" 0
8 32 60 54 9001 1352728579 "listbox" "" 0
72 38 74 8 7999 1342177280 "static" "" 0
106 4 40 14 1 1342242817 "button" "OK" 0
106 20 40 14 2 1342242816 "button" "Cancel" 0
8 6 68 8 1001 1342177280 "static" "&Macro to execute:" 0
DIALOG FuncLst
-2134376448 4 112 28 158 68 "" "" "Add Function"
FONT 8 "Helv"
6 16 100 46 9000 1352728579 "listbox" "" 0
6 6 66 8 1000 1342177280 "static" "&Ami Pro functions:" 0
112 6 40 14 1 1342242817 "button" "OK" 0
112 22 40 14 2 1342242816 "button" "Cancel" 0
00045179