XProfan

English

Horst horn, URL=www.paules-pc-forum.de/forum/XProfan/125133-symbolfonts-Show-and-print out.html#mail762513, Zeitpunkt=27.01.2010

Since I often The Symbolschriften need (Buttons) and to the switch with Charset always testing had, which Button for which symbol zuständig is, Have I me small Help written. The display is too druckbar.
Compile Mark Separation

SET("DECIMALS",0)
DECLARE spalte%,zeile%,steig%,I%,breit%,hoch%,EE%
spalte%=10:zeile%=15:I%=49:EE%=0
DECLARE aktivfont$
breit%=800 von dieser Auflösung nach oben sollte es klappen
hoch%=600
breit%=%MaxX
hoch%=%MaxY
DECLARE gross%
gross%=(breit%/100*3)
steig%=(breit%/100*5)
----------------------------------------------------------------
WindowStyle 16
Window 0,0 - breit%,hoch%
WindowTitle "..mit der Taste F5 drucken"
aktivfont$ = "WEBDINGS" wahlweise aktivieren
aktivfont$ = "WINGDINGS"
aktivfont$ = "SYMBOL"

WHILENOT I% = 256

    Set("Charset", 2)
    USEFONT aktivfont$,gross%,0,1,0,0
    TEXTCOLOR RGB(0,0,0),-1
    DrawText spalte%,zeile%,CHR$(I%)
    Set("Charset", -1)
    TEXTCOLOR RGB(150,0,0),-1
    USEFONT "COURIER NEW",16,0,1,0,0
    DrawText (spalte%+5),(zeile%+(gross%-2)),CHR$(i%)
    INC I%
    spalte%=(spalte%+steig%)

    IF spalte% > (breit%-(gross%*2))

        spalte%=10
        zeile%=(zeile%+(steig%+5))

    ENDIF

ENDWHILE

WHILENOT EE%

    WAITINPUT

    IF IsKey(27)

        Set("Charset", -1)
        EE%=1

    ENDIF

    IF Iskey(116) Taste F5

        spalte%=10:zeile%=15:I%=49
        breit%=640:hoch%=960 XProfan-DINA-4-Seite
        gross%=(breit%/100*3)
        steig%=(breit%/100*5)
        STARTPRINT

        WHILENOT I% = 256

            Set("Charset", 2)
            USEFONT aktivfont$,gross%,0,1,0,0
            TEXTCOLOR RGB(0,0,0),-1
            DrawText spalte%,zeile%,CHR$(I%)
            Set("Charset", -1)
            TEXTCOLOR RGB(150,0,0),-1
            USEFONT "COURIER NEW",16,0,1,0,0
            DrawText (spalte%+5),(zeile%+(gross%-2)),CHR$(i%)
            INC I%
            spalte%=(spalte%+steig%)

            IF spalte% > (breit%-(gross%*2))

                spalte%=10
                zeile%=(zeile%+(steig%+5))

            ENDIF

        ENDWHILE

        ENDPRINT

    ENDIF

END