jnildo

Olá, Cida. Eu recomendo o livro "Clipper 5.2 - O Estudo Mais Competente da Programação em Clipper" de Rick Spence. É um livro destinado a programadores que já conhece a linguagem e querem se aprofundar. Não serve para quem está iniciando. Você pode encotrá-lo em Sebos. Há algum tempo atráz vi um em um Sebo aqui em Taubaté em ótimo estado. É um livro da MAKRON Books e tem a capa vermelha. Se você quiser, posso ver se ele ainda está lá. Um abraço. José Nildo D. Silva lonsoftnil@ig.com.br

Olá, Guilherme. Na pasta \samples do Fivewim tem vário exemplos explorando MDI. De uma olhada. Aprendi com esses exemplos. Um abraço. JNildo

Bira, você me enviou um e-mail, respondi mas ele retornou. Você tem um outro? Um abraço. JNildo

Caros colegas, Quando inserimos uma ComboBox numa Dialog criada no WorkShop com STYLE |0x4L| ela é desenhada em 3D. Como posso ter o mesmo efeito criando via código? Não sei se fui claro. Um abraço a todos. JNildo lonsoftnil@ig.com.br

Mauricio, obrigado pela dica, mas a solução para meu caso era mesmo FillRect(). Caro Vagner, eu tinha dado uma olhada na função FillRect(). Pela nome, só podia ser ela, só que fiz umas tentativas sem sucesso. Como você pediu para dar uma olhada nela, voltei a olhá-la e acabei encontrando a solução. Eu não estava conseguindo porque a função precisa do handle hBrush, que é retornado pela função CreateSolidBrush(). Descobri isso por acaso. Valeu sua dica. Olha, se você descobrir porque quero desenhar retângulos na tela, te pago meia caixa de "brejas" quando a gente se encontrar. Se é que você aprecia... Um abraço. JNildo

Caros colegas. Estou tentando desenhar um retângulo na tela, mas a função Rectangle() só pede as coordenadas do retângulo e o objeto hPen, onde é definido a espessura e a cor da linha. Como faço para pintar o fundo do retângulo com uma determinada cor? O fundo está saíndo sempre em branco. Obrigado. JNildo lonsoftnil@ig.com.br

Olá, João. Segue abaixo duas MsgInfo() do sistema que vi com alguns erros. Como eu disse, não sou nenhun expert em portugues, mas me parece que existem vígulas onde não deveria. São elas: ************ Por favor!!! Este Campo Deve ser preencido Tome todo o cuidado, possível! ERRO! ERRO ! ERRO! ****************** ********************************** Sua Impressora, Não Está Ligada!!! Favor Verificar, Para Poder Imprimir. Se errar, Tente de Novo!! ************************* O texto do termo de garantia do produto tambem tem erros. Ainda acho que você deve consultar alguem da área. Creio que o Vilian pode te ajudar. Afinal ele escreveu um livro e alguem deve ter feito uma revisão gramatical de tudo que ele escreveu. Um abraço. JNildo

Olá, João. Eu tambem dei uma olhada no programa e concordo com as críticas dos colegas. Vou acrescentar apenas uma: o portugues das caixas de mensagens não está bom, como por exemplo uma vírgula onde deveria estar. Não sou nenhum expert em portugues ( aliás poucos brasileiros são ). Acho que você deveria pedia para alguem que dominasse a matéria dar uma olhada nessa parte. Um abraço e boa sorte. JNildo

Olá, Eroni. Fiquei em dúvida quanto a caixa de diálo que você obtem com a função cGetFile32(). Vou mandar par você um prg exemplo. Gostaria, se possível, que você compilasse e me mandasse o executável para mim dar um olhada. Pode ser? Um abraço. JNildo

Caro Eroni, Envie as telas com as duas caixas de diálogo no seu e-mail. Você as recebeu? JNildo

Olá, JNilson. Resolver seu problemas com os folders? Um abraço, JNildo lonsoftnil@ig.com.br

