Anderson.OL

Mostre o q vc tem na linha 384 do Main.PRG e as linhas proximas a ela. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

o atributo hBitmap não existe na classe TBtnBmp. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

oSay:SetText(''); Tentou? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Escrever no INI com xHarbour oIni:Set( pcSecao , pcNomeVar , puValor ) oIni := Nil id=black>id=code>id=code>Ler no INI com xHarbour Result := oIni:Get( pcSecao, pcNomeVar,, Result ) oIni := Nil id=black>id=code>id=code>Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Criei duas funções: static procedure MsgTimer(cMessageCaption, nSeconds) **************************************************************************** * * Fechar um MsgDialog automaticamente * Parametros: cMessageCaption, nSegundos * Retorno: Nenhum * * Autor: Anderson * 1/2/2011 - 12:03:46 * **************************************************************************** public oTmr := NIL Define Timer oTmr ; Interval 1000 ; ;//Action (if (nHandle > 0 , nTempo++ , /* nada faz */ ),; ;// DoIncTimer() ) ; Action DoIncTimer(cMessageCaption, nSeconds); of oWnd oTmr:Activate() Return Nil /*------------------------------------------------------------------------*/ **************************************************************************** static procedure DoIncTimer(cMessageCaption, nSeconds) **************************************************************************** * * Tarefa a ser executada antes de estourar o timer * Parametros: cMessageCaption, nSeconds * Retorno: Nenhum * * Autor: Anderson * 1/2/2011 - 12:17:07 * **************************************************************************** static nHandle := -1 static nTempo := 0 if nHandle <= 0 nHandle := FindWindow(nil, cMessageCaption) SetWindowText(nHandle,cMessageCaption + ' (' + StrTrim(nSeconds - nTempo) + ')') end if nHandle > 0 //-- Começa a contar a partir do momento que acha a janela ---------// nTempo++ if nTempo == nSeconds //-- Se estorou o tempo fecha a janela e destroi o timer --------// SendMessage(nHandle, WM_CLOSE) oTmr:Deactivate() oTmr:End() Release oTmr else //-- Exibe a contagem do tempo ----------------------------------// SetWindowText(nHandle,cMessageCaption + ' (' + StrTrim(nSeconds - nTempo) + ')') end end Return Nil /*------------------------------------------------------------------------*/ id=code>id=code>Agora quando quero que uma mensagem feche eu chamo uma funçao antes do msginfo() MsgTimer('Informação',10) MsgInfo('Mensagem','Informação') Para quem servir... Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

citação:Não vou saber modificar o código C, mas acredito que bastaria você adaptar a idéia de colocar um OnInit com um loop esperando um retorno do botão ou estouro do tempo SamirSSabreu@gmail.com samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02 id=black>"Acreditar é mais fácil do que pensar: Daí existem muito mais crentes do que pensadores.†Bruce Calvert id=quote>id=quote>Se você analisar o MSDN verá que não existe oninit no MessageBox. http://msdn.microsoft.com/en-us/library/ms645505(VS.85).aspx Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLib id=brown>O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Não é o que eu gostaria @kapiaba, no arquivo citado a função UpdCaption() modifica o MsgRun() @sambomb, quero manter a interface do MsgInfo() Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Bom dia a todos.. Alguém já modificou a função MsgInfo() para que caso o uçuário não esteja próximo ao pc, após 5 segundos ela se feche e o sistema continue o seu processamento? Eu estive olhando o fonte msgs.c mas não cheguei a uma solução de maneira rápida. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Bom dia a todos.. Alguém já modificou a função MsgInfo() para que caso o uçuário não esteja próximo ao pc, após 5 segundos ela se feche e o sistema continue o seu processamento? Eu estive olhando o fonte msgs.c mas não cheguei a uma solução de maneira rápida. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Diferente do que pode parecer, não estou para criticar a biblioteca do FiveWin, tão pouco os compiladores [x]Harbour ou a biblioteca SQLLib que faço uso, no momento está funcionando perfeitamente. O que digo são os paradigmas que conflitam na migração! O foda é ouvir nego falar que é facil! Facil pra mim é brochar ao ouvir "Eu já tive um dia no meio das pernas o q vc tem hoje!" no meio de uma foda com a Ariadna! Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Entao que tal citar migração do FW+Clipper to FW+xHarbour ? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Migrar do clipper para Fivewin é facil, basta redesenhar a tela... Migrar DBF para MySql é simples, basta aprender Select * from tableid=brown>, Update table set field = valueid=brown> e o Delete from table where field = xid=brown>; Senta e relaxa meu caro amigo ingênuoid=yellow> programador, a pica é grande!! Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Migrar do clipper para Fivewin é facil, basta redesenhar a tela... Migrar DBF para MySql é simples, basta aprender Select * from tableid=brown>, Update table set field = valueid=brown> e o Delete from table where field = xid=brown>; Senta e relaxa meu caro amigo ingênuoid=yellow> programador, a pica é grande!! Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Votação: ======== Interior de SP............... TOTAL: 9 VOTOS Herberson (Hergon) Luiz Servulo Vander Lúcio (vlnunes) Vailton Renato (Vailtom) Luis Fernando Jr. (Luisão) Leonardo Machado(Sygecom) Luiz Fernando(EMPRESOFT) Samir Abreu (SAMBOMB) Anderson (Anderson.OL) SESC Belo Horizonte.......... TOTAL: 3 VOTOS Vitor (SBC-SP) Dr.Microso Aloizio Lima Outros....................... TOTAL: 0 VOTOS Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

