e possivel fazer um editor de imagem no delphi?

30/11/2003

Basilio.sp

Caro(a) fzamara,

Sim. No pr�prio Delphi j� vem um exemplo.

D� uma olhada na pasta de exemplos.

Responder

Gostei + 0

01/12/2003

Jaguarnet7

To fazendo um como projeto final. Se tiver alguma duvida poste aqui.

Responder

Gostei + 0

01/12/2003

Douglas Bitencourt

Caros,

eu vinha procurando algo do tipo.
em um programa que estou desenvolvendo, preciso que o usu�rio selecione a imagem e recorte (como no photoshop) a imagem, selecionando a �rea desejada, que passar� a ser sua imagem, e descartando o restante.

Procurei a pasta Exemplos mas n�o achei.

Se puder enviar alguma dica, ou onde achar agrade�o.

[]s
Douglas.

Responder

Gostei + 0

04/12/2003

Jaguarnet7

Tente fazer o seguinte:

1 - Faca um retangulo onde o usu�rio quer recortar, e guarde em uma vari�vel do tipo TRect( que guarda um retangulo).( Se � souber diga)

2 - Crie um Bitmap tempor�rio e usando o metodo copyrect e a vari�vel a Rect anterior.

3 - Dimencione o tamanho do TImage original para as dimencoes desejadas.

4 - Usando Draw cole a imagem da Variavel Bitmap no TImage principal.

Espero que n�o tenha ficado confuso. Qualquer d�vidas conte comigo.

Responder

Gostei + 0

04/12/2003

Douglas Bitencourt

Ola Jaguarnet7

entendi o que explicou, mas sinceramente n�o sei muito bem como implementar. Consigo trabalhar melhor com bds, mas a parte gr�fica sou uma nega��o.

se tiver algum exemplo b�sico, eu agrade�o.

[]s

Douglas.

Responder

Gostei + 0

04/12/2003

Marcelo Saviski

Fa�a assim:

var
  FBack: TBitmap;
  Image: TBitmap;

no OnCreate:

  Fback := TBitmap.Create;
  Image := TBitmap.Create;
  DoubleBuffered := True;

no OnDestroy:

  FBack.Free;
  Image.Free;

coloque um OpenPictureDialog e um Bot�o Abrir Imagem
mude o Filtro p/ aceitar somente Bitmaps .bmp
no OnClick do Bot�o:

  if OpenPictureDialog .Execute then
  begin
    Image.LoadFromFile(OpenPictureDialog .FileName);
    FBack.Assign(Image);
  end;

no OnPait:

  Canvas.Draw(0, 0, FBack);

crie uma variavel Point: TPoint global

no OnMouseDown fa�a:

  Point.X := X;
  Point.Y := Y;

no OnMouseMove

if csClicked in ControlState then
begin
  FBack.Canvas.Draw(0, 0, Image);
  FBack.Canvas.Rectangle(Point.X, Point.Y, X, Y);
  Canvas.Draw(0, 0, FBack);
end;

Adicione um Form2 e coloque um Image nele

no OnMouseUp

  FBack.Canvas.Draw(0, 0, Image);
  Canvas.Draw(0, 0, FBack);
  Form2.Show;
  Form2.Image.Bitmap.Canvas.CopyRect(Rect(0, 0, X - Point.X, Y - Point.Y), FBack.Canvas, Rect(Point.X, Point.Y, X, Y));

OBS: N�o testei, pode dar erro com o nome de alguma propriedade, mas se der, tenta concertar ai, o b�sico � isso

[i:98f55b70b2][color=blue:98f55b70b2]Funcionou?[/color:98f55b70b2][/i:98f55b70b2]

Responder

Gostei + 0

04/12/2003

Douglas Bitencourt

Obrigado Marcelo, irei testar e assim que o fizer retorno a liga��o.. :)

[]s

Douglas.

Responder

Gostei + 0

04/12/2003

Beppe

eu gostaria de saber se e possivel fazer um editor de imagens no delphi parecido com o paint. obrigado

Paint? Que decad�ncia!
Eu t� fazendo um FireWorks. 8)

Quanto a recortar a imagem, tb tem um exemplo no t�pico de TCanvas.CopyMode no help do Delphi.

Responder

Gostei + 0

05/12/2003

Jaguarnet7

[quote:fed0a72bed=�fzamara�]eu gostaria de saber se e possivel fazer um editor de imagens no delphi parecido com o paint. obrigado

Paint? Que decad�ncia!
Eu t� fazendo um FireWorks. 8)

Quanto a recortar a imagem, tb tem um exemplo no t�pico de TCanvas.CopyMode no help do Delphi.[/quote:fed0a72bed]

Vc � bom mesmo! Um FIREWORKS, Agora vou te apurrinhar com minhas duvidas :))

Responder

Gostei + 0

05/12/2003

Beppe

U�, manda! 8)

Responder

Gostei + 0

05/12/2003

Adriano Santos

gostei da id�ia.

Responder

Gostei + 0

05/12/2003

Marcelo Saviski

� o Ataliba, cara, a quanto tempo voc� ja lida com o Delphi?

Responder

Gostei + 0

05/12/2003

Douglas Bitencourt

valeu a dica ataliba! Obrigado! :)

E aproveitando a portunidade, vc poderia explicar um pouco de como funciona a l�gica de desenvolver aplica��es gr�ficas, voltadas para a �rea de edi��o de imagens?

Agrade�o por demais...

[]s

Douglas.

Responder

Gostei + 0

05/12/2003

Beppe

|� o Ataliba, cara, a quanto tempo voc� ja lida com o Delphi?

H� nem tr�s (atarefados) anos. Mas que eu comecei a fazer programas �teis faz um meizim soh. 8)

|E aproveitando a portunidade, vc poderia explicar um pouco de como funciona a l�gica de desenvolver
|aplica��es gr�ficas, voltadas para a �rea de edi��o de imagens?

Quando eu terminar meu �Fireworks�, eu vou escrever um artigo sobre como se beneficiar de OO na vida real, e como foi desenvolver o programa.

Mas isso vai demorar. As �m�seras� 1.5 KLOC que j� escrevi s�o apenas 20� do que espero. Mas j� tem as estruturas fortes.

Em 1 ou 2 dias espero publicar um pequeno programa que fiz numa tentativa de eliminar o efeito de cintiliza��o.

Responder

Gostei + 0

05/12/2003

Douglas Bitencourt

Est� Feito!

Espero ansioso por estas not�cias...

Sauda��es e Boa Sorte ae.

Douglas.

Responder

Gostei + 0

F�rum e possivel fazer um editor de imagem no delphi? #197975