edmandc

Membros 0 19 posts Denunciar post Postado agora Oi Kapiaba verifiquei sua sugestão mas não é bem isto que procuro. no meu caso tenho um objeto Say que serve para explicar a função de cada botão ou get num quadro negro. é este texto que gostaria de destacar partes dele com cores diferentes. Segue o codigo e a imagem. priva os_msg // obj say quadro de mensagens priva cmensagem := '' // conteudo da mensagem // Quadro das mensagens redefine say os_msg prompt cmensagem id 1000 of odlg color rgb(0,255,255),cor_pret font ofntbold redefine get oget of odlg oget:bgotfocus := {|| cmensagem := 'Informe o nome do cliente ou tecle F2 ou clique no botão ao lado para obte-lo do cadastro de clientes! ', oquadromsg:refresh() } oget:blostfocus := {|| cmensagem :='', oquadromsg:refresh() } o que eu gostaria de obter no texto no quadro de mensagens é o trecho "F2" da mensagem em vermelho!

Oi Kapiaba verifiquei sua sugestão mas não é bem isto que procuro. no meu caso tenho um objeto Say que serve para explicar a função de cada botão ou get num quadro negro. é este texto que gostaria de destacar partes dele com cores diferentes. Segue o codigo e a imagem. priva os_msg // obj say quadro de mensagens priva cmensagem := '' // conteudo da mensagem // Quadro das mensagens redefine say os_msg prompt cmensagem id 1000 of odlg color rgb(0,255,255),cor_pret font ofntbold redefine get oget of odlg oget:bgotfocus := {|| cmensagem := 'Informe os dados ou qq coisa aqui ! ', oquadromsg:refresh() } oget:blostfocus := {|| cmensagem :='', oquadromsg:refresh() } o que eu gostaria de obter no texto no quadro de mensagens é o trecho "F2" da mensagem em vermelho!

Obrigadão Kapiaba.... sempre rápido e eficiente.

Existiria uma forma de apresentar textos em objetos "say" e outros com diversas cores e atributos no mesmo texto. Vide exemplo abaixo: Lorem ipsum dolor sit amet. Et sint culpa ut sapiente ipsa et eius explicabo. Quo labore voluptas ut totam expedita et corporis illo sed corrupti commodi ea vitae quas. Qui voluptates molestiae ut repellat voluptas et sapiente voluptas in consequatur velit aut facilis rerum et obcaecati repudiandae qui modi minus. Ea dicta fuga et doloribus minus et obcaecati odit id suscipit laborum et ipsam soluta.

só vi agora.... muito obrigado

Ola Kapiaba. Não sei nem como agradecer sua colaboração. O Shell32.Lib resolveu o problema mas ainda continuo com esporádicos erros hb_vmdo() parece-me que tem haver com a memória RAM disponível ... talvez seja até pelo fato de ocupar uma parte da RAM com o disco virtual. vou fazer mais testes com memória RAM maior e depois te informo. também utilizo o compactador de executáveis gratuito "upx.exe" em sua última versão (ver https://github.com/upx/upx/releases/tag/v3.96) Muito Obrigado!!!

Disco Ram nada mais é que um HD Virtual construido com a memória RAM do pc. é IDENTICO a um HD Físico mas mais veloz que um SSD. O unico detalhe é que se faltar luz vc perde tudo. Mas como configuro meu editor de texte para salvar as modificações do prg a cada 2 segundos no disco fisico e como trabalho com notebook não tem o perigo de perder trabalho. A AMD oferece gratuitamente o Radeon RamDisk até 4Gb. o que é o suficiente para colocar todos os prgs e programas nescessários para compilação e lincagem neste HD Virtual A velocidade é espantosa em comparação com um HD ou SSD. A propósito : uso um fantástico gerenciador de arquivos , também , totalmente gratuito . ver em https://www.altap.cz/salamander/downloads/ tem milhares de recursos e é totalmente customizável (tem em 32 e 64 bits)

No primeiro paragrafo onde disse: "se copio estes programas para um disco Ram" quis dizer: "Se copio o BCC o XHB e o FWH no Disco Ram"

Crio meu executável "Sem erros"num "Disco Ram" referenciando o BCC740 , XHB10263 e FW1702 que estão num disco Físico (d:\...) Mas se copio estes programas para um "Disco Ram" ajustando os arquivos *.cfg do bcc740 e os parametros do Xdev o executável não é gerado, apresentando o erro abaixo. "UNRESOLVED EXTERNAL SHCREATEDIRECTORYEXA referenced from i:\fwh1702\lib\fivehc.lib |MKDIR" Obx: Meus prgs , o Xdev e o Pelles nos dois casos, sempre estão no "Disco Ram" Agora se utilizo o FWH10.09 o BCC582 e Xharbour1.2.3 no disco Ram o executável é gerado. Alguém poderia me ajudar? Obrigado!!!

Parece que só com a liberação da memória com HB_GCALL( .F. ) não tem aparecido o erro. Como ele era intermitente ... vou fazer mais testes. De qualquer forma agradeço imensamente pela ajuda.

Vou verificar e retorno. Obrigado a todos .

Olá a todos. Trabalho com o FWH10.09 Xharbour1.2.3 Intl. (SimpLex) (Build 20161218) e BCC582 A anos tenho criado meus aplicativos sem nenhum problema. Recentemente (AGOSTO/2021) começou a ocorrer este erro e de forma intermitente. Não mudei nada no meu pc . Alguém poderia me dar uma luz de como resolver isto? O erro acontece quando retorno da rotina que segue em anexo. Outra dúvida que não tem nada a ver com o problema anterior: quando coloco os arquivos do fwh bcc e xharbour em um Disco RAM ocorrem erros que não acontecem quando estes arquivos esteão em Hd. rotina.txt

agradeço mas não está funcionando!! meu arquivo xdev é : "prog.xdev" meu executavel é : prog.exe a extensão ".xdev" já está associada ao xdevstudio.exe digito: xdevstudio prog nada acontece

tambem pode colocar no lugar de " for i=1 to 10" ponha: for i to numat( '"|", string1 )

#include "fivewin.ch" func main() Aarray := {} string1 = '30|30|30|30|30|01|01|01|01|01' * SEPARA TODOS OS ELEMENTOS SEM REPETIÇÃO y =1 for i=1 to 10 z=alltrim(str(i)) a&z = substr(string1,y,2) if ascan(aarray,a&z) = 0 aadd(aarray,a&z) endif y:= y+3 next *CONTA QUANTAS VEZES CADA ELEMENTO APARECE NA STRIG y=1 for i=1 to len(aarray) z=alltrim(str(i)) // ? 'elemento ' + padr(alltrim(aarray),2) elemento&z := numat( padr(alltrim(aarray),2), string1 ) ? 'elemento: ' + padr( alltrim( aarray),2 ) +' '+ alltrim(str(elemento&z)) + ' vez(es)' next retu

Preciso executar o Xdev através de linha de comando para utilizar o compilador do editor de textos Multi-Edit 2008 Alguém sabe como? Obrigado

Obrigado Kapiaba. Valeu!

Fiz um programa que ao iniciar é feito uma verificação se o mesmo continua na mesma maquina que foi instalado através da checagem de dados da bios. preciso rodar este programa em rede e já fiz o protocolos para abertura de arquivos e registros em rede. só preciso saber como registrar o caminho de mapeamento da maq. de instalação em um arquivo para que as outras maquinas verifiquem a proteção. exemplo: para saber data da bios da maq. de instalação utilizo estas linhas (entre outras): #define HKEY_LOCAL_MACHINE 2147483650 // 0x80000002 oreg := treg32():new(HKEY_LOCAL_MACHINE,"HARDWARE\DESCRIPTION\SYSTEM",.f.) databios := oreg:get("SystemBiosdate","") ... e registro estes dados em um arquivo criptografado Pergunto: como faço para obter a variavel "oreg" da máquina original a partir de outra máquina da rede e realizar a checagem com o arquivo criptografado? Agradeço por qq ajuda!

Alguém poderia me fazer o favor de informar como posso criar uma lista de todas as variáveis de um determinado prg? Grato Edman FWH8.07 BCC582 xhb1.2.1