Discussion :

[maud49]

Bonjour,

j'aimerais utiliser ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

image2.canvas.pixels[c,l]:=rgb(nivNB,nivNB,nivNB);

pour changer la couleur d'un pixel, malheureusement Pascal ne semble pas connaître rgb ? Qu'est-ce qui correspond en Pascal ?

Merci !

[Clandestino]

Pas besoin de fonction particulière, tu peux directement indiquer ta couleur en hexadécimal.
Exemple pour du vert:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

image2.canvas.pixels[c,l]:=$00FF00;

la couleur est ainsi codée :
$XXXXXX

avec XX compris entre 00 et FF pour chaque couleur

Bonne programmation

[ilikeit]

Oui,

mais cela ne répond pas du tout à la question! Utiliser l'hexadécimal n'est pas une obligation

La bonne réponse à la question est dans le fil suivant (pourtant très récent):

http://www.developpez.net/forums/sho...d.php?t=545432

[Captain_Flam]

Bonjour maud49

sauf erreur de ma part dans l'unité graphics
la fonction RGBToColor répondrait bien à ton attente

=> dans la clause uses utilise graphics et le nom de fonction serait RGBToColor

bon développement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function Blue(rgb: TColor): BYTE;
Function Green(rgb: TColor): BYTE;
Function Red(rgb: TColor): BYTE;
function RGBToColor(R, G, B: Byte): TColor;
procedure RedGreenBlue(rgb: TColor; out Red, Green, Blue: Byte);
function FPColorToTColor(const FPColor: TFPColor): TColor;
function TColorToFPColor(const c: TColor): TFPColor;