Images pixelisées
Ctrl
ou Majuscule
Ctrl
mais si la fonction temps réel du menu filtre est sélectionnée avec sa case à cocher, alors le panneau chrominance effectue un appel en temps-réel à la fonction d'application de ce filtre selon la couleur survolée.
var j,k:integer;
une_couleur,couleur_parametre:tcolorref;
begin
wformebm.une_image_a_obtenir.Copy(last_selection.BitMap);
for j:=0 to pred(wformebm.une_image_a_obtenir.w) do
for k:=0 to pred(wformebm.une_image_a_obtenir.h) do
begin
une_couleur:=wformebm.une_image_a_obtenir.GetPixel_in_limite(j,k);
wformebm.une_image_a_obtenir.SetPixel_in_limite(j,k,
rgb(
math.min(getrvalue(couleur_parametre),getrvalue(une_couleur)),
math.min(getgvalue(couleur_parametre),getgvalue(une_couleur)),
math.min(getbvalue(couleur_parametre),getbvalue(une_couleur))));
end;
end;
pour cela cliquer sur la palettre chrominance pour sélectionner la couleur à filter.
Réduire à 8, 64, 256 le nombre de couleurs
au préalable.