PC World Komputer 1998 July & August/Pcwk78b98.iso/Smart30/ENGLISH/PRODUCTS/LOTUS009.DSK/FLWORG.SMM

INI File | 1993-06-25 | 34KB | 2,084 lines

[ver]
    4
[sty]
    _MACRO.STY
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    Apple LaserWriter Plus
[port]
    LPT1:
[lang]
    1
[desc]
    Makes an Org Chart in Ami Pro using Freelance




    741034096
    52
    731818190
    1911
    7
    0
    0
    0
    0






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

[ParaNum]
    1
[tag]
    Body Text
    2
    [fnt]
        Times New Roman
        200
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Body Single
    3
    [fnt]
        Times New Roman
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Function
    4
    [fnt]
        Times New Roman
        240
        0
        16385
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        244
        1
        0
        0
        1
        100
    [brk]
        68
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Outline2
    5
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        2

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline2
    0
    0
[tag]
    Outline3
    6
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        3

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline3
    0
    0
[tag]
    Outline4
    7
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        4

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline4
    0
    0
[tag]
    Outline5
    8
    [fnt]
        Times New Roman
        200
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        5

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline5
    0
    0
[lay]
    Standard
    516
    [rght]
        16833
        11908
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        0
        1
        0
        2
        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
    [hrght]
    [lyfrm]
        1
        11208
        0
        0
        11908
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        11908
        1
        1440
        72
        1
        792
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10465
        1
        3
        9360
    [txt]
>
    [frght]
    [lyfrm]
        1
        13256
        0
        15393
        11908
        16833
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        16833
        11908
        1
        1440
        792
        1
        15465
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10465
        2
        2
        4680
        3
        9360
    [txt]
>
[elay]
[l1]
    0
[pg]
    7
    56 0 51 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
    108 0 14 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
    165 0 11 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
    222 0 29 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
    279 0 62 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
    336 0 23 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
    360 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
[edoc]
@Function@<:#284,9025>'declares & defines

@Outline2@<:#241,9025>'string defines, to be localized

@Outline3@<:#241,9025><:X3,-32768;Include "amixlate.sam!FLWORG">define MyAppName    "Ami Pro Org Chart"

@Outline3@<:#241,9025>define apptitle        "Freelance Graphics"

@Outline3@<:#241,9025>define err_cantfindapp        "Unable to find Freelance for Windows."

@Outline3@<:#241,9025>define err_cantlaunchapp    "Unable to launch Freelance for Windows."

@Outline3@<:#241,9025>define err_cantuseframe    "Cannot use this frame for an organization chart."

@Outline3@<:#241,9025>define err_cantusearea        "Cannot use this area for an organization chart."

@Outline3@<:#241,9025>define err_couldntrunorgchart    "Cannot start Freelance to build organization chart."

@Outline3@<:#241,9025>define err_cantfindmenu    "Cannot locate the correct menu."

@Outline3@<:#241,9025>define err_cantfindmenubar    "Cannot locate the menu bar."

@Outline3@<:#241,9025>define pasteformat    "Windows Metafile"

@Outline3@<:#241,9025>define FLW_WINDOWMENU    "&Window"

@Outline3@<:#241,9025>define usrctrl_cantpastespecial    "Cannot paste here.  Click into the body of your document."

@Outline3@<:#241,9025>define OrgChartEntryDlgText    "Organization Chart Entry List"

@Outline3@<:#241,9025>define OrgChartGalleryDlgText    "Organization Chart Gallery"

@Outline3@<:#241,9025><:X~3,-32768;Include "amixlate.sam!FLWORG"><:f>

@Outline3@<:#241,9025>

@Outline2@<:#241,9025>'string defines, not localized

@Outline3@<:#241,9025>Define LotusPal    "lsphwndpal"

@Outline3@<:#241,9025>define appclass    "flwapp"

@Outline3@<:#241,9025>define appmodule    "FLWMAIN"

@Outline3@<:#241,9025>define appname    "FLW"

@Outline3@<:#241,9025>define ERR_DIECLEANLY    -2

@Outline3@<:#241,9025>define FILE_ALREADYOPEN    1

@Outline3@<:#241,9025>define FILE_NOTOPEN        -1

@Outline3@<:#241,9025>define LotusAppSection    "Lotus Applications"

@Outline3@<:#241,9025>define LotusIniFile    "lotus.ini"

@Outline3@<:#241,9025>define orgfilename    "ONEORG.PRE"

@Outline3@<:#241,9025>define salesmsgsmm    lotuspal.smm!salesmsg

@Outline2@<:#241,9025>'private functions

@Outline3@<:#241,9025>declare box2(hdlg, id, val)

@Outline3@<:#241,9025>declare done()

@Outline3@<:#241,9025>declare freeglobals()

@Outline3@<:#241,9025>declare GetChildHandle(parentclass, childclass);

@Outline3@<:#241,9025>declare h_LoadLotusApp(Name, Module);

@Outline3@<:#241,9025>declare hideami(rect)

@Outline3@<:#241,9025>declare insertdata(hdlg, id, val)

@Outline3@<:#241,9025>declare modframe()

