Orlando FMC

Uma outra questão que acabou entrando neste tópico é: "O mesmo problema está ocorrendo ao pressionar [ENTER] sobre campos do xBROWSE: parece que foi pressionado 2 vezes." Daí, não conseguia editar usando [ENTER]. Mas, No Pelles, eu estava usando o controle ListBox para abrigar o xBrowse. Troquei pelo Custom Control, Class Name = TXBrowse, e resolveu: agora consigo editar as colunas usando a tecla [ENTER]. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação:Tenta agora, Download: http://www.lailton.com.br/download/SkinButton.lib'>http://www.lailton.com.br/download/SkinButton.lib So substituir a lib e recompilar. Att. Lailton Fernando Mariano http://www.lailton.com.br | Mail/Msn: xHarbour 1.2.1 | Harbour 3.2.0 | Fivewin 12.4 | HwGui | Borland 5.8.2 | FiveWeb | MySQL id=quote>id=quote>Funcionou no meu programa Lailton. Os buttons estão ótimos. Parabéns, mais uma vez, e obrigado. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 04/07/2012 21:43:12

Vou tentar isso aí, mas, numa aplicação simples, como a seguir, funcionou normal. #include "FiveWin.ch" function Main() local oDlg, oBtn PRIVATE x:=0 SkinButton() DEFINE DIALOG oDlg TITLE "Ending TBtnBmps objects" @ 2, 2 BUTTON "Teste SkinButton()" ACTION A() @ 3, 2 BUTTON " " // ACTION oDlg:END() @ 3, 10 BUTTON "FIM" ACTION oDlg:END() ACTIVATE DIALOG oDlg return nil Function A() X=X+1 MSGINFO( x ) RETURN .T. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação:vc tem q adicionar no seu arquivo de compilação. Att. Lailton Fernando Mariano http://www.lailton.com.br | Mail/Msn: xHarbour 1.2.1 | Harbour 3.2.0 | Fivewin 12.4 | HwGui | Borland 5.8.2 | FiveWeb | MySQL id=quote>id=quote>Vailton, Coloquei no meu sistema, e gostei muito da apresentação dos botões. Porém, está acontecendo como antes: 1 clique -> 2 ações. Inseri mais 1 botão para teste: REDEFINE BUTTON oB4041_1 ID 4041 OF oFld:aDialogs[1] ACTION ( MSGINFO(TIME()), oBrw1:SetFocus() ) Ele me mostra a hora 2 vezes. Em outro botão, que já está no sistema, a ação é: DBSKIP(20), mas ele avança 40 registros ao invés de 20. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação:Testa ai no seu sistema: Download: http://www.lailton.com.br/download/SkinButton.lib'>http://www.lailton.com.br/download/SkinButton.lib No seu sistema: Function Main() SkinButton() MsgInfo( "test" ) Return Nil id=code>id=code>Att. Lailton Fernando Mariano http://www.lailton.com.br | Mail/Msn: xHarbour 1.2.1 | Harbour 3.2.0 | Fivewin 12.4 | HwGui | Borland 5.8.2 | FiveWeb | MySQL id=quote>id=quote> Vailton, Fiz o dowload de "Skinbutton.lib" e coloquei na pasta FWH\LIB E agora? Para colocar no meu sistema? Como faço para ler a SkinButton.lib? Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação:Pega nesse: http://www.lailton.com.br/download/SkinButton.rar'>http://www.lailton.com.br/download/SkinButton.rar Att. Lailton Fernando Mariano http://www.lailton.com.br | Mail/Msn: xHarbour 1.2.1 | Harbour 3.2.0 | Fivewin 12.4 | HwGui | Borland 5.8.2 | FiveWeb | MySQL id=quote>id=quote>Funcionou perfeito, Lailton. Parabéns. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação:Orlando, Com o meu .exe continua executando 2x pra vc ? esse SKIN button que uso é diferente do FiveWin, esse o source é meu e o skin diferente. Att. Lailton Fernando Mariano http://www.lailton.com.br | Mail/Msn: xHarbour 1.2.1 | Harbour 3.2.0 | Fivewin 12.4 | HwGui | Borland 5.8.2 | FiveWeb | MySQL id=quote>id=quote>Lailton, Não estou conseguindo baixar este seu .exe, para testar. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação:Faz um test com esse .exe Veja se ele executa 2x para vc. http://www.4shared.com/rar/M2YpA8qV/SkinButton.html xD Att. Lailton Fernando Mariano http://www.lailton.com.br | Mail/Msn: xHarbour 1.2.1 | Harbour 3.2.0 | Fivewin 12.4 | HwGui | Borland 5.8.2 | FiveWeb | MySQL id=quote>id=quote>Lailton, Eu já estava usando o SkinButton. Retirei-o, e os botões voltaram a funcionar normalmente. Você matou a xarada. Obrigado. É pena, pois com o SkinButton, os botões ficavam mais bonitos. Mas, é mais importante que funcuionem direito. Se tiver alguma configuração que faça funcionar nomal, usando SkinButton, seria ótimo. Obrigado Lailton. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação:voce colocou o comando CANCEL no botão de Saida?? João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Sim, Kapiaba. Tem o comando CANCEL ao sair. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação: citação:Deve ser o velho problema de LostFocus e GotFocus... Faça um teste em um dialog que não tenha valid, gotfocus ou lostfocus e veja se mesmo assim acontece esse erro. RCA Sistemas - Itaocara - RJ id=quote>id=quote>Tenho uma janela que não tem a cláusula Valid, nem gotfocus ou lostfocus, e aí também existe o problema: Sempre que clico no botão INCLUIR, são incluídos 2 registros no arquivo. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG id=quote>id=quote>Na aplicação citada acima, troquei: REDEFINE BUTTON ... por: REDEFINE BTNBMP ... E resolveu o problema. Fiz o mesmo em outro programa, e também resolveu. Mas, não quero ficar substituindo todos os BUTTON´s por BTNBMP´s. Além disso, acho que o mesmo problema está ocorrendo ao pressionar [ENTER] sobre campos do xBROWSE: parece que foi pressionado 2 vezes. Porém, não estou certo disso. Ainda estou investigando. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação:Deve ser o velho problema de LostFocus e GotFocus... Faça um teste em um dialog que não tenha valid, gotfocus ou lostfocus e veja se mesmo assim acontece esse erro. RCA Sistemas - Itaocara - RJ id=quote>id=quote>Tenho uma janela que não tem a cláusula Valid, nem gotfocus ou lostfocus, e aí também existe o problema: Sempre que clico no botão INCLUIR, são incluídos 2 registros no arquivo. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Vagner, Isso só acontece nos meus programas (novos) no FiveWin. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Mestres, Desde que comecei a utilizar o Windows 7 - FW [x]Harbour 11.10 - PellesC, alguns botões das minhas aplicações executam a açao correspondente 2 vezes (ao serem clicados apenas 1 vez). Hoje pude observar isso em mais uma situação: o programa apresentou um erro, e abriu aquela janela de erro do FiveWin. Nesta janela tem o botão "See error.log file". Ao clicar neste botão, o arquivo error.log também é aberto 2 vezes (2 janelas do bloco de notas abertas com o arquivo erro.log). Alguém pode explicar isso? Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 04/07/2012 22:45:50

Mestres, Desde que comecei a utilizar o Windows 7 - FW [x]Harbour 11.10 - PellesC, alguns botões das minhas aplicações executam a açao correspondente 2 vezes (ao serem clicados apenas 1 vez). Hoje pude observar isso em mais uma situação: o programa apresentou um erro, e abriu aquela janela de erro do FiveWin. Nesta janela tem o botão "See error.log file". Ao clicar neste botão, o arquivo error.log também é aberto 2 vezes (2 janelas do bloco de notas abertas com o arquivo erro.log). Alguém pode explicar isso? Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 04/07/2012 22:45:50

citação:já tentou?? METHOD SwapCols( oCol1, oCol2 ) Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO id=quote>id=quote>Desculpe Erciley, Tentei novamente e funcionou redondo: oBrw:SwapCols(3, 4). Obrigado. Obrigado também aos amigos Geovanni e Luiz Fernando. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação:Ola Orlando, numca fiz aqui , mais na logica parece coisa simples... ex: sua browse oBrw:aCols[1]:cHeader := "Código" oBrw:aCols[2]:cHeader := "Nome da Classificação" funcao que muda a ordem if ordem=1 oBrw:aCols[1]:cHeader := "Nome da Classificação" oBrw:aCols[2]:cHeader := "Código" else oBrw:aCols[1]:cHeader := "Código" oBrw:aCols[2]:cHeader := "Nome da Classificação" endif oBrw:refresh() oBrw:setfocus() return .t. id=code>id=code>Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH110 Editado por - empresoft on 25/06/2012 13:04:39 id=quote>id=quote>Luiz, Pelo que entendi, desta forma, você muda apenas os títulos das colunas. O que preciso é mudar a posição das colunas. Exemplo: tenho um xBrowse com 4 colunas (A,B,C,D), ordenado pela coluna A. Quando acionar um RadioButtom para alterar a ordem, digamos que, para a coluna D, quero que mude também a ordem de apresentação das colunas, ficando assim: D, A, B, C. Ou seja, estou mudando a posição da coluna D, que estava na 4ª posição, para a 1ª posição. Em TCBrowse: oBrw:SwitchCols(1, 4). Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 25/06/2012 23:22:39 Editado por - orlandof on 26/06/2012 00:34:52

