Discussion :

[pilou63]

Bonjour !

Je suis un peu ennuyé parce que j'ai un problème !!!
Je vous explique : j'ai un projet et je me lance dans un traitement d'image plutôt simple en Pascal sous LINUX!
Bref je voudrais convertir un type Tcolor en RGB afin d'avoir accès facilement à la couleur et la changer facilement ! Pour cela, j'utilise colortoRGB, ce qui marche sous Linux !!
Mais je voudrais récupérer la composante de chaque couleur qui est comprise entre 0 et 255 !!
En fait, je recherche juste l'équivalent de GetRvalue (ou getBvalue...), qui est très efficace sous Windows, mais sous Linux il apparaît un message d'erreur (not found !)
Donc si vous avez la solution ce serait gentil.

Merci !

ps: si vous connaissez la procédure inverse (de RGB a Tcolor je suis aussi preneur!)

[ilikeit]

Bonjour,

j'en ai eu aussi besoin un jour:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
FUNCTION RGB(CONST r,g,b:  BYTE):  TColor;
  BEGIN
    RESULT := (r OR (g SHL 8) OR (b SHL 16))
  END;
 
FUNCTION GetRvalue(CONST C:  TColor):byte;
  BEGIN
    RESULT := C and $FF;
   END;
 
FUNCTION GetGvalue(CONST C:  TColor):byte;
  BEGIN
    RESULT := (C shr 8) and $FF;
   END;
 
FUNCTION GetBvalue(CONST C:  TColor):byte;
  BEGIN
    RESULT := (C shr 16) and $FF;
   END;

PS: attention je crois que la constante clgreen de lazarus est fausse (si je me souviens bien)!

[pilou63]

Merci bien pour cette réponse!