code:

---

2.0.5 Build 33
 
	- Improved task switching behavior. Form now restores
	  keyboard focus back to previous control when task 
	  switching between forms and other windows applications.
	  Next step - enable same feature when switching
	  within forms itself.
 
	- Fixed some behaviors of the HyperLink object.
 
	  - Can now retrieve the Value (URL) property. 
 
	  - Corrected constructor to properly display Caption. 
 
	  - ToolTips are now DISABLED by default. The following
	    example sets the ToolTip to be the same as the VALUE
	    (URL) property text:
 
	    $HyperLink.ToolTip = $HyperLink.Value
 
	- Added FontTransparent property to Form object. By default,
	  FontTransparent is set to TRUE. To print text on a form
	  and have graphics underneath totally erased, set 
	  FontTransparent to FALSE. 
 
	  * Note when using proportional font "spaces" to overwrite text
	  on a form. The space character in a proportional-font can
	  is very narrow (thin), and may require many more of them to
	  fully overwrite the entire text area.
 
	- Added the OnActivate and OnDeactivate events to FORM 
	  object. Occurs when a form is activated or deactivated
	  by the user (task switching), or through code (popups).
	  The very first (initial) OnActivate event for the main
	  form object cannot be captured in the current release.
 		    
	- Added enhanced auto-refresh for Left,Top,Width,Height
	  properties.
 
	- Added OnKeyDown event. Occurs when a user presses 
	  a key while the object has the focus.
 
	- Added KeyCode property. Gets the key code associated
	  with the key that caused the OnKeyDown Event. 
 
	- Fixed Sorted and List property memory leak.
 
	- Fixed automatic vertical and horizontal scroll bars
	  for ListBox and ComboBox object.
 

---

code:

---

$combo=$form.combobox(,10,20,200,30)
$combo.additem("me")
$combo.additem("you")
$combo.additem("he")
$combo.additem("we",0)

---

code:

---

$mylink = $form.HyperLink("user@domain.com")
$mylink.Value = "mailto:user@domain.com"
$contact = $form.Label("email: $mylink",10,10,100,15)

---

code:

---

some text here <a href="http://">my link</a> ... more text

---

code:

---

Function CommandButton1_Click()
 
 $ListBox1.AddItem(RND(9))
 
 $ListBox1.ListIndex = $ListBox1.ListCount - 1
 
EndFunction

---

code:

---

Function StripCopies($striArray) 
$on = 1 
Dim $searArr,$a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n,$o,$p,
$q,$r,$s,$t,$u,$v,$w,$x,$y,$z,$0,$1,$2,$3,$4,$5,$6,$7,$8,$9
For Each $add in $StriArray
	$dyn = SubStr($add,1,1) 
	$nul = Execute('if ubound($$$dyn) = -1  
		ReDim $$$dyn[0] $$$dyn[Ubound($$$dyn)] = $$add 
	EndIf
	$$counter = 0
	While Ubound($$$dyn)+1 <> $$counter
		If $$add = $$$dyn[$$counter]
			$$on = 1
		EndIf
		$$counter = $$counter+1
	Loop
		$$counter = 0
		If $$on = 0 
			ReDim preserve $$$dyn[Ubound($$$dyn)+1] 
			$$$dyn[Ubound($$$dyn)] = $$add 
		EndIf') 
		$on = 0
Next
$ProgComp.Value = 0 
$ProgSoft.Value = 0
$count = 48
While $count <> 91  $dyna = Chr($count)
	$nul = Execute('for each $$addto in $$$dyna
		ReDim preserve $$seararr[Ubound($$seararr)+1]
		$$seararr[Ubound($$seararr)] = $$addto
	Next')
	$count = $count + 1
	If $count = 58
		$count = $count + 7
	EndIf
Loop
$StripCopies = $SearArr 
EndFunction

---