1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Graphique
  5. Changer la couleur d' un pixel+pixels de couleur voisine

Changer la couleur d' un pixel+pixels de couleur voisine

Soyez le premier à donner votre avis sur cette source.

Vue 12 831 fois - Téléchargée 1 092 fois

Télécharger le projet
Commenter

Description

Cette fonction permet de changer la couleur d' un pixel d' un bitmap para une autre tout en respectant la tonalité.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
assemple Messages postés 65 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 16 décembre 2011
13 oct. 2005 à 10:19
Mauricio, la fonction que tu m'as donné, comme je te l'ai dit, affiche une partie des paramètre de l'imprimante par défaut de windows, sans permettre de les modifier.
Pourquoi ????
avec un TPrinterSetupDialog je peux changer d'imprimante :
procedure TMainFintech.Configuration_Imprimanteexecute(Sender: TObject);
Var ExPrinterIndex, I : Integer ;
T : TextFile ;
PrinterSetupDialog : TPrinterSetupDialog ;
begin
ExPrinterIndex := Printer.PrinterIndex ;
PrinterSetupDialog := TPrinterSetupDialog.Create(Self) ;
If PrinterSetupDialog.execute then
Begin
If ExPrinterIndex <> Printer.PrinterIndex then
If BoiteDeMessage('Vous avez choisi l''imprimante '+Printer.Printers[Printer.PrinterIndex],
'Voulez-vous que '+Printer.Printers[Printer.PrinterIndex]+' '+
'deviennent l''imprimante par défaut de '+ExtractFileName(ParamStr(0))+' ?',
mtConfirmation,[mbYes,mbNo]) = mbYes then
Begin
AssignFile(T,NomOption) ;
Append(T) ;
Writeln(T) ;
Writeln(T,'Imprimante = ',Printer.PrinterIndex) ;
CloseFile(T) ;
For I := 1 to Application.ComponentCount Do
If Application.Components[i-1] is TEZFiche
then TEZFiche(Application.Components[i-1]).ImprimanteFiche := Printer.PrinterIndex ;
End ;
End ;
PrinterSetupDialog.Free ;
end;


Mais je peux aussi avec le bouton "Propriété" du PrinterSetupDialog puis avancé, accéder aux paramètres de l'imprimante, avec la même présentation/apparence que ta fenêtre (arborescence), mais avec plus de paramètres, et les paramètres sont modifiables.
La modification des paramètres n'a pas d'effet, sauf une fois où ça a marché. Hier ou avant hier, j'ai sélectionné Noir et Blanc à la place de couleur, et j'ai imprimé en Noir et Blanc.
Je t'envoie par mel un bitmap contenant côte à côte les 2 copies d'écran.
Nicolas___ Messages postés 992 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 24 avril 2013 2
12 oct. 2005 à 22:41
Oui comme l a dit Assemple c est tout a fait ce que je recherche ...
Donc Maurico si tu as le tps :) !!!
Ciao
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
12 oct. 2005 à 18:44
Non ça va aller ^^

Je pense aussi que c' est cela qu' il veut ...
J' attends sa confirmation pour lui pondre ça, enfin, si j' ai le temps !!

Au fait ASSEMPLE, la fonction que je t' ai donné? Ok?
assemple Messages postés 65 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 16 décembre 2011
12 oct. 2005 à 18:40
Nicolas___ cherche t il a faire comme le fond bleu utilisé pour faires des trucages dans l'audiovisuel.


Si oui c'est une excellente question.

Mauricio, je crains un surmenage !!!

; ))
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
12 oct. 2005 à 17:40
A moins que pour les couleurs voisines tu remplaces sans te poser de questions par le pixel sur l' image ... ouai c' est possible.
Afficher les 13 commentaires
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_MAURICIO)