Clipper On Line • Ver Tópico - Como posicionar na 1ª linha da LISTBOX

Como posicionar na 1ª linha da LISTBOX

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Como posicionar na 1ª linha da LISTBOX

Mensagempor Vander » 25 Mar 2016 03:12

Olá a todos;

Tenho que posicionar o cursor sempre na 1ª linha da listbox após uma filtro, tem como ?

Após selecionar este filtro, posicionar na 1ª linha
 REDEFINE COMBOBOX oCATEGO VAR mgenerF ITEMS geneF ID 112 OF TELAVEND1 VALID FILTRTP(mgenerF)  WHEN TEMCLI 

Listbox em questão
 
   REDEFINE LISTBOX LIACER224 FIELDS ESTOQU->(STRZERO(CODLOJA,5))              +" |"+  ;
                                     ESTOQU->(SUBSTR(DESCRIC,1,42))            +"|"+   ;
                                     ESTOQU->(STRZERO(QUANTES,4))              +"|"+   ;
                                     ESTOQU->(TRANSFORM(VEVISTA,"@E 99999.99"))+"|"+   ;
                                     ESTOQU->(TRANSFORM(VEPRAZO,"@E 99999.99"))+"|"+   ;
                                     ESTOQU->(TRANSFORM(VEPLAAV,"@E 99999.99"))+"|"+   ;
                                     ESTOQU->(TRANSFORM(VEPLAPR,"@E 99999.99")) ID 110 ;
                          HEADERS "CÓDIGO|DESCRIÇÃO                                 |QDE.|À  VISTA|À  PRAZO|PLANO AV|PLANO PR" ;
                          FONT FONTVEND12 COLOR  RGB (000,000,000),RGB (255,255,192)  ;
                          ON LEFT DBLCLICK(ENVIALISTA1(xTEMPLA)) WHEN TEMCLI

Filtro esta funcionando, mas o quando volta para a listbox fica todo bagunçado
FUNCTION FILTRTP(mgenerF)
   SELECT ESTOQU

   IF mgenerF = "* TODOS *"
      SET FILTER TO
     ELSE
      SET FILTER TO TPMERCA = mgenerF
   ENDIF

  DBGOTOP()
  LIACER224 :Refresh()                    // Estabiliza o Browse/Listbo
  xSetFocus( LIACER224 )

RETURN .T.


Obrigado;
Vander
Nota de Moderação:
Toledo: O presente tópico foi movido da seção Harbour, uma vez que seu conteúdo não tem relação com os objetivos daquela seção, onde só podem constar dúvidas técnicas de programação diretamente relacionadas com o [x]Harbour.
HbMake v1.17
xHarbour build 0.99.70 Intl. (SimpLex)
Borland C++ 5.5.1
fivewin 6.12 (FREE)
Workshop 4.5
MEdit
Avatar de usuário

Vander
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 199
Data de registro: 23 Jul 2004 01:43
Cidade/Estado: João Monlevade - MG
Curtiu: 0 vez
Mens.Curtidas: 5 vezes

Como posicionar na 1ª linha da LISTBOX (Resolvido)

Mensagempor Vander » 27 Mar 2016 12:19

Resolvido com a ajuda de Theotokos do fórum fivewin

ficou assim:
LIACER224:GoTop()
LIACER224:Refresh()
HbMake v1.17
xHarbour build 0.99.70 Intl. (SimpLex)
Borland C++ 5.5.1
fivewin 6.12 (FREE)
Workshop 4.5
MEdit
Avatar de usuário

Vander
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 199
Data de registro: 23 Jul 2004 01:43
Cidade/Estado: João Monlevade - MG
Curtiu: 0 vez
Mens.Curtidas: 5 vezes




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


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
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro