| |
|
|
E.T. | ¡Hola, el Werte, welche en usefont... oder Crear(font... para el Höhe y Breite angegeben voluntad, qué son el eigentlich para Werte en XProfan ?? Sind lo Punkte, Pixel, Prozent oder qué lo sonst todavía son ???
Aus el Ayuda: N1 : Valor - Zeichenhöhe N2 : Valor - Zeichenbreite N1 : Zeichenhöhe. Steht hier 0, se una Defaultwert para Breite y Höhe genommen. N2 : Zeichenbreite. Steht hier 0, se una Defaultwert genommen
El Aussage Valor de hecho puede nun alles mögliche ser. Und welche Werte voluntad en Defaultwert genommen ? , el muß sí irgendeinen Bezug para Font haben (Skalierfaktor oder algo como).
Mario |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 10.04.2008 ▲ |
|
|
|
|
Artur D. | ¡Hola Mario,
soweit Yo mich todavía erinnern kann war en früheren Profano² Versionen siempre de Pixeln el Rede.
Evtl. stellst du una Font una, lässt el Programa laufen, y machst una Screenshot des Ventana y misst entonces en Paint bajo starker Vergrößerung el Fonts de. Dann kannst du dir sicher ser. (Yo weiß, es algo umständlich)
viele Grüße, Artur D. |
|
|
| |
|
|
|
E.T. | @Artur: Gracias. Aber entonces entonces blanco Yo zwar el algo scaliert wurde, aber siempre todavía no como.
Yo rápidamente veces una Ejemplo zusammengebastelt. Wenn Yo el Anzeige al Bildschirm con el Ausdruck (Laser, PDF-Printer, Tintenspritzer) Comparar Yo siempre deutliche Abweichungen en el Schriftgröße (en el Bezug a Linien). Irgenwie voluntad como el Werte unterschiedlich verarbeitet. KompilierenMarcaSeparaciónDeclare X%
Window 0,0-600,300
Orientation 900
BILDSCHIRMTEIL
UseFont Times New Roman,10,5,0,0,0
UsePen 0,1,RGB(255,255,0)
X% = 5
WhileLoop 100
CaseNot @Right$(@str$(X%),1) = 5 : DrawText X%-5,38,@str$(X%)
Line X%,40-X%,170
X% = X% + 5
EndWhile
Orientation 0
UseFont Arial,20,10,0,0,0
DrawText 20,50,Das ist ein Test-Text (Arial) !!
UseFont Lucida Console,20,10,0,0,0
DrawText 20,80,Das ist ein Test-Text (Lucida Console) !!
UseFont Courier,0,0,0,0,0
DrawText 20,110,Das ist ein Test-Text (Courier) !!
UseFont Times New Roman,13,6,0,0,0
DrawText 20,140,Das ist ein Test-Text (Times New Roman) !!
ENDE BILDSCHIRMAUSGABE
UND NUN DAS GLEICHE ZUM DRUCKER
ACHTUNG !! HIER WIRD SOFORT GEDRUCKT !!!
Startprint
Orientation 900
UseFont Times New Roman,10,5,0,0,0
UsePen 0,1,RGB(255,255,0)
X% = 5
WhileLoop 100
CaseNot @Right$(@str$(X%),1) = 5 : DrawText X%-5,38,@str$(X%)
Line X%,40-X%,170
X% = X% + 5
EndWhile
Orientation 0
UseFont Arial,20,10,0,0,0
DrawText 20,50,Das ist ein Test-Text (Arial) !!
UseFont Lucida Console,20,10,0,0,0
DrawText 20,80,Das ist ein Test-Text (Lucida Console) !!
UseFont Courier,0,0,0,0,0
DrawText 20,110,Das ist ein Test-Text (Courier) !!
UseFont Times New Roman,13,6,0,0,0
DrawText 20,140,Das ist ein Test-Text (Times New Roman) !!
endprint
ENDE DRUCKEN
waitinput
/../../funktionsreferenzen/XProfan/end/'>end
Wenn el Drucker scalieren würden, entonces würden sí m.E. auch el Abstände el Striche scaliert, así el el Ausdruck otra vez como en el Bildschirm aussehen debería (Vergleich Schrift a Linien).
Mario |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 10.04.2008 ▲ |
|
|
|
|
Thomas Freier | ¡Hola Mario, tal vez hilft dir Demo DrawRichText.prf de Pascal [web]https://www.tomcatsoft.de/[/web] de RTF-Druck más. |
|
|
| |
|
|
|
E.T. | Gracias. Habs gefunden, en ner .zip versteckt. Allerding kanns no getestet voluntad wegen fehlernder RichEdit.ph. Hab dazu auch hier en el Foro oder en otro Paketen en el genannten Página nix gefunden. Aber vieleicht hift me el Code una wenig más...
Mario
Editar: ...de RTF-Druck... stand sí como, es eben doch a spät... |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 11.04.2008 ▲ |
|
|
|
|
Thomas Freier | Usted hast doch XProfan 9 & 10 y en el Ordner Incluir es no el RichEdit.ph ??? |
|
|
| |
|
|
|
E.T. | ...Yo ya sagte: a spät. Klar Es el como drinn, sólo mein gutes altes PrFellow hats No se ha encontrado, obwohl 9 y 10 como include-Pfade eingetragen son. Vieleicht mags en efecto veces ne Pause.
Und incluso denken en esta Tiempo ??
Mario |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 11.04.2008 ▲ |
|
|
|