no MySQL COMMAND Line drop o database, recrie e importe como abaixo: mysql> create database nomedatabase; mysql> use nomedatabase; mysql> source C:/pasta/arquivodump.sql ; /* no caminho use barras, e não barra invertida como o windows pede */id=green> id=code>id=code>Eu tenho hábito de importar backups do dump desta maneira e funciona. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Alguem conseguiu fazer o debug em modo console funcionar com o xHarbour 10.6 ? Eu já inclui a lib debug.lib, inclui tb gtwin.lib os requests e o AltD() mas só aparece uma tela preta junto com o meu sistema!! Não aparece as funções de debug!! Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Alguem conseguiu fazer o debug em modo console funcionar com o xHarbour 10.6 ? Eu já inclui a lib debug.lib, inclui tb gtwin.lib os requests e o AltD() mas só aparece uma tela preta junto com o meu sistema!! Não aparece as funções de debug!! Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

citação:http://wiki.fivetechsoft.com/doku.php?id=fivewin_functions_by_category João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Kapiaba meu Rei, como citado acima eu já havia lido a documentação online do Five qto a esta função, mas estou emburrecendo com o tempo, pra mim não foi o suficiente para fazer funcionar. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLib id=brown>O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

citação:Eu nem sabia que isso existia "nativo". Anderson, em que linguagem você utilizou esta função ? Você tentou ? FloodFill( oBMP:hBitmap, 0, 0, CLR_WHITE, CLR_black ) Luis Fernando Jr. (Luisão) Leme/SP -- FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY juninho.luisao@gmail.com juninho_luisao@hotmail.com Skype luis.fernando.jr id=quote>id=quote>Já utilizei em delphi com sucesso! Não deu certo usando o exemplo que vc citou Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLib id=brown>O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Bom dia a todos. No momento estou precisando trocar uma determinada cor de uma imagem por uma outra. Já fiz isto em outra linguagem utilizando a função FloodFill e funciona perfeitamente. Busquei pela mesma função no Fórum internacional mas não achei um exemplo funcional. Busquei também no diretório Samples mas também não tive sucesso. Na wiki também cita a função mas não tem exemplo. Alguem já fez uso desta função ou tem facilidade em montar um exemplo para me ajudar? Antecipadamente agradeço. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Bom dia a todos. No momento estou precisando trocar uma determinada cor de uma imagem por uma outra. Já fiz isto em outra linguagem utilizando a função FloodFill e funciona perfeitamente. Busquei pela mesma função no Fórum internacional mas não achei um exemplo funcional. Busquei também no diretório Samples mas também não tive sucesso. Na wiki também cita a função mas não tem exemplo. Alguem já fez uso desta função ou tem facilidade em montar um exemplo para me ajudar? Antecipadamente agradeço. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Tá acima! Eu estou conseguindo ver, mas de qq maneira vou deixar o link. http://img529.imageshack.us/img529/8707/batmanx.jpg Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

BH é a cidade das revelações! Neste grandioso evento não poderia ter sido diferente! Além de descobrirmos no encontro grandes personalidades, termos a possibilidade de fazer amizades e trocar experiência fui surpreendido no Aeroporto com o batman andando a paisana, sem nenhuma preocupação!! Vejam: OBS: A imagem está embaçada pois eu fiquei com medo dele me questionar sobre a razão do registro fotografico :S Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

BH é a cidade das revelações! Neste grandioso evento não poderia ter sido diferente! Além de descobrirmos no encontro grandes personalidades, termos a possibilidade de fazer amizades e trocar experiência fui surpreendido no Aeroporto com o batman andando a paisana, sem nenhuma preocupação!! Vejam: OBS: A imagem está embaçada pois eu fiquei com medo dele me questionar sobre a razão do registro fotografico :S Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.