PC World Komputer 1998 May/Pcwk5b98.iso/DISK1/MACROS.CMZ/FIT2SCRN.SMM

INI File | 1993-03-14 | 5KB | 384 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]
    Ustawienie podgl</y>du roboczego na szeroko</\><\f> </s>amu strony.
    Lotus WPD
    Advanced
    API Calls
    autorun
    723275682
    10
    704844403
    180
    1
    0
    0
    0
    0






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

[ParaNum]
    1
[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
        11200
        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]
Modified by Marek G. B</y>czek from UNICORN Poland

>
    [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
    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]
<:#278,9025>Macro by <+!>Charlie Pappas, Peyton McManus and David Zoller<-!>

<:#278,9025>

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

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

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

<:#278,9025>

<:#278,9025>Declare GetLayout()

<:#278,9025>

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

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

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

<:#278,9025>    exit function

<:#278,9025>endif

<:#278,9025>ignorekeyboard(2)

<:#278,9025>CheckMenuItem(1, "Po&dgl</y>d", "&Szeroko</\><\f> </c>amu", 1)

<:#278,9025>if not CheckMenuItem(1, "Po&dgl</y>d", "&Szeroko</\><\f> </c>amu", 1)

<:#556,9025>    insertmenuitem(1, "Po&dgl</y>d", 1, "&Szeroko</\><\f> </c>amu", getrunningmacrofile$(), "Ustawia podgl</y>d roboczy na szeroko</\><\f>
</s>amu strony.")

<:#278,9025>    return 1

<:#278,9025>endif

<:#278,9025>CheckMenuItem(1, "Po&dgl</y>d", "&Szeroko</\><\f> </c>amu", 0)

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

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

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

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

<:#278,9025>

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

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

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

<:#278,9025>        disp = 19590

<:#278,9025>    endif

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

<:#278,9025>Endif

<:#278,9025>customview()

<:#278,9025>End Function

<:#278,9025>

<:#278,9025>

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

<:#278,9025>ignorekeyboard(2)

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

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

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

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

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

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

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

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

<:#278,9025>END FUNCTION

>

[Embedded]
00003679
>
[macsum] 2
BestView 0 0 6 8
GetLayout 782 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 "Po&dgl</y>d" "&Szeroko</\><\f> </c>amu" 1
0 518 1 "Po&dgl</y>d" "&Szeroko</\><\f> </c>amu" 1
13
1 3
11 00000359
0 802
13
0 527 1 "Po&dgl</y>d" 1 "&Szeroko</\><\f> </c>amu" [X] "Ustawia podgl</y>d roboczy na szeroko</\><\f> </s>amu strony."
5 1
15
9
0 518 1 "Po&dgl</y>d" "&Szeroko</\><\f> </c>amu" 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 00000761
0 286 "AmiPro" "Display" "AMIPRO.INI"
13
8 5
6 5
7 ""
18 0
11 00000740
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
00003704