code:

---

	
- ProgressBar control supports the following new properties:
 
  STYLE = n 
 	
  0 = Blocked (Chunky) style bar
  1 = Solid (Smooth) style bar
 
  ORIENTATION = n
 
  0 = Horizontal progress bar
  1 = Vertical progress bar
 
  * Note - a ProgressBar (or Slider or Spinner) has a feature called
  auto-orientation. For example, if the width of a horiontal
  progressbar is greater than its height, the progressbar will be
  automatically "flipped" into the vertical position when the 
  orientation property is changed. This behavior was by design. To
  avoid this behavior. Set the orientation BEFORE setting the width
  or height, or reset it afterwards.
 
- Added COMBOBOX STYLE property. ComboBoxes can now be set to one of
  the following three styles:
 
  STYLE = n
 
  0 = DropDown
 
  The text portion is editable. The user must click the arrow button
  to display the list portion.
 
  1 = DropDownList
 
  The user cannot directly edit the text portion. The user must click
  the arrow button to display the list portion.
 
  2 = Simple
 
  The text portion is editable. The list portion is always visible.
 
- Added COLORNAME support for BackColor and ForeColor properties. For
  example, to set the background color of a Form to blue, one can 
  now say this:
 
  BACKCOLOR = "SkyBlue"
  FORECOLOR = "IndianRed"
 
  Most standard color names are supported. There are tons of colorname
  charts on the web for example: 
 
	http://www.keller.com/rgb.html
 
- Added LISTVIEW control. See white paper on usage.
 
- Enabled rapid clicking of CommandButtons. Buttons no longer 
  support the OnDoubleClick event. 
 
- Fixed setting MousePointer back to 0 & 1 (Default/Arrow).
 
- Fixed OnKeyDown property to work with all all versions
  of KiXtart.
  
- Added ClientSize property (write-only). Sets the inner width
  and height of an object. Usefull for correctly scaling the
  inside dimensions of forms and frames, example:
 
	$Form.ClientSize = 640,480
 
- Added Bounds property (write-only) to all objects. An array 
  that sets the bounding location and dimension (Left, Top, 
  Width, and Height) of an object , example:
 
  $Form.Bounds = 10,10,200,300

---

code:

---

$main=createobject("kixtart.form")
$main.size=$main.screen.width,$main.screen.height
$main.caption="Investor 1.0 Lite"
$main.top=0
$main.left=0
$list=$main.listview(,0,50,$main.clientwidth,$main.clientheight)
$list.columns.add("Machine",50).
for each $program in scan("\\jooel")
 $list.columns.add($program,50).
next
$main.visible=1
while $main.visible $=execute($main.doevents) loop

function scan($wksta)
 dim $,$c,$value
 $wksta=$wksta+"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
 $=enumkey($wksta,0)
 $c=0
 $scan=$wksta
 while @error=0
  $c=$c+1
  $value=readvalue($wksta+"\"+$,"DisplayName")
  if $value $scan=$scan+chr(10)+$value endif
  $=enumkey($wksta,$c)
 loop
$scan=split($scan,chr(10))
endfunction

---

code:

---

$list=$main.listview(,0,50,$main.clientwidth-10,$main.clientheight-60)

---

code:

---

for each $column in $list.columns
 ? "text=" $column.text
next

---