| |
| |
|
E.T. | Hallo,
die Werte, welche bei usefont... oder Create(font... für die Höhe und Breite angegeben werden, was sind das eigentlich für Werte in XProfan ??
Sind es Punkte, Pixel, Prozent oder was es sonst noch gibt ???
Aus der Hilfe:
N1 : Wert - Zeichenhöhe
N2 : Wert - Zeichenbreite
N1 : Zeichenhöhe. Steht hier 0, wird ein Defaultwert für Breite und Höhe genommen.
N2 : Zeichenbreite. Steht hier 0, wird ein Defaultwert genommen
Die Aussage Wert kann ja nun alles mögliche sein. Und welche Werte werden bei Defaultwert genommen ? , das muß ja irgendeinen Bezug zum Font haben (Skalierfaktor oder sowas).
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. | Hallo Mario,
soweit ich mich noch erinnern kann war in früheren Profan² Versionen immer von Pixeln die Rede.
Evtl. stellst du einen Font ein, lässt das Programm laufen, und machst einen Screenshot des Fenster und misst dann in Paint unter starker Vergrößerung die Fonts ab. Dann kannst du dir sicher sein. (ich weiß, ist etwas umständlich)
viele Grüße,
Artur D. |
|
| |
| |
| |
|
|
E.T. | @Artur: Danke. Aber dann dann weiss ich zwar das irgendwas scaliert wurde, aber immer noch nicht wie.
Ich hab schnell mal ein Beispiel zusammengebastelt. Wenn ich die Anzeige am Bildschirm mit dem Ausdruck (Laser, PDF-Printer, Tintenspritzer) vergleiche habe ich immer deutliche Abweichungen in der Schriftgröße (im Bezug zu den Linien). Irgenwie werden da die Werte unterschiedlich verarbeitet.
KompilierenMarkierenSeparierenDeclare 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
end
Wenn die Drucker scalieren würden, dann würden ja m.E. auch die Abstände der Striche scaliert, so das der Ausdruck wieder wie auf dem Bildschirm aussehen müsste (Vergleich Schrift zu den 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 | Hallo Mario,
vielleicht hilft dir Demo DrawRichText.prf von Pascal [web]https://www.tomcatsoft.de/[/web] aus RTF-Druck weiter. |
|
| |
| |
| |
|
|
E.T. | Danke. Habs gefunden, in ner .zip versteckt. Allerding kanns nicht getestet werden wegen fehlernder RichEdit.ph. Hab dazu auch hier im Forum oder in anderen Paketen auf der genannten Seite nix gefunden.
Aber vieleicht hift mir der Code ein wenig weiter...
Mario
Edit: ...aus RTF-Druck... stand ja da, ist eben doch zu 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 | | Du hast doch XProfan 9 & 10 und im Ordner Include ist nicht die RichEdit.ph ??? |
|
| |
| |
| |
|
|
E.T. | ...wie ich schon sagte: zu spät.
Klar ist die da drinn, nur mein gutes altes PrFellow hats nicht gefunden, obwohl 9 und 10 als include-Pfade eingetragen sind. Vieleicht mags ja auch mal ne Pause.
Und selbst denken um diese 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 ▲ |
|
| |
|
(511)
Deutsch
English
Français
Español
Italia