Articles
   3D
   Audio
   Custom Controls
   General RB
   Graphics
   Hacks
   Mac OS X
   Menus
   Novelty
   Printing
   REALbasic 2005
   REALbasic 2006
   Registration
   Resources
   Reviews
   Serial
   Speech
   Sockets
   XML
   Video
Resource Links
News
   Current News
   February 2006
   January 2006
   December 2005
   November 2005
   October 2005
   September 2005
   August 2005
   July 2005
   June 2005
   May 2005
   April 2005
   March 2005









REALbasic for Dummies
by Erick Tejkowski

Learning REALbasic through Applications
by Clayton E., Crooks II

REALbasic for Macintosh
by Michael Swaine

REALbasic Cross-Platform Application Development
by Mark S. Choate

Older files are in Stuffit 5 or greater format. Newer files are ".Zip". Download StuffIt Expander
Tell us about a bad link. Thank You!

Build the Interface

This week's project is very straightforward. It will take you about 30 seconds to build, but it shows some important features of the REALbasic Listbox. So, let's get started!

Launch REALbasic and open Window1 from the Project window. To this window, add one control - a Listbox. Set ColumnCount to a value of 3 in the Properties Window.

That's the whole interface!

Source Code

The source code for this week's project is simple too. First, we need some code in the Open event of Listbox1. This code snippet adds 20 rows to the Listbox upon launch.

  
  dim i as integer
  
  for i=1 to 20
    me.addrow "Row "+str(i)
    me.cell(me.lastIndex,1)=str(rnd*10)
    me.cell(me.lastIndex,2)=str(rnd*30)
  next
  

Next, navigate to the CellPaint event of Listbox1 and add this code:

  
  //fill in even numbered rows
  //with light blue color
  //odd rows get no color (i.e. white)
  if (row mod 2)=0 then
    g.foreColor = rgb(232,235,255)
    g.fillrect 0,0,g.Width,g.height
  end if
  
  //if selected,
  //fill in row with dark blue color and white text
  //otherwise draw with black text
  if me.selected(row) then
    g.foreColor = rgb(66,82,255)
    g.fillrect 0,0,g.Width,g.height
    g.foreColor = rgb(255,255,255)
  else
    g.foreColor = rgb(0,0,0)
  end if
  
  //draw the string
  g.drawstring me.cell(me.lastIndex,1),0,0
  
  

This code does the colorizing of the rows, including the selection. The graphics object represents the background of the Listbox. You can use it to draw just like you would in a Canvas. The end result looks like this: