-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
(Resolvido) Impressão de imagens no quick report
pergunta respondeu ao Antonio Anselmo de Jhonas em Delphi, Kylix
Antonio ... como já havia lhe dito, isto acontece com imagens muito grandes... voce tem varias opções para trabalhar com imagens... uma delas seria o uso do paint brush onde voce pode redimensionar a imagem de qualquer forma, exitem mais de 3 paginas com duvidas a respeito de imagens no forum. Faça uma pesquisa. http://scriptbrasil.com.br/forum/index.php...p;highlite=jpeg abraço -
Na verdade a porta serial está habilitada, a comunicação com o CLP depende unica e exclusivamente do programa que voce esta usando. OBS: os comandos enviados e recebidos do CLP estão em valores hexadecimais. abraço
-
Voce só precisa fazer uma condição ( IF ) para que na hora de montar os itens do Treeview saber qual valor do indice da imagem ira ser usada. Como não é possivel advinhar o que voce esta tentando fazer, seria melhor voce postar o codigo, para poder te orientar melhor. abraço
-
Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=465067 abraço
-
Erro : 10252 : $280C : Acesso exclusivo foi perdido Ou seja ... Foi dado um Lock ( Bloqueio de tabela ) para que pudesse ser realizado uma alteração, e ele foi perdido Sugestão: Não use bloqueio de tabelas em rede, mas sim, de registros. abraço
-
O código que voce tem não funciona no Vista porque não foi feito para 64 Bits (Vista ). Voce precisa de uma atualização para que aplicativos de 32 Bits possam ser executados no Vista... Procure no site da Microsoft ou então tente executar o aplicativo em modo de compatibilidade abraço
-
Veja se encontra alguma coisa nestes posts http://scriptbrasil.com.br/forum/index.php...e=installshield abraço
-
Use o componente ImageList da paleta Win32 link este componente ao Treeview pela propriedade Images e para mudar as imagens use procedure TForm1.Button1Click(Sender: TObject); begin TreeView1.Items.Item[1].ImageIndex := 1; end; OBS: para mudar as imagens selecione o item do Treeview e o indice da imagem que esta no ImageList. abraço
-
Use o componente OleContainer da paleta System procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Edit1.Text := OpenDialog1.FileName; OleContainer1.CreateLinkToFile(trim(Edit1.Text),TRUE); Application.ProcessMessages; OleContainer1.SetFocus; OleContainer1.Run; end; end; abraço
-
Dúvidas com BPL, Serviços e Win 2003 Server
pergunta respondeu ao JosimarZ de Jhonas em Delphi, Kylix
Causa A classe ServiceBase chama o método OnStop diretamente a partir do manipulador de evento Service definido no ScDispatcherLoop do arquivo Advapi32.dll. Após 30 segundos, se o segmento ScDispatcherLoop não estiver pronto para receber um novo comando de serviço do gerenciador de controle de serviço, o Controlador de serviço do Windows marca o serviço como "tempo esgotado." Por isso, essa mensagem de erro é exibida. Para resolver esse problema, obtenha o service pack mais recente para o Windows 2003 abraço -
(Resolvido) Impressão de relatorio com imagem jpg de alta resoluç
pergunta respondeu ao Antonio Anselmo de Jhonas em Delphi, Kylix
1 - Se a imagem for muito grande ele não mostra... a menos que voce troque a versão do QR ou use uma imagem jpeg pequena.... lembre-se que se a imagem estiver na banda de detalhe, isto poderá causar demora ao exibir 2 - colocar imagens no QR não tem mistérios e mesmo trazendo estas imagens de um banco de dados o report não fica tão lento como voce está dizendo 3 - http://www.brothersoft.com/custom-rave-report-42471.html http://www.brothersoft.com/custom-rave-rep...load-42471.html OBS: Se não me engano o rave report é pago abraço -
(Resolvido) Trabalhando com arquivo INI e TXT
pergunta respondeu ao FFernando de Jhonas em Delphi, Kylix
Modifique este codigo para o seu uso procedure TForm1.Button1Click(Sender: TObject); var tam : integer; s : string; begin //Edit1.Text := '020309101112131416' s := Edit1.Text; tam := length(s); Memo1.Clear; while tam > 0 do begin Memo1.lines.append(copy(S,1,2)); // pegar os numeros de 2 em 2 delete(s,1,2); // deletar da string os numeros que já foram pegos tam := length(s); end; end; abraço -
eu tambem não achei .... te passei varios exemplos... tente outro abraço
-
Existe um componente que serve extamente para isso... é o ABarraPrinter do pacote CBarras 1: begin ABarraPrinter1.Codigo := CampB; ABarraPrinter1.Tipo := cdEAN13; ABarraPrinter1.CorBarra := clBlack; ABarraPrinter1.CorEspaco := clWhite; ABarraPrinter1.Largura := 4; //5 largura das barras ABarraPrinter1.Comprimento := 20; //30 comprimento da barra ABarraPrinter1.LinhaPrinter := Linha*VVert; //50 espacamento ABarraPrinter1.ColunaPrinter := Coluna; //45 espacamento ABarraPrinter1.Execute; CampA := ABarraPrinter1.Codigo+'-'+ABarraPrinter1.Digito; Printer.Canvas.TextOut(Coluna,((Linha*VVert)+150),CampA); end; Voce pode especificar exatamente onde quer que impressão começe. Caso não consiga encontrar na net ( Gratuito ) , voce pode tentar com estes http://www.suportetotal.com.br/cbarras.htm abraço
-
É possivel pegar os dados enviados para LPT1 entretanto, ao jogar estes dados em um Memo ou um Txt, voce ficaria perdido em meio aos códigos de formatação para impressora. outra sugestão possivel seria voce montar um programa para ler os mesmos dados dos arquivos e gerar um relatorio usando o dephi. ou ainda configurar a impressora para que aceite impressão em modo MS-Dos. abraço
-
vms ... usei o mesmo codigo que está no link, entretanto a unica diferença é que não usei um Data Module e aqui funciona sem problemas... posso colocar campos e tira-los sem problemas é melhor rever todos os passos e conferir o seu codigo abraço
-
Voce leu direito ??? é um componente feito para uso com o delphi 7 Trata-se de um componente herdado do TTreeView, que é capaz de fazer todo o gerenciamento dos acessos de cada usuário ou grupo de usuários. Não entrarei em detalhes neste item. Para saber mais detalhes baixe no site o exemplo completo. abraço
-
Experimente atualizar o QR depois que voce remover os campos QuickRep1.Refresh; abraço
-
Veja nestes endereços http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=476 http://ramerhy.vilabol.uol.com.br/tutorialado01.htm http://www.activedelphi.com.br/forum/viewt...235386b77703ee8 http://www.rads.com.br/delphi_main.php?m=1&id=9 abraço
-
Seja mais claro quanto ao que voce quer fazer usando este codigo abraço
-
Pelo link voce está criando um QR dinamicamente, e desta maneira tambem são criados os campos. Então voce diz que quando quer tirar ele não sai e continua lá. coloque o codigo em que voce efetua este pocedimento, para podermos analisar melhor abraço
-
Deixe a banda de detalhe extamente com o mesmo tamanho de uma etiqueta + o espaçamento ate a proxima. por exemplo: se a etiqueta tiver 2,5 cm e o espaço entre elas é de 0,5 cm, então a banda de detalhe deverá ser de 3,0 cm abraço
-
Nova Estagiária De Linux e Windows
tópico respondeu ao Beraldo de Jhonas em Novidades e Anúncios Script Brasil
Oi Monica, seja bem vinda a equipe Bom trabalho ! abraços -
Eder ... no forum a muita coisa a respeito .... veja esses posts http://scriptbrasil.com.br/forum/index.php...hlite=etiquetas abraço
-
Niveis de Acesso alguns exemplos: http://scriptbrasil.com.br/forum/index.php?showtopic=101684 http://www.inf.ufsc.br/~prass/sources/usuarios.zip http://www.delphi.eti.br/ver_artigo.php?id=133 http://www.linhadecodigo.com.br/Artigo.aspx?id=822 http://www.linhadecodigo.com.br/ArtigoImpressao.aspx?id=822 http://forum.imasters.uol.com.br/index.php?showtopic=230297 abraço