XProfan

Français

Horst Horn, URL=www.paules-pc-forum.de/forum/XProfan/125133-symbolfonts-Montrer-et-ausdrucken.html#poste762513, Zeitpunkt=27.01.2010

là je öfter qui Symbolschriften brauche (Buttons) et pour dem commuter avec Charset toujours testen musste, quelle bouton pour welches Symbol zuständig ist, hab je mir une kleine Aider geschrieben. qui Anzeige ist aussi druckbar.
Kompilieren Marque Séparation

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