Größenangaben bei Fonts

Grössenangaben bei Font's

Mario P., 10.04.2008 21:06: 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 ???
Zitat: „ 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 muss ja irgendeinen Bezug zum Font haben (Skalierfaktor oder sowas).
Mario

Artur D., 10.04.2008 21:49: 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össerung die Fonts ab. Dann kannst du dir sicher sein. (ich weiss, ist etwas umständlich)
viele Grüsse,
Artur D.

Mario P., 10.04.2008 22:31: @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össe (im Bezug zu den Linien). Irgenwie werden da die Werte unterschiedlich verarbeitet.

Declare 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

Thomas F., 10.04.2008 23:40: Hallo Mario,
vielleicht hilft dir "Demo DrawRichText.prf" von Pascal [...] aus RTF-Druck weiter.

Mario P., 11.04.2008 00:30: Danke. Hab's gefunden, in 'ner .zip versteckt. Allerding kann's 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...

Thomas F., 11.04.2008 00:49: Du hast doch XProfan 9 & 10 und im Ordner "Include" ist nicht die RichEdit.ph ???

richedit.ph

Mario P., 11.04.2008 00:57: ...wie ich schon sagte: zu spät.
Klar ist die da drinn, nur mein gutes altes PrFellow hat's nicht gefunden, obwohl 9 und 10 als include-Pfade eingetragen sind. Vieleicht mag's ja auch mal 'ne Pause.
Und selbst denken um diese Zeit ??
Mario

Dies ist die Offlinevariante vom Thread [Größenangaben bei Fonts].