: 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:
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 := Ima
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".
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.gr
4 matches
Mail list logo