TEXT_HEIGHT (A $, N) / TEXT_WIDTH (A $, N)

' TEXT_HEIGHT (A $ N): gibt die Höhe in Pixel würde A $, wenn es auf der Objekt-Nummer N
' gedruckt wurden, da die Schriftart und-größe für N verwendet
'
rem create an ALPHA with default position and dimensions
'
alpha 1
alpha 2
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett
'
dim Schriftart
'
DIm A$
Dim B$
'
A$ = "AAAAAAAAAA"
B$ = "AAAAAAAAAA"
'
SCHRIFTART =  1
'
font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,15
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
'
'
'
rem display an explaining text (its number is used as reference)
'
Print
caption 1,A$
'
Print
Print
Print "Höhe in Pixel":Print TEXT_HEIGHT (A$,1)
'
' TEXT_WIDTH (A $ N): gibt die Breite in Pixel würde A $, wenn es auf der Objekt-Nummer N
' gedruckt wurden, da die Schriftart und-größe für N verwendet
Print
Print
Print "Breite in Pixel":Print TEXT_WIDTH (A$,1)


SCHRIFTART =  2

font_name          SCHRIFTART,"Arial"
font_size          SCHRIFTART,20
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0


'
rem display an explaining text (its number is used as reference)

Print
caption 2,B$
'
Print
Print
Print "Höhe in Pixel":Print TEXT_HEIGHT (B$,2)
'
' TEXT_WIDTH (A $ N): gibt die Breite in Pixel würde A $, wenn es auf der Objekt-Nummer N
' gedruckt wurden, da die Schriftart und-größe für N verwendet
Print
Print
Print "Breite in Pixel":Print TEXT_WIDTH (B$,2)

DIM lp, hp, tx$, lt, ht, fnt$, sz%
lp = 500: hp = 300: ' dimensions du Picture
PICTURE 1: TOP 1, 80: LEFT 1, 40: WIDTH 1, lp: HEIGHT 1, hp
COLOR 1, 128,255,255: ' couleur de fond du Picture
tx$ = "Texte centré"
fnt$ = "Times New Roman": sz% = 30: ' Fonte et taille
PRINT_TARGET_IS 1: FONT_NAME 1,fnt$: FONT_SIZE 1, sz%: FONT_BOLD 1
lt = TEXT_WIDTH(tx$,1): ht = TEXT_HEIGHT(tx$, 1): ' dimensions qu'aurait le texte s'il était affiché
2D_TARGET_IS 1: 2D_FILL_COLOR 192,255,255 : ' couleur de fond du texte
PRINT_LOCATE (lp-lt)/2,(hp-ht)/2: PRINT tx$: ' texte centré H/V sur le Picture
END

DIM tx$, lt, ht, fnt$, sz%, x%, y%, ltx(100), c$, i%
PICTURE 1: TOP 1, 80: LEFT 1, 40: WIDTH 1, 500: HEIGHT 1, 300
COLOR 1, 128,255,255: ' couleur de fond du Picture
tx$ = "Bon Anniversaire, Jojo !"
fnt$ = "Arial": sz% = 30: ' Fonte et taille
PRINT_TARGET_IS 1: FONT_NAME 1,fnt$: FONT_SIZE 1, sz%: FONT_BOLD 1
x% = 2: y% = 200
2D_TARGET_IS 1: 2D_FILL_COLOR 192,255,255 : ' couleur de fond du texte
FOR i% = 1 TO LEN(tx$)
    FONT_COLOR 1,RND(255),RND(255),RND(255)
    c$ = MID$(tx$, i%, 1): PRINT_LOCATE x%, y%: PRINT c$
    x% = x% + TEXT_WIDTH(c$,1) + 2: y% = y% - 6
NEXT i%
END

' TEXT_HEIGHT (A$ N): gibt die Höhe in Pixel
' TEXT_WIDTH  (A$,N), gigt die Breite in Pixel
'
Label SCHRIFTARTEN
'
alpha 001
alpha 002
alpha 003
alpha 004
'
DIM ZB2%
DIM ZZ2%

DIM TEXT2$:TEXT2$="Höhe in Pixel"
DIM RAHMENAUFFORMOBEN$
'
Dim Schriftart
DIM Schriftgroesse%:Schriftgroesse% =8
Dim SCHRIFT_HOEHE%
Dim SCHRIFT_BREIT%
DIm A1$:A1$=CHR$(186)
DIm A2$
DIm A3$
' FORM            000 DEFINIEREN
color              000,0,255,0
width              000,INT(SCREEN_X-0)
height            000,INT(SCREEN_Y-0)
'
' *** SCHRIFTZEICHEN ***********************************************************
show        001
top          001,040      :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left        001,040      :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 001
Gosub Schriftarten
' caption      001,A1$
'
' *** SCHRIFTHÖHE IN PIXEL *****************************************************
show        002
top          002,060      :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left        002,040      :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 002
Gosub Schriftarten
caption      002,TEXT_HEIGHT (A1$,1)
'
' *** SCHRIFTBREITE IN PIXEL ***************************************************
show        003
top          003,080      :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left        003,040      :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 003
Gosub Schriftarten
caption      003,TEXT_WIDTH (A1$,1)
'
ZB2% = TEXT_WIDTH (A1$,1)
Print_Locate 40,120:Print ZB2%
'
ZZ2%=Screen_X/ZB2%
Print_Locate 40,140:Print ZZ2%

' ZZ2% = ZZ2% - 3

ZB2% = TEXT_WIDTH(A1$,1)
ZZ2%=Screen_X/ZB2%

' *** Screen 2560 x 1600 *******************************************************
' ZZ2% = ZZ2% -3  :' zu lang
' ZZ2% = ZZ2% -4  :' zu kurz

' *** Screen 1280 x 1024 *******************************************************
' ZZ2% = ZZ2% -4  :' zu KURZ
' ZZ2% = ZZ2% -3  :' OK

' *** Screen 1680 x 1050 *******************************************************
' ZZ2% = ZZ2% -3  :' zu lang
' ZZ2% = ZZ2% -4  :' zu Kurz
'
'
ZZ2% = ZZ2% -4



RAHMENAUFFORMOBEN$  = CHR$(201) + STRING$(ZZ2%,CHR$(205)) + CHR$(187)
'
show        004
top          004,300      :' INT(SCREEN_Y-SCREEN_Y + INT(SCREEN_Y/37)*19)
left        004,000      :' INT(SCREEN_X-SCREEN_X)+80
SCHRIFTART = 004
Gosub Schriftarten
caption      004,RAHMENAUFFORMOBEN$
'
end
'
' *** Schriftart TERMINAL  *****************************************************
SCHRIFTARTEN:
'
font_name          SCHRIFTART,"Terminal"
font_size          SCHRIFTART,Schriftgroesse%
font_bold          SCHRIFTART
font_underline_off SCHRIFTART
' font_underline    SCHRIFTART
font_strike_off    SCHRIFTART
font_italic_off    SCHRIFTART
font_color        SCHRIFTART,0,0,0
'
RETURN