/* 
  * MiniGUI ComboBox Demo 
  * (c) 2002 Roberto Lopez 
 */ 
  
 #include "minigui.ch" 
  
 Function Main 
  
 	DEFINE WINDOW Form_1 ; 
 		AT 0,0 ; 
 		WIDTH 400 ; 
 		HEIGHT 200 ; 
 		TITLE 'ComboBox Demo' ; 
 		MAIN  
  
 		@ 10,10 COMBOBOX Control_1 ; 
 			WIDTH 100 ; 
 			ITEMS { '1 | Uno' , '2 | Dos' , '3 | tres' } ; 
 			VALUE 1 ; 
 			FONT 'Courier' SIZE 12  
  
 		DEFINE BUTTON Control_2 
 			ROW	10 
 			COL	150 
 			WIDTH	140 
 			CAPTION	'Get Combo Height' 
 			VALUE	1 
 			ACTION MsgInfo ( GetComboHeight('Control_1','Form_1') ) 
 		END BUTTON 
  
 	END WINDOW 
  
 	CENTER WINDOW Form_1 
  
 	ACTIVATE WINDOW Form_1 
  
 Return Nil 
  
 Function GetComboHeight(Control,Parent) 
 	Local hControl := GetControlHandle(Control,Parent) 
  
 Return GetWindowHeight(hControl)