Division par deux de la taille d'une image dans une timage

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 175 fois - Téléchargée 157 fois

Commenter

Contenu du snippet

Pour diviser par deux la taille d'une image dans un Timage nommé image1

Source / Exemple : 


for x:=1 to image1.picture.width
for y:=1 to image1.picture.height
begin
image1.canvas.pixels[i,j]:=image1.canvas.pixels[i*2,j*2]
end;

Conclusion :


en fait c tou simple on prend 1 pixel sur 2 et onle copie sur le canvas pour obtenir une image avec 2x moins de pixels, donc derux fois moins grande....

A voir également

Ajouter un commentaire Commentaires
cs_morpheus Messages postés 3 Date d'inscription jeudi 5 octobre 2000 Statut Membre Dernière intervention 17 janvier 2002
5 janv. 2002 à 10:55
En fait si, de même que les variables x et y mais je pense que les programmeurs y auront pensé en utilisant le source.....
fab
4 déc. 2001 à 23:35
Salut a tous,

Tu ne defnit pas les variables i etj ??
DelphiCool
8 nov. 2001 à 12:46
Dit moi Morpéus

Est tu le meme qui est sur le forum d'hErectus ??
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_morpheus)