Preechimento De Cor

[vms]

stou tentando fazer um editor de imagem e queria colocar uma funçao pra preechimento de cor(parecido com o balde do paint) onde tenho uma area fechada na figura e com um click em cima, pinta toda a area

alguém sabe como faço?

[Guest --Jonas --]

stou tentando fazer um editor de imagem e queria colocar uma funçao pra preechimento de cor(parecido com o balde do paint) onde tenho uma area fechada na figura e com um click em cima, pinta toda a area

alguém sabe como faço?

Amigo, da uma olhada neste tutorial, a partir disso voce pode fazer o resto...

http://209.85.165.104/search?que=cache:kJ_lt...;cd=4&gl=br

[vms]

GOOGLE????

valeu ein!!!

já procurei colega,por isso estou postando.

[Guest --Jonas --]

GOOGLE????

valeu ein!!!

já procurei colega,por isso estou postando.

Coloquei errado para voce .. tente este:

www.cni.unc.br/informatica/apostilas/Desenhos%20e%20Bitmaps.doc

[vms]

AHA!

valeu jonas, com isso vai pra dar a partida!

[Churc]

Opa

Da uma olhada nesse set de componentes, nele eu já vi isso que você quer e é muito fera

por mais que não tenha utilidade te garanto que algo um dia vai ter, deve ter uns 300 componentes

rs

http://jvcl.sourceforge.net/

abraços

[Micheus]

stou tentando fazer um editor de imagem e queria colocar uma funçao pra preechimento de cor(parecido com o balde do paint) onde tenho uma area fechada na figura e com um click em cima, pinta toda a area

alguém sabe como faço?

Siga o exemplo, vou ilustrar com um TImage:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Canvas.Brush.Color := clLime;  // cor do preenchimento
  Image1.Canvas.Brush.Style := bsCross;  // estilo do preenchimento
 // utilizo a cor embaixo do ponteiro do mouse como superfície a ser preenchida
  Image1.Canvas.FloodFill(X, Y, Image1.Canvas.Pixels[X, Y], fsSurface); 
end;