@Outline3@<:#482,9025>declare MyPostMessage(hwnd, msg, wparam, lparam)    'DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)

@Outline3@<:#241,9025>declare newnow()

@Outline3@<:#241,9025>declare onmenu(menu, item, casc)

@Outline3@<:#241,9025>declare openfile()

@Outline3@<:#241,9025>declare PeekTillClear(hwnd)

@Outline3@<:#241,9025>declare setpagelayout()

@Outline3@<:#241,9025>declare showami(rect)

@Outline3@<:#241,9025>declare winproc(hdlg, id, val)

@Outline3@<:#241,9025>define IsOKToRun(menuname)    GetInfo(217, 24, %1);

@Outline3@<:#241,9025>define MsgBox(msgtext)    Message(%1, myappname)

@Outline2@<:#241,9025>'api call defines

@Outline3@<:#241,9025>Define EnableWindow() DllCall("user,EnableWindow,HHH", %1, %2)

@Outline3@<:#241,9025>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)

@Outline3@<:#241,9025>Define GetActiveWindow() DllCall("user,GetActiveWindow,H")

@Outline3@<:#241,9025>Define GetClassName(hwnd, name, len) dllcall("user,GetClassName,HHCH", %1, %2, %3)

@Outline3@<:#241,9025>Define Getfocus() DllCall("user,GetFocus,H")

@Outline3@<:#241,9025>define GetMenu(HWND)    DllCall("user,GetMenu,HH", %1)

@Outline3@<:#241,9025>define GetMenuItemCount(HMENU)    DllCall("user,GetMenuItemCount,HH", %1)

@Outline3@<:#241,9025>define GetMenuItemID(HMENU, int)    DllCall("user,GetMenuItemID,LHH", %1, %2)

@Outline3@<:#482,9025>define GetMenuString(HMENU, WORD, LPSTR, int, WORD)    DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)

@Outline3@<:#241,9025>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)

@Outline3@<:#241,9025>define GetParent(hWnd) DllCall("user,GetParent,HH", %1)

@Outline3@<:#241,9025>define GetSubMenu(HMENU, int)    DllCall("user,GetSubMenu,HHH", %1, %2)

@Outline3@<:#241,9025>Define GetWindow(hwnd, cmd) dllcall("user,GetWindow,HHH", %1, %2)

@Outline3@<:#241,9025>DEFINE GetWindowrect()    DllCall("user,GetWindowRect,HHN",%1,%2)

@Outline3@<:#241,9025>Define GetWindowText(hwnd, lpsz, cbMax)    dllcall("user,GetWindowText,HHCH", %1, %2, %3)

@Outline3@<:#241,9025>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)

@Outline3@<:#241,9025>define LoadCursor(hwnd, lpcursor)        DllCall("user,LoadCursor,HHC",%1, %2)

@Outline3@<:#241,9025>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)

@Outline3@<:#482,9025>define PeekMessage(lpmsg, hwnd, uFilterFirst, uFilterLast, fuRemove)        dllcall("user,PeekMessage,ANHHHH", %1, %2, %3, %4, %5)

@Outline3@<:#241,9025>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)

@Outline3@<:#482,9025>Define SendMessage(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)

@Outline3@<:#482,9025>Define SendMessageC(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,HHHHC", %1, %2, %3, %4)

@Outline3@<:#241,9025>define SetCursor(hwnd)        DllCall("user,SetCursor,HH",%1)

@Outline3@<:#241,9025>Define SetFocus() DllCall("user,SetFocus,HH",%1)

@Outline3@<:#482,9025>define SetWindowPos(hwnd, hwndinsertafter, x, y, cx, cy, wflags) DllCall("user,SetWindowPos,HHHHHHHI", %1, %2, %3, %4, %5, %6, %7)

@Outline3@<:#241,9025>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)

@Outline2@<:#241,9025>'menu pick defines

@Outline3@<:#241,9025>define FLW_COPY        142

@Outline3@<:#241,9025>define FLW_CURVEDTEXT    307

@Outline3@<:#241,9025>define FLW_CURRENTPAGE    228

@Outline3@<:#241,9025>define FLW_EDITCLEAR    145

@Outline3@<:#241,9025>define FLW_INBW        269

@Outline3@<:#241,9025>define FLW_INCOLOR        270

@Outline3@<:#241,9025>define FLW_NEW        61

@Outline3@<:#241,9025>define FLW_NEWPAGE    241

@Outline3@<:#241,9025>define FLW_ORGCHART    5202

@Outline3@<:#241,9025>define FLW_OUTLINER    230

@Outline3@<:#241,9025>define FLW_PAGESORTER    229

@Outline3@<:#241,9025>define FLW_PASTE        144

@Outline3@<:#241,9025>define FLW_REMOVEPAGE    242

@Outline3@<:#241,9025>define FLW_SCREENSHOWRUN    481

@Outline3@<:#241,9025>define FLW_SELECTNONE    166

@Outline3@<:#241,9025>define FLW_SELECTALL    165

@Outline3@<:#241,9025>define FLW_SPEAKERNOTES    253

@Outline2@<:#241,9025>'api defines

@Outline3@<:#241,9025>Define GW_CHILD        5

