define function !!aligniso (!inputtext is string, !x is real, !y is real, !charheig is real, !alignparam is string) !align = !alignparam.upcase() !z = !charheig * 0.7 !l = !inputtext.length() if !align eq |R| then !x1 = !x -!l * !z elseif !align eq |C| then !x1 = !x - ( !l / 2 ) * !z else !x1 = !x endif !output = |TextPosition '$!inputtext' X $!x1 Y $!y charheight $!charheig| $!output endfunction
In Option file use !!aligniso ('Project Title', 457,63,2, 'r'), instead of TEXTPOSITION 'Project Title' AT X457 Y63 CHAR H 2
'r' - for right just
'c' - for center just
and '' - for left just