Orlando FMC

Boa tarde. Também estou na fila... Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

cMsgBarr1="Seu Texto" oMsgBarr1:= TMsgItem():New( oWnd:oMsgBar, cMsgBarr1 , LEN(cMsgBarr1)*8 , , ("W+/R+") ,; ,.t., {|| MSGINFO(cMsgBarr1+CRLF+ " "+cMsgBarr1+CRLF+ " "+cMsgBarr1 , " "+cMsgBarr1) } ) Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Obrigado, Ariston. Estou usando a função abaixo, com resultados satisfatórios, apesar de, assim como a função enviada pelo Rone - de autoria não identificada - é imprecisa em alguns casos, no cálculo do nº de dias - às vezes, dá diferença de 1 ou 2 dias. ================== FUNCTION FTempo( DtIni , DtFim , nFormato ) // Calcula o tempo entre datas no formato AAAAaMMmDDd // Orlando F Martins da Costa - 21/05/12 // DtIni, DtFim -> Datas de inicio e de Fim - não importa a ordem // nFormato = 0 matem os valores 0 (default) // = 1 elimina os valores zero e os espaços // = 2 elimina os valores zero mantendo os espaços // Atenção: pode ocorrer o retorno do tipo: n meses + 30 dias, já que nos cálculos não se utilizam o padrão de 30 dias para cada mês, // e sim os meses efetivamente corridos, sejam eles de 30, 31, 28 ou 29 dias. LOCAL cCENT:="on" , xx, yy LOCAL cDataIni, cDiaIni, cMesIni, cAnoIni LOCAL cDataFim, cDiaFim, cMesFim, cAnoFim LOCAL nDataIni, nDiaIni, nMesIni, nAnoIni LOCAL nDataFim, nDiaFim, nMesFim, nAnoFim LOCAL cAnos, cMeses, cDias LOCAL nAnos, nMeses, nDias:=0 LOCAL cTempo:="dd/mm/aaaa" IF VALTYPE(nFormato) = "U" ; nFormato := 0 ; ENDIF IF DAY(DtIni) = 0 ; DtIni = DATE() ; ENDIF IF DAY(DtFim) = 0 ; DtFim = DATE() ; ENDIF IF LEN(DTOC(DATE())) = 8 ; cCENT="off" ; ENDIF SET CENT ON // LEN(DTOC(DATE())) = 10 // inversão - Inverte caso DtIni seja maior que DtFim xx=DtIni ; yy=DtFim IF XX > YY ; DtIni = YY ; DtFim = XX ; ENDIF // cDataIni=DTOC(DtIni) ; cDataFim=DTOC(DtFim) cDiaIni =SUBS(cDataIni,1,2) ; cMesIni=SUBS(cDataIni,4,2) ; cAnoIni=SUBS(cDataIni,7) cDiaFim =SUBS(cDataFim,1,2) ; cMesFim=SUBS(cDataFim,4,2) ; cAnoFim=SUBS(cDataFim,7) nDiaIni=VAL(cDiaIni) ; nMesIni=VAL(cMesIni) ; nAnoIni=VAL(cAnoIni) nDiaFim=VAL(cDiaFim) ; nMesFim=VAL(cMesFim) ; nAnoFim=VAL(cAnoFim) // anos nAnos = nAnoFim - nAnoIni IF nMesIni > nMesFim ; nAnos-- ; ENDIF // meses nMeses = nMesFim - nMesIni IF nDiaFim < nDiaIni ; nMeses-- ; ENDIF IF nMeses<0 ; nMeses+=12 ; ENDIF // dias - não tem precisão, variando em até 3 dias. nDiaRef=nDiaIni ; nMesRef = nMesFim ; nAnoRef = nAnoFim // referencias p/ cálculo dos dias. IF nDiaFim < nDiaRef nMesRef-- IF nMesRef = 0 nMesRef = 12 nAnoRef-- ENDIF ENDIF nDiasAcerto=0 IF nDiaRef= 30 .AND. nMesRef= 02 ; nDiasAcerto = nDiasAcerto - 1 ; ENDIF IF nDiaRef= 31 .AND. nMesRef= 02 ; nDiasAcerto = nDiasAcerto - 2 ; ENDIF DO CASE CASE nDiaRef = 31 .AND. AT(STRZERO(nMesRef,2) , " 04 06 09 11 " ) <> 0 ; nDiaRef = 01 ; nMesRef++ CASE nMesRef = 2 .AND. (nDiaRef = 30 .OR. nDiaRef = 31 ) ; nDiaRef = 01 ; nMesRef = 03 CASE nMesRef = 2 .AND. nDiaRef = 29 .AND. !AnoBissexto(nAnoRef) ; nDiaRef = 01 ; nMesRef = 03 ENDCASE cAnoRef = RIGHT(" "+ALLTRIM(STR(nAnoRef )) , 4 ) cMesRef = STRZERO( nMesRef , 2 ) cDiaRef = STRZERO( nDiaRef , 2 ) dtRef = CTOD(cDiaRef + "/" + cMesRef + "/" + cAnoRef ) // data de referencia DO CASE * CASE AT(STRZERO(nMesIni,2) , " 04 06 09 11 " ) <> 0 ; dtRef = dtRef + 1 * CASE nMesIni = 2 .AND. AnoBissexto(nAnoIni) ; dtRef = dtRef + 2 * CASE nMesIni = 2 .AND. !AnoBissexto(nAnoIni) ; dtRef = dtRef + 3 ENDCASE nDias = dtFim - dtRef + nDiasAcerto // cAnos = RIGHT(" "+ALLTRIM(STR(nAnos )),4) cMeses = STRZERO(nMeses , 2 ) cDias = STRZERO(nDias , 2 ) cTempo = cAnos+"a"+cMeses+"m"+cDias+"d" IF nFormato = 1 // = 1 elimina os valores zero e os espaços cTempo=STRTRAN(cTempo, "0000a"," ") cTempo=STRTRAN(cTempo, " 000a"," ") cTempo=STRTRAN(cTempo, " 00a"," ") cTempo=STRTRAN(cTempo, " 0a"," ") cTempo=STRTRAN(cTempo, " a"," ") cTempo=STRTRAN(cTempo,"00m"," ") cTempo=STRTRAN(cTempo,"00d"," ") cTempo=ALLTRIM(cTempo) cTempo=STRTRAN(cTempo," ","") DO WHILE LEFT(cTempo,1)="0" cTempo=SUBS(cTempo,2) ENDDO ENDIF IF nFormato = 2 // = 2 elimina os valores zero mantendo os espaços cTempo=STRTRAN(cTempo, "0000a"," ") cTempo=STRTRAN(cTempo, " 000a"," ") cTempo=STRTRAN(cTempo, " 00a"," ") cTempo=STRTRAN(cTempo, " 0a"," ") cTempo=STRTRAN(cTempo,"00m"," ") cTempo=STRTRAN(cTempo,"00d"," ") ENDIF IF cCENT="off" ; SET CENT OFF ; ENDIF RETURN cTempo Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Obrigado Rone. Estou testando aqui. Numa primeira tentativa, gostei dos resultados, mas, o retorno foi o mesmo, em situações diferentes, como no exemplo a seguir: 31/12/2011 a 18/05/2012 resultou 00 anos 04 meses 18 dias 01/01/2012 a 18/05/2012 resultou 00 anos 04 meses 18 dias 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 18/05/2012 22:28:10 Editado por - orlandof on 20/05/2012 12:50:27

Mestres, Alguem tem uma função que calcule o tempo entre datas (idade, por exemplo), retornando Anos, Meses e Dias? 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 18/05/2012 20:34:22 Editado por - orlandof on 18/05/2012 22:25:41

Mestres, Alguem tem uma função que calcule o tempo entre datas (idade, por exemplo), retornando Anos, Meses e Dias? 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 18/05/2012 20:34:22 Editado por - orlandof on 18/05/2012 22:25:41

Mestres, Tem jeito de reposicionar uma imagem do Corel via PRG? É que a minha planilha oPrn:ImportWMF( "PlanAt01.wmf") está deslocada em relação aos dados de preenchimento pelo PRG. Além disso, reduziu o tamanho. Isso aconteceu depois que mudei para o xHarbour e Win7. 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 reposicionar uma imagem do Corel via PRG? É que a minha planilha oPrn:ImportWMF( "PlanAt01.wmf") está deslocada em relação aos dados de preenchimento pelo PRG. Além disso, reduziu o tamanho. Isso aconteceu depois que mudei para o xHarbour e Win7. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

FUNCTION PESQUISA(cARQUIVO,nINDICE,cCampo,cCabecalho,cTitulo,cRodape,lRecno,oWnd) // Exemplo: PESQUISA("CLIENTES" , 2 , "NOME") // cArquico=Nome do arquivo orde será feita a pesquisa // nIndice=nº do indice para pesquisa // cCampo=nome do campo chave para pesquisa // cCabecalho=cabeçalho da janela de pesquisa // cTitulo=título da janela de pesquisa // cRodapé=rodapé da janela de pesquisa // lRecno=.t. ou .n. -> apresentar ou não o Recno() na lista // 84 COLUNAS PARA TITULO, CABECALHO E CAMPOS // Não tirar os "OemToAnsi" pois muitos programas foram feitos no EDIT do DOS. LOCAL oBrw, oFont1, oFont2, AREASELE:=SELECT(), IndiceAnt:=INDEXORD(), ColPesq LOCAL cPesquRet:="" // retorna o texto digitado para a rotina chamadora. LOCAL nRet, cPesq, cPos, oFntTimes, oSay1, oSay3, oBtn, oBtn1, oBtn2, oBtn3 LOCAL oDlg, OldRecno:=RECNO() IF cCabecalho=nil ; cCabecalho="Nome" ; ENDIF IF cTitulo =nil ; cTitulo ="Pesquisa Incremental - por Hoje Informatica Ltda" ; ENDIF IF cRodape =nil ; cRodape ="Para localizar, digite as letras iniciais. - [backSpace] para corrigir." ; ENDIF nRet=0 // Retorna 1 se a pesquisa for confirmada IF lRecno=NIL ; lRecno=.n. ; ENDIF // apresenta a coluna RECNO() cPesq:="" SELE &cARQUIVO SET ORDER TO nINDICE DEFINE FONT oFont1 NAME "Courier New" SIZE 0,16 // BOLD // BOLD retirado em 19/09/05 DEFINE FONT oFont2 NAME "Ms Sans Serif" SIZE 0, -08 // windows DEFINE DIALOG oDlg FROM 5,5 TO 350, 620 ; // OF oWnd ; TITLE OemToAnsi(cTitulo) PIXEL ODLG:LHELPICON := .F. // Desliga a "?" da Caixa de Dialogo. cPesq="" ; cPos="|" DEFINE FONT oFntTimes NAME "Times New Roman" SIZE 0,-12 @ 165,40 SAY OemToAnsi(cRodape) PIXEL FONT oFntTimes; COLOR RGB(000,000,255) // AZUL IF lRecno ; ColPesq=32.5 ELSE ; ColPesq=2 ENDIF @ 21 , ColPesq SAY oSay3 PROMPT cPOS SIZE 180,07 COLOR "r+/W" UPDATE PIXEL @ 18 , ColPesq+1.4 SAY oSay1 PROMPT cPesq SIZE 180,08 COLOR "N+/W*" UPDATE PIXEL @ 28 , 01 COLUMN BROWSE oBrw OF oDlg ; SIZE 307,135; // 300, 135 ; ON DBLCLICK PesqDblClq(nRet,oDlg); MESSAGE "Para localizar, digite as letras iniciais. - [backSpace] para corrigir." ; COLOR "N/W" PIXEL obrw:bKeyDown :={|nKey,nFlags| Incremental(nKey,cCampo, oBrw,oSay1,oSay3,oDlg,cCampo,oldRecno, cPesquRet, nRet,oWnd, cPesq, cPos)} oBrw:cOrderType:= "C" oBrw:aJustify := {.T., .T.} // Justifica os Cabe‡alhos Esq. .T. =Centro oBrw:nFreeze := 1 IF lRecno ADD COLUMN TO BROWSE oBrw DATA Recno() SIZE 60 NOBAR CENTER ; HEADER "Registro" ENDIF ADD COLUMN TO BROWSE oBrw DATA {||&cCampo} SIZE 100 ; HEADER OemToAnsi(cCabecalho) @ 03, 33 BUTTON oBtn1 PROMPT "&OK = [ENTER]" OF oDlg SIZE 150,11 ACTION {||nRet:=1,oDlg:End()} ; MESSAGE "C o n f i r m a a p e s q u i s a" PIXEL oBtn1:ctooltip:=OemToAnsi("Confirma a pesquisa") oBtn1:SetFont(oFont2) @ 03,210 BUTTON oBtn2 PROMPT "&Cancela = [ESC]" OF oDlg SIZE 58,09 ACTION {||nRet:=0, cPesquRet:="", DBGOTO(OldRecno), oDlg:End()} ; MESSAGE "C a n c e l a a p e s q u i s a" PIXEL oBtn2:ctooltip:=OemToAnsi("Cancela a pesquisa") oBtn2:SetFont(oFont2) @ 03,275 BUTTON oBtn3 PROMPT "&Help" OF oDlg SIZE 22,09 ; MESSAGE "A j u d a p a r a a p e s q u i s a" PIXEL ; ACTION {||MSGINFO(; OemToAnsi('- OP€åES para localizar:')+CRLF+CRLF+; OemToAnsi(' 1¦) PESQUISA INCREMENTAL:')+CRLF+; OemToAnsi(' A cada letra digitada, o cursor, em azul, ir se aproximando do nome procurado.')+CRLF+; OemToAnsi(' Em geral, bastam 3 ou 4 letras, e o nome estar vis¡vel na janela.')+CRLF+; OemToAnsi(' Enquanto se digita, o texto vai sendo visualizado na etiqueta branca. Um pequeno')+CRLF+; OemToAnsi(' tra‡o vermelho sob a mesma indica a posi‡Æo do cursor na digita‡Æo.')+CRLF+; OemToAnsi(' Quando nÆo encontrado o nome, o cursor estar posicionado sobre o nome mais')+CRLF+; OemToAnsi(' proximo seguinte.')+CRLF+; OemToAnsi(' Use BackSpace para corrigir erros ao digitar.')+CRLF+CRLF+; OemToAnsi(' 2¦) SETAS ACIMA e ABAIXO, PgUp e PgDw.')+CRLF+CRLF+; OemToAnsi(' 3¦) Usando o mouse sobre a BARRA DE ROLAGEM VERTICAL … direita.')+CRLF+CRLF+; OemToAnsi('- Ap¢s logalizado o nome, pressione o botÆo "OK" ou a tecla "ENTER" ou "Alt+O",')+CRLF+; OemToAnsi(' ou dˆ um DUPLO-CLIQUE sobre o nome selecionado.')+CRLF+CRLF+; OemToAnsi('- Se desistir da pesquisa, pressione o botÆo "CANCELA" ou a tecla "ESC" ou "Alt+C".')+CRLF+CRLF; ,OemToAnsi('Como pesquisar:')),; oBrw:SetFocus } oBtn3:ctooltip:=OemToAnsi("Ajuda a pesquisa") oBtn3:SetFont(oFont2) SET FONT OF oBrw TO oFont1 SET FONT OF oDlg TO oFont1 ACTIVATE DIALOG oDlg CENTERED oWnd:UPDATE() SELE &AREASELE SET ORDER TO IndiceAnt *RETURN NIL RETURN (nRet,cPesquRet) STATIC FUNCTION PesqDblClq(nRet,oDlg) nRet:=1 oDlg:End() RETURN nil FUNCTION INCREMENTAL(nKey, Alias, oBrw, oSay1, oSay3, oDlg,cCampo,oldRecno, cPesquRet, nRet, oWnd, cPesq, cPos) IF nKey>=96 .AND. nKey<=105 ; nKey-=48 ; ENDIF IF nKey=108 .OR. nKey=190 ; nKey=46 ; ENDIF // "." IF nKey=110 .OR. nKey=188 ; nKey=44 ; ENDIF // "," IF nKey=106 ; nKey=42 ; ENDIF // "*" IF nKey=107 ; nKey=43 ; ENDIF // "+" IF nKey=109 ; nKey=45 ; ENDIF // "-" IF nKey=111 ; nKey=47 ; ENDIF // "/" DO CASE CASE nKey = VK_ESCAPE GO OldRecno ; cPesquRet="" ; nRet=0 ; oWnd:UPDATE() ; oDlg:End() ; RETURN .T. CASE nKey = 13 oWnd:UPDATE() ; nRet=1 ; oDlg:End() ; RETURN .T. CASE nKey=8 // backspace If Len(cPesq) > 0 cPesq:=Left(cPesq,Len(cPesq)-1) Endif * CASE (nKey>=32 .and. nKey<=150) * CASE (nKey>=48 .and. nKey<=122) .OR. nKey=32 CASE (nKey>=48 .and. nKey<=122) .OR. nKey=32; .OR. nKey= 42; // "*" .OR. nKey= 43; // "+" .OR. nKey= 44; // "." .OR. nKey= 45; // "-" .OR. nKey= 46; // "," .OR. nKey= 47 // "/" * CASE (nKey>=48 .and. nKey<=150) .OR. nKey=32 .OR. nKey=199 .OR. nKey=135 cPesq+=(CHR(nKey)) OTHERWISE ; RETURN .T. ENDCASE cPesq=LEFT(cPesq,LEN(&cCampo)) cPOS=SPACE(LEN(cPesq))+"|" SEEK cPesq SOFTSEEK oBrw:REFRESH(.n.) odlg:UPDATE() oSay3:cTitle(cPos) oSay1:cTitle(cPesq) cPesquRet=cPesq 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

Obrigado Eric, funcionou certinho. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Por que as variáveis com mais de 10 caracteres não são gravadas nos arquivos .mem ? Quando eu usava o FW 2.21, isso não acontecia. Tenho em meus sistemas (todos) uma variável chamada AUTORIZACAO (tem mais de 10 caracteres) que é salva em INI.MEM, na saída dos sistemas e é restaurada no início dos mesmos. Funciona normal, em todos os sistemas. Porém, agora, no xHarbour, não funciona. Ou será pelo 32 bits? Vejam os exemplos: // Este funciona (até 10 caracteres): c234567890 := "Variável com até 10 caracteres" ? c234567890 SAVE TO INI c234567890 := "---" RESTORE FROM INI ADDITIVE ? c234567890, IIF(c234567890=="Variável com até 10 caracteres","Ok","Erro") // Este não funciona (mais de 10 caracteres): c2345678901 := "Variável com mais de 10 caracteres" ? c2345678901 SAVE TO INI c2345678901 := "---" RESTORE FROM INI ADDITIVE ? c2345678901, IIF(c2345678901=="Variável com mais de 10 caracteres","Ok","Erro") 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 19/01/2012 00:22:01 Editado por - orlandof on 19/01/2012 00:29:21 Editado por - orlandof on 19/01/2012 07:59:52 Editado por - orlandof on 20/01/2012 01:08:58

Por que as variáveis com mais de 10 caracteres não são gravadas nos arquivos .mem ? Quando eu usava o FW 2.21, isso não acontecia. Tenho em meus sistemas (todos) uma variável chamada AUTORIZACAO (tem mais de 10 caracteres) que é salva em INI.MEM, na saída dos sistemas e é restaurada no início dos mesmos. Funciona normal, em todos os sistemas. Porém, agora, no xHarbour, não funciona. Ou será pelo 32 bits? Vejam os exemplos: // Este funciona (até 10 caracteres): c234567890 := "Variável com até 10 caracteres" ? c234567890 SAVE TO INI c234567890 := "---" RESTORE FROM INI ADDITIVE ? c234567890, IIF(c234567890=="Variável com até 10 caracteres","Ok","Erro") // Este não funciona (mais de 10 caracteres): c2345678901 := "Variável com mais de 10 caracteres" ? c2345678901 SAVE TO INI c2345678901 := "---" RESTORE FROM INI ADDITIVE ? c2345678901, IIF(c2345678901=="Variável com mais de 10 caracteres","Ok","Erro") 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 19/01/2012 00:22:01 Editado por - orlandof on 19/01/2012 00:29:21 Editado por - orlandof on 19/01/2012 07:59:52 Editado por - orlandof on 20/01/2012 01:08:58

Obrigado, João. Eu estava incluindo no WS recursos sem os definir no PRG, para testar. Eu fazia isso quando usava o FW 2.1, e não tinha problemas. Mas parece que no xHarbour esta restrição é mais acentuada. Mais uma vez, obrigado. Abraço. ---------------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop/PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG ----------------------------------------

Criei uma DLL com uma Dialog no PellesC. Alguem tem um pequeno exemplo de como utilizá-la no PRG? Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5

Criei uma DLL com uma Dialog no PellesC. Alguem tem um pequeno exemplo de como utilizá-la no PRG? Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5

Ok, Kapiaba, fiz isso, mas o problema persiste. -------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop orlandofmc@yahoo.com.br Belo Horizonte - MG -------------------------------- Editado por - orlandof on 09/12/2011 15:06:29

