cs_grandvizir
Messages postés1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 200622 29 janv. 2005 à 13:50
Merci de ne pas passer inutilement par la classe TImage, mais plutôt par TBitmap tout court. Pour une accélération des performances, utiliser GetPixel et SetPixel de l'unité windows (cf. code N°24123).
var Bmp : TBitmap;
begin
Bmp:= TBitmap.Create;
try
Bmp.LoadFromFile('Fichier.bmp');
MACOULEUR : = GetPixel(Bmp.Canvas.Handle, X, Y);
finally Bmp.Free;
end;
end;
Avec bien sûr:
var MACOULEUR : integer ; //ou TColor, mais c'est la même chose