citação:já tentou?? METHOD SwapCols( oCol1, oCol2 ) Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO id=quote>id=quote>Erciley, dá erro na compilação... Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Obrigado Aokisantos, mas não funcionou. Agradeço também ao Alessandro e ao Geovanni, que estão tentando ajudar. Estou desconfiado de uma situação que está ocorrendo, mas que ainda não consegui descobrir a razão, como descrevi acima: ao acionar um botão, em alguns casos, a ação definida é executada 2 vezes, sempre. Parece ser o mesmo caso da edição destas colunas do xBrowse, pois a célula "pisca" como se eu tivesse acionado 2 vezes a tecla [ENTER]. Por isto não é é possível editar a célula. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação:oCol:bOnPostEdit = { | oCol, xVal, nKey | If( RecCount() == 0, ( DbAppend(), oBrw:Refresh() ),), If( nKey == VK_RETURN, Customer->First := xVal,) } Faz assim q funfa!! Geovanni Holior Analista de Sistema Clip55 * FHW 11 /xHarbour /MySql/ (sql)/Minigui skype:geovanni.holior www.tecnologeo.com.br " Tudu Posso naquele que me Fortalece!" id=quote>id=quote>Geovanni, O objetivo é editar uma célula, e não acrescentar registro. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 23/06/2012 15:41:57

Desculpe, Geovanni. Não fui claro. Não quero arrastar com o mouse, e sim mudar automático quando eu mudar o índice (ordem). Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Mestres, tem jeito de mudar a posição de uma coluna do xBrowse, em tempo de execução? Ex.: coluna 7 mudar para a posição 2. Acho que já fiz isso no TcBrowse, mas não me lembro onde. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 26/06/2012 00:52:09

Mestres, tem jeito de mudar a posição de uma coluna do xBrowse, em tempo de execução? Ex.: coluna 7 mudar para a posição 2. Acho que já fiz isso no TcBrowse, mas não me lembro onde. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 26/06/2012 00:52:09

