Symbolfonts anzeigen und ausdrucken

[horsthorn]

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

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
ENDWHILE
END

Wer es brauchen kann, bitte sehr...

[Frabbing]

Klappt gut!

Ich brauch hin und wieder auch Ähnliches, poste es hier auch einfach mal dazu:

Declare text$,y&,x&

Window 0,0-%maxx,%maxy

text$="Webdings"
Print " "
Print "    "+text$

Whileloop 8
  Whileloop 32

    Usefont text$,22,0,0,0,0
    TextColor RGB(0,0,0),-1
    DrawText 32+((&loop-1)*18),32+y&,Chr$(x&)

    Usefont "Lucida Console",18,0,0,0,0
    TextColor RGB(128,128,255),-1
    DrawText 32+((&loop-1)*18),32+20+y&,Chr$(x&)

    x&=x&+1
  Wend
  y&=y&+42
  
Wend

WaitInput
End

[horsthorn]

@Frank
...es führen viele "XProfan"-Wege nach Rom (zum Ziel) !

PS: Mein Code passt sich der Bildschirm-Auflösung an und wo ist deine Ausdruckmöglichkeit

[Frabbing]

Wie gesagt nutze ich meinen Code schon länger für solche Sachen - mir geht es mehr darum, mal ein bestimmtes Zeichen nachzusehen. Einen Ausdruck brauche ich da meist nicht.
Weils zum Thema passte, hab ich ihn mal dazu gestellt. Soll deinen Code in keiner Weise ersetzen.

[Bangkok]

Zitat von horsthorn

PS: Mein Code passt sich der Bildschirm-Auflösung an und wo ist deine Ausdruckmöglichkeit

Bei mir nicht. Ich habe einen Widescreen und habe 1600 x 900 eingestellt und es passt nicht alles auf den Schirm.

[horsthorn]

Zitat von Bangkok

Bei mir nicht. Ich habe einen Widescreen und habe 1600 x 900 eingestellt und es passt nicht alles auf den Schirm.

@Dieter
ändere mal auf

steig%=(breit%/100*4)

dann klappt es auch mit deiner Auflösung
(hab eben getestet) - mein Widescreen steht auf 1680 x 1050 und da ging es
Warum hab ich den Code hierhin gestellt? - damit er angepasst wird.
Deine Auflösung wird z. B. von Win-7 nicht empfohlen.

@Frank
dafür brauche ich den Code manchmal. Denke mal, du siehst, was ich meine.
Für die Pfeile gibt es nämlich in der shell32.dll keine Icon

[Bangkok]

@Horst,

ich habe deinen Code nicht angeschaut, da ich im Augenblick nicht viel Zeit habe. Ich habe nur kurz gestartet, weil du geschrieben hast, passt sich dem Bildschirm an, ob das auch klappt.

[horsthorn]

@Dieter
Das ist ja auch kein 'Beinbruch'
Das "Anpassen" bezog sich auf das normale Breite-Höhe-Verhältnis.
Es gibt mittlerweile soviele "exotische" Auflösungen, daß alleine hier das 100prozentige Anpassen eine Aufgabe für sich ist.
Deine Auflösung zählt schon zu den "exotischen" und daher die Fehlanzeige.
Veränderst du den Code so, wie ich geraten habe, zeigt dein Monitor auch alle Symbole an
PS: Habt ihr in Bangkok auch so schöne Temperaturen wie wir hier: bis -21° Celsius und viel Schnee - sogar hier im normal 'wärmeren' Heidelberg schneit es und das Zeug bleibt liegen!
Hab eben schon das 1. Mal geräumt. Es schneit aber weiter. - Kinder wird es freuen

[Bangkok]

@Horst,

ich denke nicht, dass 1600 x 900 eine exotische Einstellung bei einem 20 " Monitor ist. Habe gerade Windows 7 installiert neben XP. Window 7 hat diese Auflösung automatisch eingestellt.
Im Moment versuche ich mich in W7 zurecht zu finden. Suche gerade die Zwischenablage und finde sie nicht.

In Bangkok ist es auch kalt 27° bis 30° maximal. Nachdem ich nun so viele Jahre hier bin geht es mir wie den Thais unter 25° fühle ich es als kalt an und ziehe etwas wärmeres an.

[horsthorn]

@Dieter
Das meinte ich mit "exotisch"
Du hast einen 20"-Monitor und Win-7 installiert automatisch 1600x900
Mein Monitor hat 21" und hier wird von Win-7 1680x1050 empfohlen
Wenn ich 'deine Auflösung' auf meinem Monitor einstelle (hab ich ja gemacht) habe ich oben und unten einen schwarzen Balken.

Zwischenablage ?
Wo war die denn vorher ?
Such mal unter C:\Users
Da ist irgendwo das Unterverzeichnis ...\Apdata - vielleicht "treibt" sie sich da rum

PS: Zieh nicht so dicke Pullover an du armer 30°-Frierender