Yury

olá, recebi um e-mail do Marcelo Lombardo (lembram dele, o cabeludo q estava no terceiro encontro de FW) convidando para um seminário q se realizará no dia 05 de abril no Itaim Bibi em SP capital. Ele mencionou no email q estará presente o Ron Pinkas (criador do xHarbour) e q serão apresentadas ferramentas para desenvolvimento em ambiente gráfico para Windows e Linux... (não sei se é fivewin, pois no email ele não cita) Gostaria de saber se alguém mais está sabendo, se sabem de mais detalhes e também a opinião sobre o próprio Marcelo Lombardo e o tal do Ron Pinkas, pois não sei se eles tem alguma coisa a ver com o FiveWin... grato pela atenção Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.50

olá, recebi um e-mail do Marcelo Lombardo (lembram dele, o cabeludo q estava no terceiro encontro de FW) convidando para um seminário q se realizará no dia 05 de abril no Itaim Bibi em SP capital. Ele mencionou no email q estará presente o Ron Pinkas (criador do xHarbour) e q serão apresentadas ferramentas para desenvolvimento em ambiente gráfico para Windows e Linux... (não sei se é fivewin, pois no email ele não cita) Gostaria de saber se alguém mais está sabendo, se sabem de mais detalhes e também a opinião sobre o próprio Marcelo Lombardo e o tal do Ron Pinkas, pois não sei se eles tem alguma coisa a ver com o FiveWin... grato pela atenção Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.50

olá, tente colocar assim: oBrwResumido:bChange := {|| oBrwResumido:cToolTip := vRResumido[oBrwResumido] } porém acho q vc vai ter problemas com o tempo do tooltip (quando vc posicionar em outra linha ainda não vai ter destruído o anterior ) veja na classe TWindow a propriedade ::nToolTip abraços Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.50

olá, eu também precisava fazer isto em alguns programas mas já olhei a classe TWbrowse atentamente para ver se há essa possibilidade mas acho q não tem jeito. o jeito q eu fiz foi utilizar a classe TListbox, que monta uma lista sem cabeçalho,porém somente com uma coluna e sem as funcionalidades do TWbrowse (como se fosse um combobox) espero q ajude. abraços. Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.50

olá Marllon, desculpe-me escrever diretamente para o seu nome mas é que eu gostaria de me certificar que vc iria ler o post. postei no dia 16/03 uma dúvida a respeito de impressora virtual para PDF e vc me respondeu com uma afirmação q me deixou um pouco confuso: segundo vc respondeu, após o preview estar ativo (classe TPrinter) e consequentemente o objeto metafile estar criado, não há como trocar a impressora para o documento corrente, a não ser saindo do preview, selecionando outra impressora e criando o objeto meta de novo, ou seja, NÃO Hà COMO TROCAR A IMPRESSORA POR DENTRO DO PREVIEW. Isto é realmente assim, Marllon ? Veja bem, não quero que me entenda errado, pois não estou duvidando de vc, de forma alguma, mas é que eu perdi um certo tempo achando que isto era possível baseando-me neste tópico: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=8726 No meu sistema realmente eu estou conseguindo mudar o local da impressão por dentro do preview, mas se o objeto metafile não mudar, então a impressão vai sair toda desconfigurada (dependendo da impressora), pois o objeto metafile não vai obedecer as características da impressora selecionada. Pelo que li a respeito deste assunto no forum, vários colegas estão trabalhando desta forma (alterando a impressão por dentro do preview). gostaria de um comentário seu e dos demais a respeito deste assunto. obrigado pela atenção abraços. Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br FHW 2.6 / [x]Harbour 99.50

