XProfan

Español

Horst Horn, URL=www.paules-pc-forum.de/forum/XProfan/125133-symbolfonts-Mostrar-y-ausdrucken.html#post762513, Zeitpunkt=27.01.2010

Desde que öfter el Symbolschriften brauche (Buttons) y después de el Umschalten con Charset siempre testen musste, welche Taste para welches Symbol zuständig es, tener Yo una kleine Ayuda geschrieben. El Anzeige es auch druckbar.
Kompilieren Marca Separación

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

FIN