@Outline3@<:#241,9025>Define GW_HWNDNEXT    2

@Outline3@<:#241,9025>define MF_BYPOSITION    0x0400

@Outline3@<:#241,9025>define NO_DUPS    0

@Outline3@<:#241,9025>define PM_NOREMOVE    0x0000

@Outline3@<:#241,9025>define SWP_NOMOVE        0x0002

@Outline3@<:#241,9025>define WM_COMMAND    0x0111

@Outline3@<:#241,9025>define WM_GETTEXT           0x000D

@Outline3@<:#241,9025>define WM_MDIMAXIMIZE    0x0225

@Outline3@<:#241,9025>Define WM_SETREDRAW            0x000B

@Function@<:#284,9025>function FLWorg()

@Outline2@<:#241,9025>if GetOpenFileCount() << 1

@Outline2@<:#241,9025>    exit function

@Outline2@<:#241,9025>endif

@Outline2@<:#241,9025>If IsFrameSelected() and IsOKToRun(FontChange)

@Outline3@<:#241,9025>    msgbox(err_cantuseframe)

@Outline3@<:#241,9025>    Exit Function

@Outline3@<:#241,9025>Endif

@Outline2@<:#241,9025>onerror endit

@Outline2@<:#241,9025>oncancel endit

@Outline2@<:#241,9025>ignorekeyboard(2)

@Outline2@<:#241,9025>dim rect(4)

@Outline2@<:#241,9025>focusnow=GetFocus()

@Outline2@<:#241,9025>singlestep(0)

@Outline2@<:#241,9025>hFLW = h_LoadLotusApp(appname, appmodule);

@Outline2@<:#241,9025>'pause(002)

@Outline2@<:#241,9025>'singlestep(1)

@Outline2@<:#241,9025>if hFLW = 0

@Outline2@<:#241,9025>    return 0

@Outline2@<:#241,9025>endif

@Outline2@<:#241,9025>rmac = getrunningmacrofile$()

@Outline2@<:#241,9025>'get handles to everything

@Outline3@<:#241,9025>hwndpro = findwindow("amiprownda", 0)

@Outline3@<:#241,9025>hIconBar = FindWindow("SmartIconBar",0)

@Outline3@<:#241,9025>' this will disable the lotuspal if it is available

@Outline3@<:#241,9025>AllocGlobalVar(LotusPal,1)

@Outline3@<:#241,9025>hLotusPal =  GetGlobalVar$(LotusPal)

@Outline3@<:#241,9025>If hLotusPal <;> 0

@Outline3@<:#241,9025>    EnableWindow(hLotusPal, 0)

@Outline3@<:#241,9025>Endif

@Outline3@<:#241,9025>if isiconic(hFLW)

@Outline3@<:#241,9025>    appmaximize(appname)

@Outline3@<:#241,9025>endif

@Outline3@<+@><:#241,9025>pause(002)

@Outline2@<:#241,9025>dim size(4)

@Outline2@<:#241,9025>getwindowrect(hFLW, &size)

@Outline2@<:#241,9025>movewindow(hFLW, 0, -1160, 768, 80, 1)

@Outline2@<:#241,9025>openfile()

@Outline2@<:#241,9025>EnableWindow(hIconBar,0)

@Outline2@<:#241,9025>EnableWindow(hwndpro, 0)

@Outline2@<:#241,9025>activateapp(appname)

@Outline2@<:#241,9025>'AppRestore(appname)

@Outline2@<:#241,9025>'send the menu picks

@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_CURRENTPAGE, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_SELECTALL, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_EDITCLEAR, "")

@Outline3@<:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_ORGCHART, "")        '***

@Outline4@<:#241,9025>pause(005)

@Outline4@<:#241,9025>defstr titletext;

@Outline4@<:#241,9025>while GetActiveWindow() != hflw

@Outline4@<:#241,9025>    hcancel=GetDlgItem(GetActiveWindow(), 2)

@Outline4@<:#241,9025>    hpreview=GetDlgItem(GetActiveWindow(), 10)

@Outline4@<:#241,9025>    GetWindowText(GetActiveWindow(), &titletext, 50)

@Outline4@<:#241,9025>    if titletext = OrgChartGalleryDlgText or titletext = OrgChartEntryDlgText

@Outline4@<:#241,9025>        EnableWindow(hcancel, 0)

@Outline4@<:I0,0,0,0><:S+-1><:#241,9025>        if titletext = OrgChartEntryDlgText

@Outline4@<:#241,9025>            EnableWindow(hpreview, 0)

@Outline4@<:#241,9025>        endif

@Outline4@<:#241,9025>    endif

@Outline4@<:#241,9025>    pause(002)

@Outline4@<:#241,9025>wend

@Outline3@<:#241,9025>pause(005)

@Outline3@<+@><:#241,9025><+">'PostMessage(hFLW, WM_COMMAND, FLW_INBW, "")<-">

@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025><+">'PostMessage(hFLW, WM_COMMAND, FLW_PAGESORTER, "")<-">

@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025><+">'pause(005)<-">

@Outline3@<+@><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_SELECTALL, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_COPY, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025>pause(005)

@Outline3@<+@><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_SELECTNONE, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_CURRENTPAGE, "")

@Outline3@<:#241,9025><+">'PostMessage(hFLW, WM_COMMAND, FLW_INCOLOR, "")<-">

@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025>sendkeys("<[>esc]")

@Outline2@<:#241,9025>pause(008)

@Outline2@<:#241,9025>paster:

@Outline2@<:I0,0,0,0><:S+-1><:#241,9025>if IsOKToRun(PasteSpecial) !=1

@Outline3@<+@><:#241,9025>    EnableWindow(hwndpro, 1)

@Outline3@<:#241,9025>    usercontrol(usrctrl_cantpastespecial)

@Outline3@<:#241,9025>    goto paster

@Outline3@<:#241,9025>endif

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>pastespecial(pasteformat)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>if IsOKToRun(FrameModInit) =1

@Outline2@<:#241,9025>    FrameModInit( )

@Outline2@<:#241,9025>    FrameModType(536871040 0 ""   )

@Outline2@<:#241,9025>    FrameModFinish( )

@Outline2@<:#241,9025>endif

@Outline2@<+@><:#241,9025>endit:

@Outline2@<+@><:#241,9025>activateapp("")

@Outline2@<:#241,9025>cx = size(3) - size(1)

@Outline2@<:#241,9025>cy = size(4) - size(2)

@Outline2@<:#241,9025>movewindow(hFLW, size(1), size(2), cx, cy, 1)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>' PMM 5-20-93 lotuspal code

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>If hLotusPal <;>0

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>    ' if the lotuspal is active, enable the window

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>    EnableWindow(hLotusPal, 1)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>Else

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>    ' if the lotuspal is not active, free the global var

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>    FreeGlobalVar(LotusPal)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>Endif

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>EnableWindow(hwndpro, 1)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>EnableWindow(hIconBar, 1)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>SetFocus(focusnow)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>end function

@Function@<:#284,9025>function h_LoadLotusApp(name, module)

@Outline2@<:#241,9025>onerror endit

@Outline2@<:#241,9025>oncancel endit

@Outline2@<:#241,9025>hwnd =  findwindow(appclass, 0)

@Outline2@<:#241,9025>if hwnd = 0

@Outline2@<:#241,9025>    app = GetProfileString$(LotusAppSection, name, LotusIniFile)

@Outline2@<:#241,9025>    if app <<<;> ""

@Outline2@<:#241,9025>        offset1stspace=strchr(1, app, " ")

@Outline2@<:#241,9025>        app = strfield$(app, 1, " ")

@Outline2@<:#241,9025>        lotusappname=MID$(app, offset1stspace, len(app))    'DEZ

@Outline2@<:#241,9025>        'lotusappname = strfield$(app, 2, " ")

@Outline2@<:#241,9025>        if exec(app, "/q") << 32

@Outline2@<:#241,9025>            MsgBox(err_couldntrunorgchart)

@Outline2@<:#241,9025>            'MsgBox(err_cantlaunchapp)

@Outline2@<:#241,9025>            call salesmsgsmm(3)

@Outline2@<:#241,9025>            return 0

@Outline2@<:#241,9025>        endif

@Outline2@<:#241,9025>        pause(004)

@Outline2@<:#241,9025>    endif

@Outline2@<:#241,9025>    hwnd = findwindow(appclass, 0)

@Outline2@<:#241,9025>    if hwnd = 0

@Outline2@<:#241,9025>        MsgBox(err_couldntrunorgchart)

@Outline2@<:#241,9025>        call salesmsgsmm(3)

@Outline2@<:#241,9025>    endif

@Outline2@<:#241,9025>    return hwnd

@Outline2@<:#241,9025>endif

@Outline2@<:#241,9025>endit:

@Outline2@<:#241,9025>return hwnd

@Outline2@<:#241,9025>end function

@Function@<:#284,9025>function openfile()

@Outline2@<:#241,9025>hflw=findwindow(appclass, 0)

@Outline2@<:#241,9025>'orgfilename="ONEORG.PRE"

@Outline2@<:#241,9025>isitopen=onmenu(FLW_WINDOWMENU, orgfilename, 0)

@Outline2@<:#241,9025>if isitopen = FILE_ALREADYOPEN

@Outline2@<:#241,9025>    exit function

@Outline2@<:#241,9025>endif

@Outline2@<:#241,9025>amidir=GetAmiDirectory$()

@Outline2@<:#241,9025>ID = DDEInitiate(appname, "system")

@Outline2@<:#241,9025>'command = "<[><[>StdOpenDocument({amidir}{orgfilename})]"

@Outline2@<:#241,9025>command = strcat$("<[><[>StdOpenDocument(", amidir, orgfilename, ")]")

@Outline2@<:#241,9025>res = DDEExecute(id, command) ' comm

@Outline2@<:#241,9025>if id <;> 0

@Outline2@<:#241,9025>    DDETerminate(id)

@Outline2@<:#241,9025>endif

@Outline2@<:#241,9025>pause(005)

@Outline2@<:#241,9025>childfocus=GetFocus()