olá Marllon, desculpe-me escrever diretamente para o seu nome mas é que eu gostaria de me certificar que vc iria ler o post. postei no dia 16/03 uma dúvida a respeito de impressora virtual para PDF e vc me respondeu com uma afirmação q me deixou um pouco confuso: segundo vc respondeu, após o preview estar ativo (classe TPrinter) e consequentemente o objeto metafile estar criado, não há como trocar a impressora para o documento corrente, a não ser saindo do preview, selecionando outra impressora e criando o objeto meta de novo, ou seja, NÃO Hà COMO TROCAR A IMPRESSORA POR DENTRO DO PREVIEW. Isto é realmente assim, Marllon ? Veja bem, não quero que me entenda errado, pois não estou duvidando de vc, de forma alguma, mas é que eu perdi um certo tempo achando que isto era possível baseando-me neste tópico: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=8726 No meu sistema realmente eu estou conseguindo mudar o local da impressão por dentro do preview, mas se o objeto metafile não mudar, então a impressão vai sair toda desconfigurada (dependendo da impressora), pois o objeto metafile não vai obedecer as características da impressora selecionada. Pelo que li a respeito deste assunto no forum, vários colegas estão trabalhando desta forma (alterando a impressão por dentro do preview). gostaria de um comentário seu e dos demais a respeito deste assunto. obrigado pela atenção abraços. Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br FHW 2.6 / [x]Harbour 99.50

olá Kleyton, imagino q vc esteja querendo utilizar a classe TPrinter por causa do preview, certo ? como está essa sua rotina que gera o arquivo TXT pela TDosPrn ? está com @linha,coluna ou com o método TDosPrn:Say() ? Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br FWH 2.6 / 99.50

olá, tente assim: ASORT(aMatriz,,,{|x,y| (x[4]+x[5]+x[6]+x[7]) < (y[4]+y[5]+y[6]+y[7]) }) Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.50

olá vitor, procure na sua função RPreview a linha: oMeta1:SetZoomFactor(nZFactor, nZFactor*2) este método (SetZoomFactor) da classe TMETAFIL recebe dois parâmetros: fator para horizontal e fator para vertical no parâmetro para vertical está passando sempre vezes 2, oque provoca este problema que você está tendo (comigo isto acontecia as vezes também no modo retrato) eu resolvi deixando na minha função para que os dois valores fossem iguais nos parâmetros: oMeta1:SetZoomFactor(nZFactor, nZFactor) no meu caso resolveu para ambos os formatos de relatório (paisagem e retrato) espero que ajude. abraços. Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.50

olá pessoal. Utilizo em meus sistemas uma impressora virtual para criar arquivos PDF na impressão. Pela classe TPrinter, modifiquei o meu RPreview, colocando um botão para gerar PDF por ali: quando clico neste botão, troco a impressora automaticamente (utilizando WriteProfString) e carrego um novo modelo com o nome da impressora virtual (um nome fixo pré-definido para coincidir com o Windows). Desta forma, a impressão é enviada diretamente para o Acrobat. O problema é que ele gera o PDF com uma definição que não coincide com a do RPreview (as vezes menor, as vezes maior, as vezes sem as margens corretas) Gostaria de saber se após mudar de impressora já estando com o objeto metafile criado é necessário fazer algum ajuste, além destes: ---------------------------------------------------------- nOrientation := oDevice:GetOrientation() WriteProfString( "windows", "device", "drivePDF" ) SysRefresh() PrinterInit() oDevice:hDC := GetPrintDefault( GetActiveWindow() ) SysRefresh() if nOrientation = 2 oDevice:SetLandscape() endif ---------------------------------------------------------- obrigado pela atenção. abraços. Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.50

olá pessoal. Utilizo em meus sistemas uma impressora virtual para criar arquivos PDF na impressão. Pela classe TPrinter, modifiquei o meu RPreview, colocando um botão para gerar PDF por ali: quando clico neste botão, troco a impressora automaticamente (utilizando WriteProfString) e carrego um novo modelo com o nome da impressora virtual (um nome fixo pré-definido para coincidir com o Windows). Desta forma, a impressão é enviada diretamente para o Acrobat. O problema é que ele gera o PDF com uma definição que não coincide com a do RPreview (as vezes menor, as vezes maior, as vezes sem as margens corretas) Gostaria de saber se após mudar de impressora já estando com o objeto metafile criado é necessário fazer algum ajuste, além destes: ---------------------------------------------------------- nOrientation := oDevice:GetOrientation() WriteProfString( "windows", "device", "drivePDF" ) SysRefresh() PrinterInit() oDevice:hDC := GetPrintDefault( GetActiveWindow() ) SysRefresh() if nOrientation = 2 oDevice:SetLandscape() endif ---------------------------------------------------------- obrigado pela atenção. abraços. Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.50