Bom dia, colegas. Ninguem respondeu minha questão, de modos que fiquei sem saber se o motivo seja porque não me expressei bem ou se não é possível acessar essa caixa de diálo via Fivewin. Acredito que seja a primeira hipótese, por isso vou tentar ser mais claro. Clique em Iniciar, escolha Executar e clique no Botão procurar da Caixa de Diálogo "Executar". Será exibida uma caixa de diálogo com o nome "Procurar".É essa caixa de diálogo que me refiro. Como vocês podem verem, é bem diferente daquela retornada pela função cGetFile() do Fivewin. Um abraço a todos e um Feliz 2004. JNildo lonsoftnil@ig.com.br

Ola, Rubens. Uma outra alternativa é você colocar o PRG da classe junto com os PRGs da sua aplicação e incluí-lo nos seus arquivos RMK e LNK. Uso esse método e funciona. Um abraço. JNildo

Olá, colegas, A Função cGetFile retorna uma caixa de diálogo já antiga, para seleção de arquivos, mudanças de drives, pastas, etc... Hoje existe uma mais moderna, que disponibiliza toda a área de trabalho da máquina. Já vi essa janela em alguns aplicativos feitos em Fivewim. Qual é a função que chama essa caixa de diálogo e como deve ser passado os parâmetros? Um abraço a todos. JNildo lonsoftnil@ig.com.br

Ok, Maurício. A minha dúvida é justamente essa. Como faço para saber que "Rio de Janeiro" começa na coluna 120? Teoricamente deveria ser na coluna 11. Um abraço. JNildo

Caros colegas, para enviar caracteres para a página da impressora uso oPrn:Say( nRow, nCol, cLinha, oFont ), só que isso só está funcionando quando envio a linha inteira. Acontece que eu queria que determinados caracteres dessa linha saissem em negrito. Para isso eu teria que enviar para a página partes da linha, só que não sei indicar em qual coluna imprimir. Alguem saberia me dizer como fazer isso? Obrigado. JNildo lonsoftnil@ig.com.br