- Aokisantos -> as suas indicações estão feitas no PRG. - Alessando -> Criei o new custom, como você incicou, mas, não alterou nada. - Geovanni Holior -> oBrw:bKeyDown:={|nKey| IIF(nKey=VK_RETURN,altera(oBrw),)} -> não resolveu. Tem uma situação interessante, que está acontecendo depois que adquiri a versão FW [x]Harbour 11.10: Em algumas rotinas, ao clicar em um BOTÃO (1 única vez) a açao pertinente é executada 2 vezes. É como se eu tivesse clicado 2 vezes. Exemplo: botão [iNCLUIR REGISTRO] -> clica 1 vez, mas inclue 2 registros. Não tem nada de diferente no programa. E não consigo identificar o porque isso está acontecendo. Estou colocando isso aqui, porque talvez esteja acontecendo o mesmo ao teclar [ENTER] sobre o campo do xBrowse. O campo "pisca" mas não aceita a edição. É como se tivesse pressionado [ENTER] 2 vezes, como no caso relatado acima. Embora, já tenha visto este problema relatado por outros colegas, como nos links que coloquei no início do tópico. Vejam o xBrowse: // Browse oBrw1, em AA1 oBrw1:= TxBrowse():New( oFld:aDialogs[1] ) oBrw1:lFastEdit := .t. oBrw1:CreateFromResource( 4001 ) oBrw1:nMoveType := MOVE_NONE oBrw1:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrw1:nColDividerStyle := LINESTYLE_BLACK oBrw1:nRowDividerStyle := LINESTYLE_BLACK oBrw1:lColDividerComplete := .t. oBrw1:nDatalines := 1 oBrw1:lHScroll := .n. oBrw1:lFooter := .t. oBrw1:bChange := {|| oBrw1:MakeTotals(),oBrw1:Refresh() } oBrw1:bClrSel:={ || { CLR_WHITE,CLR_BLUE } } // COLUNAS: nC=0 // nº da Coluna // Nome nC++ oCol := oBrw1:AddCol() oCol:cHeader := "Nome" oCol:nWidth := 320 * KAA1_ComprCampos * oCol:cEditPicture := '@' oCol:bEditValue := { || FICHA_CL->NOME______ } oCol:bStrData := { || FICHA_CL->NOME______ } * oCol:nDataStyle := oCol:DefStyle( AL_LEFT, .T.) oCol:nEditType := EDIT_GET * oCol:nEditType := 1 // = EDIT_GET oBrw1:aCols[nC]:bClrStd := {|| IIF( SEXO______="F" , {nRGB(0,0,0),nRGB(255,174,201)} , IIF( SEXO______="M" ,{nRGB(0,0,0),nRGB(161,197,235)},{nRGB(000,000,000),nRGB(255,255,255)}) ) } oBrw1:aCols[nc]:cToolTip := {"Clique c/ botão direito do mouse e"+CRLF+"desmarque as colunas que não deseja,"+CRLF+"nesta sessão.","DICA!","",nRGB(255,255,255),nRGB(58,116,241) } // EDIÇÃO DA COLUNA: oCol:bonPostEdit := { | oCol, uValue, nLastkey | if( nLastkey == 13, (RLock(), FICHA_CL->NOME______ := uValue, dbCommit() ), nil )} Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 22/06/2012 17:17:43 Editado por - orlandof on 22/06/2012 17:18:34

Mestres, No xBrowse não consigo entrar no modo de edição de coluna usando a tecla [ENTER]. Só entra com duplo clique. Entrar já digitando o conteúdo também funciona, mas, não é conveniente se for para EDITAR conteúdo já existente no campo, pois, neste caso, todo o conteúdo é apagado, tendo que digitar tudo de novo. Já vi exemplos no SAMPLES que funcionam, porem todos usando "@ SAY". No meu caso, usando recursos do Pelles, não consigo fazer funcionar. Vi também alguns tópicos sobe isso (http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17914, http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14471), mas, parece que não ficou resolvido. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Mestres, No xBrowse não consigo entrar no modo de edição de coluna usando a tecla [ENTER]. Só entra com duplo clique. Entrar já digitando o conteúdo também funciona, mas, não é conveniente se for para EDITAR conteúdo já existente no campo, pois, neste caso, todo o conteúdo é apagado, tendo que digitar tudo de novo. Já vi exemplos no SAMPLES que funcionam, porem todos usando "@ SAY". No meu caso, usando recursos do Pelles, não consigo fazer funcionar. Vi também alguns tópicos sobe isso (http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17914, http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14471), mas, parece que não ficou resolvido. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG