XProfan

Italia

Horst Horn, URL=www.paules-pc-forum.de/forum/xprofan/125133-symbolfonts-Mostra-und-ausdrucken.html#post762513, Zeitpunkt=27.01.2010

Da ich öfter die Symbolschriften brauche (Buttons) und nach dem Umschalten mit Charset immer testen musste, welche Taste per welches Symbol zuständig ist, hab ich mir eine kleine Aiuto geschrieben. Die Anzeige ist auch druckbar.
Kompilieren Markieren Separieren

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