RES: [delphi-br] Sons em Delphi
Desde que o computador tenha os codecs para reproduzir mp3 ou wma instalados, vc pode usar o proprio TMediaPlayer, eh só seguir qualquer tutorial que ensine como reproduzir wav, que ele vai funcionar com o mp3 também. Nas propiedades do MediaPlayer, mostra apenas wav, mid e avi, mas ele reproduz quase q qualquer coisa, contanto que os codecs estejam no pc... se for coisa pouca, é melhor converter para wav mesmo, se for grande e tiver que reproduzir em mp3, certifique-se que o computador-destino vai ter o necessário para isso! Bom Código Ricardo Berti _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Wagner Binoto Enviada em: terça-feira, 20 de fevereiro de 2007 09:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Sons em Delphi Galera, Gostaria de incluir um som quando clicar em um Botão (BitBtn), que componente vcs conhecem que posso usar para executar mp3 ou wav ou wma. Abraços [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Arquivo Texto
Eu tentari assim: var Arquivo1, Arquivo2, ArquivoSaida: TextFile; Linha: string; begin //Abre os dois primeiros arquivos para leitura Reset AssignFile(Arquivo1, 'C:\a.txt'); Reset(Arquivo1); AssignFile(Arquivo2, 'C:\b.txt'); Reset(Arquivo2); //Abre o ultimo arquivo como para escrita Rewrite AssignFile(ArquivoSaida, 'C:\saida.txt'); Rewrite(ArquivoSaida); //Enquanto não for fim do arquivo, vai lendo o primeiro arquivo e gravando no arquivo de saida while not EoF(Arquivo1) do begin ReadLn(Arquivo1, Linha); WriteLn(ArquivoSaida, Linha); end; CloseFile(Arquivo1); //Enquanto não for fim do arquivo, vai lendo o segundo arquivo e gravando no arquivo de saida while not EoF(Arquivo2) do begin ReadLn(Arquivo2, Linha); WriteLn(ArquivoSaida, Linha) end; CloseFile(Arquivo2); //Já está tudo no arquivo de saida CloseFile(ArquivoSaida); end; _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de stainle2003 Enviada em: sexta-feira, 16 de fevereiro de 2007 16:11 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Arquivo Texto não consigo a partir de dois arquivos texto juntá-los num terceiro, alguém sabe outra madeira ou o que está errado no código abaixo. grato Stainle procedure TForm1.Button1Click(Sender: TObject); var dirzip, destzip, dirtemp, sentenca : string; begin dirzip := 'f:\usr\host\remoto\palm\filial99\plestdia.txt'; destzip := 'p:\servidor\003\Saida\plestdia.txt'; dirtemp := 'p:\servidor\003\Saida\Anterior\plestdia.txt'; CopyFile(pchar(destzip), pchar(dirtemp), false); destzip := 'p:\servidor\003\Saida\pleststa.txt'; sentenca := 'command.com /c copy ' + dirzip + ' + ' + dirtemp + ' ' + destzip; ShowMessage(dirzip); ShowMessage(dirtemp); ShowMessage(destzip); ShowMessage(sentenca); WinExec(pchar(sentenca), sw_ShowNormal); end; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [URGENTE] Formatação Imp ressão Matricial
Como você faz pra imprimir? faz tudo na mão ou usa alguma rotina ou componente? Posta aí que agente te ajuda Bom Código Ricardo Berti - Original Message - From: Tiago de Assis Pimenta To: Grupo Delphi Sent: Monday, February 12, 2007 11:40 PM Subject: [delphi-br] [URGENTE] Formatação Impressão Matricial Galera, seguinte, preciso da seguinte informação. Tem como eu usar o write para fazer o seguinte. Na hora que chegar num determinado numero de caracter, ele pule para a proxima linha, mais ou menos no estilo das Celulas do Excel ??? Por ex.: Eu reservo um espaço de 50 caracteres para Descrição do Serviço na nota, se ele passar de 50, ele pula para a proxima linha, sem atrapalhar a coluna preço. Na nota ficaria assim DESCRIÇÃO | PREÇO TESTE TESTE TESTE TESTE TESTE TESTE TESTE TESTE TESTE TESTE R$ 40,00 OUTRO TESTE R$ 20,00 Tem como ? Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Skype: tiagopimenta_skype Gtalk: tiagopimenta [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [URGENTE] Formatação Imp ressão Matricial
Ae Brother,
não esqueci de você não, só que estou ocupadaço, mas assim que eu tiver um
tempo vou dar uma olhada legal no teu código... Mas caso você descobrir antes
como fazer, posta na lista, pra agente saber!
Abraços
Ricardo Berti
- Original Message -
From: Tiago de Assis Pimenta
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, February 13, 2007 9:56 AM
Subject: RES: [delphi-br] [URGENTE] Formatação Impressão Matricial
Boa Tarde Ricardo, faço tudo na mão, vou colar o código de como esta.
procedure Tfrmcadordserv.BitBtn1Click(Sender: TObject);
const
CNegrito = #27#71; // Define Caracter Negrito;
SNegrito = #27#72; // Define Caracter Não Negrito;
CExpandido = #14;
SExpandido = #20;
var
a: textfile;
begin
// Imprimindo Ordem de Serviço
assignfile(a,'c:\tmp\cupom.txt');
rewrite(A);
writeln(A,'=
==');
writeln(A,' BRANCO AUTO MECANICA - ESPECIALIZADA EM INJECAO
ELETRONICA ');
writeln(A,' AV. MESSIAS GONCALVES, 1363 - (17) 3325-8055
');
writeln(A,'=
==');
write(A,CNegrito + CExpandido + format('%-29s',['ORDEM DE SERVICO N: ' +
formatfloat('0',strtoint(edit1.text))]));
writeln(A,SNegrito + SExpandido + format('%10s',['DATA:
'+frmordserv.qrordserv.fieldbyname('data').asstring]));
writeln(A);
write(A,format('%-57s',['NOME DO CLIENTE: '+
qrcli.fieldbyname('nome').value]));
writeln(A,format('%-22s',['CELULAR: '+qrcli.fieldbyname('celular').value]));
write(A,format('%-57s',['ENDERECO: '+
qrcli.fieldbyname('endereco').value]));
writeln(A,format('%-22s',['BAIRRO : '+ qrcli.fieldbyname('bairro').value]));
write(A,format('%-57s',['CIDADE: '+ qrcli.fieldbyname('cidade').value]));
writeln(A,format('%-22s',['CEP.: '+ qrcli.fieldbyname('cep').value]));
write(A,format('%-35s',['TELEFONE: '+
qrcli.fieldbyname('telefone').value]));
write(A,format('%-22s',['CPF: '+ qrcli.fieldbyname('cpf').value]));
writeln(A,format('%-22s',['RG: ' + qrcli.fieldbyname('rg').value]));
writeln(A);
write(A,format('%-57s',['MARCA: '+
frmordserv.qrordserv.fieldbyname('marca').value]));
writeln(A,format('%-22s',['MODELO: '+
frmordserv.qrordserv.fieldbyname('modelo').value]));
write(A,format('%-35s',['COR: '+
frmordserv.qrordserv.fieldbyname('cor').value]));
write(A,format('%-22s',['PLACA: '+
frmordserv.qrordserv.fieldbyname('placa').value]));
writeln(A,format('%-22s',['KM DO VEICULO: '+edit3.text]));
writeln(A);
writeln(A,format('%-20s',['FUNCIONARIO: '+
frmordserv.qrordserv.fieldbyname('funcionario').value]));
writeln(A,'=
==');
write(A,format('%-40s',['DISCRIMANACAO']));
write(A,format('%-10s',['QTDE']));
write(A,format('%-18s',['PRECO UNITARIO']));
writeln(A,format('%-10s',['PRECO TOTAL']));
writeln(A,'=
==');
qrhistserv.first;
while not qrhistserv.eof do
begin
write(A,format('%-40s',[qrhistserv.fieldbyname('servico').value]));
write(A,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
write(A,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname('precoun
').value)]));
write(A,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname('total')
.value)]));
writeln(A);
qrhistserv.next;
end;
writeln(A,'=
==');
write(A,CNegrito + CExpandido + 'TOTAL R$: ');
writeln(A,format('%29.2f',[frmordserv.qrordserv.fieldbyname('total').asfloat
]));
writeln(A,SNegrito + SExpandido +
'===
');
writeln(A);
writeln(A);
writeln(A);
writeln(A);
//writeln(A,'___');
writeln(A,' ASSINATURA DO CLIENTE');
closefile(A);
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Berti
Enviada em: terça-feira, 13 de fevereiro de 2007 09:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [URGENTE] Formatação Impressão Matricial
Como você faz pra imprimir? faz tudo na mão ou usa alguma rotina ou
componente? Posta aí que agente te ajuda
Bom Código
Ricardo Berti
- Original Message -
From: Tiago de Assis Pimenta
To: Grupo Delphi
Sent: Monday, February 12, 2007 11:40 PM
Subject: [delphi-br] [URGENTE] Formatação Impressão Matricial
Galera, seguinte, preciso da seguinte informação.
Tem como eu usar o write para fazer o seguinte.
Na hora que chegar num determinado numero de caracter, ele pule para a
proxima linha, mais ou menos no estilo das Celulas do Excel ???
Por ex
Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes
Tah massa, vou dar uma olhadela no google. Agora to meio sm tempo, mas vou seguir os passos de vocês... Abraços e Obrigado Berti... Ricardo Berti - Original Message - From: Henrique Netzka (Vetor Sistemas) To: delphi-br@yahoogrupos.com.br Sent: Friday, February 09, 2007 9:02 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Só pra não deixar o Rafael sem resposta, é, a resposta do Eric seria a mesma que a minha! rs... Põe uma propriedade no seu edit e, caso seja True para default (e não para o novo padrão), dá um inherited seguido de um exit na procedure :) Abraços... Henrique - Original Message - From: Eric D. To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 5:36 PM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Não seria somente criar uma propriedade do tipo UseDefaultLayout como boolean, e dentro da procedure que faz o repaint, vc verificaria esta propriedade... caso fosse false, então utilizaria apenas um inherited WMNCPaint Message); Exit; o que não iria alterar nada dentro do layout, caso contrário, vc faria as modificações Seria uma maneira simples de resolver... mas tem que testar pra ver se funciona x) []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] Talk is cheap, show me the code... - Original Message - From: Rafael Marques To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 12:58 PM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes só + uma perguntinha tb!! eu fiz aqui e fico bem legal, inclusive coloquei a propriedade pro programador escolher a cor da borda!! mas como faço pra ativar ou desativar esse visual!??! (poderia ser atraves d uma propriedade do tipo sim/nao) eu tentei aqui e num consegui. Uma vez colocada procedure como vc me descreveu, o edit fica com visual excelente e do jeito q eu gostaria realmente, mas quero tentar colocar algo pra se o programador quiser q ele volte ao estilo normal ele consiga , e eu num achei nada q desative, q faça o compilador nao entrar na rotina descrita!! valeu Rafael - Original Message - From: Henrique Netzka (Vetor Sistemas) To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 11:45 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Caros Ricardos (ehehhehe), Já que o Berti lembrou a questão do xunxo, resolvi tentar fazer de um jeito não-xunxo! hehehe... Mas até que ficou simpes... Aliás, falar em xunxo, vocês já ouviram falar em POG? Dá pra dar umas boas risadas lendo sobre isso ehhehe... Enfim, veja: - Você herda o componente TEdit para o TColoredBorderEdit (hehehe) - No protected, você declara: procedure WMNCPaint(var Message: TWMNCPaint); message WM_NCPAINT; - E a implementação desta ficará assim: procedure TColoredBorderEdit.WMNCPaint(var Message: TWMNCPaint); var DC: HDC; Rect: TRect; Canvas: TCanvas; begin DC := GetWindowDC(Handle); try Windows.GetClientRect(Handle, Rect); // Limpa o fundo edit, pintando tudo da cor definida em Color (original) :) InflateRect(Rect, 4, 4); Brush.Color := Color; Windows.FillRect(DC, Rect, Brush.Handle); // Desenha a borda! Canvas := TCanvas.Create; try Canvas.Handle := DC; Canvas.Pen.Style := psSolid; Canvas.Pen.Color := clRed; // Cor da borda! Canvas.Brush.Style := bsClear; Canvas.Rectangle(0, 0, Width, Height); finally Canvas.Free; end; finally ReleaseDC(Handle, DC); end; end; - E pronto! Pra melhorar, em vez de deixar o clRed fixo ali, você pode criar uma propriedade no componente que diga qual será a cor da borda! E mais legal ainda, você pode sobrescrever os eventos DoEnter e DoExit para que, quando ele entre, você sete a borda de uma cor, e quando saia, sete a borda de outra cor! Abraços Henrique - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 10:41 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Bom dia xará! Olha... a unica maneira de se criar esses TShapes dinamicamente seria como vc fez mesmo. Não existe outra alternativa. Mas eu estava tentando achar no meio da JEDI VCL algum componente que tivesse essa propriedade que vc precisa, o que evitaria a criação de um TShape dinamicamente. Mas por enquanto não achei nada. Até o momento é asua dica que está valendo! Sds, Ricardo. Ricardo Berti [EMAIL PROTECTED] escreveu: Legal Ricardo (xará) : p , foi bem essa mesmo a idéia, só que no meu caso ele coloca sozinho o TShape nos TEdit que estiverem na tela sem que haja TShape no form em tempo de projeto, se q for só um Edit no Form, vale mais já colocar o Shape em Tempo de Projeto mesmo ; ) Economiza memória!!! PS: Conheces alguma outra forma de criar
[delphi-br] Sql
Olá pessoal, preciso fazer um select que ordene os resultados pelo segundo nome da pessoa... exemplo Fulano C Ciclano A Beltrano B ele me devolva os campos assim: Ciclano A Beltrano B Fulano C ordenado pelo sobrenome! Ricardo Berti I Marketing I Designer Gráfico Fluipress Automação Ltda. - Tecnologia em Movimento. Itajaí SC Site: www.fluipress.com.br Tel: +55 47 2103-3426 Fax:+55 47 2103-3422 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Sql
o problema é que o nome do dos clientes está no mesmo campo, tipo, tem um campo só que contem uma string Celso Rivera Ricardo Berti cadastrado nesta ordem, e ele tem de me retornar pela ordem do segundo nome Ricardo Berti Celso Rivera já que Berti antecede Rivera na ordem afabética Abraços Berti... Ricardo Berti - Original Message - From: Celso Rivera To: delphi-br@yahoogrupos.com.br Sent: Friday, February 09, 2007 11:19 AM Subject: Re: [delphi-br] Sql select * from suatabela order by campo_a_ser_ordenado Abraços Ricardo Berti [EMAIL PROTECTED] escreveu: Olá pessoal, preciso fazer um select que ordene os resultados pelo segundo nome da pessoa... exemplo Fulano C Ciclano A Beltrano B ele me devolva os campos assim: Ciclano A Beltrano B Fulano C ordenado pelo sobrenome! Ricardo Berti I Marketing I Designer Gráfico Fluipress Automação Ltda. - Tecnologia em Movimento. Itajaí - SC Site: www.fluipress.com.br Tel: +55 47 2103-3426 Fax:+55 47 2103-3422 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sql
Tranquilo Pelo jeito vou ter de separar os campos mesmo... vai ser melhor! Obrigado Berti... Ricardo Berti - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Friday, February 09, 2007 12:06 PM Subject: Re: [delphi-br] Sql Olha... esse select aí proposto só vai funcionar se o Sobrenome for um campo a parte no MER. Caso contrário ( o que deve ser ), ou seja, o sobrenome esteja junto com o nome, formando um único campo, vc vai ter que usar uma SP pra fazer este trabalho sujo. Com fazer? Só posso dizer a lógica: - Seleciona todos os nomes da tabela. - Crie uma lista virtual com a lista de nomes mais um campo virtual chamado Sobrenome - Para cada nome faça: - Separe numa string o Sobrenome - Adicione a String Sobrenome à lista virtual - Ao final da listagem de nomes: - Proceda a ordenação. - Fim Desculpe não poder ajudar mais objetivamente, mas o caminho é esse, se é que já não esteja meio óbvio. Sds, Ricardo. Celso Rivera [EMAIL PROTECTED] escreveu: select * from suatabela order by campo_a_ser_ordenado Abraços Ricardo Berti [EMAIL PROTECTED] escreveu: Olá pessoal, preciso fazer um select que ordene os resultados pelo segundo nome da pessoa... exemplo Fulano C Ciclano A Beltrano B ele me devolva os campos assim: Ciclano A Beltrano B Fulano C ordenado pelo sobrenome! Ricardo Berti I Marketing I Designer Gráfico Fluipress Automação Ltda. - Tecnologia em Movimento. Itajaí - SC Site: www.fluipress.com.br Tel: +55 47 2103-3426 Fax:+55 47 2103-3422 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes
Hmm, no TPageContel, axo que ia ficar mais complicado... Mas vamos tentando... Mas só pra não deixar passar batido, segue a mesma rotina de antes, só que usando o canvas: No OnActivate coloca: DoubleBuffered := True; No OnPaint coloca assim: var I: Integer; begin for I := 0 to ComponentCount - 1 do begin if Components[I] is TEdit then with Components[I] as TEdit do begin Ctl3D := False; Form1.Canvas.Pen.Color := clLime; Form1.Canvas.MoveTo(Left - 1, Top - 1); Form1.Canvas.LineTo(Left - 1,Top + Height); Form1.Canvas.LineTo(Left + Width, Top + Height); Form1.Canvas.LineTo(Left + Width, Top - 1); Form1.Canvas.LineTo(Left - 1, Top - 1); end; end; end; Bom Código Ricardo Berti - Original Message - From: Rafael Marques To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 7:46 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes ae galera!! eu tava verificando aqui o q foi passado sobre o tShape e achei legal mas ele funcionaria legal somente em alguns componentes!!! qdo eu tava lendo o codigo q foi passado nos emails anteriores aqui, eu me lembrei q eu precisaria usar isso também em um tPageControl tb (alem de outros componentes tb). no caso do PageControl ele ficaria sem o relevo e com o contorno na cor q eu escolhesse. aí eu voltei a ficar agarrado novamente. eu acharia legal, de repente, desenvolver uma rotina (q eu acho q deva ser pelo canvas) que eu possa utilizar em qquer componente. to aqui tentando fazer. Se eu conseguir eu mando pra vcs se alguem tiver alguma ideia passa pra galera tb Valeu Rafael - Original Message - From: Ricardo Berti To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 4:51 PM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Legal Ricardo (xará) : p , foi bem essa mesmo a idéia, só que no meu caso ele coloca sozinho o TShape nos TEdit que estiverem na tela sem que haja TShape no form em tempo de projeto, se q for só um Edit no Form, vale mais já colocar o Shape em Tempo de Projeto mesmo ; ) Economiza memória!!! PS: Conheces alguma outra forma de criar dinamicamente os Shapes? Ou o xunxo (vi esse termo a uns dias aí na lista, rssrsrsr) que eu fiz é suficiente?? Abraços e Bom Código! Ricardo Berti - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 3:52 PM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Puts xará, fiz um estudo de caso identico ao seu e fiquei com vergonha de publicar, mas no meu caso usei Left e Top -2 e Height e Width + 4. Segue abaixo o código: procedure TForm1.FormCreate(Sender: TObject); begin Shape1.Top := Edit1.Top -2; Shape1.Left := Edit1.Left -2; Shape1.Width := Edit1.Width + 4; Shape1.Height := Edit1.Height + 4; Edit1.Clear; Memo1.Clear; end; OBS: mudei o CTL3D e o BorderStyle em tempo de projeto, mas a lógica é a mesma. Ricardo Berti [EMAIL PROTECTED] escreveu: Aew Galera, fiz um pequeno estudo de caso, hehehe, e vejam o que consegui. Sou péssimo no que diz respeito a criação dinâmica de componentes, então, se tiver um jeito melhor, por favor, postem, assim eu aprendo tbm!!! Encham o seu form de edits e coloca isso no OnActivate. procedure TForm1.FormActivate(Sender: TObject); var I: Integer; Sp: TShape; begin for I := 0 to ComponentCount - 1 do begin if Components[I] is TEdit then with Components[I] as TEdit do begin BorderStyle := bsNone; // Assim os edits ficam sem borda, não precisa nem setar eles como CTL3D em False. Sp := TShape.Create(Self); // Cria o Shape Sp.Pen.Color := clLime; //Aqui vai a cor da borda pra ser mudada Sp.Brush.Color := clBlack; //Eu coloquei em preto, pq ai eu vejo se vazar algum shape Sp.Left := Left - 1; Sp.Top := Top - 1; Sp.Height := Height + 2; Sp.Width := Width + 2; Sp.Parent := Form1; end; end; end; Bom Código Ricardo Berti - Original Message - From: Ricardo Berti To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 11:48 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Deixa o Edit com BorderStyle em bsNone e coloca junto com ele um TShape atrás, de forma que só apareça a borda... ou se quiser fazer isso em muitos edits, cria uma procedure que leia todos os edits do form e desenhe um TShape atrás de cada um... Vou fazer alguns testes aqui e devolvo a vocês! Bom Código Ricard Berti - Original Message - From: Rafael Marques To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 11:31 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes eu tentei pelo canvas mas tomei um pau danado e
Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes
Pow Henrique, muito massa essa de criar um componente... Cheguei a pensar nisso, mas foi algo que nunca estudei... Ah, claro, sou adepto completo da POG : p Tipo, não faço a mínima de como se controla a criação de componentes... Como eu faço isso? Abraços Berti... Ricardo Berti - Original Message - From: Henrique Netzka (Vetor Sistemas) To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 11:45 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Caros Ricardos (ehehhehe), Já que o Berti lembrou a questão do xunxo, resolvi tentar fazer de um jeito não-xunxo! hehehe... Mas até que ficou simpes... Aliás, falar em xunxo, vocês já ouviram falar em POG? Dá pra dar umas boas risadas lendo sobre isso ehhehe... Enfim, veja: - Você herda o componente TEdit para o TColoredBorderEdit (hehehe) - No protected, você declara: procedure WMNCPaint(var Message: TWMNCPaint); message WM_NCPAINT; - E a implementação desta ficará assim: procedure TColoredBorderEdit.WMNCPaint(var Message: TWMNCPaint); var DC: HDC; Rect: TRect; Canvas: TCanvas; begin DC := GetWindowDC(Handle); try Windows.GetClientRect(Handle, Rect); // Limpa o fundo edit, pintando tudo da cor definida em Color (original) :) InflateRect(Rect, 4, 4); Brush.Color := Color; Windows.FillRect(DC, Rect, Brush.Handle); // Desenha a borda! Canvas := TCanvas.Create; try Canvas.Handle := DC; Canvas.Pen.Style := psSolid; Canvas.Pen.Color := clRed; // Cor da borda! Canvas.Brush.Style := bsClear; Canvas.Rectangle(0, 0, Width, Height); finally Canvas.Free; end; finally ReleaseDC(Handle, DC); end; end; - E pronto! Pra melhorar, em vez de deixar o clRed fixo ali, você pode criar uma propriedade no componente que diga qual será a cor da borda! E mais legal ainda, você pode sobrescrever os eventos DoEnter e DoExit para que, quando ele entre, você sete a borda de uma cor, e quando saia, sete a borda de outra cor! Abraços Henrique - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 10:41 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Bom dia xará! Olha... a unica maneira de se criar esses TShapes dinamicamente seria como vc fez mesmo. Não existe outra alternativa. Mas eu estava tentando achar no meio da JEDI VCL algum componente que tivesse essa propriedade que vc precisa, o que evitaria a criação de um TShape dinamicamente. Mas por enquanto não achei nada. Até o momento é asua dica que está valendo! Sds, Ricardo. Ricardo Berti [EMAIL PROTECTED] escreveu: Legal Ricardo (xará) : p , foi bem essa mesmo a idéia, só que no meu caso ele coloca sozinho o TShape nos TEdit que estiverem na tela sem que haja TShape no form em tempo de projeto, se q for só um Edit no Form, vale mais já colocar o Shape em Tempo de Projeto mesmo ; ) Economiza memória!!! PS: Conheces alguma outra forma de criar dinamicamente os Shapes? Ou o xunxo (vi esse termo a uns dias aí na lista, rssrsrsr) que eu fiz é suficiente?? Abraços e Bom Código! Ricardo Berti - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 3:52 PM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Puts xará, fiz um estudo de caso identico ao seu e fiquei com vergonha de publicar, mas no meu caso usei Left e Top -2 e Height e Width + 4. Segue abaixo o código: procedure TForm1.FormCreate(Sender: TObject); begin Shape1.Top := Edit1.Top -2; Shape1.Left := Edit1.Left -2; Shape1.Width := Edit1.Width + 4; Shape1.Height := Edit1.Height + 4; Edit1.Clear; Memo1.Clear; end; OBS: mudei o CTL3D e o BorderStyle em tempo de projeto, mas a lógica é a mesma. Ricardo Berti [EMAIL PROTECTED] escreveu: Aew Galera, fiz um pequeno estudo de caso, hehehe, e vejam o que consegui. Sou péssimo no que diz respeito a criação dinâmica de componentes, então, se tiver um jeito melhor, por favor, postem, assim eu aprendo tbm!!! Encham o seu form de edits e coloca isso no OnActivate. procedure TForm1.FormActivate(Sender: TObject); var I: Integer; Sp: TShape; begin for I := 0 to ComponentCount - 1 do begin if Components[I] is TEdit then with Components[I] as TEdit do begin BorderStyle := bsNone; // Assim os edits ficam sem borda, não precisa nem setar eles como CTL3D em False. Sp := TShape.Create(Self); // Cria o Shape Sp.Pen.Color := clLime; //Aqui vai a cor da borda pra ser mudada Sp.Brush.Color := clBlack; //Eu coloquei em preto, pq ai eu vejo se vazar algum shape Sp.Left := Left - 1; Sp.Top := Top - 1; Sp.Height := Height + 2; Sp.Width := Width + 2; Sp.Parent := Form1; end; end; end; Bom Código Ricardo Berti - Original Message - From: Ricardo Berti
Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes
Alguém pode me passar informações de como criar componetes descendentes de outros? Como o edit do exemplo??? Não tenho a menor ideia de criação de comnponete!! Abraços Berti... Ricardo Berti - Original Message - From: Henrique Netzka (Vetor Sistemas) To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 11:45 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Caros Ricardos (ehehhehe), Já que o Berti lembrou a questão do xunxo, resolvi tentar fazer de um jeito não-xunxo! hehehe... Mas até que ficou simpes... Aliás, falar em xunxo, vocês já ouviram falar em POG? Dá pra dar umas boas risadas lendo sobre isso ehhehe... Enfim, veja: - Você herda o componente TEdit para o TColoredBorderEdit (hehehe) - No protected, você declara: procedure WMNCPaint(var Message: TWMNCPaint); message WM_NCPAINT; - E a implementação desta ficará assim: procedure TColoredBorderEdit.WMNCPaint(var Message: TWMNCPaint); var DC: HDC; Rect: TRect; Canvas: TCanvas; begin DC := GetWindowDC(Handle); try Windows.GetClientRect(Handle, Rect); // Limpa o fundo edit, pintando tudo da cor definida em Color (original) :) InflateRect(Rect, 4, 4); Brush.Color := Color; Windows.FillRect(DC, Rect, Brush.Handle); // Desenha a borda! Canvas := TCanvas.Create; try Canvas.Handle := DC; Canvas.Pen.Style := psSolid; Canvas.Pen.Color := clRed; // Cor da borda! Canvas.Brush.Style := bsClear; Canvas.Rectangle(0, 0, Width, Height); finally Canvas.Free; end; finally ReleaseDC(Handle, DC); end; end; - E pronto! Pra melhorar, em vez de deixar o clRed fixo ali, você pode criar uma propriedade no componente que diga qual será a cor da borda! E mais legal ainda, você pode sobrescrever os eventos DoEnter e DoExit para que, quando ele entre, você sete a borda de uma cor, e quando saia, sete a borda de outra cor! Abraços Henrique - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 10:41 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Bom dia xará! Olha... a unica maneira de se criar esses TShapes dinamicamente seria como vc fez mesmo. Não existe outra alternativa. Mas eu estava tentando achar no meio da JEDI VCL algum componente que tivesse essa propriedade que vc precisa, o que evitaria a criação de um TShape dinamicamente. Mas por enquanto não achei nada. Até o momento é asua dica que está valendo! Sds, Ricardo. Ricardo Berti [EMAIL PROTECTED] escreveu: Legal Ricardo (xará) : p , foi bem essa mesmo a idéia, só que no meu caso ele coloca sozinho o TShape nos TEdit que estiverem na tela sem que haja TShape no form em tempo de projeto, se q for só um Edit no Form, vale mais já colocar o Shape em Tempo de Projeto mesmo ; ) Economiza memória!!! PS: Conheces alguma outra forma de criar dinamicamente os Shapes? Ou o xunxo (vi esse termo a uns dias aí na lista, rssrsrsr) que eu fiz é suficiente?? Abraços e Bom Código! Ricardo Berti - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 3:52 PM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Puts xará, fiz um estudo de caso identico ao seu e fiquei com vergonha de publicar, mas no meu caso usei Left e Top -2 e Height e Width + 4. Segue abaixo o código: procedure TForm1.FormCreate(Sender: TObject); begin Shape1.Top := Edit1.Top -2; Shape1.Left := Edit1.Left -2; Shape1.Width := Edit1.Width + 4; Shape1.Height := Edit1.Height + 4; Edit1.Clear; Memo1.Clear; end; OBS: mudei o CTL3D e o BorderStyle em tempo de projeto, mas a lógica é a mesma. Ricardo Berti [EMAIL PROTECTED] escreveu: Aew Galera, fiz um pequeno estudo de caso, hehehe, e vejam o que consegui. Sou péssimo no que diz respeito a criação dinâmica de componentes, então, se tiver um jeito melhor, por favor, postem, assim eu aprendo tbm!!! Encham o seu form de edits e coloca isso no OnActivate. procedure TForm1.FormActivate(Sender: TObject); var I: Integer; Sp: TShape; begin for I := 0 to ComponentCount - 1 do begin if Components[I] is TEdit then with Components[I] as TEdit do begin BorderStyle := bsNone; // Assim os edits ficam sem borda, não precisa nem setar eles como CTL3D em False. Sp := TShape.Create(Self); // Cria o Shape Sp.Pen.Color := clLime; //Aqui vai a cor da borda pra ser mudada Sp.Brush.Color := clBlack; //Eu coloquei em preto, pq ai eu vejo se vazar algum shape Sp.Left := Left - 1; Sp.Top := Top - 1; Sp.Height := Height + 2; Sp.Width := Width + 2; Sp.Parent := Form1; end; end; end; Bom Código Ricardo Berti - Original Message - From: Ricardo Berti To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 11:48 AM Subject: Re
[delphi-br] Trabalho em Grupo
Olá pessoal, Vou iniciar com um amigo meu um sistema qu será desenvolvido em Delphi 7 + Firebird 2.0. Só que queremos trablahar no mesmo projeto ao mesmo tempo. Exemplo: Eu crio um tela de cadastro aqui e quando ele compilar o programa lá já vai ter a tela de cadastro por mim criada! Os computadore estarão ligados em rede diretamente. Abraços Berti... Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] [Off-topic] Programa para criar ap resentação de sistemas
Olá, Segundo a crítica, um dos melhores que tem é o Camtasia, mas se não m engano é pago! Mas é um bom software! Dá uma busca no Google que você acha rapidinho Bom Código Berti... Ricardo Berti - Original Message - From: Leonardo - Lalur informática To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 5:11 PM Subject: [delphi-br] [Off-topic] Programa para criar apresentação de sistemas Boa tarde pessoal! Vocês utilizam algum programa daqueles que vai gravando o que você faz no micro e grava voz também para criar apresentações de sistemas?? Caso sim, existe algum free? Aguardo retorno, obrigado! Leonardo [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes
Programação Orientada a Gambiarra Bom Código Berti... Ricardo Berti - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 4:40 PM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Pois é Henrique... Salvou o dia! Mas desculpem a falta de atenção... o que é POG? []'s Ricardo. Rafael Marques [EMAIL PROTECTED] escreveu: valeu mesmo Henrique!!! era algo assim mesmo q eu tava procurando !! valeu mesmo brigadão!! :) Rafael - Original Message - From: Henrique Netzka (Vetor Sistemas) To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 11:45 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Caros Ricardos (ehehhehe), Já que o Berti lembrou a questão do xunxo, resolvi tentar fazer de um jeito não-xunxo! hehehe... Mas até que ficou simpes... Aliás, falar em xunxo, vocês já ouviram falar em POG? Dá pra dar umas boas risadas lendo sobre isso ehhehe... Enfim, veja: - Você herda o componente TEdit para o TColoredBorderEdit (hehehe) - No protected, você declara: procedure WMNCPaint(var Message: TWMNCPaint); message WM_NCPAINT; - E a implementação desta ficará assim: procedure TColoredBorderEdit.WMNCPaint(var Message: TWMNCPaint); var DC: HDC; Rect: TRect; Canvas: TCanvas; begin DC := GetWindowDC(Handle); try Windows.GetClientRect(Handle, Rect); // Limpa o fundo edit, pintando tudo da cor definida em Color (original) :) InflateRect(Rect, 4, 4); Brush.Color := Color; Windows.FillRect(DC, Rect, Brush.Handle); // Desenha a borda! Canvas := TCanvas.Create; try Canvas.Handle := DC; Canvas.Pen.Style := psSolid; Canvas.Pen.Color := clRed; // Cor da borda! Canvas.Brush.Style := bsClear; Canvas.Rectangle(0, 0, Width, Height); finally Canvas.Free; end; finally ReleaseDC(Handle, DC); end; end; - E pronto! Pra melhorar, em vez de deixar o clRed fixo ali, você pode criar uma propriedade no componente que diga qual será a cor da borda! E mais legal ainda, você pode sobrescrever os eventos DoEnter e DoExit para que, quando ele entre, você sete a borda de uma cor, e quando saia, sete a borda de outra cor! Abraços Henrique - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 08, 2007 10:41 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Bom dia xará! Olha... a unica maneira de se criar esses TShapes dinamicamente seria como vc fez mesmo. Não existe outra alternativa. Mas eu estava tentando achar no meio da JEDI VCL algum componente que tivesse essa propriedade que vc precisa, o que evitaria a criação de um TShape dinamicamente. Mas por enquanto não achei nada. Até o momento é asua dica que está valendo! Sds, Ricardo. Ricardo Berti [EMAIL PROTECTED] escreveu: Legal Ricardo (xará) : p , foi bem essa mesmo a idéia, só que no meu caso ele coloca sozinho o TShape nos TEdit que estiverem na tela sem que haja TShape no form em tempo de projeto, se q for só um Edit no Form, vale mais já colocar o Shape em Tempo de Projeto mesmo ; ) Economiza memória!!! PS: Conheces alguma outra forma de criar dinamicamente os Shapes? Ou o xunxo (vi esse termo a uns dias aí na lista, rssrsrsr) que eu fiz é suficiente?? Abraços e Bom Código! Ricardo Berti - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 3:52 PM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Puts xará, fiz um estudo de caso identico ao seu e fiquei com vergonha de publicar, mas no meu caso usei Left e Top -2 e Height e Width + 4. Segue abaixo o código: procedure TForm1.FormCreate(Sender: TObject); begin Shape1.Top := Edit1.Top -2; Shape1.Left := Edit1.Left -2; Shape1.Width := Edit1.Width + 4; Shape1.Height := Edit1.Height + 4; Edit1.Clear; Memo1.Clear; end; OBS: mudei o CTL3D e o BorderStyle em tempo de projeto, mas a lógica é a mesma. Ricardo Berti [EMAIL PROTECTED] escreveu: Aew Galera, fiz um pequeno estudo de caso, hehehe, e vejam o que consegui. Sou péssimo no que diz respeito a criação dinâmica de componentes, então, se tiver um jeito melhor, por favor, postem, assim eu aprendo tbm!!! Encham o seu form de edits e coloca isso no OnActivate. procedure TForm1.FormActivate(Sender: TObject); var I: Integer; Sp: TShape; begin for I := 0 to ComponentCount - 1 do begin if Components[I] is TEdit then with Components[I] as TEdit do begin BorderStyle := bsNone; // Assim os edits ficam sem borda, não precisa nem setar eles como CTL3D em False. Sp := TShape.Create(Self); // Cria o Shape Sp.Pen.Color := clLime; //Aqui vai a cor da borda pra ser mudada Sp.Brush.Color := clBlack; //Eu coloquei em
Re: [delphi-br] Desenvolvendo Mini-Chat dentro da aplicação.
Dá uma olhada nesses artigo: http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=249mode=threadorder=0thold=0 Nele passa a base dos Sockets http://www.uri.br/~preuss/socket/socketsdelphi.html Nesse aqui tem até um joguinho de par ou ímpar, pra fazer com sockets pra testar a coisa na prática http://www.guiadodelphi.com.br/ler.php?codigo=1116 Aqui tem exemplo de um chat, bem elaborado até! Qualquer coisa, posta aí! Bom Código Ricardo Berti - Original Message - From: Jorge Ericsson To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 06, 2007 6:38 PM Subject: [delphi-br] Desenvolvendo Mini-Chat dentro da aplicação. Olá pessoal, Gostaria de criar um mini-chat dentro de uma aplicação para CALL CENTER que estou desenvolvendo. Só que ela deve funcionar de maneira simples e mais simplificada da seguinte forma: Criei dois Array's com os Logins de todos os supervisores da aplicação e outro contendo o logins dos Operadores (para evitar uso de tabelas) Os operadores poderão enviar msgs apenas para os Supervisores que ele deseja e os Supervisor que receber a msgs terá de enviar apenas para o operador que iniciou o papo. Os outros operadores não poderão ver a msg de outro operador à algum supervisor. Sei que é muito complicado, mais antes gostaria de saber se tem alguém na lista que já desenvolveu algo ou pensa em desenvolver junto comigo para que possamos aprender todos. Creio que será útil para qq programa que trabalhe em rede com mais de um usuário. Já consegui simular minha idéia com o net send mais esbarrei no problema (nome da máquina na rede), por isso decide trabalhar com o longin de cada usuário que já logou no sistema. Alguém pode me ajudar nesse problema ? Grande abraço a todos, Jorge Ericsson Brasília-DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Material Lógica de programaç ão me ajude !!!
Olá meu amigo! Kra, gosto muito mesmo da parte da lógica em si dentro da programação, sempre que quier trocar alguma idéia ou se tiver dúvida, eu te ajudo no que puder... segue link com apostilas de lógica aplicada à proramação?: http://www.apostilando.com/sessao.php?cod=29 Tem bastante coisa aí! Bom Código Ricardo Berti - Original Message - From: abilita_tecnologia To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 10:34 AM Subject: [delphi-br] Material Lógica de programação me ajude !!! Grupo Bom dia Estou cursando o 3º semestre em Sistemas de Informação adoro o que estou fazendo mas a faculdade é um grande desafio para mim pois sempre tive muita dificuldade com exatas mas continuo fime e forte. Gostaria de saber se alguem tem um material que seja bom para lógica de programação , apostila , indicação de livros qualquer coisa estou muito desesperada os materiais que tenho aqui não estão ajudando muito . Por favor quem puder me ajudar agradeço . Bom dia a todos . [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes
Deixa o Edit com BorderStyle em bsNone e coloca junto com ele um TShape atrás, de forma que só apareça a borda... ou se quiser fazer isso em muitos edits, cria uma procedure que leia todos os edits do form e desenhe um TShape atrás de cada um... Vou fazer alguns testes aqui e devolvo a vocês! Bom Código Ricard Berti - Original Message - From: Rafael Marques To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 11:31 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes eu tentei pelo canvas mas tomei um pau danado e num consegui :( eheheehheheheeh procurei nuns sites e num achei!! talvez alguem tenha algum exemplo - Original Message - From: Henrique Netzka (Vetor Sistemas) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 10:11 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Canvas! hahahahaha não tenho uma solução melhor, desculpe rs. Só não sei se é tão simples, já que o Delphi provavelmente mande o Windows desenhar os controles ao invés de ele mesmo fazê-lo... abraços - Original Message - From: Rafael Marques To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 8:38 AM Subject: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Bom Dia!! alguem sabe como alterar a cor da linha do contorno dos componentes qdo desabilitamos a propriedade CTRL3D??? por exemplo os Edits. eles ficam sem o relevo e com o contorno em linha preta!! eu gostaria de , por exemplo, trocar a cor dessa linha pra azul ou vermelho mto obrigado!! Rafael [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 06/02/2007 / Versão: 5.1.00/4957 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes
Aew Galera, fiz um pequeno estudo de caso, hehehe, e vejam o que consegui. Sou péssimo no que diz respeito a criação dinâmica de componentes, então, se tiver um jeito melhor, por favor, postem, assim eu aprendo tbm!!! Encham o seu form de edits e coloca isso no OnActivate. procedure TForm1.FormActivate(Sender: TObject); var I: Integer; Sp: TShape; begin for I := 0 to ComponentCount - 1 do begin if Components[I] is TEdit then with Components[I] as TEdit do begin BorderStyle := bsNone; // Assim os edits ficam sem borda, não precisa nem setar eles como CTL3D em False. Sp := TShape.Create(Self); // Cria o Shape Sp.Pen.Color := clLime; //Aqui vai a cor da borda pra ser mudada Sp.Brush.Color := clBlack; //Eu coloquei em preto, pq ai eu vejo se vazar algum shape Sp.Left := Left - 1; Sp.Top := Top - 1; Sp.Height := Height + 2; Sp.Width := Width + 2; Sp.Parent := Form1; end; end; end; Bom Código Ricardo Berti - Original Message - From: Ricardo Berti To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 11:48 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Deixa o Edit com BorderStyle em bsNone e coloca junto com ele um TShape atrás, de forma que só apareça a borda... ou se quiser fazer isso em muitos edits, cria uma procedure que leia todos os edits do form e desenhe um TShape atrás de cada um... Vou fazer alguns testes aqui e devolvo a vocês! Bom Código Ricard Berti - Original Message - From: Rafael Marques To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 11:31 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes eu tentei pelo canvas mas tomei um pau danado e num consegui :( eheheehheheheeh procurei nuns sites e num achei!! talvez alguem tenha algum exemplo - Original Message - From: Henrique Netzka (Vetor Sistemas) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 10:11 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Canvas! hahahahaha não tenho uma solução melhor, desculpe rs. Só não sei se é tão simples, já que o Delphi provavelmente mande o Windows desenhar os controles ao invés de ele mesmo fazê-lo... abraços - Original Message - From: Rafael Marques To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 8:38 AM Subject: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Bom Dia!! alguem sabe como alterar a cor da linha do contorno dos componentes qdo desabilitamos a propriedade CTRL3D??? por exemplo os Edits. eles ficam sem o relevo e com o contorno em linha preta!! eu gostaria de , por exemplo, trocar a cor dessa linha pra azul ou vermelho mto obrigado!! Rafael [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 06/02/2007 / Versão: 5.1.00/4957 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes
Legal Ricardo (xará) : p , foi bem essa mesmo a idéia, só que no meu caso ele coloca sozinho o TShape nos TEdit que estiverem na tela sem que haja TShape no form em tempo de projeto, se q for só um Edit no Form, vale mais já colocar o Shape em Tempo de Projeto mesmo ; ) Economiza memória!!! PS: Conheces alguma outra forma de criar dinamicamente os Shapes? Ou o xunxo (vi esse termo a uns dias aí na lista, rssrsrsr) que eu fiz é suficiente?? Abraços e Bom Código! Ricardo Berti - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 3:52 PM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Puts xará, fiz um estudo de caso identico ao seu e fiquei com vergonha de publicar, mas no meu caso usei Left e Top -2 e Height e Width + 4. Segue abaixo o código: procedure TForm1.FormCreate(Sender: TObject); begin Shape1.Top := Edit1.Top -2; Shape1.Left := Edit1.Left -2; Shape1.Width := Edit1.Width + 4; Shape1.Height := Edit1.Height + 4; Edit1.Clear; Memo1.Clear; end; OBS: mudei o CTL3D e o BorderStyle em tempo de projeto, mas a lógica é a mesma. Ricardo Berti [EMAIL PROTECTED] escreveu: Aew Galera, fiz um pequeno estudo de caso, hehehe, e vejam o que consegui. Sou péssimo no que diz respeito a criação dinâmica de componentes, então, se tiver um jeito melhor, por favor, postem, assim eu aprendo tbm!!! Encham o seu form de edits e coloca isso no OnActivate. procedure TForm1.FormActivate(Sender: TObject); var I: Integer; Sp: TShape; begin for I := 0 to ComponentCount - 1 do begin if Components[I] is TEdit then with Components[I] as TEdit do begin BorderStyle := bsNone; // Assim os edits ficam sem borda, não precisa nem setar eles como CTL3D em False. Sp := TShape.Create(Self); // Cria o Shape Sp.Pen.Color := clLime; //Aqui vai a cor da borda pra ser mudada Sp.Brush.Color := clBlack; //Eu coloquei em preto, pq ai eu vejo se vazar algum shape Sp.Left := Left - 1; Sp.Top := Top - 1; Sp.Height := Height + 2; Sp.Width := Width + 2; Sp.Parent := Form1; end; end; end; Bom Código Ricardo Berti - Original Message - From: Ricardo Berti To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 11:48 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Deixa o Edit com BorderStyle em bsNone e coloca junto com ele um TShape atrás, de forma que só apareça a borda... ou se quiser fazer isso em muitos edits, cria uma procedure que leia todos os edits do form e desenhe um TShape atrás de cada um... Vou fazer alguns testes aqui e devolvo a vocês! Bom Código Ricard Berti - Original Message - From: Rafael Marques To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 11:31 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes eu tentei pelo canvas mas tomei um pau danado e num consegui :( eheheehheheheeh procurei nuns sites e num achei!! talvez alguem tenha algum exemplo - Original Message - From: Henrique Netzka (Vetor Sistemas) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 10:11 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Canvas! hahahahaha não tenho uma solução melhor, desculpe rs. Só não sei se é tão simples, já que o Delphi provavelmente mande o Windows desenhar os controles ao invés de ele mesmo fazê-lo... abraços - Original Message - From: Rafael Marques To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 8:38 AM Subject: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Bom Dia!! alguem sabe como alterar a cor da linha do contorno dos componentes qdo desabilitamos a propriedade CTRL3D??? por exemplo os Edits. eles ficam sem o relevo e com o contorno em linha preta!! eu gostaria de , por exemplo, trocar a cor dessa linha pra azul ou vermelho mto obrigado!! Rafael [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 06/02/2007 / Versão: 5.1.00/4957 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto
Re: [delphi-br] Edição de imagens numa apl icação em Delphi.
Tem uma biblioteca de edição de imagens que eu peguei em algum site a um tempo atrás! Só que nunca parei pra estudar ela, mas tem bastante coisa. Vou ver os royalities pra ver se eu posso postar ná página do grupo! Tem bastante coisa mesmoa lá! Bom Código Ricardo Berti - Original Message - From: Alexandre Gois To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 1:23 AM Subject: [delphi-br] Edição de imagens numa aplicação em Delphi. Pessoal, um olá para todos. Estou precisando adaptar num software que estou desenvolvendo a opção de edição de fotos, tipo um photoshop, para que a pessoa selecione o local desejado e troque de cor ou faça sobreposição de imagens. É claro que não precisa ser na riqueza de detalhes do photoshop, seria somente funções básicas, pintar recortar e colar... por aí. Será possível de fazer?... Aguardo ajuda. Grato. Alexandre Gois. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Edição de imagens numa apl icação em Delphi.
Olá Pessoal, a biblioteca é Free e open source pela GNU, eu queria colocar ela no yahoo da lista para disponibiliza-la a todos, mas o arquivo tem +/- 4mb e não é aceito. Então postei ele no 4shared, segue o link: http://www.4shared.com/file/10091862/9ebb10ed/Biblioteca_de_Processamento_Grfico.html Bom Código Ricardo Berti - Original Message - From: Ricardo Berti To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 9:31 AM Subject: Re: [delphi-br] Edição de imagens numa aplicação em Delphi. Tem uma biblioteca de edição de imagens que eu peguei em algum site a um tempo atrás! Só que nunca parei pra estudar ela, mas tem bastante coisa. Vou ver os royalities pra ver se eu posso postar ná página do grupo! Tem bastante coisa mesmoa lá! Bom Código Ricardo Berti - Original Message - From: Alexandre Gois To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 1:23 AM Subject: [delphi-br] Edição de imagens numa aplicação em Delphi. Pessoal, um olá para todos. Estou precisando adaptar num software que estou desenvolvendo a opção de edição de fotos, tipo um photoshop, para que a pessoa selecione o local desejado e troque de cor ou faça sobreposição de imagens. É claro que não precisa ser na riqueza de detalhes do photoshop, seria somente funções básicas, pintar recortar e colar... por aí. Será possível de fazer?... Aguardo ajuda. Grato. Alexandre Gois. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OnDblClick em um RadioGroup?
Olá Pessoal Alguém conhece alguma forma de utilizar-se do evento OnDblClick ou semelhante em um RadioGroup? Abraços Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Turbo Delphi
Olá Pessoal, programo hoje com Delphi 7, só que acontece que sou meio que apegado, pra trocar do Delphi 4 pro 6 foi um pau danado, e depois pro 7 então. Claro que as mudanças são visíveis e que depois que você troca pra uma ferramenta mais nova e adere as funcionalidades, você não consegue regredir... Bom pessoal, eu estou no Delphi 7 e hoje queria informações sobre esse Turbo Delphi Explorer, ele é a versão mais nova do Delphi? Tenho o D7, posso tirar totalmente ele e usar só o Turbo Delphi Explorer no lugar? Eu ele é apenas uma extensão do Delphi 2006 ou algo parecido... Obrigado Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Maximizar Form e Componentes
Olá Amigo, eu sempre uso as Anchors dos proprios componentes, vc tem de se habituar a elas para controlar isso! Por exemplo: Coloca um memo pequeno no meio do form. Por padrão vem ligadas as Ancoras Left e Top, isso significa que o lado esquerdo e a parte de cima estarão seguindo o form quando este sofrer um Resize (redimensionamento) agora, se você ligar a Ancora da direita e redimensionar o form, o lado direot do memo vai seguir o form tbm... É simples. Quando tiver muitos componentes no form, os que estão no topo fica com o Left, o Right e o Top ligados, ou seja, quando redimentionar eles vao seguir o tamanho do form na parte de cima, da esquerda e da direita. Os que estão no meio, geralmente ficam com todas as Ancoras ligadas, e os que estão em baixo, ficam com as ancoras Left, Right e Botton ligadas Se quiser fazer um teste pratico, coloque tres memos em um form vazio, coloca um colado com o outro assim: |--| | | | |||memo1 | | |||memo2 | | |||memo3 | | | |--| Compila e redimensiona o form... você verá que eles não se alteram, agora volta no delphi e começa a mexer nas ancoras, como eu te falei ali em cima... Creio que você vai pegar a lógica da coisa!!! Bom Código! Ricardo Berti - Original Message - From: Romario (Listas) To: Delphi-br (Lista de Discussão) Sent: Thursday, February 01, 2007 1:33 PM Subject: [delphi-br] Maximizar Form e Componentes Eu devo ter jogado pedra na cruz na encarnação passada. Será que existe uma forma menos traumática de fazer com que os componentes acompanhem a maximização do formulário? A cada tentativa eu bagunço todo o formulário e não consigo fazer com que os componentes fiquem perfeitos ao maximizá-los. Agradeço qualquer explicação, dica, código, exemplo ou seja lá o que for que me ajude a entender e acertar esse problema. Obrigado! Sds, Romario ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Turbo Delphi
Olá, por favor, vocês podem me dar informações sobre o Turbo Delphi e qual a relação dele com o bds2006 e se vale a pena trocar do 7 rpo TD2006? Ricardo Berti I Marketing I Designer Gráfico Fluipress Automação Ltda. - Tecnologia em Movimento. Itajaí SC Site: www.fluipress.com.br Tel: +55 47 2103-3426 Fax:+55 47 2103-3422 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Modularizacao com BPL
Olá Pessoal, não sei o que ocorreu, mas eu não consigo acessar a página de arquivos da lista no yahoo. Queria pegar este exemplo de modularização! Abraços Ricardo Berti - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Monday, January 29, 2007 8:20 PM Subject: RE: [delphi-br] Modularizacao com BPL Na área de arquivos da página da lista no yahoo tem exemplos sobre isso. Sds. From: Adauri Antonio Camacho Junior [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Modularizacao com BPL Date: Fri, 26 Jan 2007 09:03:08 -0300 Bom dia a todos, o que vocês acham sobre modularizacao por BPL. Alguém tem algum exemplo pra me passar ? Obrigado. Adauri Jr. Analista de Sistemas Ribeirão Preto / SP [As partes desta mensagem que não continham texto foram removidas] __ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conectar no Emal
Tranquilo Galera, já consegui conectar no gmail, o problema era qu eu precisava usar o SSL! A palheta indy tem um componente que é um cadeado e não lembro o nome agora, eu ligo ele no POP e coloco duas dll's que baixa no site da Indy na pasta do programa! Abraços e obrigado! Ricardo Berti - Original Message - From: Eric D. To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 30, 2007 12:47 PM Subject: Re: [delphi-br] Conectar no Emal Sim, as portas são diferentes e exigem autenticação. No próprio FAQ do Gmail existem as configurações necessárias para os clientes de email, que são exatamente as quais ele irá precisar para acessar pelo Indy. []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] Talk is cheap, show me the code... - Original Message - From: Mauro Correa To: delphi-br@yahoogrupos.com.br Sent: Friday, January 26, 2007 1:02 PM Subject: Re: [delphi-br] Conectar no Emal Lembre-se que o GMail usa portas diferenciadas com conexão segura. Se nao me engano é 965 ou 995, algo do tipo. Tem alguns how-to em inglês justamente com Indy que funcionam bem. Att. Mauro Paes Corrêa gnX Soluções em Internet www.gnx.com.br --- Ricardo Berti [EMAIL PROTECTED] escreveu: Estou criando um programa que Conecta-se na minh conta de email no Gmail usando Indy, mas sempre recebo a msg Conect Timeout e não consigo me conectar! Alguém já conseguiu se conctar no gmail, usou algo diferente ou tem exemplo??? Abraços Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo..com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conectar no Emal
Se vocês quiseres, posso passar os fontes do programinha que eu fiz pra conectar no gmail, e usar eles como base pra fazer qualquer coisa! Só me digam onde eu posto os fontes, se eu mando aki no email da lista mesmo ou se for pra colocar no yahoo arquivos da lista eu não estou conseguindo! Bom Código! Ricardo Berti - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 30, 2007 2:29 PM Subject: Re: [delphi-br] Conectar no Emal Dá pra fazer algo parecido pra baixar mensagens do iG e do POP? []'s Ricardo. Ricardo Berti [EMAIL PROTECTED] escreveu: Tranquilo Galera, já consegui conectar no gmail, o problema era qu eu precisava usar o SSL! A palheta indy tem um componente que é um cadeado e não lembro o nome agora, eu ligo ele no POP e coloco duas dll's que baixa no site da Indy na pasta do programa! Abraços e obrigado! Ricardo Berti - Original Message - From: Eric D. To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 30, 2007 12:47 PM Subject: Re: [delphi-br] Conectar no Emal Sim, as portas são diferentes e exigem autenticação. No próprio FAQ do Gmail existem as configurações necessárias para os clientes de email, que são exatamente as quais ele irá precisar para acessar pelo Indy. []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] Talk is cheap, show me the code... - Original Message - From: Mauro Correa To: delphi-br@yahoogrupos.com.br Sent: Friday, January 26, 2007 1:02 PM Subject: Re: [delphi-br] Conectar no Emal Lembre-se que o GMail usa portas diferenciadas com conexão segura. Se nao me engano é 965 ou 995, algo do tipo. Tem alguns how-to em inglês justamente com Indy que funcionam bem. Att. Mauro Paes Corrêa gnX Soluções em Internet www.gnx.com.br --- Ricardo Berti [EMAIL PROTECTED] escreveu: Estou criando um programa que Conecta-se na minh conta de email no Gmail usando Indy, mas sempre recebo a msg Conect Timeout e não consigo me conectar! Alguém já conseguiu se conctar no gmail, usou algo diferente ou tem exemplo??? Abraços Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo..com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conectar no Emal
Tah bem simples, só recebe, ainda não envia Mas acho que já ajuda! Ricarod Berti - Original Message - From: Ricardo Berti To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 30, 2007 3:34 PM Subject: Re: [delphi-br] Conectar no Emal Se vocês quiseres, posso passar os fontes do programinha que eu fiz pra conectar no gmail, e usar eles como base pra fazer qualquer coisa! Só me digam onde eu posto os fontes, se eu mando aki no email da lista mesmo ou se for pra colocar no yahoo arquivos da lista eu não estou conseguindo! Bom Código! Ricardo Berti - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 30, 2007 2:29 PM Subject: Re: [delphi-br] Conectar no Emal Dá pra fazer algo parecido pra baixar mensagens do iG e do POP? []'s Ricardo. Ricardo Berti [EMAIL PROTECTED] escreveu: Tranquilo Galera, já consegui conectar no gmail, o problema era qu eu precisava usar o SSL! A palheta indy tem um componente que é um cadeado e não lembro o nome agora, eu ligo ele no POP e coloco duas dll's que baixa no site da Indy na pasta do programa! Abraços e obrigado! Ricardo Berti - Original Message - From: Eric D. To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 30, 2007 12:47 PM Subject: Re: [delphi-br] Conectar no Emal Sim, as portas são diferentes e exigem autenticação. No próprio FAQ do Gmail existem as configurações necessárias para os clientes de email, que são exatamente as quais ele irá precisar para acessar pelo Indy. []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] Talk is cheap, show me the code... - Original Message - From: Mauro Correa To: delphi-br@yahoogrupos.com.br Sent: Friday, January 26, 2007 1:02 PM Subject: Re: [delphi-br] Conectar no Emal Lembre-se que o GMail usa portas diferenciadas com conexão segura. Se nao me engano é 965 ou 995, algo do tipo. Tem alguns how-to em inglês justamente com Indy que funcionam bem. Att. Mauro Paes Corrêa gnX Soluções em Internet www.gnx.com.br --- Ricardo Berti [EMAIL PROTECTED] escreveu: Estou criando um programa que Conecta-se na minh conta de email no Gmail usando Indy, mas sempre recebo a msg Conect Timeout e não consigo me conectar! Alguém já conseguiu se conctar no gmail, usou algo diferente ou tem exemplo??? Abraços Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo..com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conectar no Emal
Pq os fontes nao foram? Como faço pra mandar arquivo anexo pra lista? - Original Message - From: Ricardo Berti To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 30, 2007 3:41 PM Subject: Re: [delphi-br] Conectar no Emal Tah bem simples, só recebe, ainda não envia Mas acho que já ajuda! Ricarod Berti - Original Message - From: Ricardo Berti To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 30, 2007 3:34 PM Subject: Re: [delphi-br] Conectar no Emal Se vocês quiseres, posso passar os fontes do programinha que eu fiz pra conectar no gmail, e usar eles como base pra fazer qualquer coisa! Só me digam onde eu posto os fontes, se eu mando aki no email da lista mesmo ou se for pra colocar no yahoo arquivos da lista eu não estou conseguindo! Bom Código! Ricardo Berti - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 30, 2007 2:29 PM Subject: Re: [delphi-br] Conectar no Emal Dá pra fazer algo parecido pra baixar mensagens do iG e do POP? []'s Ricardo. Ricardo Berti [EMAIL PROTECTED] escreveu: Tranquilo Galera, já consegui conectar no gmail, o problema era qu eu precisava usar o SSL! A palheta indy tem um componente que é um cadeado e não lembro o nome agora, eu ligo ele no POP e coloco duas dll's que baixa no site da Indy na pasta do programa! Abraços e obrigado! Ricardo Berti - Original Message - From: Eric D. To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 30, 2007 12:47 PM Subject: Re: [delphi-br] Conectar no Emal Sim, as portas são diferentes e exigem autenticação. No próprio FAQ do Gmail existem as configurações necessárias para os clientes de email, que são exatamente as quais ele irá precisar para acessar pelo Indy. []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] Talk is cheap, show me the code... - Original Message - From: Mauro Correa To: delphi-br@yahoogrupos.com.br Sent: Friday, January 26, 2007 1:02 PM Subject: Re: [delphi-br] Conectar no Emal Lembre-se que o GMail usa portas diferenciadas com conexão segura. Se nao me engano é 965 ou 995, algo do tipo. Tem alguns how-to em inglês justamente com Indy que funcionam bem. Att. Mauro Paes Corrêa gnX Soluções em Internet www.gnx.com.br --- Ricardo Berti [EMAIL PROTECTED] escreveu: Estou criando um programa que Conecta-se na minh conta de email no Gmail usando Indy, mas sempre recebo a msg Conect Timeout e não consigo me conectar! Alguém já conseguiu se conctar no gmail, usou algo diferente ou tem exemplo??? Abraços Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo..com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conectar no Email
Aí Galera, tah na página do yahoo já! Antes de mais nada você deve abrir o gmail, ir em configurações em em POP e habilitar ele pra que possa trabalhar com POP. No programa coloca teus dados nos campos respectivos para nome de usuário e senha e clica em conectar, depois clica em receber email, os email começarão a serem listados no list (eu não fiz nada para parar, ou seja, se tiver 500 emails lá ele fica lendo tudo). Quando terminar de ler os emails, você seleciona um e clica 2x que ele vai baixar o email, baixar os anexos e abrir o email no webbrowser... Tah bem rustico, mas funciona e serve de exemplo com os codigos para receber arquivos do gmail! Bom Código a todos! Ricardo Berti [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Conectar no Emal
Estou criando um programa que Conecta-se na minh conta de email no Gmail usando Indy, mas sempre recebo a msg Conect Timeout e não consigo me conectar! Alguém já conseguiu se conctar no gmail, usou algo diferente ou tem exemplo??? Abraços Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Conectar no Email
Revogando: A msg é Read Timeout Abraços Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Conectar no Email
Consegui conectar usando SSL no Gmail, agora quero ver se consigo entender a parte de pegar os anexos! Abraços Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Alterar Cor da Barra de Título
Olá Pessoal, Alguém sabe como alterar a cor da Barra de Título de um Form via Programação? Abraços Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Desmembrar string
Olá Amigo, segue o código que você pediu: Você só tem que atribuir à variável Texto o caminho que você quer que desmembre... Nesse caso ele vai jogando os nomes desmembrados para um Memo, mas você pode alterar do jeito que quiser. Mas da pra usar o copy sim... var I, Idx: Integer; Texto: string; begin Texto := '\pasta1\arquivos\dados'; Idx := 1; for I := 2 to Length(Texto) do begin if Texto[I] = '\' then begin Memo1.Lines.Add(Copy(Texto, Idx + 1, I - Idx - 1)); Idx := I; end; if I = Length(Texto) then Memo1.Lines.Add(Copy(Texto, Idx + 1, I)); end; end; P.S.: Não coloquei comentário em linha nenhuma pq não deu tempo, então se surgir dúvida, poste na lista!!! Bom Código Ricardo Berti - Original Message - From: Lucas To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 24, 2007 4:35 PM Subject: [delphi-br] Desmembrar string Preciso desmembrar o caminho de pastas de arquivos, exemplo: tenho uma string com \pasta1\arquivos\dados preciso separar isto em 3 strings: pasta1 arquivos dados lembrando que não da pra usar o copy porque os nomes das pastas podem ser de varios tamanhos. Alguém tem uma dica? Desde ja agradeço. Lucas. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] pegar tamanho da imagem
Olá meu amigo, use a rotina abaixo, ele verifica o arquivo antes mandar ele pro
dbimage:
procedure...
var
F: file of Byte;
begin
if OpenPictureDialog1.Execute then
begin
AssignFile(F, OpenPictureDialog1.FileName);
Reset(F);
try
if FileSize(F) 512000 then
ShowMessage('O arquivo tem mais de 500kb!')
else
DBImage1.Picture.Bitmap.LoadFromFile(OpenPictureDialog1.FileName);
finally
CloseFile(f);
end;
end;
end;
Bom Código
Ricardo Berti
- Original Message -
From: Renato Lorandi
To: Lista Delphi
Sent: Thursday, January 18, 2007 11:35 PM
Subject: [delphi-br] pegar tamanho da imagem
Olá pessoal estou desenvolvendo minha tela de cadastro onde nesta tenho que
colocar a foto do cliente, so que gostaria de delimitar um tamanho para a foto
para caber direito no espaço destinado a ela na tela..
mas não tenho a minima ideia de como fazer isso, o componente que estou
usando para colocar a imagem na tela é o EDBImage, baixei esse componente
ai,pois ele suporta imagens do tipo JPG e não so BMP como o DBImage, apos
carregar a imagem vou gravar ela em banco, mas o que gostaria é o seguinte na
hora que estou selecionando a imagem atraves do openPictureDialog ele me
apresentar uma mensagem dizendo que a foto é muito grande... entenderam...
ou se alguem tiver outra ideia lógico que estou interessado em saber ok..
aguardo retorno..
abraços...
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Automação Comercial
Olá Murillo, é bem isso que eu to procurando, para fazer de uma forma básica e poder customizar de acordo com a necessidade do cliente, são esses conceitos que eu preciso, vou ler sobre isso, MRP, Plano de Contas, se você souber outros meios a que eu possa chegar nesse tipo de infomação, agradeço! Abraços Ricardo Berti - Original Message - From: Murillo Proença To: delphi-br@yahoogrupos.com.br Sent: Friday, January 19, 2007 9:51 AM Subject: [delphi-br] Re: Automação Comercial Uma coisa muito importante e que muitas empresas não fazem é desenvolver um sistema em cima de um conceito e não das necessidades do cliente. Exemplo, quando for montar um sistema de produção, leia sobre MRP, quando for contábil, leia sobre plano de contas e assim por diante. A chance do seu sistema ser amplamente aceito por diversos clientes vai ser muito maior quando você partir dos conceitos do negócio. Aí se algum cliente surgir com algo que só ele controla, você faz uma customizaçao só pra ele e cobra por isso. Abraço Murillo Proença --- Em delphi-br@yahoogrupos.com.br, Henrique Netzka \(Vetor Sistemas\) [EMAIL PROTECTED] escreveu Olá, Ricardo! Creio que contra as regras não seja, mas veja... com certeza muita gente aqui trabalha nesta área (eu memso presto serviços pra uma empresa que faz sistemas deste tipo), mas se um sistema desse, que é alugado, for colocado numa lista de discussão... faria sentido pra você?! Não leva a mal, mas isso seria quase como perguntar numa lista de discussão de marketing se alguém ali conhecia uma boa forma para isotônicos, pois a sua empresa gostaria de começar a produzi-lo :) Mas já que você já tem um cliente, explore isso!! De opinião pessoal é a melhor forma de aprender um negócio... Abraços Henrique - Original Message - From: Ricardo Berti To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 18, 2007 4:36 PM Subject: [delphi-br] Automação Comercial Olá Pessoal, eu estou querendo montar um sistema comercial, só que não sei o que colocar por exemplo, no cadastro de produtos, clientes, fornecedores, etc... Peguei bastante coisa da internet, sistemas prontos, mas sempre um pede coisas e outro pede coisas bem diferentes... Alguém sabe o que pode ser melhor para fazer cadastros em um sistema genérico? Tipo Cliente, Fornecedor, Produto, Contas Pagar/Receber, e/ou o que vai nesses? Eu to fazendo um colega que tem uma lojinha, mas quero ampliar ele pra poder vendar pra mais pessoas, mas preciso de algo pra poder oferecer Se esse tipo de dúvida vai contra regras ou coisa do tipo, por favor, desconsiderar! Se não, eu ficarei muito grato mesmo pela ajuda de você Abraços! Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Automação Comercial
Entendi. Realmente não tenho muito conhecimento em metodologia de desenvolvimento de sistemas. Conehcço bem o Delphi, Banco de Dados, etc, mas como usar isso pra cirar um sistema não... :p Bom, eu estava querendo dizer algo no sentido de, por exemplo, o Aplicativos Comerciais, ou Henning automação, ou SCI, e outros sistemas desse estilo! São Aplicativos muuuito utilizados por várias empresas de situações diferentes, claro que se necessário há modoficações no programa de acordo com a necessidade da empresa, masno geral existe uma base para o desenvolvimento das customs! Obrigado Galera, continuem postando! Abraços Ricardo Berti - Original Message - From: Walter Chagas (Yahoo) To: delphi-br@yahoogrupos.com.br Sent: Friday, January 19, 2007 10:26 AM Subject: [delphi-br] Re: Automação Comercial Bom dia Ricardo, Olha, pelo seu papo, denota-se claramente que você não conhece bem a metodologia de desenvolvimento de sistemas. O primeiro passo que se dá no desenvolvimento de um sistema (ainda mais um gerencial), é o levantamento de requisitos do cliente. Ou seja, você ir no cliente e mapear os processos da empresa dele. Levantar as demandas, estudar as regras de negócio e os processos para depois analizar e construir os macrofluxos que serão convertidos em linhas de código. ESSte é primeiro passo. Já que você tem um colega que tem uma loja, o ideal seria que ele te acompanhasse neste processo lhe orientando nos processos. Definida esta primeira etapa, você pode apresentar a ele a proposta do que o sistema pretente fazer. Aí, neste caso, voce pode até ir implementando e ele lá na loja ir validando. Mas você preciará conhecer bem os conceitos dos Sistemas Gerencias (ERP´s) pois não existe um ERP genérico que sirva pra qualquer empresa. Todos tem que ser customizáveis pois empresas estão sempre mudando seus processos, todo dia vai ter demanda pra seu sistema. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Ricardo Berti ricardo- [EMAIL PROTECTED] escreveu Olá Pessoal, eu estou querendo montar um sistema comercial, só que não sei o que colocar por exemplo, no cadastro de produtos, clientes, fornecedores, etc... Peguei bastante coisa da internet, sistemas prontos, mas sempre um pede coisas e outro pede coisas bem diferentes... Alguém sabe o que pode ser melhor para fazer cadastros em um sistema genérico? Tipo Cliente, Fornecedor, Produto, Contas Pagar/Receber, e/ou o que vai nesses? Eu to fazendo um colega que tem uma lojinha, mas quero ampliar ele pra poder vendar pra mais pessoas, mas preciso de algo pra poder oferecer Se esse tipo de dúvida vai contra regras ou coisa do tipo, por favor, desconsiderar! Se não, eu ficarei muito grato mesmo pela ajuda de você Abraços! Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Minimizar sistema...
Não sei se entendi bem a pergunta, mas você precisa minimizar o sistema, não importantod se tem outros forms abertos modais ou não, é isso? Se for basta o código seguir. Se não poste mais detalhes sobre o q está ocorrendo! Application.Minimize; Bom Código Ricardo Berti - Original Message - From: Dimas Fernando To: delphi-br@yahoogrupos.com.br Sent: Friday, January 19, 2007 10:34 AM Subject: [delphi-br] Minimizar sistema... Ola pessoal.. Utilizado Delphi 7. Gostaria de minimizar meu sistema.. nao importa em qual tela ou modulo o usuario esteja assim que ele clicar em Minimizar.. teria q minimizar o sistema para ele ficar na barra de Tarefas. Tem modulos que eu abro com ShowModal e algunas apenas Show. Alguma sugestao ? Obrigado [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Imprimir na Impressora Térmica Argox
http://www.delphi.eti.br/downloads.php?id=3925 aqui tem exemplo e componente e unit e classe Hehehe, tem bastante material sobre isso na net. Bom Código Ricardo Berti - Original Message - From: Levi Ribeiro de Freitas To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 18, 2007 1:49 PM Subject: [delphi-br] Imprimir na Impressora Térmica Argox Pessoal, Alguém tem exemplo de como imprimir para Impressora Térmica Argox? Agradeço pelo ajuda, Levi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Imprimir na Impressora Térmica Argox
Olá Levi, procurando sobre este assunto encontrei um artigo que explica detalhadamente como trabalhar com esse tipo de impressoar: http://www.activedelphi.com.br/imagens/artigos/codigo_barras_PPLB.htm Bom Código Ricardo Berti - Original Message - From: Levi Ribeiro de Freitas To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 18, 2007 1:49 PM Subject: [delphi-br] Imprimir na Impressora Térmica Argox Pessoal, Alguém tem exemplo de como imprimir para Impressora Térmica Argox? Agradeço pelo ajuda, Levi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Contador Regressivo de Caracteres em um Memo
Olá Ricardo ( xará :p ) Coloca no Memo o MaxLengh com a quantidade máxima de caracteres e no onKeyPress do Memo coloca o seguinte código: Label1.Caption := 'Restam ' + IntToStr( Memo1.MaxLength - Length(Memo1.Text) ) Bom Código Ricardo Berti - Original Message - From: Ricardo Ravelli To: delphi-br@yahoogrupos.com.br Sent: Friday, January 19, 2007 11:16 AM Subject: [delphi-br] Contador Regressivo de Caracteres em um Memo Bom dia a todos. Tenho um Label no qual eu queria mostrar qtos caracteres ainda falta para o usuário digitar dentro de um memo. Alguém tem alguma função que faça isso. obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Agradecimento
Bom Final de Semana a todos Pessoal, muito obrigado pela ajuda! Abraços e Bom Código Ricardo Berti [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] PROBLEMA P DESTRUIR FORM
Para usar essa função, você tem que primeiro da um Close no form, se fizzer isso com ele aberto vai dar Acess Violation. Outra forma é usar Form.Release; que destroi e libera a memória automaticamente se não me engano! Bom Código Ricardo Berti - Original Message - From: Fábio - CS Informatica [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 17, 2007 7:15 PM Subject: [delphi-br] PROBLEMA P DESTRUIR FORM Olá colegas, estou migrando do D5 para o D7, só q estou com problemas qdo fecho o form, estou utilizando MDI, qdo tento destruir algum form aberto (MDIChild), utilizando a seguinte linha de código no Evento OnClose do form: Action:=caFree; até fecha o form, mais apresenta uma mensagem de Acess Violation at Adress 004C81EA agradeço a atenção dos colegas... Fábio. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] CAD com Delphi
Olá meu amigo, não sei se você ja viu um componente chamado Drawing Engine v.2.00, eh muito funcional e vem ateh com um MiniCAD pra você ver ele em ação, eu achei bastante completo quando precisei usar... http://www.torry.net/quicksearchd.php?String=sweetTitle=No É o primeiro da fila Bom Código Ricardo Berti - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 17, 2007 6:49 PM Subject: Re: [delphi-br] CAD com Delphi Valeu pessoal, tem um PowerCad...pelo que vi nos exemplos é do que preciso.. o problema é o valor.. :o) Quem souber de mais algum, estou as ordens mais uma vez obrigado. []s Em 17/01/07, Ricardo Berti [EMAIL PROTECTED] escreveu: No site da Torry.net tem uma seção soh com componentes CAD, desde de visualização até para desenhar... Abraços - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, January 17, 2007 1:48 PM Subject: [delphi-br] CAD com Delphi Olá amigos, alguém poderia me informar alguma coisa sobre CAD com delphi. Componentes, bibliotecas, API o que for... estou precisando de algo sobre isso. desde já agradeço []s -- _ Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ Fellipe Henrique [EMAIL PROTECTED] Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] configurar documento do word
Olá meu amigo, teste o código abaixo, ele eh bem funcional e bem simples, mas
se tiver alguma dúvida quanto a algo, fale comigo! Usei esse código a algum
tempo pra exportar dois memos pra dentro de tabela do word, mas já ajustei ele
pra trabalhar com os quatro que você precisa... Deu Sorte ; )
O código que você vai precisar é o que está abaixo da linha tracejada, mas eu
refiz a parte de cima do código também, já que você pode usar a mesma variável!
Não se atenha as minhas modificações, mas se lhe forem úteis, aí está!
var
I: Integer;
MSWord: Variant;
begin
for I := 0 to 3 do
begin
if Components[I] is TEdit then
with TEdit(Components[I]) do
Memo1.Lines.Add(Text);
end;
for I := 4 to 7 do
begin
if Components[I] is TEdit then
with TEdit(Components[I]) do
Memo2.Lines.Add(Text);
end;
for I := 8 to 11 do
begin
if components[I] is TEdit then
with TEdit(Components[I]) do
Memo3.Lines.Add(Text);
end;
for I := 12 to 15 do
begin
if Components[I] is TEdit then
with TEdit(Components[I]) do
Memo4.Lines.Add(Text);
end;
//-
MSWord := CreateOleObject('Word.Application');
try
// Novo documento
MSWord.Documents.Add;
// Adiciona tabela de 2 linhas e 3 colunas
MSWord.ActiveDocument.Tables.Add(Range := MSWord.Selection.Range, NumRows
:= 1, NumColumns := 4);
// Escreve na primeira célula
MSWord.Selection.TypeText(Text := Memo1.Text);
// Próxima célula
MSWord.Selection.MoveRight(1);
// Escreve
MSWord.Selection.TypeText(Text := Memo2.Text);
// Próxima célula
MSWord.Selection.MoveRight(1);
// Escreve
MSWord.Selection.TypeText(Text := Memo3.Text);
// Próxima célula
MSWord.Selection.MoveRight(1);
// Escreve
MSWord.Selection.TypeText(Text := Memo4.Text);
// Caso queira a linha abaixo deixa as colunas da tabela do tamanho do
texto!
MSWord.Selection.Tables.Item(1).Select; // Seleciona a 1º tabela
MSWord.Selection.Cells.AutoFit; // Auto-formata
// Salvar...
MSWord.ActiveDocument.SaveAs(FileName := 'c:\Teste1.doc');
finally
// Fecha documento
MSWord.ActiveDocument.Close(SaveChanges := 0);
end;
// Fecha o Word
MSWord.Quit;
end;
end;
Qualquer dúvida, não exite em enviar uma e-mail pra lista!
Bom Código
Ricardo Berti
- Original Message -
From: Julio Cesar Quierati
To: delphi br
Sent: Wednesday, January 17, 2007 4:37 PM
Subject: [delphi-br] configurar documento do word
Olá pessoal, estou exportando dados de 4 memos para o Word,
procedure
var i,j,l,m : integer;
word: variant;
begin
for i := 0 to 3 do
Begin
if components[i] is Tedit then
with TEdit(components[i]) do
Memo1.Lines.add(text);
end;
for j := 4 to 7 do
Begin
if components[j] is Tedit then
with TEdit(components[j]) do
Memo2.Lines.add(text);
end;
for l := 8 to 11 do
Begin
if components[l] is Tedit then
with TEdit(components[l]) do
Memo3.Lines.add(text);
end;
for m := 12 to 15 do
Begin
if components[m] is Tedit then
with TEdit(components[m]) do
Memo4.Lines.add(text);
end;
Word := CreateOleObject('Word.application');
Word.visible := True;
Word.Documents.Add;
Word.selection.insertAfter(memo1.Text);
Word.selection.insertAfter(memo2.Text);
Word.selection.insertAfter(memo3.Text);
Word.selection.insertAfter(memo4.Text);
//Word.ActiveDocument.Save('Teste1.doc',0) ;
end;
mas gostaria que eles fossem divididos em 4 colunas, uma para cada memo !
até.
by julio quierati
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Automação Comercial
Olá Pessoal, eu estou querendo montar um sistema comercial, só que não sei o que colocar por exemplo, no cadastro de produtos, clientes, fornecedores, etc... Peguei bastante coisa da internet, sistemas prontos, mas sempre um pede coisas e outro pede coisas bem diferentes... Alguém sabe o que pode ser melhor para fazer cadastros em um sistema genérico? Tipo Cliente, Fornecedor, Produto, Contas Pagar/Receber, e/ou o que vai nesses? Eu to fazendo um colega que tem uma lojinha, mas quero ampliar ele pra poder vendar pra mais pessoas, mas preciso de algo pra poder oferecer Se esse tipo de dúvida vai contra regras ou coisa do tipo, por favor, desconsiderar! Se não, eu ficarei muito grato mesmo pela ajuda de você Abraços! Ricardo Berti [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] CAD com Delphi
No site da Torry.net tem uma seção soh com componentes CAD, desde de visualização até para desenhar... Abraços - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 17, 2007 1:48 PM Subject: [delphi-br] CAD com Delphi Olá amigos, alguém poderia me informar alguma coisa sobre CAD com delphi. Componentes, bibliotecas, API o que for... estou precisando de algo sobre isso. desde já agradeço []s -- _ Fellipe Henrique [EMAIL PROTECTED] Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
