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

Description

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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.
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
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?
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 !!!

; ))
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

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.