home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78b98.iso
/
Smart30
/
ENGLISH
/
PRODUCTS
/
LOTUS009.DSK
/
FLWHAND.SMM
< prev
next >
Wrap
INI File
|
1993-06-25
|
53KB
|
2,771 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]
Prepares handouts based on Freelance presentation.
741033909
43
731818190
2019
12
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
[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]
1
56 0 17 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Function@<:#284,9025><*7><*7>'declares & defines
@Outline2@<:#241,9025>'localization strings
@Outline3@<:#241,9025><:X3,-32768;Include "amixlate.sam!FLWHAND">define MyAppName "Ami Pro Handout Maker"
@Outline3@<:#241,9025>define apptitle "Freelance Graphics"
@Outline3@<:#241,9025>define err_cantlaunchapp "Unable to launch Freelance for Windows."
@Outline3@<:#241,9025>define err_cantfindapp "Unable to find Freelance for Windows."
@Outline3@<:#241,9025>define err_nofilesopen "You must have a presentation open to prepare a screen show."
@Outline3@<:#241,9025>define err_appmustberunning "Freelance must be running to prepare a screen show."
@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 HandoutStyleSheet "_handout.sty"
@Outline3@<:#241,9025>define pasteformat "Windows Metafile"
@Outline3@<:#241,9025>define CurUnits 1
@Outline3@<:#241,9025>define FLW_WINDOWMENU "&Window"
@Outline3@<:#241,9025>define FLW_TILEITEM "&Tile"
@Outline3@<:#241,9025>define BODYSTYLE "Body Text"
@Outline3@<:#241,9025>define NOTETEXT "Notes:"
@Outline3@<:#241,9025>define SUBSTYLE "Subhead"
@Outline3@<:#241,9025>define BULLETSTYLE "Bullet 1"<:X~3,-32768;Include "amixlate.sam!FLWHAND">
@Outline2@<:#241,9025>'strings, don't localize
@Outline3@<:#241,9025>define appname "FLW"
@Outline3@<:#241,9025>define appmodule "FLWMAIN"
@Outline3@<:#241,9025>define appclass "flwapp"
@Outline3@<:#241,9025>define LotusIniFile "lotus.ini"
@Outline3@<:#241,9025>define LotusAppSection "Lotus Applications"
@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 salesmsgsmm lotuspal.smm!salesmsg
@Outline3@<:#241,9025>define g_handouttype "handouttype"
@Outline3@<:#241,9025>define helpfile "HELPPACK.HLP"
@Outline3@<:#241,9025>define helpnum 130
@Outline3@<:#241,9025>define HELP_CONTEXT 0x0001
@Outline3@<:#241,9025>define VK_F1 112
@Outline2@<:#241,9025>'private functions
@Outline3@<:#241,9025>declare box2(hdlg, id, val)
@Outline3@<:#241,9025>declare done()
@Outline3@<:#241,9025>declare onmenu(menu, item, casc)
@Outline3@<:#241,9025>Declare FontDlg(Action, Hdlg, id)
@Outline3@<:#241,9025>declare freeglobals()
@Outline3@<:#241,9025>declare GetChildHandle(parentclass, childclass);
@Outline3@<:#241,9025>declare h_RunningLotusApp(Name, Module);
@Outline3@<:#241,9025>declare hideami(rect)
@Outline3@<:#241,9025>declare insertdata(hdlg, id, val)
@Outline3@<:#241,9025>define MsgBox(msgtext) Message(%1, myappname)
@Outline3@<:#241,9025>declare modframe()
@Outline3@<:#241,9025>declare modframe2()
@Outline3@<:#241,9025>declare modframe3()
@Outline3@<:#241,9025>declare newnow()
@Outline3@<:#241,9025>declare openfile()
@Outline3@<:#241,9025>declare setpagelayout()
@Outline3@<:#241,9025>declare showami(rect)
@Outline3@<:#241,9025>declare winproc(hdlg, id, val)
@Outline3@<:#241,9025>declare box2(hdlg, id, val)
@Outline3@<:#482,9025>declare MyPostMessage(hwnd, msg, wparam, lparam) DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
@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 GetClassName(hwnd, name, len) dllcall("user,GetClassName,HHCH", %1, %2, %3)
@Outline3@<:#241,9025>Define GetActiveWindow() DllCall("user,GetActiveWindow,H")
@Outline3@<:#241,9025>Define Getfocus() DllCall("user,GetFocus,H")
@Outline3@<:#241,9025>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)
@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 IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)
@Outline3@<:#241,9025>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
@Outline3@<:#241,9025>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
@Outline3@<:#482,9025>define PeekMessage(lpmsg, hwnd, uFilterFirst, uFilterLast, fuRemove) DllCall("User,PostMessage,ACHHHH",%1,%2,%3,%4, %5)
@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 SetFocus() DllCall("user,SetFocus,HH",%1)
@Outline3@<:#241,9025>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
@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 SetCursor(hwnd) DllCall("user,SetCursor,HH",%1)
@Outline3@<:#241,9025>define LoadCursor(hwnd, lpcursor) DllCall("user,LoadCursor,HHC",%1, %2)
@Outline3@<:#241,9025>define GetMenu(HWND) DllCall("user,GetMenu,HH", %1)
@Outline3@<:#482,9025>define GetMenuString(HMENU, WORD, LPSTR, int, WORD) DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)
@Outline3@<:#241,9025>define GetSubMenu(HMENU, int) DllCall("user,GetSubMenu,HHH", %1, %2)
@Outline3@<:#241,9025>define GetMenuItemID(HMENU, int) DllCall("user,GetMenuItemID,LHH", %1, %2)
@Outline3@<:#241,9025>define GetMenuItemCount(HMENU) DllCall("user,GetMenuItemCount,HH", %1)
@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 PM_NOREMOVE 0x0000
@Outline3@<:#241,9025>Define WM_SETREDRAW 0x000B
@Outline3@<:#241,9025>define NO_DUPS 0
@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 MF_BYPOSITION 0x0400
@Outline3@<:#241,9025>
@Outline3@<:#241,9025>define WinHelp(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
@Function@<:#284,9025>function FLWhandout()
@Outline2@<:#241,9025>onerror endit
@Outline2@<:#241,9025>oncancel endit
@Outline2@<:#241,9025>ignorekeyboard(2)
@Outline2@<:#241,9025>macrodir=GetMacPath$()
@Outline2@<:#241,9025>filledit(20, True)
@Outline2@<:#241,9025>filledit(1008, "{macrodir}flwhand1.bmt")
@Outline2@<:#241,9025>filledit(1009, "{macrodir}flwhand2.bmt")
@Outline2@<:#241,9025>filledit(1010, "{macrodir}flwhand3.bmt")
@Outline2@<:#241,9025>rmac=GetRunningMacroFile$()
@Outline2@<:#241,9025>FontDlg(1,0,0)
@Outline2@<:#241,9025>DlgKeyInterrupt(VK_F1, "{rmac}!helper")
@Outline2@<:#241,9025>SetDlgCallBack(0, "{rmac}!initdlg") 'grey the other choice's button
@Outline2@<:#241,9025>box=dialogbox(".", "handouts")
@Outline3@<:#241,9025>if box != 1
@Outline3@<:#241,9025> goto safeexit
@Outline3@<:#241,9025> exit function
@Outline3@<:#241,9025>endif
@Outline2@<:#241,9025>allocglobalvar(g_handouttype, 1)
@Outline3@<:#241,9025>if GetDialogField$(20)
@Outline3@<:#241,9025> setglobalvar(g_handouttype, 1)
@Outline3@<:#241,9025>elseif GetDialogField$(21)
@Outline3@<:#241,9025> setglobalvar(g_handouttype, 2)
@Outline3@<:#241,9025>elseif GetDialogField$(22)
@Outline3@<:#241,9025> setglobalvar(g_handouttype, 3)
@Outline3@<:#241,9025>endif
@Outline2@<:#241,9025>dim rect(4)
@Outline2@<:#241,9025>hFLW = h_RunningLotusApp(appname, appmodule);
@Outline2@<:#241,9025>if hFLW = 0
@Outline2@<:#241,9025> return 0
@Outline2@<:#241,9025>endif
@Outline2@<:#241,9025>'setup global vars
@Outline3@<:#241,9025>allocglobalvar("bits", 1)
@Outline3@<:#241,9025>setglobalvar("bits", 0)
@Outline3@<:#241,9025>allocglobalvar("framecount", 1)
@Outline3@<:#241,9025>setglobalvar("framecount", 0)
@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>'Showwindow(hflw, 0)
@Outline2@<:#241,9025>activateapp(appname)
@Outline2@<:#241,9025>'get handles to everything
@Outline3@<:#241,9025>hwndpro = findwindow("amiprownda", 0)
@Outline3@<:#241,9025>if isiconic(hFLW)
@Outline3@<:#241,9025> appmaximize(apptitle)
@Outline3@<:#241,9025>endif
@Outline3@<:I0,0,0,0><:S+-1><:#241,9025>hctrlline=GetChildHandle(appclass, "REMCTRLLINE")
@Outline3@<:I0,0,0,0><:S+-1><:#241,9025>hedit=GetWindow(hctrlline, GW_CHILD)
@Outline2@<:I0,0,0,0><:S+-1><:#241,9025>buffsize=80
@Outline2@<:#241,9025>dim slidecnt(1)
@Outline2@<:#241,9025>insresult = 1
@Outline2@<:I0,0,0,0><:S+-1><:#241,9025>edittext = ""
@Outline2@<:#241,9025>showwindow(hwndpro, 0)
@Outline2@<+@><:#241,9025>pause(002)
@Outline2@<:#241,9025>'EnableWindow(hwndpro, 0)
@Outline2@<:#241,9025>'AppRestore(appname)
@Outline2@<:#241,9025>'send the menu picks
@Outline3@<:#241,9025>newnow()
@Outline3@<:#241,9025>focusnow=GetFocus()
@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025>'AppSendMessage(hFLW, WM_COMMAND, FLW_SELECTNONE, "")
@Outline3@<+@><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_PAGESORTER, "")
@Outline3@<+@><:#241,9025>pause(010)
@Outline3@<+@><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_INBW, "")
@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025>pause(010)
@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025>'Showwindow(hflw, 1)
@Outline3@<:#241,9025>activateapp(apptitle)
@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025>sendkeys("<[>ctrlhome]")
@Outline3@<:#241,9025>'PostMessage(hFLW, WM_COMMAND, FLW_PAGESORTER, "")
@Outline3@<:#241,9025>handouttype=GetGlobalVar$(g_handouttype)
@Outline3@<:#241,9025>switch handouttype
@Outline3@<:#241,9025> case 1
@Outline3@<:#241,9025> inserter="{rmac}!insertdata"
@Outline3@<:#241,9025> case 2
@Outline3@<:#241,9025> inserter="{rmac}!insertdata2"
@Outline3@<:#241,9025> call handtable2()
@Outline3@<:#241,9025> case 3
@Outline3@<:#241,9025> inserter="{rmac}!insertdata3"
@Outline3@<:#241,9025> call handtable3()
@Outline3@<:#241,9025>endswitch
@Outline3@<:I0,0,0,0><:S+-1><:#241,9025>while insresult != 0 'blow in frames & text
@Outline4@<:I0,0,0,0><:S+-1><:#241,9025> SendMessageC(hEdit, WM_GETTEXT, buffsize, &edittext)
@Outline4@<:I0,0,0,0><:S+-1><:#241,9025><+!><+"> <-!><-">insresult = ArrayInsertByKey(&slidecnt, edittext, NO_DUPS)
@Outline4@<:I0,0,0,0><:S+-1><:#241,9025> slidenum=slidenum + 1
@Outline4@<:I0,0,0,0><:S+-1><:#241,9025> if insresult = 0
@Outline4@<:I0,0,0,0><:S+-1><:#241,9025> break
@Outline4@<:I0,0,0,0><:S+-1><:#241,9025> endif
@Outline4@<:#241,9025> pause(005)
@Outline4@<:#241,9025> calli inserter()
@Outline4@<:#241,9025> activateapp(apptitle)
@Outline4@<:#241,9025> sendkeys("<[>right]")
@Outline3@<+@><:I0,0,0,0><:S+-1><:#241,9025>wend
@Outline3@<+@><:#241,9025>PostMessage(hFLW, WM_COMMAND, FLW_INCOLOR, "")
@Outline3@<+@><:#241,9025>Pause(005)
@Outline2@<:#241,9025>'activateapp(apptitle)
@Outline2@<:#241,9025>endit:
@Outline2@<:#241,9025>CustomView()
@Outline2@<:#241,9025>type("<[>ctrlhome]")
@Outline2@<:#241,9025>type("<[>down]<[>down]")
@Outline2@<:#241,9025>activateapp("")
@Outline2@<:#241,9025>showwindow(hwndpro, 5)
@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>EnableWindow(hwndpro, 1)
@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>SetFocus(focusnow)
@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>freeglobals()
@Outline2@<:I0,0,0,0><:S+-1><:#241,9025>safeexit:
@Outline2@<:I0,0,0,0><:S+-1><:#241,9025>FontDlg(4,0,0)
@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>end function
@Function@<:#284,9025>function h_RunningLotusApp(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> MsgBox(err_appmustberunning)
@Outline2@<:#241,9025> app = GetProfileString$(LotusAppSection, name, LotusIniFile)
@Outline2@<:#241,9025> if app = ""
@Outline2@<:#241,9025> call salesmsgsmm(3)
@Outline2@<:#241,9025> endif
@Outline2@<:#241,9025> return 0
@Outline2@<:#241,9025>endif
@Outline2@<:#241,9025>isitopen=onmenu(FLW_WINDOWMENU, FLW_TILEITEM, 0)
@Outline2@<:#241,9025>if isitopen != FILE_ALREADYOPEN
@Outline2@<:#241,9025> MsgBox(err_nofilesopen)
@Outline2@<:#241,9025> return 0
@Outline2@<:#241,9025>endif
@Outline2@<:#241,9025>endit:
@Outline2@<:#241,9025>return hwnd
@Outline2@<:#241,9025>end function
@Function@<:#284,9025>function MyPostMessage(hwnd, msg, wparam, lparam)
@Outline2@<:#241,9025>PostMessage(hwnd, msg, wparam, lparam)
@Outline2@<:#241,9025>hflw=findwindow(appclass, 0)
@Outline2@<:#241,9025>while GetActiveWindow() != hflw
@Outline2@<:#241,9025>pause(001)
@Outline2@<:#241,9025>wend
@Outline2@<:#241,9025>end function
@Function@<:I0,360,360,360><:S+-1><:#284,9025>function helper()
@Outline2@<:#241,9025>prohWnd = FindWindow("AmiProWndA", 0)
@Outline2@<:#241,9025>fullhelpfile = strcat$(GetAmiDirectory$(), helpfile)
@Outline2@<:#241,9025>WinHelp (prohWnd, fullhelpfile, HELP_CONTEXT, helpnum)
@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 freeglobals()
@Outline2@<:#241,9025>freeglobalvar("framecount")
@Outline2@<:#241,9025>freeglobalvar("bits")
@Outline2@<:#241,9025>freeglobalvar(g_handouttype)
@Outline2@<:#241,9025>end function
@Function@<:#284,9025>function initdlg(hdlg, id, value)
@Outline2@<:#241,9025>' use the fontdlg function to display the following control with a small font
@Outline2@<:#241,9025>For t = 1000 to 1007
@Outline2@<:#241,9025> FontDlg(3, Hdlg, T)
@Outline2@<:#241,9025>Next
@Outline2@<:#241,9025>
@Outline2@<:#241,9025>'EnableWindow(GetDlgItem(hdlg, 21), 0)
@Outline2@<:#241,9025>'EnableWindow(GetDlgItem(hdlg, 22), 0)
@Outline2@<:#241,9025>end function
@Function@<:#284,9025>function insertdata(hdlg, id, val)
@Outline2@<:#241,9025>activateapp(apptitle)
@Outline2@<:#241,9025>hwndflw = findwindow(appclass, 0)
@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>result=AppSendMessage(hwndflw, WM_COMMAND, FLW_COPY, "")
@Outline2@<:#241,9025>activateapp("")
@Outline2@<:#241,9025>if getinfo(217, 24, paste) <<<;> 1
@Outline2@<:#241,9025> return 0
@Outline2@<:#241,9025>endif
@Outline2@<:#241,9025>if getmode() <<<;> 1
@Outline2@<:#241,9025> layoutmode()
@Outline2@<:#241,9025> if getmode() <<<;> 1
@Outline2@<:#241,9025> return 0
@Outline2@<:#241,9025> endif
@Outline2@<:#241,9025>endif
@Outline2@<:#241,9025>count = getglobalvar$("framecount")
@Outline2@<:#241,9025>count = count + 1
@Outline2@<:#241,9025>'if count = 6
@Outline2@<:#241,9025>' PageBreak(1 )
@Outline2@<:#241,9025>' count = 1
@Outline2@<:#241,9025>'endif
@Outline2@<+@><:#241,9025>'message("here")
@Outline2@<:#241,9025>setglobalvar("framecount", count)
@Outline2@<:#241,9025>'paste()
@Outline2@<:#241,9025>AddFrame(5513 -1095 7343 -2685 )
@Outline2@<:#241,9025>modframe()
@Outline2@<:#241,9025>'pastespecial("OLE Link")
@Outline2@<:#241,9025>pastespecial(pasteformat)
@Outline2@<:#241,9025>type("<[>esc]")
@Outline2@<:#241,9025>SetStyle(BODYSTYLE)
@Outline2@<:#241,9025>type ("<[>enter]")
@Outline2@<:#241,9025>type (NOTETEXT)
@Outline2@<:#241,9025>SetStyle(SUBSTYLE)
@Outline2@<:#241,9025>type ("<[>enter]")
@Outline2@<:#241,9025>SetStyle(BULLETSTYLE)
@Outline2@<:#241,9025>type ("<[>enter]")
@Outline2@<:#241,9025>PageBreak(1 )
@Outline2@<:#241,9025>endit:
@Outline2@<:#241,9025>END FUNCTION
@Function@<:#284,9025>function insertdata2(hdlg, id, val)
@Outline2@<:#241,9025>activateapp(apptitle)
@Outline2@<:#241,9025>hwndflw = findwindow(appclass, 0)
@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>result=AppSendMessage(hwndflw, WM_COMMAND, FLW_COPY, "")
@Outline2@<:#241,9025>activateapp("")
@Outline2@<:#241,9025>'OK to paste & in layout mode?
@Outline3@<:#241,9025>if getinfo(217, 24, paste) <<<;> 1
@Outline3@<:#241,9025> return 0
@Outline3@<:#241,9025>endif
@Outline3@<:#241,9025>if getmode() <<<;> 1
@Outline3@<:#241,9025> layoutmode()
@Outline3@<:#241,9025> if getmode() <<<;> 1
@Outline3@<:#241,9025>' return 0
@Outline3@<:#241,9025> endif
@Outline3@<:#241,9025>endif
@Outline2@<:#241,9025>count = getglobalvar$("framecount")
@Outline2@<:#241,9025>count = count + 1
@Outline2@<:#241,9025>'message("count = {count}")
@Outline2@<:#241,9025>if count = 4
@Outline2@<:#241,9025> type ("<[>ctrlend]")
@Outline2@<:#241,9025> 'PageBreak(1 )
@Outline2@<:#241,9025> count = 1
@Outline2@<:#241,9025>endif
@Outline2@<+@><:#241,9025>'message("here")
@Outline2@<:#241,9025>setglobalvar("framecount", count)
@Outline2@<:#241,9025>'paste()
@Outline2@<:#241,9025>AddFrame(713 -1365 3938 -4545 )
@Outline2@<:#241,9025>modframe2()
@Outline2@<:#241,9025>pastespecial(pasteformat)
@Outline2@<:#241,9025>type("<[>esc]<[>left]")
@Outline2@<:#241,9025>InsertColumnRow(1, 0, 0)
@Outline2@<:#241,9025>endit:
@Outline2@<:#241,9025>END FUNCTION
@Function@<:#284,9025>function insertdata3(hdlg, id, val)
@Outline2@<:#241,9025>activateapp(apptitle)
@Outline2@<:#241,9025>hwndflw = findwindow(appclass, 0)
@Outline2@<+@><:I0,0,0,0><:S+-1><:#241,9025>result=AppSendMessage(hwndflw, WM_COMMAND, FLW_COPY, "")
@Outline2@<:#241,9025>activateapp("")
@Outline2@<:#241,9025>'OK to paste & in layout mode?
@Outline3@<:#241,9025>if getinfo(217, 24, paste) <<<;> 1
@Outline3@<:#241,9025> return 0
@Outline3@<:#241,9025>endif
@Outline3@<:#241,9025>if getmode() <<<;> 1
@Outline3@<:#241,9025> layoutmode()
@Outline3@<:#241,9025> if getmode() <<<;> 1
@Outline3@<:#241,9025>' return 0
@Outline3@<:#241,9025> endif
@Outline3@<:#241,9025>endif
@Outline2@<:#241,9025>count = getglobalvar$("framecount")
@Outline2@<:#241,9025>count = count + 1
@Outline2@<:#241,9025>'message("count = {count}")
@Outline2@<:#241,9025>if count = 3
@Outline2@<:#241,9025> type ("<[>ctrlend]")
@Outline2@<:#241,9025> 'PageBreak(1 )
@Outline2@<:#241,9025> count = 1
@Outline2@<:#241,9025>endif
@Outline2@<+@><:#241,9025>'message("here")
@Outline2@<:#241,9025>setglobalvar("framecount", count)
@Outline2@<:#241,9025>'paste()
@Outline2@<:#241,9025>AddFrame(713 -1365 3938 -4545 )
@Outline2@<:#241,9025>modframe3()
@Outline2@<:#241,9025>pastespecial(pasteformat)
@Outline2@<:#241,9025>type("<[>esc]<[>left]")
@Outline2@<:#241,9025>if count = 1
@Outline2@<:#241,9025> InsertColumnRow(1, 0, 0)
@Outline2@<:#241,9025>endif
@Outline2@<:#241,9025>endit:
@Outline2@<:#241,9025>END FUNCTION
@Function@<:#284,9025>FUNCTION newnow()
@Outline2@<:#241,9025>'defstyle=getprofilestring$("AmiPro", "defstyle", "AMIPRO.INI")
@Outline2@<:#241,9025>New(HandoutStyleSheet 1 1024 )
@Outline2@<:#241,9025>fullpageview()
@Outline2@<:#241,9025>setpagelayout()
@Outline2@<:#241,9025>END FUNCTION
@Function@<:#284,9025>FUNCTION modframe()
@Outline2@<:#241,9025>count = getglobalvar$("framecount")
@Outline2@<:#241,9025>defstr width, length, left, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units;
@Outline2@<:#482,9025>getcurframeborders(&width, &length, &top, &leftx, &leftmarg, &topmarg, &rightmarg, &bottommarg, &units)
@Outline2@<:#241,9025>'top = count * 1.60 * 1440
@Outline2@<:#241,9025>'top = 1.60 * 1440
@Outline2@<:#241,9025>top = (16/10) * 1440 'decimal-separator independent
@Outline2@<:#241,9025>FrameModInit( )
@Outline2@<:#241,9025><+">'FrameModLines(0 1 1 0 16777215 0 0 0 0 0 )<-">
@Outline2@<:#241,9025><+">'FrameModLines(1 1 1 12763842 16777215 0 0 0 0 0 )<-">
@Outline2@<:#241,9025>FrameModLines(1 1 1 12763842 16777215 12763842 0 0 57 57 )
@Outline2@<:#241,9025><+">'FrameModType(536870976+128, 0 "" )<-">
@Outline2@<:#241,9025>FrameModType(537002048 0 "" )
@Outline2@<:#241,9025><+">'FrameModBorders(3816, 2160, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units)<-">
@Outline2@<:#241,9025><+">'FrameModBorders(6422, 4968, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units)<-">
@Outline2@<:#241,9025>FrameModBorders(6422 4968 1431 2940 0 0 0 0 Units )
@Outline2@<:#241,9025>FrameModFinish( )
@Outline2@<:#241,9025>END FUNCTION
@Function@<:#284,9025>FUNCTION modframe2()
@Outline2@<:#241,9025>count = getglobalvar$("framecount")
@Outline2@<:#241,9025>defstr width, length, left, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units;
@Outline2@<:#482,9025>getcurframeborders(&width, &length, &top, &leftx, &leftmarg, &topmarg, &rightmarg, &bottommarg, &units)
@Outline2@<:#241,9025>'top = (count * 3.3) - 2.7
@Outline2@<:#241,9025>top = (count * (33/10)) - (27/10) 'decimal-separator independent
@Outline2@<:#241,9025>top = top * 1440
@Outline2@<:#241,9025>FrameModInit( )
@Outline2@<:#241,9025>FrameModType(640 0 "" )
@Outline2@<:#241,9025>FrameModLines(1 1 1 12763842 16777215 12763842 0 0 57 57 )
@Outline2@<:#241,9025>'FrameModBorders(3225 3180 top 713 0 0 0 0 1 )
@Outline2@<:#241,9025>FrameModBorders(4620, 3460, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units)
@Outline2@<:#241,9025><+">'FrameModLines(0 1 1 0 16777215 0 0 0 0 0 )<-">
@Outline2@<:#241,9025><+">'FrameModLines(1 1 1 12763842 16777215 0 0 0 0 0 )<-">
@Outline2@<:#241,9025><+">'FrameModLines(1 1 1 12763842 16777215 12763842 0 0 57 57 )<-">
@Outline2@<:#241,9025><+">'FrameModType(536870976+128, 0 "" )<-">
@Outline2@<:#241,9025><+">'FrameModType(537002048 0 "" )<-">
@Outline2@<:#241,9025><+">'FrameModBorders(3816, 2160, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units)<-">
@Outline2@<:#241,9025><+">'FrameModBorders(6422, 4968, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units)<-">
@Outline2@<:#241,9025><+">'FrameModBorders(3816, 2160, 1431 2940 0 0 0 0 1 )<-">
@Outline2@<:#241,9025>FrameModFinish( )
@Outline2@<:#241,9025>END FUNCTION
@Function@<:#284,9025>FUNCTION modframe3()
@Outline2@<:#241,9025>count = getglobalvar$("framecount")
@Outline2@<:#241,9025>defstr width, length, left, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units;
@Outline2@<:#482,9025>getcurframeborders(&width, &length, &top, &leftx, &leftmarg, &topmarg, &rightmarg, &bottommarg, &units)
@Outline2@<:#241,9025>'leftx = (count * 5) - 4.5
@Outline2@<:#241,9025>leftx = (count * 5) - (45/10) 'decimal-separator independent
@Outline2@<:#241,9025>leftx= leftx * 1440
@Outline2@<:#241,9025>'top = 0.70 * 1440
@Outline2@<:#241,9025>top = (7/10) * 1440 'decimal-separator independent
@Outline2@<:#241,9025>FrameModInit( )
@Outline2@<:#241,9025><+">'FrameModType(640 0 "" )<-">
@Outline2@<:#241,9025>FrameModType(536936448 0 "" )
@Outline2@<:#241,9025>FrameModLines(1 1 1 12763842 16777215 12763842 0 0 57 57 )
@Outline2@<:#241,9025>'FrameModBorders(3225 3180 top 713 0 0 0 0 1 )
@Outline2@<:#241,9025>FrameModBorders(6518, 4889,top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units)
@Outline2@<:#241,9025>FrameModFinish( )
@Outline2@<:#241,9025>END FUNCTION
@Function@<:#284,9025>function GetChildHandle(parentclass, childclass) 'returns hchild
@Outline2@<:#241,9025>dim pos(2)
@Outline2@<:#241,9025>hwnd = FindWindow(parentclass, 0)
@Outline2@<:#241,9025>'Message("hflw = {hwnd}")
@Outline2@<:#241,9025>classname = childclass
@Outline2@<:#241,9025>if (hwnd)
@Outline2@<:#241,9025> child = GetWindow(hwnd, GW_CHILD)
@Outline2@<:#241,9025> class = "";
@Outline2@<:#241,9025> while (child)
@Outline2@<:#241,9025> GetClassName(child, &class, 80)
@Outline2@<:#241,9025> if (class = classname)
@Outline2@<:#241,9025> clickhwnd = child;
@Outline2@<:#241,9025> endif
@Outline2@<:#241,9025> child = GetWindow(child, GW_HWNDNEXT)
@Outline2@<:#241,9025> wend
@Outline2@<:#241,9025>endif
@Outline2@<:#241,9025>return clickhwnd
@Outline2@<:#241,9025>END FUNCTION
@Function@<:#284,9025>function setpagelayout()
@Outline2@<:#241,9025>ModLayoutInit(512 )
@Outline2@<:#482,9025>ModLayoutRightPage(1440 1440 1440 1440 CurUnits 0 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 )
@Outline2@<:#241,9025>ModLayoutRightLines(0 1 0 1 2 )
@Outline2@<:#241,9025>ModLayoutRightHeader(1440 792 1440 72 CurUnits 0 1 1440 10465 2 2 4680 3 9360 )
@Outline2@<:#241,9025>ModLayoutRightFooter(1440 72 1440 792 CurUnits 0 1 1440 10465 2 2 4680 3 9360 )
@Outline2@<:#241,9025>country = GetProfileString$("intl", "sCountry")
@Outline2@<:#241,9025>if country <<<;> "United States" and country <<<;> "Canada"
@Outline2@<:#241,9025> ModLayoutPageSize(16833 11908 CurUnits 4 ) ' A4
@Outline2@<:#241,9025>else
@Outline2@<:#241,9025> ModLayoutPageSize(15840 12240 CurUnits 1 ) ' Letter
@Outline2@<:#241,9025>endif
@Outline2@<:#241,9025>ModLayoutFinish( )
@Outline2@<:#241,9025>END FUNCTION
@Function@<:#284,9025>Function FontDlg(Action, Hdlg, id)
@Outline2@<:#241,9025>' 1 Create a font and allocvar
@Outline2@<:#241,9025>' 2 Return the handle of the create font
@Outline2@<:#241,9025>' 3 Set the id specified to the font
@Outline2@<:#241,9025>' 4 Freeglobalvar and delete created object
@Outline2@<:#241,9025>
@Outline2@<:#482,9025>define CreateFontDLG() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
@Outline2@<:#241,9025>define DeleteObjectDLG(handle) DllCall("gdi,DeleteObject,HH", %1)
@Outline2@<:#482,9025>define SendMessageDLG(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
@Outline2@<:#241,9025>
@Outline2@<:#241,9025>
@Outline2@<:#241,9025>Switch Action
@Outline2@<:#241,9025> Case 1 ' Create the font and store it
@Outline2@<:#241,9025> Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
@Outline2@<:#241,9025> AllocGlobalVar("FontHandle",1)
@Outline2@<:#241,9025> If Font
@Outline2@<:#241,9025> SetGlobalVar("FontHandle",Font)
@Outline2@<:#241,9025> Return Font
@Outline2@<:#241,9025> Else
@Outline2@<:#241,9025> Return 0; ' no font
@Outline2@<:#241,9025> Endif
@Outline2@<:#241,9025> Break;
@Outline2@<:#241,9025> Case 2 ' Return the handle to the font
@Outline2@<:#241,9025> Handle = GetGlobalVar$("FontHandle")
@Outline2@<:#241,9025> If Handle
@Outline2@<:#241,9025> Return Handle
@Outline2@<:#241,9025> Else
@Outline2@<:#241,9025> Return 0
@Outline2@<:#241,9025> Endif
@Outline2@<:#241,9025>
@Outline2@<:#241,9025> Case 3 ' Set the id to the font
@Outline2@<:#241,9025> Handle = GetGlobalVar$("FontHandle")
@Outline2@<:#241,9025> If Handle
@Outline2@<:#241,9025> IdControl = GetDlgITem(Hdlg, id)
@Outline2@<:#241,9025> SendMessageDlg(idControl, 0x30, Handle, 0)
@Outline2@<:#241,9025> Return 1
@Outline2@<:#241,9025> Else
@Outline2@<:#241,9025> Return 0
@Outline2@<:#241,9025> Endif
@Outline2@<:#241,9025> Break;
@Outline2@<:#241,9025>
@Outline2@<:#241,9025> Case 4 ' Delete the font and clear the var
@Outline2@<:#241,9025> Handle = GetGlobalVar$("FontHandle")
@Outline2@<:#241,9025> If Handle
@Outline2@<:#241,9025> DeleteObjectDLG(Handle)
@Outline2@<:#241,9025> Stat = 1
@Outline2@<:#241,9025> Else
@Outline2@<:#241,9025> Stat = 0
@Outline2@<:#241,9025> Endif
@Outline2@<:#241,9025> FreeGlobalVar("FontHandle")
@Outline2@<:#241,9025> Return Stat
@Outline2@<:#241,9025> Default
@Outline2@<:#241,9025>EndSwitch
@Outline2@<:#241,9025>End Function
@Function@<:#284,9025>function handtable2()
@Outline2@<:#241,9025>ModLayoutInit(512 )
@Outline2@<:#482,9025>'ModLayoutRightPage(LeftMargin, TopMargin, RightMargin, BottomMargin, Units, FaceFlag, NumCols, Cols, NumTabs<[>, Type, Offset])
@Outline2@<:#241,9025>ModLayoutRightPage(5544 720 720 720 CurUnits 0 1 5544 11520 1 1 720 )
@Outline2@<:#241,9025>ModLayoutRightFooter(720 72 720 360 CurUnits 0 1 720 11520 2 2 5400 3 10800 )
@Outline2@<:#241,9025>ModLayoutRightHeader(720 432 720 0 CurUnits 0 1 720 11520 2 2 5400 3 10800 )
@Outline2@<:#241,9025>ModLayoutFinish( )
@Outline2@<:#241,9025>Tables(1 1 1 1 )
@Outline2@<:#482,9025>'TableLayout(ChangeLayout, AutoHeight, ColWidth, ColGutter, RowHeight, RowGutter, Center, LineAround, LineStyle, HonorProtect, SpanPages, DisableMouse)
@Outline2@<:#241,9025>
@Outline2@<:#241,9025>TableLayout(2 0 5780 86 4750 0 0 0 1 0 0 0 )
@Outline2@<:#241,9025>END FUNCTION
@Function@<:#284,9025>function handtable3()
@Outline2@<:#241,9025>ModLayoutInit(512 )
@Outline2@<:#482,9025>ModLayoutRightPage(720 6000 720 720 CurUnits 0 1 720 15120 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 )
@Outline2@<:#241,9025>ModLayoutRightLines(0 1 0 1 2 )
@Outline2@<:#241,9025>country = GetProfileString$("intl", "sCountry")
@Outline2@<:#241,9025>ModLayoutRightHeader(720 72 720 0 CurUnits 0 1 720 15120 2 2 4680 3 9360 )
@Outline2@<:#241,9025>ModLayoutRightFooter(720 72 720 360 CurUnits 0 1 720 15120 2 2 4680 3 9360 )
@Outline2@<:#241,9025>if country <<<;> "United States" and country <<<;> "Canada"
@Outline2@<:#241,9025> ModLayoutPageSize(11908 16833 CurUnits 260 ) 'A4
@Outline2@<:#241,9025> ModLayoutFinish( )
@Outline2@<:#241,9025> Tables(3 0 6566 720 5040 86 0 0 1 0 0 0 2 1 )
@Outline2@<:#241,9025>else
@Outline2@<:#241,9025> ModLayoutPageSize(12240 15840 CurUnits 257 ) 'Letter
@Outline2@<:#241,9025> ModLayoutFinish( )
@Outline2@<:#241,9025> Tables(3 0 6566 720 5385 86 0 0 1 0 0 0 2 1 )
@Outline2@<:#241,9025>endif
@Outline2@<:#241,9025>END FUNCTION
@Function@<:#284,9025>DIALOG handouts
@Outline2@<:#482,9025>-2134376448 16 62 56 170 134 "" "AmiDialog" "Prepare Meeting Handouts"
@Outline2@<:#241,9025>FONT 8 "Helv"
@Outline2@<:#241,9025>4 102 8 12 20 1342242825 "button" "AutoRadio" 0
@Outline2@<:#241,9025>60 102 8 12 21 1342242825 "button" "AutoRadio" 0
@Outline2@<:#241,9025>116 102 8 12 22 1342242825 "button" "AutoRadio" 0
@Outline2@<:#241,9025>125 4 40 14 1 1342373889 "button" "OK" 0
@Outline2@<:#241,9025>125 20 40 14 2 1342373888 "button" "Cancel" 0
@Outline2@<:#482,9025>4 4 118 10 1000 1342177280 "static" "This feature helps you prepare meeting " 0
@Outline2@<:#482,9025>4 12 118 10 1001 1342177280 "static" "handouts with graphics from your" 0
@Outline2@<:#241,9025>4 20 118 10 1002 1342177280 "static" "Freelance presentation." 0
@Outline2@<:#241,9025>4 35 118 10 1003 1342177280 "static" "1. Load Freelance." 0
@Outline2@<:#241,9025>4 46 8 10 1004 1342177280 "static" "2." 0
@Outline2@<:#482,9025>14 46 106 18 1005 1342177280 "static" "Open the presentation for which you want handouts." 0
@Outline2@<:#241,9025>4 65 8 10 1006 1342177280 "static" "3." 0
@Outline2@<:#482,9025>14 65 134 20 1007 1342177280 "static" "Choose this 'Prepare Handouts' feature and choose a layout for your handouts." 0
@Outline2@<:#241,9025>14 88 36 40 1008 1342177290 "static" "flwhand1.bmt" 0
@Outline2@<:#241,9025>70 88 34 40 1009 1342177290 "static" "flwhand2.bmt" 0
@Outline2@<:#241,9025>126 93 36 40 1010 1342177290 "static" "flwhand3.bmt" 0
@Outline2@<:#241,9025>END DIALOG
>
[Embedded]
00040532
>
[macsum] 20
FLWhandout 0 0 17 110
h_RunningLotusApp 2020 2 4 213
MyPostMessage 2550 4 2 233
helper 2769 0 3 240
onmenu 2936 3 24 245
freeglobals 5239 0 1 331
initdlg 5322 3 2 336
insertdata 5476 3 4 345
insertdata2 6050 3 4 383
insertdata3 6565 3 4 416
newnow 7109 0 1 451
modframe 7190 0 12 457
modframe2 7453 0 12 475
modframe3 7772 0 12 497
GetChildHandle 8119 2 7 514
setpagelayout 8466 0 2 532
FontDlg 8955 3 5 546
handtable2 9752 0 1 600
handtable3 10022 0 2 612
handouts 10601 0 -1 629
[macse]
14 FLWhandout
20 00001816
19 00001816
0 32 2
0 295
13
8 1
0 31 20 1
0 31 1008 "{1}flwhand1.bmt"
0 31 1009 "{1}flwhand2.bmt"
0 31 1010 "{1}flwhand3.bmt"
0 802
13
8 2
16 FontDlg 1 0 0
0 47 112 "{2}!helper"
0 41 0 "{2}!initdlg"
0 26 "." "handouts"
13
8 3
6 3
5 1
18 1
11 00000326
10 00001990
6 0
15
9
0 271 "handouttype" 1
0 27 20
13
11 00000411
0 264 "handouttype" 1
10 00000522
0 27 21
13
11 00000473
0 264 "handouttype" 2
10 00000522
0 27 22
13
11 00000522
0 264 "handouttype" 3
5 4
21 4 [X]
16 h_RunningLotusApp "FLW" "FLWMAIN"
13
8 5
6 5
5 0
18 0
11 00000625
5 0
15
9
0 271 "bits" 1
0 264 "bits" 0
0 271 "framecount" 1
0 264 "framecount" 0
0 38 "FLW"
0 284 "user,FindWindow,HCC" "amiprownda" 0
13
8 6
0 284 "user,IsIconic,HH" "{5}"
13
11 00000844
0 1029 "Freelance Graphics"
16 GetChildHandle "flwapp" "REMCTRLLINE"
13
8 7
0 284 "user,GetWindow,HHH" "{7}" 5
13
8 8
5 80
8 9
5 1
21 10 [X]
5 1
8 11
7 ""
8 12
0 284 "user,ShowWindow,HHH" "{6}" 0
0 274 002
16 newnow
0 284 "user,GetFocus,H"
13
8 13
0 284 "User,PostMessage,HHHHJ" "{5}" 273 229 ""
0 274 010
0 284 "User,PostMessage,HHHHJ" "{5}" 273 269 ""
0 274 010
0 38 "Freelance Graphics"
0 36 "[16420]"
0 265 "handouttype"
13
8 14
5 1
6 14
18 0
11 00001347
7 "{2}!insertdata"
8 15
10 00001504
5 2
6 14
18 0
11 00001432
7 "{2}!insertdata2"
8 15
16 handtable2
10 00001504
5 3
6 14
18 0
11 00001504
7 "{2}!insertdata3"
8 15
16 handtable3
6 11
5 0
18 1
11 00001756
0 284 "user,SendMessage,HHHHC" "{8}" 13 "{9}" &12
0 1045 &10 "{12}" 0
13
8 11
6 16
5 1
3 0
8 16
6 11
5 0
18 0
11 00001681
10 00001756
0 274 005
16 "{15}"
0 38 "Freelance Graphics"
0 36 "[39]"
10 00001504
0 284 "User,PostMessage,HHHHJ" "{5}" 273 270 ""
0 274 005
2 202 1
0 6 "[16420]"
0 6 "[40][40]"
0 38 ""
0 284 "user,ShowWindow,HHH" "{6}" 5
0 284 "user,EnableWindow,HHH" "{6}" 1
0 284 "user,SetFocus,HH" "{13}"
16 freeglobals
16 FontDlg 4 0 0
6 0
15
9
14 h_RunningLotusApp
20 00000506
19 00000506
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 3
6 3
5 0
18 0
11 00000334
0 3 "Freelance must be running to prepare a screen show." "Ami Pro Handout Maker"
0 286 "Lotus Applications" "{0}" "lotus.ini"
13
8 4
6 4
7 ""
18 0
11 00000322
16 lotuspal.smm!salesmsg 3
5 0
15
9
16 onmenu "&Window" "&Tile" 0
13
8 5
6 5
5 1
18 1
11 00000506
0 3 "You must have a presentation open to prepare a screen show." "Ami Pro Handout Maker"
5 0
15
9
6 3
15
9
6 2
15
9
14 MyPostMessage
0 284 "User,PostMessage,HHHHJ" "{0}" "{1}" "{2}" "{3}"
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 5
0 284 "user,GetActiveWindow,H"
13
6 5
18 1
11 00000207
0 274 001
10 00000123
6 4
15
9
14 helper
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 1
0 798
13
0 16 [X] "HELPPACK.HLP"
13
8 2
0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 130
6 0
15
9
14 onmenu
5 0
8 4
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 7
0 284 "user,GetMenu,HH" "{7}"
13
8 8
0 284 "user,GetMenuItemCount,HH" "{8}"
13
8 9
6 9
5 1
18 5
11 00000260
0 3 "Cannot locate the menu bar." "Ami Pro Handout Maker"
10 00002239
5 0
8 10
6 9
5 1
3 1
6 10
18 2
12 00000359
10 00000560
5 1
6 10
3 0
8 10
10 00000271
0 284 "user,GetMenuString,HHHFHH" "{8}" "{10}" &4 25 1024
0 14 "{0}"
13
8 11
0 806 "{4}" "{11}"
13
0 18 [X]
13
0 806 "{0}" "{11}"
13
0 18 [X]
13
18 0
11 00000547
6 10
8 12
10 00000324
0 284 "user,GetSubMenu,HHH" "{8}" "{12}"
13
8 13
5 0
8 14
5 0
8 5
5 0
8 6
0 284 "user,GetMenuItemCount,HH" "{13}"
13
8 15
6 15
5 1
18 5
11 00000800
0 3 "Cannot locate the correct menu." "Ami Pro Handout Maker"
10 00002239
5 0
8 10
6 15
5 1
3 1
6 10
18 2
12 00000900
10 00001221
5 1
6 10
3 0
8 10
10 00000811
0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
0 14 "{1}"
13
8 16
0 14 "{4}"
13
8 17
6 17
5 1
18 5
6 5
5 0
18 0
1 1
11 00001077
6 14
5 1
3 0
8 14
0 18 "{4}"
13
8 18
0 18 "{1}"
13
8 19
0 808 1 "{18}" "{19}"
13
5 0
18 1
11 00001208
5 1
15
9
6 10
8 5
10 00001221
10 00000865
5 -1
15
9
6 5
6 14
3 1
8 5
0 284 "user,GetMenuItemCount,HH" "{13}"
13
8 20
6 20
5 1
18 5
11 00001349
10 00002239
5 0
8 10
6 20
5 1
3 1
6 10
18 2
12 00001449
10 00001651
5 1
6 10
3 0
8 10
10 00001360
0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
0 14 "{1}"
13
8 21
0 806 "{4}" "{21}"
13
0 18 [X]
13
0 806 "{1}" "{21}"
13
0 18 [X]
13
18 0
11 00001638
6 10
8 22
10 00001414
0 284 "user,GetSubMenu,HHH" "{13}" "{22}"
13
8 23
5 0
8 14
0 284 "user,GetMenuItemCount,HH" "{23}"
13
8 24
6 24
5 1
18 5
11 00001809
10 00002239
5 0
8 10
6 24
5 1
3 1
6 10
18 2
12 00001909
10 00002218
5 1
6 10
3 0
8 10
10 00001820
0 284 "user,GetMenuString,HHHFHH" "{23}" "{10}" &4 25 1024
0 14 "{2}"
13
8 25
0 14 "{4}"
13
8 17
6 17
5 1
18 5
6 6
5 0
18 0
1 1
11 00002086
6 14
5 1
3 0
8 14
0 806 "{2}" "{25}"
13
0 18 [X]
13
0 806 "{4}" "{25}"
13
0 18 [X]
13
18 0
11 00002205
6 10
8 6
10 00002218
10 00001874
6 6
6 14
3 1
8 6
0 16 "{5}" ", " "{6}" "," "{2}"
13
8 26
0 296 0
6 3
15
9
14 freeglobals
0 266 "framecount"
0 266 "bits"
0 266 "handouttype"
6 0
15
9
14 initdlg
5 1000
8 4
5 1007
6 4
18 2
12 00000103
10 00000142
5 1
6 4
3 0
8 4
10 00000025
16 FontDlg 3 "{0}" "{4}"
10 00000070
6 3
15
9
14 insertdata
0 38 "Freelance Graphics"
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 4
0 1036 "{4}" 273 142 ""
13
8 5
0 38 ""
0 1313 217 24 155
13
5 1
18 1
11 00000193
5 0
15
9
0 29
13
5 1
18 1
11 00000282
2 210 1
0 29
13
5 1
18 1
11 00000282
5 0
15
9
0 265 "framecount"
13
8 6
6 6
5 1
3 0
8 6
0 264 "framecount" "{6}"
2 413 1 5513 -1095 7343 -2685
16 modframe
2 588 1 "Windows Metafile"
0 6 "[27]"
2 323 1 "Body Text"
0 6 "[13]"
0 6 "Notes:"
2 323 1 "Subhead"
0 6 "[13]"
2 323 1 "Bullet 1"
0 6 "[13]"
2 357 1 1
6 3
15
9
14 insertdata2
0 38 "Freelance Graphics"
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 4
0 1036 "{4}" 273 142 ""
13
8 5
0 38 ""
0 1313 217 24 155
13
5 1
18 1
11 00000194
5 0
15
9
0 29
13
5 1
18 1
11 00000271
2 210 1
0 29
13
5 1
18 1
11 00000271
0 265 "framecount"
13
8 6
6 6
5 1
3 0
8 6
6 6
5 4
18 0
11 00000374
0 6 "[16419]"
5 1
8 6
0 264 "framecount" "{6}"
2 413 1 713 -1365 3938 -4545
16 modframe2
2 588 1 "Windows Metafile"
0 6 "[27][37]"
2 627 1 1 0 0
6 3
15
9
14 insertdata3
0 38 "Freelance Graphics"
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 4
0 1036 "{4}" 273 142 ""
13
8 5
0 38 ""
0 1313 217 24 155
13
5 1
18 1
11 00000194
5 0
15
9
0 29
13
5 1
18 1
11 00000271
2 210 1
0 29
13
5 1
18 1
11 00000271
0 265 "framecount"
13
8 6
6 6
5 1
3 0
8 6
6 6
5 3
18 0
11 00000374
0 6 "[16419]"
5 1
8 6
0 264 "framecount" "{6}"
2 413 1 713 -1365 3938 -4545
16 modframe3
2 588 1 "Windows Metafile"
0 6 "[27][37]"
6 6
5 1
18 0
11 00000532
2 627 1 1 0 0
6 3
15
9
14 newnow
2 101 1 "_handout.sty" 1 1024
2 201 1
16 setpagelayout
6 0
15
9
14 modframe
0 265 "framecount"
13
8 1
0 795 &2 &3 &5 &6 &7 &8 &9 &10 &11
5 16
5 10
4 1
5 1440
4 0
8 5
2 421 1
2 416 1 1 1 1 12763842 16777215 12763842 0 0 57 57
2 417 1 537002048 0 ""
2 418 1 6422 4968 1431 2940 0 0 0 0 "{11}"
2 420 1
6 0
15
9
14 modframe2
0 265 "framecount"
13
8 1
0 795 &2 &3 &5 &6 &7 &8 &9 &10 &11
6 1
5 33
5 10
4 1
4 0
5 27
5 10
4 1
3 1
8 5
6 5
5 1440
4 0
8 5
2 421 1
2 417 1 640 0 ""
2 416 1 1 1 1 12763842 16777215 12763842 0 0 57 57
2 418 1 4620 3460 "{5}" "{6}" "{7}" "{8}" "{9}" "{10}" "{11}"
2 420 1
6 0
15
9
14 modframe3
0 265 "framecount"
13
8 1
0 795 &2 &3 &5 &6 &7 &8 &9 &10 &11
6 1
5 5
4 0
5 45
5 10
4 1
3 1
8 6
6 6
5 1440
4 0
8 6
5 7
5 10
4 1
5 1440
4 0
8 5
2 421 1
2 417 1 536936448 0 ""
2 416 1 1 1 1 12763842 16777215 12763842 0 0 57 57
2 418 1 6518 4889 "{5}" "{6}" "{7}" "{8}" "{9}" "{10}" "{11}"
2 420 1
6 0
15
9
14 GetChildHandle
5 2
21 3 [X]
0 284 "user,FindWindow,HCC" "{0}" 0
13
8 4
6 1
8 5
6 4
11 00000323
0 284 "user,GetWindow,HHH" "{4}" 5
13
8 6
7 ""
8 7
6 6
11 00000323
0 284 "user,GetClassName,HHCH" "{6}" &7 80
6 7
6 5
18 0
11 00000265
6 6
8 8
0 284 "user,GetWindow,HHH" "{6}" 2
13
8 6
10 00000164
6 8
15
9
6 2
15
9
14 setpagelayout
2 361 1 512
2 363 1 1440 1440 1440 1440 1 0 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640
2 366 1 0 1 0 1 2
2 364 1 1440 792 1440 72 1 0 1 1440 10465 2 2 4680 3 9360
2 365 1 1440 72 1440 792 1 0 1 1440 10465 2 2 4680 3 9360
0 286 "intl" "sCountry"
13
8 1
6 1
7 "United States"
18 1
6 1
7 "Canada"
18 1
1 1
11 00000443
2 362 1 16833 11908 1 4
10 00000468
2 362 1 15840 12240 1 1
2 376 1
6 0
15
9
14 FontDlg
5 1
6 0
18 0
11 00000255
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 4
0 271 "FontHandle" 1
6 4
11 00000217
0 264 "FontHandle" "{4}"
6 4
15
9
10 00000229
5 0
15
9
10 00000785
10 00000785
5 2
6 0
18 0
11 00000381
0 265 "FontHandle"
13
8 5
6 5
11 00000356
6 5
15
9
10 00000368
5 0
15
9
10 00000785
5 3
6 0
18 0
11 00000596
0 265 "FontHandle"
13
8 5
6 5
11 00000558
0 44 "{1}" "{2}"
13
8 6
0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
5 1
15
9
10 00000570
5 0
15
9
10 00000785
10 00000785
5 4
6 0
18 0
11 00000785
0 265 "FontHandle"
13
8 5
6 5
11 00000730
0 284 "gdi,DeleteObject,HH" "{5}"
5 1
8 7
10 00000740
5 0
8 7
0 266 "FontHandle"
6 7
15
9
10 00000785
6 3
15
9
14 handtable2
2 361 1 512
2 363 1 5544 720 720 720 1 0 1 5544 11520 1 1 720
2 365 1 720 72 720 360 1 0 1 720 11520 2 2 5400 3 10800
2 364 1 720 432 720 0 1 0 1 720 11520 2 2 5400 3 10800
2 376 1
2 457 1 1 1 1 1
2 626 1 2 0 5780 86 4750 0 0 0 1 0 0 0
6 0
15
9
14 handtable3
2 361 1 512
2 363 1 720 6000 720 720 1 0 1 720 15120 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
2 366 1 0 1 0 1 2
0 286 "intl" "sCountry"
13
8 1
2 364 1 720 72 720 0 1 0 1 720 15120 2 2 4680 3 9360
2 365 1 720 72 720 360 1 0 1 720 15120 2 2 4680 3 9360
6 1
7 "United States"
18 1
6 1
7 "Canada"
18 1
1 1
11 00000485
2 362 1 11908 16833 1 260
2 376 1
2 457 1 3 0 6566 720 5040 86 0 0 1 0 0 0 2 1
10 00000567
2 362 1 12240 15840 1 257
2 376 1
2 457 1 3 0 6566 720 5385 86 0 0 1 0 0 0 2 1
6 0
15
9
DIALOG handouts
-2134376448 16 62 56 170 134 "" "AmiDialog" "Prepare Meeting Handouts"
FONT 8 "Helv"
4 102 8 12 20 1342242825 "button" "AutoRadio" 0
60 102 8 12 21 1342242825 "button" "AutoRadio" 0
116 102 8 12 22 1342242825 "button" "AutoRadio" 0
125 4 40 14 1 1342373889 "button" "OK" 0
125 20 40 14 2 1342373888 "button" "Cancel" 0
4 4 118 10 1000 1342177280 "static" "This feature helps you prepare meeting " 0
4 12 118 10 1001 1342177280 "static" "handouts with graphics from your" 0
4 20 118 10 1002 1342177280 "static" "Freelance presentation." 0
4 35 118 10 1003 1342177280 "static" "1. Load Freelance." 0
4 46 8 10 1004 1342177280 "static" "2." 0
14 46 106 18 1005 1342177280 "static" "Open the presentation for which you want handouts." 0
4 65 8 10 1006 1342177280 "static" "3." 0
14 65 134 20 1007 1342177280 "static" "Choose this 'Prepare Handouts' feature and choose a layout for your handouts." 0
14 88 36 40 1008 1342177290 "static" "flwhand1.bmt" 0
70 88 34 40 1009 1342177290 "static" "flwhand2.bmt" 0
126 93 36 40 1010 1342177290 "static" "flwhand3.bmt" 0
00040557