Any has solved the ComboBox Height issue in Windows > XP ?

[Claudio Ricardo]

Hi All... ComboBox in W7 or higher not work Height property and no show scroll bar.

Hola a Todos... ComboBox desde W7 en adelante no funciona la propiedad Height y no muestra
la barra de scroll además si la lista es larga se sale de la ventana que contiene el control.
En modo compatibilidad con XP funciona perfecto.
Sé que este no es un problema de ahora... Alguien encontró como corregirlo ?
Uso HMG 3.4.4 32 bits Unicode... Desde ya muy agradecido !

[Georg_BA]

Hello everyone
I don't know if the problem is fixed in a higher version of HMG, I personally still use version 3.4.4.
The problem is best seen in the example SAMPLES\Controls\ComboBox\COMBO_8\,
the HEIGHT parameter only works if the IMAGE parameter is also used

Code: Select all

Function Main() 		
Local aImages := { '00.bmp' ,'01.bmp' , '02.bmp' , '03.bmp' , '04.bmp' , '05.bmp' , '06.bmp' , '07.bmp' , '08.bmp' , '09.bmp' }

	DEFINE WINDOW Form_1			;
		AT 0,0				;
		WIDTH 500			;  
		HEIGHT 120			;
		TITLE "Exemplos ComboBox New"	;		
		MAIN				;      
		NOMAXIMIZE			;
		NOSIZE				;
		ON INIT OpenTables()		;
		ON RELEASE CloseTables()

		DEFINE MAIN MENU
			DEFINE POPUP '&Test'
				MENUITEM 'Get Combo_1 Value' ACTION MsgInfo( Str ( Form_1.Combo_1.Value ) )
				MENUITEM 'Set Combo_1 Value' ACTION Form_1.Combo_1.Value := 2
				MENUITEM 'Refresh Combo_1' ACTION Form_1.Combo_1.Refresh
			END POPUP
		END MENU


		@ 10, 10 COMBOBOX Combo_1				;
			ITEMSOURCE  CIDADES->DESCRICAO	; 
			VALUE 5						;
			WIDTH 200					;
			HEIGHT 100					;
			DROPPEDWIDTH 500				;
			ON DROPDOWN PlayBeep()				;
			ON CLOSEUP PlayAsterisk()		


		DEFINE COMBOBOX Combo_2
			ROW 10
			COL 250
			ITEMSOURCE CIDADES->CODIGO , CIDADES->DESCRICAO

                        IMAGE aImages
			VALUE 2
			WIDTH 200					
			HEIGHT 100					
			DROPPEDWIDTH 350
			ONDROPDOWN PlayBeep()
			ON CLOSEUP PlayAsterisk()		
		END COMBOBOX
			

	END WINDOW		

	CENTER WINDOW   Form_1

	ACTIVATE WINDOW Form_1

Return

I created a 1x1px PNG file (0combo.png) that I have declared.
I define the combobox items as an array.

Code: Select all

local aImages := { '0combo' },aItems:{}

aadd( aItems , { 1 , 'Item 1' } )
aadd( aItems , { 1 , 'Item 2' } )
aadd( aItems , { 1 , 'Item 3' } )

DEFINE COMBOBOX Combo_2
			ROW 10
			COL 250
			ITEMS aItems
                        IMAGE aImages
			VALUE 2
			WIDTH 200					
			HEIGHT 100					
			DROPPEDWIDTH 350
			ONDROPDOWN PlayBeep()
			ON CLOSEUP PlayAsterisk()		
		END COMBOBOX

I hope this helps someone.
If anyone has a better solution I would be happy to share it.

Georg