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

INI File | 1994-08-14 | 3.6 KB | 256 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    Apple LaserWriter Plus
[port]
    LPT1:
[lang]
    1
[desc]
    └╦╡°▓┼ªX┐├╣⌡ñjñp
    Lotus WPD
    Advanced
    API Calls
    autorun
    773101885
    10
    704844403
    177
    1
    0
    0
    0
    0






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

[ParaNum]
    1
[l1]
    0
[pg]
    1
    47 0 13 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]
<:#293,9025>Macro by <+!>Charlie Pappas, Peyton McManus and David Zoller<-!>

<:#284,9025>

<:#284,9025>define GetClientRect(hWnd, lpRect) dllcall("user,GetClientRect,HHN", %1, %2)

<:#284,9025>define Getfocus() DllCall("user,GetFocus,H")

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

<:#284,9025>

<:#284,9025>Declare GetLayout()

<:#284,9025>

@Function@<:#293,9025>Function BestView()

<:#284,9025>result=IsOKToRun(CustomView)

<:#284,9025>if result != 1

<:#284,9025>    exit function

<:#284,9025>endif

<:#284,9025>ignorekeyboard(2)

<:#284,9025>CheckMenuItem(1, "└╦╡°(&V)", "F&it to Screen", 1)

<:#284,9025>if not CheckMenuItem(1, "└╦╡°(&V)", "F&it to Screen", 1)

<:#568,9025>    insertmenuitem(1, "└╦╡°(&V)", 1, "F&it to Screen", getrunningmacrofile$(), "Set view level to show left to right margins of a document.")

<:#284,9025>    return 1

<:#284,9025>endif

<:#284,9025>CheckMenuItem(1, "└╦╡°(&V)", "F&it to Screen", 0)

<:#284,9025>dim rect(4)

<:#284,9025>Size = GetLayout()

<:#284,9025>getclientrect(getfocus(), &rect)

<:#284,9025>newview = round(((rect(3) / 623) * (9144 / size) * 100))

<:#284,9025>

<:#284,9025>If NewView <;> 10 and NewView << 401

<:#284,9025>    disp=GetProfileString$("AmiPro","Display","AMIPRO.INI")

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

<:#284,9025>        disp = 19590

<:#284,9025>    endif

<:#284,9025>    ViewPreferences(Disp,NewView)

<:#284,9025>Endif

<:#284,9025>customview()

<:#284,9025>End Function

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>FUNCTION GetLayout()

<:#284,9025>ignorekeyboard(2)

<:#284,9025>DefStr pm, WidthTwips, cp, dz;

<:#284,9025>Cnt = GetLayoutParmCnt(ModLayoutRightPage) ' Get number of parameters

<:#284,9025>DIM Stuff(Cnt)'Dimension an array for that amount

<:#284,9025>GetLayoutParameters(ModLayoutRightPage, &Stuff) ' Get the parameters and

<:#284,9025>GetLayoutPageSize(&pm, &WidthTwips, &cp, &dz)

<:#284,9025>LeftMargin=Stuff(1)

<:#284,9025>RightMargin=Stuff(3)

<:#284,9025>getlayout = WidthTwips-LeftMargin-RightMargin

<:#284,9025>END FUNCTION

>

[Embedded]
00002664
>
[macsum] 2
BestView 0 0 6 8
GetLayout 728 0 9 36
[macse]
14 BestView
0 1313 217 24 202
13
8 1
6 1
5 1
18 1
11 00000082
6 0
15
9
0 32 2
0 518 1 "└╦╡°(&V)" "F&it to Screen" 1
0 518 1 "└╦╡°(&V)" "F&it to Screen" 1
13
1 3
11 00000318
0 802
13
0 527 1 "└╦╡°(&V)" 1 "F&it to Screen" [X] "Set view level to show left to right margins of a document."
5 1
15
9
0 518 1 "└╦╡°(&V)" "F&it to Screen" 0
5 4
21 2 [X]
16 GetLayout
13
8 3
0 284 "user,GetFocus,H"
13
0 284 "user,GetClientRect,HHN" [X] &2
5 3
22 2
5 623
4 1
5 9144
6 3
4 1
4 0
5 100
4 0
0 786 [X]
13
8 4
6 4
5 10
18 3
6 4
5 401
18 5
1 1
11 00000707
0 286 "AmiPro" "Display" "AMIPRO.INI"
13
8 5
6 5
7 ""
18 0
11 00000686
5 19590
8 5
2 206 1 "{5}" "{4}"
2 202 1
6 0
15
9
14 GetLayout
0 32 2
0 1285 363
13
8 5
6 5
21 6 [X]
0 1286 363 &6
0 1282 &1 &2 &3 &4
5 1
22 6
8 7
5 3
22 6
8 8
6 2
6 7
3 1
6 8
3 1
8 0
6 0
15
9
00002689