Olá Obrigado Vagner e Evandro, coloquei desta forma e funcionou. Yury Marcelino Al yury030575@yahoo.com.br vimansca@vimansca.com.br FWH 2.6 - [x]Harbour 99.50

olá Wagner. obrigado pela resposta, mas eu não entendi o "chamar duas vezes" para GetHostByName(), pois ela é utilizada na classe TSmtp e não está sendo utilizada duas vezes: ----------------------------------------------------------> METHOD New(cIPServer,nPort,lAuth,cUser,cPassword)CLASS TSmtp Default nPort := 25 , ; lAuth := .F., ; cUser := "" , ; cPassword := "" If Empty( cIPServer ) cIPServer := "0.0.0.0" Endif ::lAuth := .F. ::lDoAuth := lAuth ::cUser := AllTrim( cUser ) ::cPassword := AllTrim( cPassword ) ::oSocket := TSocket():New( nPort ) ::oSocket:bRead := {|o,n| ::OnRead( o, n ) } ::oSocket:bConnect := {|o,n| ::OnConnect( o, n ) } ::cIPServer := If( IsAlpha( cIPServer ),; GetHostByName( AllTrim( cIPServer ) ), cIPServer ) ----------------------------------------------------------> Será que entendi errado ? Se for possível, peço a gentileza de postar um exemplo pra eu ver. obrigado e um abraço Yury Marcelino Al yury030575@yahoo.com.br vimansca@vimansca.com.br FWH 2.6 - [x]Harbour 99.50

olá utilizo a classe 'TSmtp' para envio de emails, porém não estou conseguindo enviar mensagens utilizando o 'nome' do servidor de email, somente consigo com o 'IP': assim funciona beleza: TSmtp():New("209.191.69.15",,,) mas o ideal é que funcione assim:( alguns IPs são dinâmicos) TSmtp():New("smtp.mail.yahoo.com.br",,,) Na classe 'TSmtp', é utilizada a função GetHostByName() para pegar o 'IP' do servidor (quando o parâmetro é alfanumérico), porém esta função está retornando sempre 0.0.0.0 já testei a função GetHostByName() isolada com vários nomes de servidores e para todos retorna a mesma coisa ( 0.0.0.0 ) Alguém sabe algo a respeito deste problema ? obrigado pela atenção abraços Yury Marcelino Al yury030575@yahoo.com.br vimansca@vimansca.com.br FWH 2.6 - [x]Harbour 99.50

olá utilizo a classe 'TSmtp' para envio de emails, porém não estou conseguindo enviar mensagens utilizando o 'nome' do servidor de email, somente consigo com o 'IP': assim funciona beleza: TSmtp():New("209.191.69.15",,,) mas o ideal é que funcione assim:( alguns IPs são dinâmicos) TSmtp():New("smtp.mail.yahoo.com.br",,,) Na classe 'TSmtp', é utilizada a função GetHostByName() para pegar o 'IP' do servidor (quando o parâmetro é alfanumérico), porém esta função está retornando sempre 0.0.0.0 já testei a função GetHostByName() isolada com vários nomes de servidores e para todos retorna a mesma coisa ( 0.0.0.0 ) Alguém sabe algo a respeito deste problema ? obrigado pela atenção abraços Yury Marcelino Al yury030575@yahoo.com.br vimansca@vimansca.com.br FWH 2.6 - [x]Harbour 99.50

Com a ajuda do Kapiaba, Luiz de Corumbá e do Marcelo Michels eu consegui fazer o que eu queria: deixar a 'cara' do sistema com o tema do Windows XP, ficou muito bom. muito obrigado a todos pela ajuda. Dica para quem trabalha com @SAY e quer utilizar o WindowsXP.Manifest (tem que utilizar FWH): 1) Copie o texto abaixo e cole no editor de sua preferência (passado por Kapiaba): 1 24 LOADONCALL MOVEABLE { '3C 3F 78 6D 6C 20 76 65 72 73 69 6F 6E 3D 22 31' '2E 30 22 20 65 6E 63 6F 64 69 6E 67 3D 22 55 54' '46 2D 38 22 20 73 74 61 6E 64 61 6C 6F 6E 65 3D' '22 79 65 73 22 3F 3E 0D 0A 3C 61 73 73 65 6D 62' '6C 79 20 78 6D 6C 6E 73 3D 22 75 72 6E 3A 73 63' '68 65 6D 61 73 2D 6D 69 63 72 6F 73 6F 66 74 2D' '63 6F 6D 3A 61 73 6D 2E 76 31 22 20 6D 61 6E 69' '66 65 73 74 56 65 72 73 69 6F 6E 3D 22 31 2E 30' '22 3E 0D 0A 3C 61 73 73 65 6D 62 6C 79 49 64 65' '6E 74 69 74 79 0D 0A 20 20 20 20 74 79 70 65 3D' '22 77 69 6E 33 32 22 0D 0A 20 20 20 20 6E 61 6D' '65 3D 22 4D 79 4F 72 67 61 6E 69 7A 61 74 69 6F' '6E 2E 4D 79 44 69 76 69 73 69 6F 6E 2E 4D 79 41' '70 70 22 0D 0A 20 20 20 20 76 65 72 73 69 6F 6E' '3D 22 31 2E 30 2E 30 2E 30 22 0D 0A 20 20 20 20' '70 72 6F 63 65 73 73 6F 72 41 72 63 68 69 74 65' '63 74 75 72 65 3D 22 58 38 36 22 0D 0A 20 20 20' '20 2F 3E 0D 0A 20 20 20 20 3C 64 65 73 63 72 69' '70 74 69 6F 6E 3E 56 65 72 62 61 6C 20 64 65 73' '63 72 69 70 74 69 6F 6E 20 6F 66 20 4D 79 41 70' '70 2E 3C 2F 64 65 73 63 72 69 70 74 69 6F 6E 3E' '0D 0A 20 20 20 20 3C 64 65 70 65 6E 64 65 6E 63' '79 3E 0D 0A 20 20 20 20 3C 64 65 70 65 6E 64 65' '6E 74 41 73 73 65 6D 62 6C 79 3E 0D 0A 20 20 20' '20 3C 61 73 73 65 6D 62 6C 79 49 64 65 6E 74 69' '74 79 0D 0A 20 20 20 20 20 20 20 20 74 79 70 65' '3D 22 77 69 6E 33 32 22 0D 0A 20 20 20 20 20 20' '20 20 6E 61 6D 65 3D 22 4D 69 63 72 6F 73 6F 66' '74 2E 57 69 6E 64 6F 77 73 2E 43 6F 6D 6D 6F 6E' '2D 43 6F 6E 74 72 6F 6C 73 22 0D 0A 20 20 20 20' '20 20 20 20 76 65 72 73 69 6F 6E 3D 22 36 2E 30' '2E 30 2E 30 22 0D 0A 20 20 20 20 20 20 20 20 70' '72 6F 63 65 73 73 6F 72 41 72 63 68 69 74 65 63' '74 75 72 65 3D 22 58 38 36 22 0D 0A 20 20 20 20' '20 20 20 20 70 75 62 6C 69 63 4B 65 79 54 6F 6B' '65 6E 3D 22 36 35 39 35 62 36 34 31 34 34 63 63' '66 31 64 66 22 0D 0A 20 20 20 20 20 20 20 20 6C' '61 6E 67 75 61 67 65 3D 22 2A 22 0D 0A 20 20 20' '20 2F 3E 0D 0A 20 20 20 20 3C 2F 64 65 70 65 6E' '64 65 6E 74 41 73 73 65 6D 62 6C 79 3E 0D 0A 20' '20 20 20 3C 2F 64 65 70 65 6E 64 65 6E 63 79 3E' '0D 0A 3C 2F 61 73 73 65 6D 62 6C 79 3E 0D 0A 0D' '0A' } 2) Salve com o nome que desejar, utilizando a extensão .RC (passado por Kapiaba): 3) Para quem usa xDev (como é o meu caso), abrir o projeto, selecionar 'PROJETO', 'ADICIONAR ARQUIVO' e selecionar o arquivo que foi salvo com extensão .RC (passado por Marcelo Michels). Quem utiliza xMate ou outros pode comentar melhor como incluir este arquivo RC, mas acho que o conceito é o mesmo. Depois disso foi só compilar que TODAS AS TELAS DO SISTEMA INTEIRO FICARAM COM CARA DO XP, ou seja, quem utiliza @SAY é somente adicionar um arquivo .RC. Espero que isto possa ajudar alguém que venha ter a mesma dúvida que eu. mais uma vez obrigado a todos que deram uma força abraços. Yury Marcelino Al yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.5

