UNE LOUPE
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
5 mars 2003 à 23:29
cs_iubito Messages postés 629 Date d'inscription mercredi 3 juillet 2002 Statut Membre Dernière intervention 9 octobre 2006 - 13 mars 2003 à 14:16
cs_iubito Messages postés 629 Date d'inscription mercredi 3 juillet 2002 Statut Membre Dernière intervention 9 octobre 2006 - 13 mars 2003 à 14:16
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12331-une-loupe
https://codes-sources.commentcamarche.net/source/12331-une-loupe
13 mars 2003 à 14:16
6 mars 2003 à 09:05
ça va m'aider.
5 mars 2003 à 23:29
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);
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 := 8;
Cadre2.Left := 32;
Cadre2.Right := 32+100;
Cadre2.Bottom := 8+100;
Form1.Canvas.CopyRect(Cadre2, Form1.Canvas, Cadre1);
end;