var ImagePos, MousePos: TPoint; DiffX, DiffY: Integer; begin GetCursorPos(MousePos); Windows.ScreenToClient(Handle, MousePos); DiffX := MousePos.X - Image1.Left; DiffY := MousePos.Y - Image1.Top; while DragDetect(Handle, ImagePos) do begin GetCursorPos(MousePos); Windows.ScreenToClient(Handle, MousePos); Image1.Left := MousePos.X - DiffX; if Image1.Left > 0 then Image1.Left := 0; if Image1.Left < (Width - Image1.Width) then Image1.Left := Width - Image1.Width; Image1.Top := MousePos.Y - DiffY; if Image1.Top > 0 then Image1.Top := 0; if Image1.Top < (Height - Image1.Height) then Image1.Top := Height - Image1.Height; Application.ProcessMessages; end; end;
(*) pas beaucoup de retours sur les réponses depuis quelques temps... alors on y va à l'économie de moyens ^^tout à fait d'accord avec toi!
Bmp := PartialLoadFromFile('Moteur3D_03_256.bmp', 3000, 2000, 400, 400);la fonction accepte tous les types de bitmap [pf1Bit..pf32bit]
var // Variables Globales XPos, YPos : Integer; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if ssLeft in Shift then begin XPos := X; YPos := Y; end; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if ssLeft in Shift then begin Image1.Left := Image1.Left + X - XPos; Image1.Top := Image1.Top + Y - YPos; end; end;
DoubleBuffered := True;
9 juil. 2017 à 22:37
Merci pour ta réponse, ton code ne fonctionne pas, l'image ne ce déplace pas, en ce moment je bosse sur le code, j'ai utilisé la fonction suivante pour redimensionner l'image, reste juste à mettre un cadre et donner à l’utilisateur la possibilité de bien cadrer son image. la fonction qui permet le redimensionnement est la suivante :
En faite le projet sur lequel je bosse actuellement est un peut vaste c'est pour cela que je vous demande de l'aide, j'ai pu créer un logiciel de location de voiture qui marche sous plusieurs vesrion, la version local, version local + en ligne (qui permet de consulter à temps réel les données de l'agence exemple sur le lien suivant : utilisateur DEMONSTRATION mot passe : admin lien http://carloc.reoleweb.com/index.php) et la version local + en ligne + site web (consultation des données et apparition sur le site web qui englobe toute ls agences qui bosse avec mon logiciel "le site est un comparateur e prix que vous pouvez consulter sur le lien suivant : http://carloc-algerie.com/index.php?localisation=Bejaia%2C+Seddouk%2C%26%2334%3B%29. donc ce qui veut dire que le projet est mélange de delphi MySQL et web (PHP, HTML, CSS, Javascript).
Le logiciel est équipé d'un système de synchronisation automatique. alors j'aimerai avoir les memes proportions d'image que tous les utilisateur enregistre sur leurs logiciel (Logo, images véhicule).
Je vous serai reconnaissant si qlq'un puissent me donner une solution
Merci à tous