Dúvidas com COMBOBOX OU COMBOBOXEX

[rubens]

Bom dia...

Tem duas coisas que tô precisando implementar e não tô consigo..
Primeiro: Como colocar cor no combobox quando ele recebe o foco? Nos exemplos da minigui, quando é combobox dá para mudar a cor da lista de itens, no comboboxex nem isso dá, pelo menos não vi nenhum exemplo.
Segundo: Alguém tem uma função que quando habilita o displayedit a medida que vai digitando abre a lista e vai filtrando o que foi digitado?

Obrigado
Rubens

[HASA]

)
Rubens o exemplo da pasta C:\MiniGUI\SAMPLES\Advanced\ComboColor não ajuda ?
:)Pos
HASA

[rubens]

Boa noite,

Então HASA, Obrigado. Cheguei a ver o exemplo que você mencionou, dei uma lida mas não consegui assimilar bem e fui para o exemplo da minha pergunta número dois, pesquisar em um combobox.
Com base no exemplo: C:\MiniGUI\SAMPLES\Advanced\CombinedSearchBox. O exemplo eu compilei e funcionou de boa... beleza.. certinho... Parti para implementar no meu projeto. Chegou a funcionar, fiz vários testes e tal, cheguei a mudar a cor e fonte como eu queria. Eu preciso de duas combobox no mesmo form. Quando inseri o segundo combobox começou a dar o erro de

Código: Selecionar todos

Window: frmcbPAcientes is already defined. Program terminated. 

No exemplo funciona beleza, no meu projeto não. Blz.. criei um projeto novo, um form e somente um componente combobox. Mesma coisa. Mesmo erro. Reiniciei meu pc, por se tratar de Form poderia ser algum erro do Windows, mas nada. Realmente passei a tarde toda testando para descobrir o erro mas nada.. Chegou a funcionar e do nada começou a dar o erro... Antes de definir o Window, eu testo se o form tá definido, se está ativo e retorna falso. Quando da um release eu testo antes e dá que não está definido.
Se alguém puder perder um tempinho e dar uma olhada... Gostei muito da função... bem legal.

Obrigado

Rubens

Main.prg

Código: Selecionar todos

#include <minigui.ch>
#include "combosearchbox.ch"
FUNCTION Main
	Local aPacientes := {}
	Use Pacientes 
	DbGoTop()
	While ! Eof()
		AAdd( aPacientes, Pacientes->Nome )
		DbSkip()
	EndDo
   LOAD WINDOW Main
   Main.Center
   Main.Activate
RETURN( NIL )
#include "combosearchbox.prg"

Formulário

Código: Selecionar todos

*HMGS-MINIGUI-IDE Two-Way Form Designer Generated Code
*OPEN SOURCE PROJECT 2005-2016 Walter Formigoni http://sourceforge.net/projects/hmgs-minigui/
DEFINE WINDOW TEMPLATE AT 250 , 521 WIDTH 751 HEIGHT 550 MAIN
      DEFINE COMBOSEARCHBOX cbPAcientes
         ROW        25
         COL        90
         WIDTH      150
         ITEMS      aPacientes
         ON ENTER    MsgBox( this.Value )
      END COMBOSEARCHBOX
END WINDOW

[HASA]

Rubens, consegue isolar parte do código apresentando o problema, no que vi está tudo correto, envie prg com o problema, ok.
:)Pos
HASA

[rubens]

Bom dia...

Sabia que o negócio tava por um "beicinho de pulga"!!! Uma tarde e uma manhã inteira por causa de uma Função Alltrim... é pá cabá o piqui do goiás mesmo !!!
Foi só acrescentar um Alltrim no nome que o negócio funcionou.

Código: Selecionar todos

AAdd(aPacientes,Alltrim(Pac->Nome))

Ainda bem porque tô muito satisfeito com a função... rápida e genérica.. só criar os vetores e inserir o controle no formulário...
Um exemplo de como funciona:

Obrigado HASA pela atençao...

Rubens

[HASA]

:xau
HASA