Sobrepor E Mover Imagem, (marca d´água)!
08/11/2005
0
Valeu galera!
Bastard2003
Posts
09/11/2005
Marcio.theis
09/11/2005
Bastard2003
outra coisa... eu to usando um ScrollBox pra poder mover o TImage dentro dele pra posicionar a imagem a onde eu quero que ela apareça na nova figura, colocando uma global eu posso passar esse valor pra função que tem naquele exemplo ne!?
Value mesmo cara...
abraços
Sucesso!
:D
09/11/2005
Marcio.theis
09/11/2005
Bastard2003
:D
Valeu a ajuda de novo!
Sucesso!
09/11/2005
Marcio.theis
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, JPeg, Menus; type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); procedure MouseParaBaixo(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure MouseMexer(Sender: TObject; Shift: TShiftState; X,Y: Integer); procedure MouseParaCima(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } MouseDownSpot: TPoint; Capturing: bool; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); var image: TImage; scrool: TScrollBox; begin scrool:=TScrollBox.Create(Application); scrool.Parent:=Self; scrool.Name:=´scroll´; scrool.DoubleBuffered:=True; scrool.AutoSize:=True; image:=TImage.Create(Application); image.Parent:=scrool; image.Name:=´image´; image.AutoSize:=True; image.Picture.LoadFromFile(´C:\imagem1.jpg´); image:=TImage.Create(Application); image.Parent:=scrool; image.Name:=´image2´; image.AutoSize:=True; image.OnMouseUp:=MouseParaCima; image.OnMouseDown:=MouseParaBaixo; image.OnMouseMove:=MouseMexer; image.Picture.LoadFromFile(´C:\imagem2.jpg´); end; procedure TForm1.MouseMexer(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Capturing then begin (Sender as TImage).Left:=(Sender as TImage).Left -(MouseDownSpot.x-x); (Sender as TImage).Top:=(Sender as TImage).Top - (MouseDownSpot.y-y); end; end; procedure TForm1.MouseParaBaixo(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Capturing then begin ReleaseCapture; Capturing:=false; (Sender as TImage).Left:=(Sender as TImage).Left - (MouseDownSpot.x -x); (Sender as TImage).Top:=(Sender as TImage).Top - (MouseDownSpot.y - y); end; end; procedure TForm1.MouseParaCima(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if ssCtrl in Shift then begin SetCaptureControl((Sender as TImage)); Capturing:=True; MouseDownSpot.X:=x; MouseDownSpot.Y:=Y; end; end; end.
Neste caso ele ira fazer ´acredito´ o que vc deseja, para mover a imagem2, basta que vc segure o Ctrl e clique sobre a imagem e comece a mover....
09/11/2005
Bastard2003
Valeu mesmo!
12/04/2013
Harrisson
como que faz?
quando coloco image.picture.salvetofile(caminho) ele salva a ultima imagem que coloquei (que no caso coloco 4 imagens sobre um fundo definido pelo usuario).
No image ele mostra normalmente as 4 sobre o fundo, mas eu preciso salva - la, em jgp ou em bmp. Alguem tem alguma idéia?
Obrigado!
Clique aqui para fazer login e interagir na Comunidade :)