🚀 go-pugleaf

Hello All!

Just Discovered something.  I have a custom component which gives me a
Unstable message only at design time (form).  Here's the code:

class SECTIONCOMBOBOX(parentObj, name) ;
   of COMBOBOX(parentObj, name) custom

   with (this)
      height = 22
      left = 287
      top = 22
      width = 210
      metric = 6	// Pixels
      speedTip = "Select a section"
      sorted = true
      style = 1	// DropDown
      dropDownHeight = 132
      value = ""
   endwith

   this.Query = New Query()
   with this.Query
      sql := "select distinct category from 'creg0009.dbf'"
      active := true
   endwith
   this.dataSource = this.Query.rowset.fields["CATEGORY"]
endclass

If I wrap the query part in an OnOpen function everythings ok. Problem
with OnOpen is that you can see the combobox flicker a bit as it
intializes.  It may be because I'm using the creg0009.dbf file at the
same time that the designer wants it.
-- 
Visit the Visual dBase Object Solutions Page!
http://www.total.net/~sproket