[futurebasic] Re: [FB] one-point fontsize change to varing sizes

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : June 1999 : Group Archive : Group : All Groups

From: Jay Reeve <jktr@...>
Date: Sat, 19 Jun 99 17:04:27 -0500
bowerbird,

You got me curious, so I wrote the FN you requested. Turns out to be much 
simpler than either of us expected, although it took me 3 hours to get it 
working.

CLEAR LOCAL FN changeSize(teH&,chngAmt)
  'This FN changes the size of text selected 
  'in teH& by chngAmt points: + = larger, - = smaller

  DIM newStyle.styleSize                  'text style record
  
  newStyle.tsSize = chngAmt
  CALL TESETSTYLE(_addSize,#@newStyle,_false,teH&)
  CALL INVALRECT(teH&..teViewRect%)
END FN

Have fun,
 0"0
 =J= a  y
  "

PS. I used Steve's demo for testing. If you'd like to see the working 
demo, I can send it privately.