am 2014-02-09 11:41 PM
am 2014-02-12 10:43 AM
am 2014-02-12 10:52 AM
am 2014-02-27 10:59 AM
line2 0, 0, 0, b !!!!!Bounding-Box
line2 0, 0, a, 0
line2 a, b, 0, b
line2 a, 0, a, b
hotspot2 0,0
hotspot2 a, b
m=1/1000*GLOB_SCALE
define Style "Dummy" Textstil, a*m, 5, 0 !!! Dummystil definieren
style Dummy
TextbreiteA=STW(Stringtext) !!Textbreite mit Dummystil ermitteln
VerhaeltnisA = a/TextbreiteA !!Verhältnis von Dummy-Textbreite zu A-Länge
define Style "DummyA" Textstil, a*VerhaeltnisA, 5, 0 !!!Dummystil für A-Breite definieren
style DummyA
pen stift
REQUEST ("Height_of_style", "DummyA", Texthoch) !!Texthöhe für diesen neuen A-Stil ermitteln
Texthoch=Texthoch*m
if texthoch < b then
text2 a/2, b/2, Stringtext
else
hochverhalt=texthoch/b
define Style "DummyB" Textstil, a*VerhaeltnisA/hochverhalt, 5, 0 !!!Dummystil für A-Breite definieren
style DummyB
text2 a/2, b/2, Stringtext
endif