Fórum Sobrepor E Mover Imagem, (marca d´água)! #302272
08/11/2005
0
Valeu galera!

Bastard2003
Curtir tópico
+ 0Posts
09/11/2005
Marcio.theis
Gostei + 0
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
Gostei + 0
09/11/2005
Marcio.theis
Gostei + 0
09/11/2005
Bastard2003
:D
Valeu a ajuda de novo!
Sucesso!
Gostei + 0
09/11/2005
Marcio.theis
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | 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....
Gostei + 0
09/11/2005
Bastard2003
Valeu mesmo!
Gostei + 0
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!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)