Caro João, Segue abaixo um exemplo de função cujo resource foi feito no WorkShop. Salvei o recurso como RC para poder aparecer os bitmaps. Assim os bitmaps aparecem, quando compilo a função em separado. Se junto ela no aplicativo que usa a DLL, o recurso não é encotrado, apesar de ter sido linkado usando o RC.EXE. A dúvida é a seguinte: Como fazer aparecer os bitmaps usando o WorkShop e como exibir os itens em colunas? Nas versões novas do fivewin isso é possível? Um abraço, JNildo. ******************* //Esta é a função: ******************** include "Fivewin.ch" #include "WinApi.ch" #define cCorGet1 CLR_BLACK #define cCorGet2 CLR_WHITE STATIC oLbx, oGet1, oGet2, oGet3, oGet4, oGet5, oGet6, oGet7, oGet8, oGet9 STATIC aUserARQ, cGet1, cGet2, cGet3, cGet4, cGet5, cGet6, cGet7, cGet8, cGet9 *************** function Main() LOCAL oDlg, oFont, lReturn, cLbx, cAlias:= ALIAS() LOCAL aUser_L, nUser_L, aUserARQ, aUserRES, i, n, cPathRes PUBLIC aUSER:= {} PUBLIC nUSER:= 01 PUBLIC aC_Dados SET 3DLOOK ON afDados() aUser_L := ACLONE( aUser ) nUser_L := nUser aUserRES:= ACLONE( fUSER() ) aUserARQ:= {} cGet1:= PADR(aC_Dados[1], 052, " ") cGet2:= PADR(aC_Dados[2], 052, " ") cGet3:= PADR(aC_Dados[3], 052, " ") cGet4:= PADR(aC_Dados[4], 052, " ") cGet5:= PADR(aC_Dados[5], 052, " ") cGet6:= PADR(aC_Dados[6], 008, " ") cGet7:= PADR(aC_Dados[7], 030, " ") cGet8:= PADR(aC_Dados, 030, " ") cGet9:= PADR(aC_Dados[9], 128, " ") cLbx := cGet6 lReturn:= .F. DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0, 5 DEFINE DIALOG oDlg RESOURCE "Usuarios2" FONT oFont REDEFINE GET oGet1 Var cGet1 ID 101 OF oDlg COLOR cCorGet1, cCorGet2 REDEFINE GET oGet2 Var cGet2 ID 102 OF oDlg COLOR cCorGet1, cCorGet2 REDEFINE GET oGet3 Var cGet3 ID 103 OF oDlg COLOR cCorGet1, cCorGet2 REDEFINE GET oGet4 Var cGet4 ID 104 OF oDlg COLOR cCorGet1, cCorGet2 REDEFINE GET oGet5 Var cGet5 ID 105 OF oDlg COLOR cCorGet1, cCorGet2 aItens:= {"Karinn", "Elias", "Evandro", "Maria", "Pedro", "Jose", "Helio", "Rodrigo"} REDEFINE LISTBOX oLbx VAR cLbx ITEMS aItens ID 106 OF oDlg ; BITMAPS { "uSer.bmp" } ON DRAWITEM 1 //FILES "*.*" ; REDEFINE BUTTON ID 111 OF oDlg ACTION( lReturn:= .T., oDlg:End() ) REDEFINE BUTTON ID 112 OF oDlg ACTION( lReturn:= .F., oDlg:End() ) REDEFINE BUTTON ID 113 OF oDlg ACTION( fDELETE() ) REDEFINE BUTTON ID 114 OF oDlg ACTION( F_NOVO () ) ACTIVATE DIALOG oDlg CENTERED IF ( lReturn ) ENDIF oFont:End() RETURN(lReturn) *************** ********************* STATIC PROC fDELETE() IF( MsgYesNo(OemToAnsi("Confirma a exclusÆo do usu rio " ) + ; oLbx:aItems[oLbx] + " ? ", OemToAnsi("Aten‡Æo!")) ) oLbx :Del(oLbx:GetPos) IF ( LEN(oLbx:aItems) == 00 ) F_NOVO() ENDIF oLbx :Refresh() ENDIF RETURN ****** ******************** STATIC PROC F_NOVO() LOCAL aArray, aUser2, lNovo, aUserL1, aUserL2, cUsuario, nColEx, cPathRes lNovo:= .T. IF ( lNovo ) oLbx:Add("Novo") fRefresh() ENDIF RETURN ****** ********************* STATIC PROC AT_ALBX() aC_Dados[6]:= oGet6:cText oLbx:Modify(oGet6:cText) oLbx:Refresh() RETURN ****** ********************** STATIC PROC fRefresh() RETURN ****** *********************** STATIC PROC F_SCabRod() RETURN ****** ************** PROC afDados() aC_Dados:= {"" ,; "" ,; "" ,; "" ,; "" ,; "" ,; "" ,; "" ,; "" ,; "" } RETURN ****** **************** FUNCTION fUSER() LOCAL aUserL afDados() aUserL:= {} AADD(aUserL, aC_Dados ) AADD(aUSER, aUserL) RETURN(aUserL) ************** ***************** Este é o recurso: ***************** #include "WinApi.ch" USUARIOS2 DIALOG 25, 57, 295, 198 STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU CAPTION "Cadastro de Usuários" FONT 8, "MS Sans Serif" BEGIN DEFPUSHBUTTON "Confirma", 111, 238, 11, 50, 14 PUSHBUTTON "Cancela", 112, 238, 31, 50, 14 PUSHBUTTON "Exclui", 113, 238, 51, 50, 14 PUSHBUTTON "Novo", 114, 238, 71, 50, 14 EDITTEXT 101, 15, 17, 211, 12 EDITTEXT 102, 15, 30, 211, 12 EDITTEXT 103, 15, 43, 211, 12 EDITTEXT 104, 15, 56, 211, 12 EDITTEXT 105, 15, 69, 211, 12 LISTBOX 106, 15, 100, 267, 56, LBS_NOTIFY | LBS_OWNERDRAWFIXED | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP EDITTEXT 110, 15, 175, 266, 12 GROUPBOX "Cabeçalho", 101, 10, 7, 220, 79, BS_GROUPBOX GROUPBOX "Rodapé", 102, 10, 165, 276, 27, BS_GROUPBOX GROUPBOX "Usuários", 111, 10, 90, 276, 71, BS_GROUPBOX END

