Soyez le premier à donner votre avis sur cette source.
Vue 4 404 fois - Téléchargée 411 fois
procedure TForm1.Button1Click(Sender: TObject); Var X: Integer; Y: Integer;Rouge: Byte; Vert: Byte; Bleu: Byte;Couleur: TColor;Couleur2: Integer; begin //Début de la boucle X For X := 0 to Image1.Width - 1 Do Begin //Debut de la boucle des Y For Y := 0 To Image1.Height - 1 DO Begin Couleur := Image1.Canvas.Pixels[X, Y]; //Division des couleurs Rouge := Couleur; Vert := Couleur shr 8; Bleu := Couleur shr 16; //Fin de division des couleurs Couleur2 := (Rouge + Vert + Bleu) div 3; If (RadioButton1.Checked = True) Then Couleur := RGB(Couleur2, Couleur2, Couleur2); If (RadioButton2.Checked = True) Then Couleur := RGB(255 - Rouge, 255 - Vert, 255 - Bleu); Image1.Canvas.Pixels[X, Y] := Couleur; end; //Fin la boucle des Y end; //Fin de la boucle X end;
1 sept. 2002 à 20:45
Max12 : pour que le zip ne soit pas gros il suffit de prendre le fichiers suivants :
*.dpr
*.res
*.dfm
*.pas
Les fichiers *.~dfm *.~pas *.~dpr ne sont que des copies de sauvegarde et ne sont pas utiles dans le ZIP.
1 sept. 2002 à 18:36
1 sept. 2002 à 18:31
1 sept. 2002 à 18:25
Sinon merci tlm, Le code sert a faire comprendre la méthode de l'effet
1 sept. 2002 à 17:27
la taille est grosse car le fichier .dfm contien l'image,
et de plus il est 2 fois car il n'a pas enlevé le .~dfm
donc 2 fois 1,64 Mo
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.