@Outline2@<:#241,9025>mdiclient=GetParent(childfocus)

@Outline2@<:#241,9025>AppSendMessage(mdiclient, WM_MDIMAXIMIZE, childfocus, "")

@Outline2@<:#241,9025>end function

@Function@<:#284,9025>function MyPostMessage(hwnd, msg, wparam, lparam)

@Outline2@<:#241,9025>hflw=findwindow(appclass, 0)

@Outline2@<:#241,9025>PostMessage(hwnd, msg, wparam, lparam)

@Outline2@<:#241,9025>pause(005)

@Outline2@<:#241,9025>while GetActiveWindow() != hflw

@Outline2@<:#241,9025>    pause(002)

@Outline2@<:#241,9025>wend

@Outline2@<:#241,9025>end function

@Function@<:#284,9025>function onmenu(menu, item, casc)

@Outline2@<:#241,9025>isthistheone=0

@Outline2@<:#241,9025>defstr menuitemnum;

@Outline2@<:#241,9025>defstr cascmenuitemnum;

@Outline2@<:#241,9025>hwnd=findwindow(appclass, 0)

@Outline2@<:#241,9025>hmenubar=GetMenu(hwnd)

@Outline2@<:#241,9025>'get handle to menu

@Outline3@<:#241,9025>nummenus=getmenuitemcount(hmenubar)

@Outline3@<:#241,9025>if nummenus << 1

@Outline3@<:#241,9025>    msgbox(err_cantfindmenubar)

@Outline3@<:#241,9025>    goto out

@Outline3@<:#241,9025>endif

@Outline3@<:#241,9025>for i = 0 to nummenus - 1

@Outline3@<:#241,9025>    GetMenuString(hmenubar, i, &isthistheone,  25, MF_BYPOSITION)

@Outline3@<:#241,9025>    menulen=len(menu)

@Outline3@<:#241,9025>    if ucase$(left$(isthistheone, menulen)) = ucase$(left$(menu, menulen))

@Outline3@<:#241,9025>        menunum=i

@Outline3@<:#241,9025>    endif

@Outline3@<:#241,9025>next

@Outline3@<:#241,9025>hmenu=getsubmenu(hmenubar, menunum)

@Outline2@<:#241,9025>'get position or handle of item

@Outline3@<:#241,9025>'get position of item

@Outline4@<:#241,9025>    extra = 0

@Outline4@<:#241,9025>    menuitemnum = 0

@Outline4@<:#241,9025>    cascmenuitemnum = 0

@Outline4@<:#241,9025>    nummenuitems=getmenuitemcount(hmenu)

@Outline4@<:#241,9025>    if nummenuitems << 1

@Outline4@<:#241,9025>        msgbox(err_cantfindmenu)

@Outline4@<:#241,9025>        goto out

@Outline4@<:#241,9025>    endif

@Outline4@<:#241,9025>    for i= 0 to (nummenuitems - 1)

@Outline4@<:#241,9025>        GetMenuString(hmenu, i, &isthistheone,  25, MF_BYPOSITION)

@Outline4@<:#241,9025>        itemlen=len(item)

@Outline4@<:#241,9025>        length=len(isthistheone)

@Outline4@<:#241,9025>        if length << 1 and menuitemnum = 0

@Outline4@<:#241,9025>            extra=extra + 1

@Outline4@<:#241,9025>        endif

@Outline4@<:#241,9025>        text=ucase$(isthistheone)

@Outline4@<:#241,9025>        pattern=ucase$(item)

@Outline4@<:#241,9025>        'if ucase$(left$(item, itemlen)) = ucase$(left$(isthistheone, itemlen))

@Outline4@<:#241,9025>        if Instr(1, Text, Pattern) != 0

@Outline4@<:#241,9025>            return FILE_ALREADYOPEN

@Outline4@<:#241,9025>            menuitemnum=i

@Outline4@<:#241,9025>            break

@Outline4@<:#241,9025>        endif

@Outline4@<:#241,9025>    next

@Outline4@<:#241,9025>    'couldn't find it

@Outline4@<:#241,9025>    return FILE_NOTOPEN

@Outline4@<:#241,9025>    menuitemnum=menuitemnum - extra

@Outline3@<:#241,9025>'get handle to casc menu

@Outline4@<:#241,9025>numcascmenus=getmenuitemcount(hmenu)

@Outline4@<:#241,9025>if numcascmenus << 1

@Outline4@<:#241,9025>    goto out

@Outline4@<:#241,9025>endif

@Outline4@<:#241,9025>for i = 0 to numcascmenus - 1

@Outline4@<:#241,9025>    GetMenuString(hmenu, i, &isthistheone,  25, MF_BYPOSITION)

@Outline4@<:#241,9025>    cascmenulen=len(item)

@Outline4@<:#241,9025>    if ucase$(left$(isthistheone, cascmenulen)) = ucase$(left$(item, cascmenulen))

@Outline4@<:#241,9025>        cascmenunum=i

@Outline4@<:#241,9025>    endif

@Outline4@<:#241,9025>next

@Outline4@<:#241,9025>hcascmenu=getsubmenu(hmenu, cascmenunum)