/* O programa funciona normal. Depois de inserir mais alguns recursos (às vezes só 1) em qualquer das dialogs da DLL (pode ser até uma dialog que não está sendo utilizada), ao rodar o programa, e ao tentar entrar em uma das rotinas que utiliza a DLL, dá a mensagem de erro: "DVD32.DLL (este é o nome da DLL) não foi criado para ser executado no Windows ou contem um erro. Tente instalar o programa novamente usando a midia de instalação original ou contate o administrador de sistemas ou o fornecedor do software para obter suporte." Os recursos que estou inderindo são os normais que sempre utilizo nas dialogs: botão, rádio, checkbox, etc. Isto está acontecendo depois que instalei o Windows 7 e o FWH 11.10. Antes era Windows XP e FW 2.1, quando não acontecia nada disso. */ *********************** TESTE.PRG ********************************************************************* #include "fivewin.ch" static oWnd, DLL_, ofDialog Static oRow, oCol function main() DLL_:="DVD32.DLL" SkinButtons() #define COLOR_BTNFACE 15 SetBalloon( .t. ) // tooltip tipo baloon hBorland:= LoadLibrary("BWCC32.DLL") * BWCCRegister( GetResources() ) DEFINE FONT ofDialog NAME "Ms Sans Serif" SIZE 0, -10 // windows // para FW 11.10 sele 42 USE Clipper_Funcoes sele 43 USE Clipper_Procedimentos DEFINE WINDOW oWnd TITLE "TESTE FWH 11.10" MENU BuildMenu() ACTIVATE WINDOW oWnd return nil Function BuildMenu() Local oMenu MENU oMenu MENUITEM "Menu" MENU MENUITEM "Dialog 01" ACTION BD() MENUITEM "Dialog 02" ACTION BJ() MENUITEM "Sair" ACTION oWnd:END ENDMENU ENDMENU Return oMenu Function Acc32 ( ) ? "Quien diría que esto es la función acc32()" Return nil #Include "B.PRG" *********************************** B.PRG ******************************************************************** #include "FiveWin.ch" #include "TCBrowse.ch" PROCEDURE BD // LOCAL dBD, obSair, ob22, ofCour11, dBJ, ob980 MemVar oBrw1 BEGIN SEQUENCE SET RESOURCES TO DLL_ // , "BWCC.DLL" DEFINE FONT ofCOUR11 NAME "Courier New" SIZE 00,-12 // bold // UNDERLINE DEFINE DIALOG dBD NAME "BD_TESTES" FONT ofDialog COLOR 0, GetSysColor( COLOR_BTNFACE ) // COLOR "B/W" REDEFINE SAY OS10 PROMPT "TESTE" ID 10 OF dBD *sele 42 SELE Clipper_Funcoes REDEFINE BROWSE oBrw1 ID 100 OF dBJ UPDATE oBrw1:SetFont(ofCour11) oBrw1:lCellStyle := .t. // muda o tipo de selecao de "linhas" para "campos". oBrw1:nClrForeHead := CLR_WHITE // | cores para o oBrw1:nClrBackHead := CLR_RED // | cabecalho oBrw1:bKeyDown :={|nkey|bjEdit1(nKey,oBrw1,dBj)} oBrw1:blDblClick:={| |bjEdit1(13 ,oBrw1,dBj)} ADD COLUMN TO oBrw1 SIZE 10 ADD COLUMN TO oBrw1 DATA TRAN(42->(RECNO()),"####") SIZE 33 HEADER "Recno()" COLOR IIF(MOD(RECNO(),2)=0 ,"R/BG","R/W") ADD COLUMN TO oBrw1 DATA 42->FUNCAO____ SIZE 140 HEADER "Função" ADD COLUMN TO oBrw1 DATA 42->DESCRICAO_ SIZE 300 HEADER "Descrição" ADD COLUMN TO oBrw1 DATA 42->SINTAXE___ SIZE 300 HEADER "Sintaxe" ADD COLUMN TO oBrw1 DATA 42->VER_TAMB__ SIZE 300 HEADER "Ver também" ADD COLUMN TO oBrw1 SIZE 1 oBrw1:nColAct := 3 // Coluna em que o cursor Vai Iniciar. BJ_CliqueOrder(oBrw1, 1 , 3 ) // (obrw, indice, coluna) -> para setar o indice e colorir a coluna oBrw1:aActions := {{|| .T. } ,; {|| .T. } ,; {|| BJ_CliqueOrder(oBrw1,1,3) } ,; {|| .T. } ,; {|| .T. } ,; {|| BJ_CliqueOrder(oBrw1,2,6) } } REDEFINE BUTTON oB980 ID 980 OF dBd ACTION (BROWSE()) oB980:ctooltip:="Mostra lista com todos os"+chr(10)+chr(13)+"Arquivos Abertos da aplicação" REDEFINE BUTTON oBSair ID 990 OF dBd ACTION dBd:end() oBSair:ctooltip:="Fechar esta " + Chr( 13 ) + Chr( 10 ) + "janela" ACTIVATE DIALOG dBD ENDSEQUENCE SET RESOURCES TO SYSREFRESH() RETURN PROCEDURE BJ // LOCAL ofCour11, dBJ, obSair, ob980 MemVar oBrw1 BEGIN SEQUENCE DEFINE FONT ofCOUR11 NAME "Courier New" SIZE 00,-12 // bold // UNDERLINE SET RESOURCES TO DLL_ // , "BWCC.DLL" DEFINE DIALOG dBJ NAME "BJ_CLIPPER" FONT ofDialog COLOR 0, GetSysColor( COLOR_BTNFACE ) // COLOR "B/W" dBJ:LHELPICON := .F. *sele 43 SELE Clipper_Procedimentos REDEFINE BROWSE oBrw1 ID 100 OF dBJ UPDATE oBrw1:SetFont(ofCour11) oBrw1:lCellStyle := .t. // muda o tipo de selecao de "linhas" para "campos". oBrw1:nClrForeHead := CLR_WHITE // | cores para o oBrw1:nClrBackHead := CLR_RED // | cabecalho oBrw1:bKeyDown :={|nkey|bjEdit1(nKey,oBrw1,dBj)} oBrw1:blDblClick:={| |bjEdit1(13 ,oBrw1,dBj)} ADD COLUMN TO oBrw1 SIZE 10 ADD COLUMN TO oBrw1 DATA TRAN(43->(RECNO()),"####") SIZE 33 HEADER "Recno()" COLOR IIF(MOD(RECNO(),2)=0 ,"R/BG","R/W") ADD COLUMN TO oBrw1 DATA 43->PROCEDIM__ SIZE 140 HEADER "Função" ADD COLUMN TO oBrw1 DATA 43->DESCRICAO_ SIZE 300 HEADER "Descrição" ADD COLUMN TO oBrw1 DATA 43->SINTAXE___ SIZE 300 HEADER "Sintaxe" ADD COLUMN TO oBrw1 DATA 43->VER_TAMB__ SIZE 300 HEADER "Ver também" ADD COLUMN TO oBrw1 SIZE 1 oBrw1:nColAct := 3 // Coluna onde o cursor vai iniciar. BJ_CliqueOrder(oBrw1, 1 , 3 ) // (obrw, indice, coluna) -> para setar o indice e colorir a coluna oBrw1:aActions := {{|| .T. } ,; {|| .T. } ,; {|| BJ_CliqueOrder(oBrw1,1,3) } ,; {|| .T. } ,; {|| .T. } ,; {|| BJ_CliqueOrder(oBrw1,2,6) } } REDEFINE BUTTON oB980 ID 980 OF dBJ ACTION (BROWSE()) oB980:ctooltip:="Mostra lista com todos os"+chr(10)+chr(13)+"Arquivos Abertos da aplicação" REDEFINE BUTTON oBSair ID 990 OF dBJ ACTION dBJ:end() oBSair:ctooltip:="Fechar esta " + Chr( 13 ) + Chr( 10 ) + "janela" ACTIVATE DIALOG dBJ ENDSEQUENCE SET RESOURCES TO SYSREFRESH() RETURN STATIC FUNCTION BJ_CliqueOrder(oBrw1,nOrd,nCol) 43->(OrdSetFocus(nOrd)) oBrw1:nColOrder := nCol oBrw1:nOClrBackHead := CLR_HBLUE // Aqui muda a cor da coluna qdo clicada oBrw1:nColAct := nCol // Coloca o cursor na coluna selecionada oBrw1:Refresh() RETURN(.T.) FUNCTION BJEdit1(nKey,oBrw1,dBj) Local xField, cField, nCol SELE 42 // CLIPPER_FUNCOES IF nKey= 27 ; dBJ:END() ; ENDIF IF nKey<>13 ; RETURN .T. ; ENDIF BEGIN SEQUENCE nCol=oBrw1:nColAct // coluna atual do Objeto Browse ??? oLbx? *IF nCol=7 ; BREAK ; ENDIF // não editáveis RLOCK() DO CASE CASE nCol= 3 ; cField:="FUNCAO____" ; xField=cField CASE nCol= 4 ; cField:="DESCRICAO_" ; xField=cField CASE nCol= 5 ; cField:="SINTAXE___" ; xField=cField CASE nCol= 6 ; cField:="VER_TAMB__" ; xField=cField ENDCASE xField:=&cField oBrw1:leditcol( nCol, @xField , , ) FIELDPUT( FIELDPOS(cField) ,xField) ENDSEQUENCE oBrw1:REFRESH(.n.) oBrw1:SetFocus() RETURN .T. //--------------------------------------------------------------------------- -------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop orlandofmc@yahoo.com.br Belo Horizonte - MG --------------------------------