muito obrigado pela "intromissão" Luiz, pois é exatamente oque vc escreveu, eu estava com dúvidas de COMO incorporar o código ao recurso. e ao João muito obrigado mais uma vez pela resposta. Vou tentar da forma como passou abraços. Yury Marcelino Al yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.5

olá João, obrigado pela resposta. Só pra efeito de comentário, a primeira coisa que faço quando tenho uma dúvida é pesquisar em todas as seções para ver se acho alguma coisa. Já havia feito a pesquisa na tela principal e também na tela de busca, mas infelizmente não consegui esclarecer com os tópicos que achei... Se alguém puder dar alguma ajuda eu agradeço... obrigado. abraços. Yury Marcelino Al yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.5

Olá pessoal. É possível utilizar o tema do Windows XP sem utilizar RC ou RES, ou seja, com @SAY ? Se é possível gostaria de um exemplo. Se não for possível, gostaria de saber se há alguma outra forma para que as telas fiquem com o aspecto do Windows XP sem ser com RC ( uma classe de botões, por exemplo ) Por último, como faço para utilizar WindowsXP.Manifest em um RC ? Como eu uso @SAY, só utilizo o WS para fazer .DLL com bitmaps e meus conhecimentos são parcos. Achei em uma dica aqui no forum que deve-se incluir as linhas abaixo em um RC: #include "winapi.ch" #ifdef __FLAT__ 1 24 "WindowsXP.Manifest" #endif Mas estou empacado: Abro o WS Seleciono 'file' e depois 'new project' Seleciono 'RC' Pede o nome do arquivo, eu informo Clico em 'ok' ele avisa que não existe e irá criar, clico 'ok' Depois daí não sei mais oque fazer... Tentei procurar algum RC de exemplo mas todos que eu achei só tem bmps,dialogs,etc... nenhum com linhas de código. desde já agradeço pela atenção um abraço. Yury Marcelino Al yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.5

Olá pessoal. É possível utilizar o tema do Windows XP sem utilizar RC ou RES, ou seja, com @SAY ? Se é possível gostaria de um exemplo. Se não for possível, gostaria de saber se há alguma outra forma para que as telas fiquem com o aspecto do Windows XP sem ser com RC ( uma classe de botões, por exemplo ) Por último, como faço para utilizar WindowsXP.Manifest em um RC ? Como eu uso @SAY, só utilizo o WS para fazer .DLL com bitmaps e meus conhecimentos são parcos. Achei em uma dica aqui no forum que deve-se incluir as linhas abaixo em um RC: #include "winapi.ch" #ifdef __FLAT__ 1 24 "WindowsXP.Manifest" #endif Mas estou empacado: Abro o WS Seleciono 'file' e depois 'new project' Seleciono 'RC' Pede o nome do arquivo, eu informo Clico em 'ok' ele avisa que não existe e irá criar, clico 'ok' Depois daí não sei mais oque fazer... Tentei procurar algum RC de exemplo mas todos que eu achei só tem bmps,dialogs,etc... nenhum com linhas de código. desde já agradeço pela atenção um abraço. Yury Marcelino Al yury030575@yahoo.com.br FWH 2.6 / [x]Harbour 99.5

Olá Luciano, Não sei se vc já resolveu , mas tente fazer assim: ---------------------------------------------------------- ADD COLUMN TO BROWSE oBrw ; DATA FieldWBlock("BAKIYE", Select("Stok")) ; HEADER "Bakiye" ; PICTURE "###,###.##" ; EDITABLE ; WIDTH 70 PIXELS ; VALID {|o| MinhaFuncao( o ) } Function MinhaFuncao( objeto ) local uVar:=objeto:oGet:Varget * AQUI DEPENDE DA VALIDAÇÃO QUE VC QUER IF EMPTY(uVar) MSGALERT("Campo não é aceito vazio","ATENÇÃO") RETURN(.F.) ENDIF RETURN(.T.) ---------------------------------------------------------- Espero ter ajudado. Um abraço. Yury Marcelino Al VIMAN Sistemas - Leme/SP yury030575@yahoo.com.br

