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
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
#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
*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