@Outline3@<:#241,9025>'get position of casc item

@Outline4@<:#241,9025>    extra = 0

@Outline4@<:#241,9025>    numcascmenuitems=getmenuitemcount(hcascmenu)

@Outline4@<:#241,9025>    if numcascmenuitems << 1

@Outline4@<:#241,9025>        goto out

@Outline4@<:#241,9025>    endif

@Outline4@<:#241,9025>    for i= 0 to (numcascmenuitems - 1)

@Outline4@<:#241,9025>        GetMenuString(hcascmenu, i, &isthistheone,  25, MF_BYPOSITION)

@Outline4@<:#241,9025>        cascitemlen=len(casc)

@Outline4@<:#241,9025>        length=len(isthistheone)

@Outline4@<:#241,9025>        if length << 1 and cascmenuitemnum = 0

@Outline4@<:#241,9025>            extra=extra + 1

@Outline4@<:#241,9025>        endif

@Outline4@<:#241,9025>        if ucase$(left$(casc, cascitemlen)) = ucase$(left$(isthistheone, cascitemlen))

@Outline4@<:#241,9025>            cascmenuitemnum=i

@Outline4@<:#241,9025>            break

@Outline4@<:#241,9025>        endif

@Outline4@<:#241,9025>    next

@Outline4@<:#241,9025>    cascmenuitemnum=cascmenuitemnum - extra

@Outline2@<:#241,9025>'return numbers

@Outline3@<:#241,9025>out:

@Outline3@<:#241,9025>getdist=strcat$(menuitemnum, ", ", cascmenuitemnum, ",",  casc)

@Outline3@<:#241,9025>hourglass(0)

@Outline2@<:#241,9025>end function<:>

@Function@<:#284,9025>function PeekTillClear(hwnd)

@Outline2@<:#241,9025>defstr msg, result;

@Outline2@<:#241,9025>WHILE 0 != Assign(&result, PeekMessage(&msg, hwnd, 0, 0, PM_NOREMOVE))

@Outline2@<:#241,9025>    statusbarmsg("{hflw}={result}")

@Outline2@<:#241,9025>    pause(002)

@Outline2@<:#241,9025>WEND

@Outline2@<:#241,9025>message("here")

@Outline2@<:#241,9025>end function

<:#241,9025>

>

