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 582 fois - Téléchargée 1 067 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
Signaler
Messages postés
65
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
16 décembre 2011
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.
Signaler
Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
 2
Oui comme l a dit Assemple c est tout a fait ce que je recherche ...
Donc Maurico si tu as le tps :) !!!
Ciao
Signaler
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
 5
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?
Signaler
Messages postés
65
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
16 décembre 2011
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 !!!

; ))
Signaler
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
 5
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)