Clipper On Line • Ver Tópico - Combobox não funciona

Combobox não funciona

Discussão sobre outras linguagens de programação.

Moderador: Moderadores

 

Combobox não funciona

Mensagempor JoséQuintas » 29 Jul 2020 19:11

Criei um combobox, mas ao clicar não funciona.

   VAR Style                 INIT   WIN_WS_CHILD + WIN_WS_BORDER + WIN_WS_TABSTOP + WIN_WS_VSCROLL + CBS_NOINTEGRALHEIGHT + CBS_AUTOHSCROLL + CBS_DROPDOWNLIST
   VAR lSetCallback          INIT .F.
   METHOD AddItem( cText )   INLINE AAdd( ::aComboboxList, cText ), ::SendMessage( CB_ADDSTRING, 0, @::aComboboxList[ Len( ::aComboboxList ) ] )


Já desliguei a captura de evento e alterei o texto pra pointer

   IF ::lSetCallback
      ::SetWindowProcCallback()  /* Let parent take control of it */
   ENDIF


Os valores estão no combo, conforme altero a opção (SetValue) o texto se altera.
O problema é: clico no scroll, mas não aparece a lista pra selecionar.

   oControl := wvgtstComboBox():New()
   oControl:Create( , , { -7.5, -43 }, { -6, -17 } )
   AEval( aComboboxList, { | e | oControl:AddItem( e ) } )
   oControl:SetValue( 5 )


O que pode estar errado?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Combobox não funciona

Mensagempor JoséQuintas » 29 Jul 2020 19:37

Aparentemente resolvido.

Desisti do meu, e usei o da GTWVG
Acrescentei uma função a mais pra setar o default, e parece que deu certo.

CREATE CLASS wvgTstCombobox INHERIT wvgCombobox // INHERIT wvgTstControl

   VAR Type                    INIT WVGCOMBO_DROPDOWNLIST
   METHOD SetValue( nIndex ) INLINE ::SendMessage( CB_SETCURSEL, nIndex - 1, 0 )
   //VAR ClassName             INIT   "COMBOBOX"
   //VAR ObjType               INIT   objTypeComboBox
   //VAR aComboboxList         INIT {}
   //VAR Style                 INIT   WIN_WS_CHILD + WIN_WS_BORDER + WIN_WS_TABSTOP + WIN_WS_VSCROLL + CBS_NOINTEGRALHEIGHT + CBS_AUTOHSCROLL + CBS_DROPDOWNLIST
   //VAR lSetCallback          INIT .F.
   //METHOD AddItem( cText )   INLINE AAdd( ::aComboboxList, cText ), ::SendMessage( CB_ADDSTRING, 0, @::aComboboxList[ Len( ::aComboboxList ) ] )
   //METHOD Clear()            INLINE ::aComboboxList := {}, ::SendMessage( CB_RESETCONTENT, 0, 0 )

   ENDCLASS


combo.png
combo.png (7.89 KiB) Visualizado 576 vezes
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Outras linguagens de programação

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro