| |
| |
|
E.T. | Salut,
qui Werte, quelle chez usefont... ou bien Créer(font... pour qui Hauteur et Breite angegeben volonté, quoi sommes cela eigentlich pour Werte dans XProfan ??
sommes es Punkte, Pixel, Prozent ou bien quoi es sonst encore gibt ???
Aus qui Aider:
N1 : Wert - Zeichenhöhe
N2 : Wert - Zeichenbreite
N1 : Zeichenhöhe. Steht ici 0, wird un Defaultwert pour Breite et Hauteur pris.
N2 : Zeichenbreite. Steht ici 0, wird un Defaultwert pris
qui Aussage Wert peux oui eh bien alles mögliche son. et quelle Werte volonté chez Defaultwert pris ? , cela doit oui irgendeinen Bezug zum Font avons (Skalierfaktor ou bien quelque chose comme).
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. | allô Mario,
soweit je mich encore erinnern peux était dans précédent Profan² Versionen toujours de Pixeln qui discours.
Evtl. stellst du une Font un, peut cela Programme courir, et fais une Screenshot des la fenêtre et misst ensuite dans Paint sous starker Vergrößerung qui Fonts ab. ensuite peux du dir sûrement son. (je sais, ist quelque chose compliqué)
viele Grüße,
Artur D. |
|
| |
| |
| |
|
|
E.T. | @Artur: merci. mais ensuite ensuite weiss je zwar cela irgendwas scaliert wurde, mais toujours pas comment.
je hab vite la fois un Beispiel zusammengebastelt. si je qui Anzeige am Bildschirm avec dem Ausdruck (laser, PDF-Printer, Tintenspritzer) vergleiche habe je toujours deutliche Abweichungen dans qui Schriftgröße (im Bezug le Linien). Irgenwie volonté là qui Werte unterschiedlich verarbeitet.
KompilierenMarqueSéparationDeclare 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
si qui Drucker scalieren würden, ensuite würden oui m.E. aussi qui Abstände qui Striche scaliert, so cela qui Ausdruck wieder comment sur dem Bildschirm air devrait (comparaison Schrift le 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 | allô Mario,
peut-être hilft dir Demo DrawRichText.prf de Pascal [web]https://www.tomcatsoft.de/[/web] aus RTF-Druck plus. |
|
| |
| |
| |
|
|
E.T. | merci. Tricolore trouvé, dans ner .zip versteckt. Allerding kanns pas getestet volonté à cause de fehlernder RichEdit.ph. Hab en supplément aussi ici im Forum ou bien dans anderen Paketen sur qui genannten page nix trouvé.
mais vieleicht hift mir qui Code un peu plus...
Mario
Éditer: ...aus RTF-Druck... stand oui là, ist plan doch trop 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 | | tu as doch XProfan 9 & 10 et im Dossier Include ist pas qui RichEdit.ph ??? |
|
| |
| |
| |
|
|
E.T. | ...comment je déjà sagte: trop spät.
bien sûr ist qui là drinn, seulement mon gutes altes PrFellow hats pas trouvé, quoique 9 et 10 comme include-Pfade eingetragen sommes. Vieleicht mags oui aussi la fois ne récréation.
et selbst penser um cet Zeit  ??
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 ▲ |
|
| |
|
(1.111)
Deutsch
English
Français
Español
Italia