Vou tentar isso aí, Luiz. Quanto ao PellesC, se tem mais recursos, me interessa. Como consegui-lo? Obrigado pela dica. Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5

Kbelo e Kapiaba, Estou verificando, e retorno assim que terminar. Obrigado pela atenção. -------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop orlandofmc@yahoo.com.br Belo Horizonte - MG -------------------------------- Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5

Senhores, Estou iniciando agora no xHarbour. Antes usava o FW2.1, agora o FWH 11.10 - Windows 7, e deparei com um problema: estou fazendo um programa só para testes, e, ao usar o Workshop, depois de colocar no programa apenas 2 dialogs, com pouquissimos recursos, o programa não aceita que acrescente mais recursos em nenhuma dialog. O workshop aceita, mas dá erro no programa. Isso para qualquer recurso (botão, texto, listbox, etc) que eu acrescento em qualquer dialog, o progarama apresenta erro quando entro em qualquer dialog. A seguir o ERROR.LOG: Application =========== Path and name: C:\APLIC\Dvd_11\DVD.exe (32 bits) Size: 2,087,936 bytes Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715) FiveWin Version: FWHX 11.10 Windows version: 6.1, Build 7600 Time from start: 0 hours 0 mins 19 secs Error occurred at: 07/12/2011, 14:53:57 Error description: Error FiveWin/3 Cannot create Dialog Box: Resource: BJ_CLIPPER Stack Calls =========== Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR( 563 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 ) Called from: DVD.prg => BJ( 580 ) Called from: DVD.prg => BOTOES1( 896 ) Called from: DVD.prg => (b)BOTOES( 956 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 466 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 663 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1713 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1458 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3440 ) Called from: => WINRUN( 0 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1000 ) Called from: DVD.prg => MAIN( 522 ) System ====== CPU type: Genuine Intel® CPU T1400 @ 1.73GHz 1733 Mhz Hardware memory: 594 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Windows total applications running: 20 1 DVD - v. 11.12.07-14.53 ============================================== - hoje informatica - 3412.2556, C:\APLIC\Dvd_11\DVD.exe 2 , C:\Program Files\AVG Secure Search\vprot.exe 3 , C:\Program Files\Med4 - Dvd\med.exe 4 , C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE 5 , C:\Program Files\Windows Live\Mesh\WLSync.exe 6 , C:\Program Files\Windows Live\Messenger\msnmsgr.exe 7 , C:\Program Files\Windows Sidebar\sidebar.exe 8 , C:\Windows\Explorer.EXE 9 , C:\Windows\System32\hkcmd.exe 10 CiceroUIWndFrame, C:\Windows\system32\taskhost.exe 11 DWM Notification Window, C:\Windows\system32\Dwm.exe 12 MCI command handling window, C:\Program Files\AVG\AVG2012\avgtray.exe 13 MOE, C:\Program Files\Windows Live\Mesh\MOE.exe 14 MSCTFIME UI, C:\Windows\system32\conhost.exe 15 PersistWndName, C:\Windows\System32\igfxpers.exe 16 PresenceSignIn, C:\Program Files\Windows Live\Contacts\wlcomm.exe 17 Prompt de Comando - c, C:\Windows\system32\cmd.exe 18 Resource Workshop - dvd32.dll, C:\Windows\system32\ntvdm.exe 19 SysFader, C:\Program Files\Internet Explorer\iexplore.exe 20 igfxtrayWindow, C:\Windows\System32\igfxtray.exe Variables in use ================ Procedure Type Value ========================== CREATEDLGERROR Param 1: O Class: TDIALOG Local 1: C "BJ_CLIPPER" Local 2: C " " TDIALOG:ACTIVATE Param 1: U Param 2: U Param 3: U Param 4: L .F. Param 5: U Param 6: L .T. Param 7: U Param 8: U Param 9: U Param 10: L .F. Param 11: L .F. Local 1: O Class: TDIALOG Local 2: N 395962 Local 3: U Local 4: U BJ Local 1: O Class: TDIALOG Local 2: O Class: TBUTTON Local 3: O Class: TBUTTON Local 4: U BOTOES1 Param 1: C "BJ" Param 2: L .T. Param 3: C "0" Local 1: U (b)BOTOES Param 1: O Class: TBTNBMP TBTNBMP:CLICK Local 1: O Class: TBTNBMP TBTNBMP:LBUTTONUP Param 1: N 52 Param 2: N 45 Param 3: O Class: TBTNBMP Local 1: U Local 2: L .T. TCONTROL:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 3407917 Local 1: O Class: TBTNBMP Local 2: U TBTNBMP:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 3407917 Local 1: O Class: TBTNBMP _FWH Param 1: N 3407917 Param 2: N 514 Param 3: N 0 Param 4: N 3407917 Param 5: N 10 Local 1: O Class: TBTNBMP WINRUN Param 1: N 395962 TWINDOW:ACTIVATE Param 1: C "MAXIMIZED" Param 2: U Param 3: B {|| ... } Param 4: U Param 5: U Param 6: U Param 7: U Param 8: B {|| ... } Param 9: U Param 10: U Param 11: U Param 12: U Param 13: U Param 14: U Param 15: U Param 16: U Param 17: U Param 18: U Param 19: U Local 1: O Class: TWINDOW Local 2: U Local 3: U MAIN Linked RDDs =========== DBF DBFFPT DBFBLOB DBFNTX DataBases in use ================ 1: DISCOS RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 3 .F. .F. Indexes in use TagName => NUMERO____ DISCOS1 DONO______ DISCOS2 Relations in use 2: FILMES RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 203 .F. .F. Indexes in use TagName => NUMERO____+SEQUENCIA_ FILMES1 UPPER(CarEsp(NOME______)) FILMES2 Relations in use 3: ARTISTAS RddName: DBFNTX ============================== RecNo RecCount BOF EOF 15 80 .F. .F. Indexes in use TagName => UPPER(CarEsp(NOME______)) ARTISTAS1 Relations in use 40: ENGLISH RddName: DBFNTX ============================== RecNo RecCount BOF EOF 15185 15185 .F. .F. Indexes in use TagName => UPPER(PALAVRA___) ENGLISH1 Relations in use 42: CLIPPER_FUNCOES RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 317 .F. .F. Indexes in use TagName => FUNCAO____ CLIPPER_FU VER_TAMB__ CLIPPER_FU Relations in use 43: => CLIPPER_PROCEDI RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 123 .F. .F. Indexes in use TagName => PROCEDIM__ CLIPPER_PR VER_TAMB__ CLIPPER_PR Relations in use 80: FERIADOS RddName: DBFNTX ============================== RecNo RecCount BOF EOF 17 20 .F. .F. Indexes in use TagName => RIGHT(DIA_MES___,2)+LEFT(DIA_MES___FERIADOS1 CATEGORIA_ FERIADOS2 DESCRICAO_ FERIADOS3 Relations in use 90: MENU RddName: DBFNTX ============================== RecNo RecCount BOF EOF 22 200 .F. .F. Indexes in use TagName => STRTRAN(JANELA____,'_','') MENU1 SUBUNIDAD_ MENU2 Relations in use 91: SETUP RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use 92: LOGFILE RddName: DBFNTX ============================== RecNo RecCount BOF EOF 6862 6862 .F. .F. Indexes in use TagName => DTOS(DATA______)+HORA______+TRAN(RELOGFILE1 USUARIO___ LOGFILE2 LEFT(UPPER(HISTORICO_),50) LOGFILE3 Relations in use Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TSKINBUTTON 6 TWINDOW 7 TDIALOG 8 TBRUSH 9 TCONTROL 10 TBUTTON 11 TFONT 12 TICON 13 TRECT 14 TSAY 15 TMETER 16 TMENU 17 TMENUITEM 18 TMSGBAR 19 TMSGITEM 20 TTIMER 21 TLISTBOX 22 TBAR 23 TBTNBMP 24 TCOMBOBOX 25 TWBROWSE 26 TCBROWSE 27 TCCOLUMN 28 TSCROLLBAR 29 TREG32 Memory Analysis =============== 355 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes -------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop orlandofmc@yahoo.com.br Belo Horizonte - MG -------------------------------- Editado por - orlandof on 13/12/2011 10:44:03

Senhores, Estou iniciando agora no xHarbour. Antes usava o FW2.1, agora o FWH 11.10 - Windows 7, e deparei com um problema: estou fazendo um programa só para testes, e, ao usar o Workshop, depois de colocar no programa apenas 2 dialogs, com pouquissimos recursos, o programa não aceita que acrescente mais recursos em nenhuma dialog. O workshop aceita, mas dá erro no programa. Isso para qualquer recurso (botão, texto, listbox, etc) que eu acrescento em qualquer dialog, o progarama apresenta erro quando entro em qualquer dialog. A seguir o ERROR.LOG: Application =========== Path and name: C:\APLIC\Dvd_11\DVD.exe (32 bits) Size: 2,087,936 bytes Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715) FiveWin Version: FWHX 11.10 Windows version: 6.1, Build 7600 Time from start: 0 hours 0 mins 19 secs Error occurred at: 07/12/2011, 14:53:57 Error description: Error FiveWin/3 Cannot create Dialog Box: Resource: BJ_CLIPPER Stack Calls =========== Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR( 563 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 ) Called from: DVD.prg => BJ( 580 ) Called from: DVD.prg => BOTOES1( 896 ) Called from: DVD.prg => (b)BOTOES( 956 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 466 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 663 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1713 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1458 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3440 ) Called from: => WINRUN( 0 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1000 ) Called from: DVD.prg => MAIN( 522 ) System ====== CPU type: Genuine Intel® CPU T1400 @ 1.73GHz 1733 Mhz Hardware memory: 594 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Windows total applications running: 20 1 DVD - v. 11.12.07-14.53 ============================================== - hoje informatica - 3412.2556, C:\APLIC\Dvd_11\DVD.exe 2 , C:\Program Files\AVG Secure Search\vprot.exe 3 , C:\Program Files\Med4 - Dvd\med.exe 4 , C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE 5 , C:\Program Files\Windows Live\Mesh\WLSync.exe 6 , C:\Program Files\Windows Live\Messenger\msnmsgr.exe 7 , C:\Program Files\Windows Sidebar\sidebar.exe 8 , C:\Windows\Explorer.EXE 9 , C:\Windows\System32\hkcmd.exe 10 CiceroUIWndFrame, C:\Windows\system32\taskhost.exe 11 DWM Notification Window, C:\Windows\system32\Dwm.exe 12 MCI command handling window, C:\Program Files\AVG\AVG2012\avgtray.exe 13 MOE, C:\Program Files\Windows Live\Mesh\MOE.exe 14 MSCTFIME UI, C:\Windows\system32\conhost.exe 15 PersistWndName, C:\Windows\System32\igfxpers.exe 16 PresenceSignIn, C:\Program Files\Windows Live\Contacts\wlcomm.exe 17 Prompt de Comando - c, C:\Windows\system32\cmd.exe 18 Resource Workshop - dvd32.dll, C:\Windows\system32\ntvdm.exe 19 SysFader, C:\Program Files\Internet Explorer\iexplore.exe 20 igfxtrayWindow, C:\Windows\System32\igfxtray.exe Variables in use ================ Procedure Type Value ========================== CREATEDLGERROR Param 1: O Class: TDIALOG Local 1: C "BJ_CLIPPER" Local 2: C " " TDIALOG:ACTIVATE Param 1: U Param 2: U Param 3: U Param 4: L .F. Param 5: U Param 6: L .T. Param 7: U Param 8: U Param 9: U Param 10: L .F. Param 11: L .F. Local 1: O Class: TDIALOG Local 2: N 395962 Local 3: U Local 4: U BJ Local 1: O Class: TDIALOG Local 2: O Class: TBUTTON Local 3: O Class: TBUTTON Local 4: U BOTOES1 Param 1: C "BJ" Param 2: L .T. Param 3: C "0" Local 1: U (b)BOTOES Param 1: O Class: TBTNBMP TBTNBMP:CLICK Local 1: O Class: TBTNBMP TBTNBMP:LBUTTONUP Param 1: N 52 Param 2: N 45 Param 3: O Class: TBTNBMP Local 1: U Local 2: L .T. TCONTROL:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 3407917 Local 1: O Class: TBTNBMP Local 2: U TBTNBMP:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 3407917 Local 1: O Class: TBTNBMP _FWH Param 1: N 3407917 Param 2: N 514 Param 3: N 0 Param 4: N 3407917 Param 5: N 10 Local 1: O Class: TBTNBMP WINRUN Param 1: N 395962 TWINDOW:ACTIVATE Param 1: C "MAXIMIZED" Param 2: U Param 3: B {|| ... } Param 4: U Param 5: U Param 6: U Param 7: U Param 8: B {|| ... } Param 9: U Param 10: U Param 11: U Param 12: U Param 13: U Param 14: U Param 15: U Param 16: U Param 17: U Param 18: U Param 19: U Local 1: O Class: TWINDOW Local 2: U Local 3: U MAIN Linked RDDs =========== DBF DBFFPT DBFBLOB DBFNTX DataBases in use ================ 1: DISCOS RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 3 .F. .F. Indexes in use TagName => NUMERO____ DISCOS1 DONO______ DISCOS2 Relations in use 2: FILMES RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 203 .F. .F. Indexes in use TagName => NUMERO____+SEQUENCIA_ FILMES1 UPPER(CarEsp(NOME______)) FILMES2 Relations in use 3: ARTISTAS RddName: DBFNTX ============================== RecNo RecCount BOF EOF 15 80 .F. .F. Indexes in use TagName => UPPER(CarEsp(NOME______)) ARTISTAS1 Relations in use 40: ENGLISH RddName: DBFNTX ============================== RecNo RecCount BOF EOF 15185 15185 .F. .F. Indexes in use TagName => UPPER(PALAVRA___) ENGLISH1 Relations in use 42: CLIPPER_FUNCOES RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 317 .F. .F. Indexes in use TagName => FUNCAO____ CLIPPER_FU VER_TAMB__ CLIPPER_FU Relations in use 43: => CLIPPER_PROCEDI RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 123 .F. .F. Indexes in use TagName => PROCEDIM__ CLIPPER_PR VER_TAMB__ CLIPPER_PR Relations in use 80: FERIADOS RddName: DBFNTX ============================== RecNo RecCount BOF EOF 17 20 .F. .F. Indexes in use TagName => RIGHT(DIA_MES___,2)+LEFT(DIA_MES___FERIADOS1 CATEGORIA_ FERIADOS2 DESCRICAO_ FERIADOS3 Relations in use 90: MENU RddName: DBFNTX ============================== RecNo RecCount BOF EOF 22 200 .F. .F. Indexes in use TagName => STRTRAN(JANELA____,'_','') MENU1 SUBUNIDAD_ MENU2 Relations in use 91: SETUP RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use 92: LOGFILE RddName: DBFNTX ============================== RecNo RecCount BOF EOF 6862 6862 .F. .F. Indexes in use TagName => DTOS(DATA______)+HORA______+TRAN(RELOGFILE1 USUARIO___ LOGFILE2 LEFT(UPPER(HISTORICO_),50) LOGFILE3 Relations in use Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TSKINBUTTON 6 TWINDOW 7 TDIALOG 8 TBRUSH 9 TCONTROL 10 TBUTTON 11 TFONT 12 TICON 13 TRECT 14 TSAY 15 TMETER 16 TMENU 17 TMENUITEM 18 TMSGBAR 19 TMSGITEM 20 TTIMER 21 TLISTBOX 22 TBAR 23 TBTNBMP 24 TCOMBOBOX 25 TWBROWSE 26 TCBROWSE 27 TCCOLUMN 28 TSCROLLBAR 29 TREG32 Memory Analysis =============== 355 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes -------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop orlandofmc@yahoo.com.br Belo Horizonte - MG -------------------------------- Editado por - orlandof on 13/12/2011 10:44:03

citação:Isto aceita imagens no formato .PNG ??! id=quote>id=quote>Anderson, Não conheço este formato, portanto, nunca tentei. Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5 Editado por - orlandof on 29/11/2007 08:35:35

Tente assim: cLogo1="" REDEFINE Image oImage ID 100 Of oDlg; FILE cLogo1 Adjust UPDATE oImage:Progress(.F.) cLogo1="SuaFoto.jpg" oImage:LoadBmp(cLogo1) Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5

Mário, Poderia enviar para mim? orlandofmc@uai.com.br Obrigado Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5 Editado por - orlandof on 21/11/2007 07:59:51

citação:Podem fazer o teste ai, so ocorre este problema se voce estiver usando o Internet Explorer. Nos meus testes quando era usado o Mozilla Firefox o problema não acontece de forma alguma, mas na mesma maquina se eu abria com Internet Explorer ele fechava o programa na hora. Marcelo Gomes elitenet@terra.com.br - (32) 3728-1288 - Muriae - MG id=quote>id=quote>Marcio Tulio, Poderia me passar este e-mail? Comigo acontece igualzinho o descrito pelo Marcelo Gomes. Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5