SetAlpha()

Resultat.i = SetAlpha(color.l, a.b = 255)

  Procedure.l SetAlpha(color.l, a.b = 255)
     ; $??xxxxxx --> $AAxxxxxx avec AA = a
     ; Modifie la valeur alpha de la couleur quelque soit le type   
     ; RGB ou BGR avec opacité complète par défaut (a = 255)   
     ! MOV al, [p.v_a]
     ! MOV [p.v_color + 3], al
     ! MOV eax, [p.v_bgr]
     ! RET 8 ; pour terminer tout de suite
  EndProcedure

color.l
[in] Couleur d'origine à modifier.

a.b = 255
[in] Couche alpha qui correspond à la transparence qui sera appliquée à la couleur finale.
La couche alpha est codée sur les 8 bits de poids fort de la couleur (b24 à b31) et peut être comprise entre 0 (transparence complète de la couleur) et 255 (opacité complète de la couleur). Les valeurs intermédiaires indiquent un mélange de la couleur et de celle du fond, le 0 indiquant que la couleur est entièrement celle du fond. Ce paramètre est facultatif, s'il est absent, la couche alpha vaut 255 (opacité complète).

Cette fonction permet de changer la couche alpha sans modifier les composantes rouge, verte et bleue.
La valeur correspondante à la couche alpha de la couleur passée en paramètre est remplacée par la valeur du paramètre a.b.

La procédure retourne la couleur modifiée avec la couche alpha passée en paramètre.

PureBasic v4.30 bêta 4 (Windows - x86)
Testé avec Windows Vista édition familiale Premium

Aucun exemple fourni n'utilise cette macro.