LiveCode Forums.

Code: Select all

on mouseUp
   set the justify of fld "ff" to true
end mouseUp

Code: Select all

on mouseUp
   manualJustifyTextField "ff"
end mouseUp

on manualJustifyTextField pFieldName
   local tText, tLines, tJustifiedText, tFieldRef
   
   -- Build proper field reference
   if "field" is not in pFieldName then
      put "field" && quote & pFieldName & quote into tFieldRef
   else
      put pFieldName into tFieldRef
   end if
   
   -- Get the text
   do "put the text of" && tFieldRef && "into tText"
   
   -- Split into lines using proper LiveCode syntax
   put tText into tLines
   replace return with numToChar(3) in tLines
   split tLines by numToChar(3)
   
   repeat with i = 1 to the number of elements in tLines
      if tLines[i] is not empty and the number of words in tLines[i] > 1 then
         -- Replace single spaces with double spaces for basic justification
         replace space with "  " in tLines[i]
      end if
   end repeat
   
   -- Reconstruct the text
   put empty into tJustifiedText
   repeat with i = 1 to the number of elements in tLines
      if i > 1 then put return after tJustifiedText
      put tLines[i] after tJustifiedText
   end repeat
   
   -- Put it back
   do "put tJustifiedText into" && tFieldRef
end manualJustifyTextField