Caro João, Compilei os exemplos que você citou e eles funcionaram lindamente. Só que estou fazendo meus recuros no WhorkShop e, segundo uma apostilha que tenho, em espanhol, temos que deixar a opção Owner Drawing como "fixed", mas esse recurso não é reconhecido no Fivewin. Salvei a DLL como RC e nada. Salvei só a dialog em questão e tambem não funcionou. Você ou alguem desse forum consegue colocar bitmaps na dialog crianda no WorkShop? Outra coisa com relação a ListBox é com relação a múltiplas colunas. Se deixo como múltiplas colunas funciona, só que da um erro quando clico na barra de rolagem. Segundo a apostilha, esse recurso tambem não é reconhecido no Fivewin. Nas versões novas tambem é assim? Um Abraço JNildo

Caros colegas, A função abaixo é um exemplo de ListBox com bitmaps, que vem com o Fivewin, na pasta samples. Compilei esse exemplo e ele funcionou corretamente. Só que estou tentando colocar bitmaps em uma dialog feita no WorkShop e não está funcionando. Veja abaixo como estou fazendo. Os ítems aparecem tudo certinho, só que sem os bitmaps. Onde foi que errei? Um abraço a todos. ***************** // Esse funciona! #include "FiveWin.ch" function Main() local oDlg, oLbx, cItem := "One" SET 3DLOOK ON DEFINE DIALOG oDlg TITLE "Bitmaps in ListBoxes" FROM 5, 5 TO 20, 45 aItems:= { "One", "Two", "Three", "Four" } aBMaps:= { "level1.bmp", "level2.bmp", "level3.bmp", "level4.bmp" } @ 0.5, 0.5 LISTBOX oLbx VAR cItem ; ITEMS aItems BITMAPS aBMaps SIZE 100, 100 @ 0.5, 16 BUTTON "&Ok" ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED return nil ********** ********************* // Esse não funciona! aItens:= { "One", "Two", "Three", "Four" } aBMaps:= { "level1.bmp", "level2.bmp", "level3.bmp", "level4.bmp" } REDEFINE LISTBOX oLbx VAR cLbx ITEMS aItems BITMAPS aBMaps ID 106 OF oDlg *************************************************************************

Elias, Eu tambem sou filho de Deus. Mande para mim tambem. Um abraço, JNildo lonsoftnil@ig.com.br

Olá, Gildo. Está faltando um sinal na motagem da string que será passada como parâmetro, entre ...(nCodigo,6) e cClasse... Deve ser mais ou menos isso: @ 40,200 ComboBox cComb var cAno Items oAno size 40, 40 PIXEL valid(verifica(str(nCodigo,6) + cClasse+cMes+cAno)) Um abraço. Jnildo

Caro Maurício, Esse tópico não é meu, mas serve tambem para mim, por isso desculpem minha intromissão, ( você e o Pedroso ). Você escreveu isso no meu tópico, mas não entendi nada. O que exatamente você que dizer com isso? Baixei um exemplo de Preview do forum, na secção donwloads, chamado TxtPrev1.zip, mas não consegui usá-lo. Se você tiver um tempinho, de uma olhada nele. Um abraço JNildo

Caro Wagner, É a preview.dll. Baixei na seção donwload do Fivewin a classe TTxtPreview, só que ela pede os arquivos de cabeçalho "FGet.ch", "Constant.ch", "Set.ch", "GTF.ch". Saberia me dizer onde oncontrar esses arquivos? A classe me pareceu interessante, mas sem esses arquivos não da para testá-la. Um abraço, JNildo

Caro Mauricio, Testei com várias fontes, mas a única que funciona é a Courier. O curioso é que na hora da impressão o texto sai direitinho com qualquer fonte que uso. O jeito vai ser mostrar o prevew com a fonte Courier e deixar o usuário escolher a fonte na hora da impressão. Não é o ideal, mas pelo menos por enquanto vai ser o jeito. Por falar em "preview", como tenho acesso aos fontes dessa rotinas? Ela sai com o menu e os textos em castelhano. Isso não fica legal em um aplicativo em Português. Um abraço a todos. JNildo

Olá, Evandro. Tentei com a fonte indicada por voce mas não funcionou. Em todo caso, obrigado pela dica. JNildo