| |
| |
|
| - Seite 1 - |
|
 |
KompilierenMarkierenSeparieren {$cleq}
string myText="Lolitah!"
cls
usefont Arial,40,0,0,0,0
print getTextWidth(myText);px
drawtext 10,50,myText
waitkey
end
getTextWidth (string text) {
mem mem=8
GetTextExtentPoint32(hdc,Addr(text),len(text),mem)
long result=long(mem,0)
dispose mem
return result
}
|
|
| |
| |
| |
|
(942)
Deutsch
English
Français
Español
Italia