[futurebasic] RE: [FB] STR# Count

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

From: "Edwards, Waverly" <wedwards@...>
Date: Tue, 26 Sep 2000 18:01:49 -0400
get the resource handle using GET1RESOURCE, GETRESOURCE or use the built in
function STR then do a
myCount% = {gMySTRHandle}(peek word) since the count will never be more than
32767.


W.

-----Original Message-----
From: Jim Henson [mailto:vegasswede@...]
Sent: Tuesday, September 26, 2000 5:56 PM
To: FB List
Subject: [FB] STR# Count


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


--
To unsubscribe, send ANY message to <futurebasic-unsubscribe@...>