| |
| |
|
| - Seite 1 - |
|
Andreas
Koch | Hallo zusammen,
ich habe eine Frage zu diesem Quellcode:
cls
Font 1
Print Chr$(231), Chr$(229)
StartPrint
@Set("Charset",1)
UseFont "Arial",0,0,0,0,0
DrawText 0,80,Chr$(231)
DrawText 0,100,Chr$(229)
EndPrint
WaitInput
Warum wird auf dem Bildschirm Tau und Sigma ausgegeben und beim Drucken irgendwelche seltsamen Zeichen?
Schönen Gruß
Andreas Koch |
|
| |
| |
| |
|
| |
| |
| - Seite 2 - |
|
 |
« Dieser Beitrag wurde als Lösung gekennzeichnet. » |
|
| - Seite 2 - |
|
Andreas
Koch | So, eine kleine Rückmeldung. Es ist so, dass nur die ersten 255 Zeichen bei mir anwählbar sind. Das Problem habe ich jetzt dadurch gelöst, dass ich mir einen eigenen Font erstellt habe. Ich habe einfach einen Standardfont genommen, die griechischen Zeichen von hinten nach vorne kopiert und als eigenen Font installiert. Funktioniert wunderbar mit FontForge (konnte ich kostenlos downloaden).
Danke für eure Hilfe, auf die Idee wäre ich sonst nie gekommen. |
|
| |
| |
| |
|
|
|
ByteAttack | Probiere bitte das mal aus...
$H Windows.ph
CLS
var Font$=$ProgDir+"sixpack_medium.ttf"
~AddFontResource(addr(Font$))
usefont "sixpack",30,15,0,0,0
drawtext 10,10,Chr$(964)
drawtext 10,50,Chr$(931)
~RemoveFontResource(addr(Font$))
' Drucken geht nur, wenn der Font in Windows installiert wird... :-(
StartPrint
usefont "sixpack",30,15,0,0,0
drawtext 10,10,Chr$(964)
usefont "sixpack",30,15,0,0,0
drawtext 10,50,Chr$(931)
EndPrint
WaitInput
??? Warum ist deine Zeichenhöhe immer 0 ??? |
|
| |
| |
| |
|
|
Andreas
Koch | Ich bekomme ein großes Ä und ein englisches Pfundzeichen. Dabei sind die Schriftarten unterschiedlich. Siehe Bild.
Bei Zeichenhöhe 0 nimmt er den DEFAULT-Wert. Im Übrigen sollte ich mich mal für deine Mühe bedanken, hab irgendwie schlechte Manieren heute. |
|
| |
| |
| |
|
|
ByteAttack | Jetzt fällt mir leider auch nicht mehr viel ein... 
Aber ich gebe noch nicht auf
 |
|
| |
| |
| |
|
|
ByteAttack | So! Jetzt hab ich mal selbst ein Font erstellt, mit ganzen zwei Zeichen:
Großes S und kleines t...
$H Windows.ph
$H messages.ph
Usermessages ~wm_close
WindowStyle 31
WindowTitle "SigmaGabriel & PanTau"
CLS 16777215
var Font$=$ProgDir+"sigmatau.ttf"
~AddFontResource(addr(Font$))
textcolor 0,-1
usefont "Sigmatau",30,0,0,0,0
drawtext 10,10,"S"
drawtext 10,40,"t"
StartPrint
usefont "Sigmatau",30,0,0,0,0
drawtext 10,10,"S"
usefont "Sigmatau",30,0,0,0,0
drawtext 10,40,"t"
EndPrint
WhileNot (%Umessage = ~wm_close) & (&uWnd = %hWnd)
WaitInput
EndWhile
~RemoveFontResource(addr(Font$))
|
|
| |
| |
| |
|
|
ByteAttack | und sollten alle Stricke reißen:
cls
var tau&=Create("hPic",-1,$ProgDir+"TAU.EMF")
var sigma&=Create("hPic",-1,$ProgDir+"SIGMA.EMF")
Proc DrawGText
Parameters fx%,fy%,letter$,fh%
Case letter$="t":DrawSizedPic tau&,fx%,fy%-fh%,fh%;0
Case letter$="S":DrawSizedPic sigma&,fx%,fy%-fh%,fh%;0
EndProc
DrawGText 10,10,"t",100
DrawGText 10,120,"S",100
Waitinput
|
|
| |
| |
| |
|
|
Andreas
Koch | Hey Danke, werde ich morgen mal testen.
(Geht von zuhause nicht, ich habe was gegen diese VPN-Verbindungen zur Arbeit, da kann man so schlecht abschalten.)
Wie erstellt man denn seinen eigenen Font? Das könnte noch ein paar andere Probleme lösen, die ich so habe. |
|
| |
| |
| |
|
|
ByteAttack | Jau - Also 'damals" habe ich Fonts mit CorelDraw erstellt.
Du benötigst auf jeden Fall ein Grafikprogramm das mit Vektoren umgehen kann.
CorelDraw
Adobe Illustrator
Inkscape
wobei Inkscape eine kostenlose Software ist [...] 
Um die Vektoren besser zu ordnen und auch detaillierte Eingaben machen zu können empfehle ich FontForge [...] |
|
| |
| |
| |
|
|
Andreas
Koch | So, eine kleine Rückmeldung. Es ist so, dass nur die ersten 255 Zeichen bei mir anwählbar sind. Das Problem habe ich jetzt dadurch gelöst, dass ich mir einen eigenen Font erstellt habe. Ich habe einfach einen Standardfont genommen, die griechischen Zeichen von hinten nach vorne kopiert und als eigenen Font installiert. Funktioniert wunderbar mit FontForge (konnte ich kostenlos downloaden).
Danke für eure Hilfe, auf die Idee wäre ich sonst nie gekommen. |
|
| |
| |
| |
|
|
ByteAttack | Schön! Hauptsache es funktioniert  |
|
| |
| |
| |
|
|
Andreas
Koch | So, jetzt habe ich natürlich den Salat. Da mein Font natürlich nicht auf jedem Computer installiert ist, wird Kraut und Rüben angezeigt, sobald ich ein gedrucktes pdf auf einem anderen PC öffne. Weiß jemand, woran es liegen könnte, dass ich nur die ersten 255 ansprechen kann, während ByteAttack wesentlich mehr zur Verfügung hat? Es muss ja eigentlich eine Einstellung sein, die nichts mit dem Quellcode zu tun hat. Liegt es vielleicht am PC? An der XProfanversion?
Ich bedanke mich diesmal schon im Vorraus für eventuelle Bemühungen eurerseits, am Ende vergesse ich das wieder.... |
|
| |
| |
| |
|
|
Michael
W. | | Kann man den Font nicht im PDF einbetten? Dann wäre das doch kein Problem mehr. |
|
| |
| |
| |
|
|
Andreas
Koch | |
| |
| |
| |
|
(926)
Deutsch
English
Français
Español
Italia
