[futurebasic] STR# Count

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : September 2000 : Group Archive : Group : All Groups

From: Jim Henson <vegasswede@...>
Date: Tue, 26 Sep 2000 14:56:03 -0700
Afternoon All,

I want to use the number of lines in STR# resource 200 as count factor 
gMyCount to use in the below FOR/TO/NEXT Loop 

I haven't a clue to how to get it .. All my attempts to even get a count 
have failed ..

Some advice would be much appreciated


CLEAR LOCAL
LOCAL FN BIndexArray
  DIM rect.8,rectPtr&,id%,col1%,col2%
  DIM IndexRectPtr&
  rectPtr& = @rect
  id% = 1  
  CALL SETRECT ( rect,15,105,35,125)
  FOR col% = 1 TO gMyCount
    IndexRectPtr& = @gIndexRect (id%)
    BLOCKMOVE rectPtr&, IndexRectPtr&, 8
    ' --
    CALL RGBFORECOLOR (gMyColor(0))
    CALL PAINToval( rect )
    ' --
    CALL RGBFORECOLOR (gMyColor(4))
    CALL PENSIZE( 6, 6 )
    CALL FRAMEOVAL( rect )
    ' --
    CALL RGBFORECOLOR (gMyColor(1))
    CALL PENSIZE( 3, 3 )
    CALL FRAMEOVAL( rect )
   ' --
    CALL OFFSETRECT ( rect, 0, 25)
    INC( id% )
  NEXT col%
END FN


Jim Henson,The Vegas Swede, (^_^) s aplenty

Las Vegas is the Number One Fun Capital Of The World
An Oasis Dedicated To Around The Clock Entertainment
Come Often, Enjoy Its Many Pleasures, Stay A Spell
And Bring Lots Of Money, Help Keep Nevada Green