emotta Posted May 26, 2014 Author Report Share Posted May 26, 2014 Não peguei pra ver isso, talvez ja tenha sido resolvido como exposto acima... Outra novidade é que isso foi incluido na nova versão do FIVEWIN... abraços Emotta, Boa noite! Você conseguiu corrigir o bug? Quote Link to comment Share on other sites More sharing options...
oribeiro Posted May 27, 2014 Report Share Posted May 27, 2014 Vejam o texto abaixo relacionado a última versão do FWH: A intenção do Linares é combinar o AutoGet com o Get na próxima versão. * New: Class TAutoGet developed by Daniel Garcia Gil. This is a GET that provides suggestions while you type into the GET. Daniel developed this Class beforeknowing of Marcelo Via's new similar class (that uses xbrowse) to this one. Our intent is to combine both classes in next FWH versions, so we gest the bestfunctionality from them. Please review samples\testaget.prg, testage2.prg...testage5.prg. Please review include\autoget.ch to review its syntax and supported clauses. kapiaba 1 Quote Link to comment Share on other sites More sharing options...
AnaCatacombs Posted May 27, 2014 Report Share Posted May 27, 2014 Eu implementei na classe Get, se alguem tiver interesse é só pedir. Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted May 27, 2014 Report Share Posted May 27, 2014 Se puder poste em dicas. Quote Link to comment Share on other sites More sharing options...
Theotokos Posted August 13, 2014 Report Share Posted August 13, 2014 Bom Dia pessoal!!! Vi a necessidade de alterar uma linha nesta classe que fiz no meu para que mostre todos os produtos do vetor e tenha a opção do Scrool Vertical Alterei a linha: no : METHOD FillList() CLASS TListGet // ::oWin:SetSize( ::nWidth, ( LEN( ::aData ) ) * GetTextHeight( ::hWnd ) + LEN( ::aData ) ) ::oWin:SetSize( ::nWidth, ( ::lenDisplay * GetTextHeight( ::hWnd ) ) ) no : METHOD Initiate( hDlg ) CLASS TListGet /// ::oBrw:lVScroll := .F. ::oBrw:lVScroll := .T. Quote Link to comment Share on other sites More sharing options...
Theotokos Posted August 13, 2014 Report Share Posted August 13, 2014 Aproveitando quero perguntar: Esta Classe alguem tem ou vez um "include" (.ch)? para facilitar o uso... se sim! pode compartilhar conosco? Obgdão! Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 13, 2014 Report Share Posted August 13, 2014 Veja se é isso: autoget.ch http://forums.fivetechsupport.com/viewtopic.php?f=3&t=21772&hilit=Autocomplete abs, Quote Link to comment Share on other sites More sharing options...
Theotokos Posted August 13, 2014 Report Share Posted August 13, 2014 Olá João!!! Não é essa!!! Esta ai é da classe AUTOGET, o que estou precisando é de TLISTGET : http://forums.fivetechsupport.com/viewtopic.php?f=3&t=28456 (o que você mesmo compartilho antes) Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted August 14, 2014 Report Share Posted August 14, 2014 Eu uso o ComboEdit a anos, ja fiz algumas alterações nele e funciona bem. Se servir pra alguem, tai o exemplo e a função Redefine Combobox oCb771_Cidades var vCb771_Cidades ; items aCb771_Cidades id 771 of oDlgBairros ; PICTURE "@!" STYLE CBS_DROPDOWN oCb771_Cidades:oGet:bChange := ; {|nKey,nFlags,Self| ComboEdit( nKey,nFlags,Self,oCb771_Cidades,oDlgBairros)} /////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////// FUNCTION ComboEdit(f_nKey,f_nFlags,f_oGet,f_oCbx,f_oDlgCont) Local cBuffer := "", lInsert := .f., nPosGet := f_oGet:nPos Local nPos IF Set( _SET_INSERT ) lInsert := .t. ENDIF IF f_nKey == 13 f_oDlgCont:gonextCtrl(getfocus()) ENDIF IF f_nKey == 9 f_oDlgCont:goPrevCtrl(getfocus()) ENDIF IF f_nKey >= 48 .and. f_nKey <= 128 if f_oGet:lFocused cBuffer := Left(GetWindowText(f_oGet:hWnd), f_oGet:oGet:Pos -1) else Return nil endif nPos := f_oCbx:FindString(cBuffer,Len(cBuffer)) IF nPos > 0 f_oCbx:open() f_oCbx:Select(nPos) f_oGet:VarPut(f_oCbx:aItems[nPos]) f_oGet:oGet:UpDateBuffer() IF lInsert .and. nPos > 0 IF f_oGet:lfocused() f_oGet:oGet:Delete() f_oGet:oGet:UpDateBuffer() ENDIF ENDIF f_oGet:DispText() f_oGet:SetPos(nPosGet) ELSE f_oCbx:SendMsg(335, 0 ) f_oGet:VarPut(cBuffer+space(len(f_oGet:oGet:VarGet())-len(cBuffer))) f_oGet:oGet:UpDateBuffer() f_oGet:DispText() f_oGet:SetPos(nPosGet) ENDIF ENDIF Return Nil Theotokos 1 Quote Link to comment Share on other sites More sharing options...
Eroni Posted August 17, 2014 Report Share Posted August 17, 2014 Pessoal, alguém sabe como se comporta isso com base de dados grandes e SQL? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.