| |
| |
|
| - page 1 - |
|
Andreas
Koch | allô zusammen,
j'ai une Frage trop diesem Quellcode:
cls
Font 1
Imprimer 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
pourquoi wird sur dem Bildschirm Tau et Sigma ausgegeben et beim Drucken irgendwelche seltsamen marque?
Schönen Salut
Andreas Koch |
|
| |
| |
| |
|
| |
| |
| - page 2 - |
|
 |
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
| - page 2 - |
|
Andreas
Koch | So, une kleine Rückmeldung. c'est so, dass seulement qui ersten 255 marque chez mir anwählbar sommes. cela Problem habe je maintenant dadurch gelöst, dass je mir une eigenen Font erstellt habe. j'ai simple une Standardfont pris, qui griechischen marque de hinten pour vorne kopiert et comme eigenen Font installiert. Funktioniert wunderbar avec FontForge (konnte je kostenlos downloaden).
merci pour eure Aider, sur qui concept wäre je sonst nie gekommen. |
|
| |
| |
| |
|
|
|
ByteAttack | Probiere s'il te plaît cela la fois 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 allez seulement, si qui Font dans 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
??? pourquoi ist deine Zeichenhöhe toujours 0 ??? |
|
| |
| |
| |
|
|
Andreas
Koch | je bekomme un großes Ä et un englisches Pfundzeichen. Dabei sommes qui Schriftarten unterschiedlich. Siehe Bild.
chez Zeichenhöhe 0 nimmt il den DEFAULT-Wert. Im Übrigen sollte je mich la fois pour deine Mühe bedanken, hab irgendwie schlechte manières aujourd'hui. |
|
| |
| |
| |
|
|
ByteAttack | maintenant fällt mir malheureusement aussi pas plus viel un... 
mais je gebe encore pas sur
 |
|
| |
| |
| |
|
|
ByteAttack | So! maintenant hab je la fois selbst un Font erstellt, avec ganzen deux marque:
Großes S et kleines t...
$H Windows.ph
$H messages.ph
Usermessages ~wm_close
Fenêtre Style 31
Titre de la fenêtre "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 | et devrait alle Stricke reißen:
cls
var tau&=Créer(«PCSI»,-1,$PROGDIR+"TAU.EMF")
var sigma&=Créer(«PCSI»,-1,$PROGDIR+"SIGMA.EMF")
Proc DrawGText
Paramètres fx%,fy%,letter$,fh%
Cas letter$="t":DrawSizedPic tau&,fx%,fy%-fh%,fh%;0
Cas letter$="S":DrawSizedPic sigma&,fx%,fy%-fh%,fh%;0
ENDPROC
DrawGText 10,10,"t",100
DrawGText 10,120,"S",100
Waitinput
|
|
| |
| |
| |
|
|
Andreas
Koch | Hey merci, werde je demain la fois testen.
(allez de zuhause pas, j'ai quoi vers cet VPN-Verbindungen zur travail, là peux on so mal débrancher.)
comment erstellt on car seinen eigenen Font? cela pourrait encore un paire autre Probleme lösen, qui je so habe. |
|
| |
| |
| |
|
|
ByteAttack | Jau - alors 'damals" habe je Fonts avec CorelDraw erstellt.
Du besoin sur jeden le cas un Grafikprogramm cela avec Vektoren tourner autour de peux.
CorelDraw
Adobe Illustrator
Inkscape
wobei Inkscape une kostenlose Software ist [...] 
Um qui Vektoren besser trop arranger et detaillierte Eingaben faire trop peut empfehle je FontForge [...] |
|
| |
| |
| |
|
|
Andreas
Koch | So, une kleine Rückmeldung. c'est so, dass seulement qui ersten 255 marque chez mir anwählbar sommes. cela Problem habe je maintenant dadurch gelöst, dass je mir une eigenen Font erstellt habe. j'ai simple une Standardfont pris, qui griechischen marque de hinten pour vorne kopiert et comme eigenen Font installiert. Funktioniert wunderbar avec FontForge (konnte je kostenlos downloaden).
merci pour eure Aider, sur qui concept wäre je sonst nie gekommen. |
|
| |
| |
| |
|
|
ByteAttack | joli! le principal es funktioniert  |
|
| |
| |
| |
|
|
Andreas
Koch | So, maintenant habe je naturellement den salade. là mon Font naturellement pas sur chaque ordinateur installiert ist, wird herbe et Rüben angezeigt, sobald je un gedrucktes pdf sur einem anderen PC ouvre. sais quelqu'un, woran es liegen pourrait, dass je seulement qui ersten 255 ansprechen peux, au cours de ByteAttack wesentlich plus zur Disposition hat? Es muss oui eigentlich une Einstellung son, qui rien avec dem Quellcode trop 1faire hat. Liegt es peut-être am PC? à qui XProfanversion?
je bedanke mich diesmal déjà im Vorraus pour eventuelle Bemühungen eurerseits, am Ende vergesse je cela wieder.... |
|
| |
| |
| |
|
|
Michael
W. | | peux on den Font pas im PDF einbetten? ensuite wäre cela doch ne...aucune Problem plus. |
|
| |
| |
| |
|
|
Andreas
Koch | | comment funktioniert cela? |
|
| |
| |
| |
|
(267)
Deutsch
English
Français
Español
Italia
