siscat Posted November 13, 2002 Report Share Posted November 13, 2002 Amigos, existe alguma forma de configurar um browse (TSBROWSE) de forma que a ultima coluna visivel sempre ocupe a totalidade da janela do browse??? Será que fui claro? hehehehehe cada uma.... Marllon Quote Link to comment Share on other sites More sharing options...
gilmer Posted November 15, 2002 Report Share Posted November 15, 2002 Olá, Eu não usei ainda o TSbrowse, mas porque vc não passa um email para o usuário do FW que desenvolveu Quote Link to comment Share on other sites More sharing options...
siscat Posted November 15, 2002 Author Report Share Posted November 15, 2002 Eu procurei no ZIP do TSBrowse que eu baixei e nao encontrei referencia nehuma ao desenvolvedor. Se vc souber por favor me passa! ps. é fantastico. Inclusive o Visual Fivewin tem na paleta de componetes uma chamada para o TSBrowse. )) citação:Olá, Eu não usei ainda o TSbrowse, mas porque vc não passa um email para o usuário do FW que desenvolveu id=quote>id=quote>Marllon Figueiredo Analista de Sistemas ERP/CRM Quote Link to comment Share on other sites More sharing options...
gilmer Posted November 18, 2002 Report Share Posted November 18, 2002 Olá, O Manual Mercado foi quem fez o TSBROWSE e está fazendo o Visual FiveWin, o email dele está no forum em algum lugar Quote Link to comment Share on other sites More sharing options...
siscat Posted November 18, 2002 Author Report Share Posted November 18, 2002 Ok eu vou procurar no forum. Obrigado Gilmer. citação:Olá, O Manual Mercado foi quem fez o TSBROWSE e está fazendo o Visual FiveWin, o email dele está no forum em algum lugar id=quote>id=quote>Marllon Figueiredo Analista de Sistemas ERP/CRM Quote Link to comment Share on other sites More sharing options...
vagner Posted November 18, 2002 Report Share Posted November 18, 2002 Olá Marllon, Não é direto da função TSBrowse, mas vc pode fazer o seguinte : DbSelectArea("Cidades_") aCab_Cid := {"Código","Nome","Uf","Região","Nome"} //Cabecalho do Browse aFil_Cid := { "Cidades_->Codigo","Cidades_->Nome__","Cidades_->Estado","Cidades_->Regiao","Cidades_->NomReg" } //Variaveis do Browse aCol_Cid := {51,287,30,42,63} //Tamanho das Colunas - Sempre o Tamanho da Variavel * 8 aSel_Cid := {{1,"Cida_Cod"},{2,"Cida_Nom"}} //Ordens de Indexados nSel_Cid := 1 oLbxCid := TSBrowse():New(01,01,288,120,,,,oFld:aDialogs[1],,,,,{|nRow,nCol,nFlag|InclAlte(Iif(lAltInc,"Alt","Con"))},,,,,,,"Cidades_",.T.) oLbxCid:lMChange := .F. nTam := 0 For nX := 1 To Len(aCol_Cid) nTam += aCol_Cid[nX] Next If nTam < 560 aCol_Cid[Len(aCol_Cid)] += (560-nTam) Else nTam -= aCol_Cid[Len(aCol_Cid)] aCol_Cid[Len(aCol_Cid)] := (560-nTam) Endif For nX := 1 To Len(aFil_Cid) cFiel := "{||"+aFil_Cid[nX]+"}" ADD Column To oLbxCid Data &cFiel Header aCab_Cid[nX] Size aCol_Cid[nX] Next 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.