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

INI File | 1993-03-14 | 3KB | 355 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Drukowanie zaznaczonego tekstu
    Lotus WPD Marketing
    Beginner
    FileNew, Paste, UserControl
    noautorun
    723947320
    18
    671525509
    15
    1
    0
    0
    0
    0






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

[ParaNum]
    1
[tag]
    Table Text
    5
    [fnt]
        Arial
        240
        0
        16384
    [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]
        272
        1
        3
        .
        ,
        $
    Table Text
    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
        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
    28 0 12 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<-!>

<:#278,9025>

@Function@<:#278,9025>function shadeprt()

<:#278,9025>IF IsNewWave()

    Message("Makroprogram nie dzia</s>a, je</\>li jest uruchomiony HP NewWave.")

<:#278,9025>    Exit Function

<:#278,9025>ENDIF

<:#278,9025>ignorekeyboard(2)

<:#278,9025>again:

<:#278,9025>if curshade$() = "" and getmode() = 129

    usercontrol("Wybierz tylko jedn</y> kom<\s>rk<\j> i naci</\>nij Kontynuuj")

<:#278,9025>    goto again

<:#278,9025>endif

<:#278,9025>if curshade$() = ""

    usercontrol("Zaznacz tekst i naci</\>nij Kontynuuj")

<:#278,9025>    goto again

<:#278,9025>endif

<:#278,9025>copy()

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

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

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

<:#278,9025>endif

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

<:#278,9025>paste()

<:#278,9025>fileprint

<:#278,9025>filechanged(1, 0)

<:#278,9025>fileclose()

<:#278,9025>end function

>

[Embedded]
00002817
>
[macsum] 1
shadeprt 0 0 2 2
[macse]
14 shadeprt
0 1317
13
11 00000123
0 3 "Makroprogram nie dzia</s>a, je</\>li jest uruchomiony HP NewWave."
6 0
15
9
0 32 2
0 24
13
7 ""
18 0
0 29
13
5 129
18 0
1 1
11 00000275
0 7 "Wybierz tylko jedn</y> kom<\s>rk<\j> i naci</\>nij Kontynuuj"
10 00000131
0 24
13
7 ""
18 0
11 00000368
0 7 "Zaznacz tekst i naci</\>nij Kontynuuj"
10 00000131
2 154 1
0 286 "AmiPro" "defstyle" "amipro.ini"
13
8 1
6 1
7 ""
18 0
11 00000479
7 "_default.sty"
8 1
2 101 1 "{1}" 0 0
2 155 1
24 111
0 34 1 0
2 147 1
6 0
15
9
00002842