XProfan

Español

Rechtsbündig DrawText por setTextAlign [...]

ta_right - vorgemacht de Andreas Miethe

cls
setTextAlign(hDC,ta_right)
drawText 120,10,"1020.80"
drawText 120,30,"120.80"
line 120,10,120,46
waitInput
e

Kompilieren Marca Separación

cls
setTextAlign(hDC,ta_center)
drawText 120,10,"1020.80"
drawText 120,30,"120.80"
line 120,10,120,46
waitInput
end

Kompilieren Marca Separación

TA_BASELINE = { $18 | 24 }
TA_BOTTOM = { $8 | 8 }
TA_CENTER = { $6 | 6 }
TA_LEFT = { $0 | 0 }
TA_MASK = (TA_BASELINE + TA_CENTER + TA_UPDATECP + TA_RTLREADING)
TA_NOUPDATECP = { $0 | 0 }
TA_RIGHT = { $2 | 2 }
TA_RTLREADING = { $100 | 256 }
TA_TOP = { $0 | 0 }
TA_UPDATECP = { $1 | 1 }

Ab XProfan 12 puede ser auch escribir:
Kompilieren Marca Separación

 $H windows.ph
cls
DrawText 120,10,"1020.80",~TA_RIGHT
DrawText 120,30,"120.80"
DrawText 120,50,"12.80"
DrawText 120,70,"120.80"
DrawText 120,90,"1.80"
DrawText 120,110,"0.80"
waitinput
end

Bzw. con XPSE:
Kompilieren Marca Separación

cls
DrawText 120,10,"1020.80",ta_right
DrawText 120,30,"120.80"
DrawText 120,50,"12.80"
DrawText 120,70,"120.80"
DrawText 120,90,"1.80"
DrawText 120,110,"0.80"
waitinput
end