Olá pessoal. Gostaria de iniciar a minha participação no fórum mandando um abraço para o Zé Carlos e para o Paulo, parabenizando-os pelo sucesso total que foi o nosso IV Encontro de Programadores. Uma saudação especial também a todos aqueles que participaram e garantiram um encontro de altíssimo nível, tanto na valiosa troca de conhecimentos entre os programadores, como no já tradicional 'granfinale' (cervejada) ao final do encontro. Quanta risada e quanta cana... Bom, vamos para a parte chata: Estou iniciando a migração de FWClipper para FWH e estou com algumas dificuldades na compilação. Para constar, estou utilizando xDev 0.57, FW 2.6 , BCC 5.5.1 e xHarbour 99.3 Primeira situação: criei um projeto na xDev (cerca de 200 prgs), compilei, não deu nenhum erro, gerou o executável, mas na hora de executar aparece uma MSGSTOP com a seguinte mensagem: Unrecoverable error 9003 Too many recursive error handler calls Já tentei diminuir os programas, deixei somente 01 prg e continua do mesmo jeito. Segunda situação: criei diversos projetos para teste utilizando .prgs contidos na pasta SAMPLES, e só consegui fazer rodar programas bem simples, só com uma window / dialogo. Quando tentei colocar barra de botões na window ou programas que utilizam .DLL, por exemplo, compila mas na hora de executar aparece uma MSGSTOP com a mensagem: Imagem incorreta O aplicativo ou a DLL não é uma imagem válida para o Windows. Compare com o disco de instalação (quando tentei utilizar qualquer dll) Unrecoverable error 9014 Unsupported VM pcode (quando tentei utilizar buttonbar na window) Alguém sabe oque pode ser ? Desde já agradeço pela atenção. Um abraço a todos. Yury Marcelino Al Viman Sistemas - Leme/SP yury030575@yahoo.com.br FWH 2.6 - [x]Harbour 0.99.3 BCC 5.5.1 - xDev @ say

Olá pessoal. Gostaria de iniciar a minha participação no fórum mandando um abraço para o Zé Carlos e para o Paulo, parabenizando-os pelo sucesso total que foi o nosso IV Encontro de Programadores. Uma saudação especial também a todos aqueles que participaram e garantiram um encontro de altíssimo nível, tanto na valiosa troca de conhecimentos entre os programadores, como no já tradicional 'granfinale' (cervejada) ao final do encontro. Quanta risada e quanta cana... Bom, vamos para a parte chata: Estou iniciando a migração de FWClipper para FWH e estou com algumas dificuldades na compilação. Para constar, estou utilizando xDev 0.57, FW 2.6 , BCC 5.5.1 e xHarbour 99.3 Primeira situação: criei um projeto na xDev (cerca de 200 prgs), compilei, não deu nenhum erro, gerou o executável, mas na hora de executar aparece uma MSGSTOP com a seguinte mensagem: Unrecoverable error 9003 Too many recursive error handler calls Já tentei diminuir os programas, deixei somente 01 prg e continua do mesmo jeito. Segunda situação: criei diversos projetos para teste utilizando .prgs contidos na pasta SAMPLES, e só consegui fazer rodar programas bem simples, só com uma window / dialogo. Quando tentei colocar barra de botões na window ou programas que utilizam .DLL, por exemplo, compila mas na hora de executar aparece uma MSGSTOP com a mensagem: Imagem incorreta O aplicativo ou a DLL não é uma imagem válida para o Windows. Compare com o disco de instalação (quando tentei utilizar qualquer dll) Unrecoverable error 9014 Unsupported VM pcode (quando tentei utilizar buttonbar na window) Alguém sabe oque pode ser ? Desde já agradeço pela atenção. Um abraço a todos. Yury Marcelino Al Viman Sistemas - Leme/SP yury030575@yahoo.com.br FWH 2.6 - [x]Harbour 0.99.3 BCC 5.5.1 - xDev @ say