XProfan

English

Rechtsbündig DrawText by setTextAlign [...]

ta_right - vorgemacht of Andreas Miethe

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

Compile Mark Separation

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

Compile Mark Separation

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 }

ex XProfan 12 can too write:
Compile Mark Separation

 $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

or. with XPSE:
Compile Mark Separation

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