| |
|
|
| KompilierenMarqueSéparation {$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
FF>}
|
|
|
| |
|
|
|
|
|
|
| |
|
|