Re: [delphi-br] Fazer TImage ficar negativo?

2004-12-12 Por tôpico Fernando


Com certeza existe um metodo mais facil, mas a rotina logo abaixo tambem 
funciona.

procedure TForm1.Button1Click(Sender: TObject);
var x, y, i: Integer;
begin
 Image1.Canvas.Pen.Color := clBlack;
 Image1.Canvas.Pen.Mode := pmNot;
 Image1.Canvas.Brush.Style := bsClear;

 x := Image1.Picture.Width;
 y := Image1.Picture.Height;

 for i := 0 to x do
 begin
 Image1.Canvas.MoveTo(i, 0);
 Image1.Canvas.LineTo(i, y);
 end;
end;


Fernando


At 23:25 08/12/2004, you wrote:

Amigos,

Alguem tem algum codigo ou pode indicar algum componente para fazer um
TImage ficar negativo. Tipo filme de maquina fotografica.


[]'s

--
MSN: [EMAIL PROTECTED]



-- 
 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] ou [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] Fazer TImage ficar negativo?

2004-12-12 Por tôpico Julio Cesar

tinha uma amiga q usava uma funcao do windows pra isso, nao tenho aki, mas da 
uma procurada no help do delphi ou no MS SDK q vc acha...



Julio Cesar
[EMAIL PROTECTED]
+353 (87) 2184139
+353 (091) 630317
  - Original Message - 
  From: Rafael Jorge 
  To: [EMAIL PROTECTED] 
  Sent: Friday, December 10, 2004 6:31 PM
  Subject: Re: [delphi-br] Fazer TImage ficar negativo?


  a jedi tem! baixa ela e procura nos seus compoente que la tem um
  timage que faz isso é muito mas!

  t+


  On Wed, 8 Dec 2004 22:25:54 -0300, Joubert Rinaldi
  [EMAIL PROTECTED] wrote:
   
   Amigos,
   
   Alguem tem algum codigo ou pode indicar algum componente para fazer um
   TImage ficar negativo. Tipo filme de maquina fotografica.
   
   []'s
   
   --
   MSN: [EMAIL PROTECTED]
   
   --
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] ou [EMAIL PROTECTED]
   
   Links do Yahoo! Grupos
   
   
   
   
  


  -- 
   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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[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] ou [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] Fazer TImage ficar negativo?

2004-12-10 Por tôpico Rafael Jorge

a jedi tem! baixa ela e procura nos seus compoente que la tem um
timage que faz isso é muito mas!

t+


On Wed, 8 Dec 2004 22:25:54 -0300, Joubert Rinaldi
[EMAIL PROTECTED] wrote:
 
 Amigos,
 
 Alguem tem algum codigo ou pode indicar algum componente para fazer um
 TImage ficar negativo. Tipo filme de maquina fotografica.
 
 []'s
 
 --
 MSN: [EMAIL PROTECTED]
 
 --
  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] ou [EMAIL PROTECTED]
 
 Links do Yahoo! Grupos
 
 
 
 



-- 
 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] ou [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] Fazer TImage ficar negativo?

2004-12-08 Por tôpico Joubert Rinaldi

Amigos,

Alguem tem algum codigo ou pode indicar algum componente para fazer um
TImage ficar negativo. Tipo filme de maquina fotografica.


[]'s

-- 
MSN: [EMAIL PROTECTED]


-- 
 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] ou [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