1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
procedure Loupe(x, y, Size: Integer);
var
Cadre1, Cadre2: TRect;
begin
// définition d'un carré centré sur la position de la souris
Cadre1.Top := y - Size - Form1.Top - GetSystemMetrics(SM_CYCAPTION); // hauteur en pixel d'un caption
Cadre1.Left := x - Size - Form1.Left;
Cadre1.Right := x + Size - Form1.Left;
Cadre1.Bottom := y + Size -Form1.Top - GetSystemMetrics(SM_CYCAPTION);
// On récupère la taille de l'image pour afficher dedans l'image aggrandie.
Cadre2.Top := 0;
Cadre2.Left := 0;
Cadre2.Right := Form1.Img.Width;
Cadre2.Bottom := Form1.Img.Height;
Form1.Img.Canvas.CopyRect(Cadre2, Form1.Canvas, Cadre1); |
Partager