[Embedded]
00024984
>
[macsum] 6
FLWorg 0 0 14 105
h_LoadLotusApp 3135 2 5 208
openfile 4085 0 9 237
MyPostMessage 4744 4 2 257
onmenu 5088 3 24 265
PeekTillClear 8229 1 4 351
[macse]
14 FLWorg
0 1050
13
5 1
18 5
11 00000059
6 0
15
9
0 800
13
0 1313 217 24 251
13
1 1
11 00000199
0 3 "Cannot use this frame for an organization chart." "Ami Pro Org Chart"
6 0
15
9
20 00002652
19 00002652
0 32 2
5 4
21 1 [X]
0 284 "user,GetFocus,H"
13
8 2
0 4 0
17 14
29 3 hFLW
16 h_LoadLotusApp "FLW" "FLWMAIN"
13
8 3
17 17
6 3
5 0
18 0
11 00000406
17 18
5 0
15
9
17 20
29 4 rmac
0 802
13
8 4
17 22
29 5 hwndpro
0 284 "user,FindWindow,HCC" "amiprownda" 0
13
8 5
17 23
29 6 hIconBar
0 284 "user,FindWindow,HCC" "SmartIconBar" 0
13
8 6
17 25
0 271 "lsphwndpal" 1
17 26
29 7 hLotusPal
0 265 "lsphwndpal"
13
8 7
17 27
6 7
5 0
18 3
11 00000754
17 28
0 284 "user,EnableWindow,HHH" "{7}" 0
17 30
0 284 "user,IsIconic,HH" "{3}"
13
11 00000831
17 31
0 1029 "FLW"
17 33
0 274 002
17 34
5 4
29 8 size
21 8 [X]
17 35
0 284 "user,GetWindowRect,HHN" "{3}" &8
17 36
0 284 "User,MoveWindow,HHHHHHA" "{3}" 0 -1160 768 80 1
17 37
16 openfile
17 38
0 284 "user,EnableWindow,HHH" "{6}" 0
17 39
0 284 "user,EnableWindow,HHH" "{5}" 0
17 40
0 38 "FLW"
17 43
0 284 "User,PostMessage,HHHHJ" "{3}" 273 228 ""
17 44
0 284 "User,PostMessage,HHHHJ" "{3}" 273 165 ""
17 45
0 284 "User,PostMessage,HHHHJ" "{3}" 273 145 ""
17 46
0 284 "User,PostMessage,HHHHJ" "{3}" 273 5202 ""
17 47
0 274 005
17 48
29 9 titletext
17 49
0 284 "user,GetActiveWindow,H"
13
6 3
18 1
11 00002010
17 50
29 10 hcancel
0 284 "user,GetActiveWindow,H"
13
0 44 [X] 2
13
8 10
17 51
29 11 hpreview
0 284 "user,GetActiveWindow,H"
13
0 44 [X] 10
13
8 11
17 52
0 284 "user,GetActiveWindow,H"
13
0 284 "user,GetWindowText,HHCH" [X] &9 50
17 53
6 9
7 "Organization Chart Gallery"
18 0
6 9
7 "Organization Chart Entry List"
18 0
1 2
11 00001979
17 54
0 284 "user,EnableWindow,HHH" "{10}" 0
17 55
6 9
7 "Organization Chart Entry List"
18 0
11 00001979
17 56
0 284 "user,EnableWindow,HHH" "{11}" 0
17 59
0 274 002
10 00001390
17 61
0 274 005
17 65
0 284 "User,PostMessage,HHHHJ" "{3}" 273 165 ""
17 66
0 284 "User,PostMessage,HHHHJ" "{3}" 273 142 ""
17 67
0 274 005
17 68
0 284 "User,PostMessage,HHHHJ" "{3}" 273 166 ""
17 69
0 284 "User,PostMessage,HHHHJ" "{3}" 273 228 ""
17 71
0 36 "[27]"
17 72
0 274 008
17 74
0 1313 217 24 588
13
5 1
18 1
11 00002500
17 75
0 284 "user,EnableWindow,HHH" "{5}" 1
17 76
0 7 "Cannot paste here.  Click into the body of your document."
17 77
10 00002308
17 79
2 588 1 "Windows Metafile"
17 80
0 1313 217 24 421
13
5 1
18 0
11 00002652
17 81
2 421 1
17 82
2 417 1 536871040 0 ""
17 83
2 420 1
17 86
0 38 ""
17 87
29 12 cx
5 3
22 8
5 1
22 8
3 1
8 12
17 88
29 13 cy
5 4
22 8
5 2
22 8
3 1
8 13
17 89
5 1
22 8
5 2
22 8
0 284 "User,MoveWindow,HHHHHHA" "{3}" [X] [X] "{12}" "{13}" 1
17 91
6 7
5 0
18 3
11 00002955
17 93
0 284 "user,EnableWindow,HHH" "{7}" 1
10 00002982
17 96
0 266 "lsphwndpal"
17 99
0 284 "user,EnableWindow,HHH" "{5}" 1
17 100
0 284 "user,EnableWindow,HHH" "{6}" 1
17 101
0 284 "user,SetFocus,HH" "{2}"
6 0
15
17 102
9
14 h_LoadLotusApp
29 0 name
29 1 module
29 2 h_LoadLotusApp
17 1
20 00000912
17 2
19 00000912
17 3
29 3 hwnd
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 3
17 4
6 3
5 0
18 0
11 00000912
17 5
29 4 app
0 286 "Lotus Applications" "{0}" "lotus.ini"
13
8 4
17 6
6 4
7 ""
18 1
11 00000680
17 7
29 5 offset1stspace
0 13 1 "{4}" " "
13
8 5
17 8
0 20 "{4}" 1 " "
13
8 4
17 9
29 6 lotusappname
0 14 "{4}"
13
0 15 "{4}" "{5}" [X]
13
8 6
17 11
0 22 "{4}" "/q"
13
5 32
18 5
11 00000662
17 12
0 3 "Cannot start Freelance to build organization chart." "Ami Pro Org Chart"
17 14
16 lotuspal.smm!salesmsg 3
17 15
5 0
15
9
17 17
0 274 004
17 19
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 3
17 20
6 3
5 0
18 0
11 00000893
17 21
0 3 "Cannot start Freelance to build organization chart." "Ami Pro Org Chart"
17 22
16 lotuspal.smm!salesmsg 3
17 24
6 3
15
9
17 27
6 3
15
9
6 2
15
17 28
9
14 openfile
29 0 openfile
17 1
29 1 hflw
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 1
17 3
29 2 isitopen
16 onmenu "&Window" "ONEORG.PRE" 0
13
8 2
17 4
6 2
5 1
18 0
11 00000207
6 0
15
9
17 7
29 3 amidir
0 798
13
8 3
17 8
29 4 ID
0 8 "FLW" "system"
13
8 4
17 10
29 5 command
0 16 "[[StdOpenDocument(" "{3}" "ONEORG.PRE" ")]"
13
8 5
17 11
29 6 res
0 11 "{4}" "{5}"
13
8 6
17 12
6 4
5 0
18 3
11 00000465
17 13
0 9 "{4}"
17 15
0 274 005
17 16
29 7 childfocus
0 284 "user,GetFocus,H"
13
8 7
17 17
29 8 mdiclient
0 284 "user,GetParent,HH" "{7}"
13
8 8
17 18
0 1036 "{8}" 549 "{7}" ""
6 0
15
17 19
9
14 MyPostMessage
29 0 hwnd
29 1 msg
29 2 wparam
29 3 lparam
29 4 MyPostMessage
17 1
29 5 hflw
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 5
17 2
0 284 "User,PostMessage,HHHHJ" "{0}" "{1}" "{2}" "{3}"
17 3
0 274 005
17 4
0 284 "user,GetActiveWindow,H"
13
6 5
18 1
11 00000326
17 5
0 274 002
10 00000230
6 4
15
17 7
9
14 onmenu
29 0 menu
29 1 item
29 2 casc
29 3 onmenu
17 1
29 4 isthistheone
5 0
8 4
17 2
29 5 menuitemnum
17 3
29 6 cascmenuitemnum
17 4
29 7 hwnd
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 7
17 5
29 8 hmenubar
0 284 "user,GetMenu,HH" "{7}"
13
8 8
17 7
29 9 nummenus
0 284 "user,GetMenuItemCount,HH" "{8}"
13
8 9
17 8
6 9
5 1
18 5
11 00000457
17 9
0 3 "Cannot locate the menu bar." "Ami Pro Org Chart"
17 10
10 00003041
29 10 i
5 0
8 10
17 12
6 9
5 1
3 1
6 10
18 2
12 00000572
10 00000831
5 1
6 10
3 0
8 10
10 00000477
17 13
0 284 "user,GetMenuString,HHHFHH" "{8}" "{10}" &4 25 1024
17 14
29 11 menulen
0 14 "{0}"
13
8 11
17 15
0 806 "{4}" "{11}"
13
0 18 [X]
13
0 806 "{0}" "{11}"
13
0 18 [X]
13
18 0
11 00000818
17 16
29 12 menunum
6 10
8 12
10 00000537
17 19
29 13 hmenu
0 284 "user,GetSubMenu,HHH" "{8}" "{12}"
13
8 13
17 22
29 14 extra
5 0
8 14
17 23
5 0
8 5
17 24
5 0
8 6
17 25
29 15 nummenuitems
0 284 "user,GetMenuItemCount,HH" "{13}"
13
8 15
17 26
6 15
5 1
18 5
11 00001169
17 27
0 3 "Cannot locate the correct menu." "Ami Pro Org Chart"
17 28
10 00003041
5 0
8 10
17 30
6 15
5 1
3 1
6 10
18 2
12 00001276
10 00001730
5 1
6 10
3 0
8 10
10 00001180
17 31
0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
17 32
29 16 itemlen
0 14 "{1}"
13
8 16
17 33
29 17 length
0 14 "{4}"
13
8 17
17 34
6 17
5 1
18 5
6 5
5 0
18 0
1 1
11 00001517
17 35
6 14
5 1
3 0
8 14
17 37
29 18 text
0 18 "{4}"
13
8 18
17 38
29 19 pattern
0 18 "{1}"
13
8 19
17 40
0 808 1 "{18}" "{19}"
13
5 0
18 1
11 00001717
17 41
5 1
15
9
17 42
6 10
8 5
17 43
10 00001730
10 00001241
17 47
5 -1
15
9
17 48
6 5
6 14
3 1
8 5
17 50
29 20 numcascmenus
0 284 "user,GetMenuItemCount,HH" "{13}"
13
8 20
17 51
6 20
5 1
18 5
11 00001913
17 52
10 00003041
5 0
8 10
17 54
6 20
5 1
3 1
6 10
18 2
12 00002020
10 00002288
5 1
6 10
3 0
8 10
10 00001924
17 55
0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
17 56
29 21 cascmenulen
0 14 "{1}"
13
8 21
17 57
0 806 "{4}" "{21}"
13
0 18 [X]
13
0 806 "{1}" "{21}"
13
0 18 [X]
13
18 0
11 00002275
17 58
29 22 cascmenunum
6 10
8 22
10 00001985
17 61
29 23 hcascmenu
0 284 "user,GetSubMenu,HHH" "{13}" "{22}"
13
8 23
17 63
5 0
8 14
17 64
29 24 numcascmenuitems
0 284 "user,GetMenuItemCount,HH" "{23}"
13
8 24
17 65
6 24
5 1
18 5
11 00002522
17 66
10 00003041
5 0
8 10
17 68
6 24
5 1
3 1
6 10
18 2
12 00002629
10 00003013
5 1
6 10
3 0
8 10
10 00002533
17 69
0 284 "user,GetMenuString,HHHFHH" "{23}" "{10}" &4 25 1024
17 70
29 25 cascitemlen
0 14 "{2}"
13
8 25
17 71
0 14 "{4}"
13
8 17
17 72
6 17
5 1
18 5
6 6
5 0
18 0
1 1
11 00002860
17 73
6 14
5 1
3 0
8 14
17 75
0 806 "{2}" "{25}"
13
0 18 [X]
13
0 806 "{4}" "{25}"
13
0 18 [X]
13
18 0
11 00003000
17 76
6 10
8 6
17 77
10 00003013
10 00002594
17 80
6 6
6 14
3 1
8 6
17 83
29 26 getdist
0 16 "{5}" ", " "{6}" "," "{2}"
13
8 26
17 84
0 296 0
6 3
15
17 85
9
14 PeekTillClear
29 0 hwnd
29 1 PeekTillClear
17 1
29 2 msg
29 3 result
17 2
5 0
0 284 "user,PeekMessage,ANHHHH" &2 "{0}" 0 0 0
13
0 805 &3 [X]
13
18 1
11 00000242
17 3
29 4 hflw
0 789 "{4}={3}"
17 4
0 274 002
10 00000078
17 6
0 3 "here"
6 1
15
17 7
9
00025009