CHANGER LA COULEUR D' UN PIXEL+PIXELS DE COULEUR VOISINE

Signaler
Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
-
Messages postés
65
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
16 décembre 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/34111-changer-la-couleur-d-un-pixel-pixels-de-couleur-voisine

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 !!!

; ))
Afficher les 13 commentaires