Discussion :

[franckcl]

Bonjour,

J'utilise la fonction TransparentBlt pour gérer la transparence d'un bitmap avec comme couleur transparente le pixel en bas à gauche (noir dans l'exemple).

Mon soft qui utilise cette fonction n'effectue pas la transparence sur certains PC ? je ne comprends pas pourquoi.
- Les PC sur lesquels cela ne fonctionnent pas sont sur Windows 10 PRO, Windows 10 IOT version 21H2
- Les PC sur lesquels cela fonctionnent sont aussi sur Windows 10 PRO et Windows 11 et version 21H2
Donc rien ne distingue les PC.
Peut être au niveau de la carte graphique ? je ne sais pas.

Source du projet de test: bug_src.zip
Executable du test: bug_exe.zip
Image nécessaire à copier dans c:\temp\ img00.zip

Merci de votre aide..

[Paul TOTH]

alors ça fonctionne chez moi mais d'après ce lien il ne faut pas utiliser le noir comme couleur de transparence

[franckcl]

Je viens de remplacer le noir par du rouge et c'est le même problème.
J'ai aussi le problème sur mon PC perso (Windows 10 pro) alors que je n'ai pas le problème sur le Pro (windows 11) et des collègues avec windows 10 pro n'ont pas le problème non plus.
C'est vraiment bizarre, je ne sais pas ce qui fait une différence.

Donc je debug avec mon perso pour essayer d'afficher la transparence.
Aussi, j'ai tenté de voir s'il y avait une différence dans les propriétés de TBitmap entre mon PC Pro et perso mais ils sont identiques.

[Paul TOTH]

au fait pourquoi tu n'utilises pas Canvas.Draw ?

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Draw(50, 50, DisplayBitmap);
  TransparentBlt(Canvas.Handle, 0, 0, DisplayBitmap.Width, DisplayBitmap.Height, DisplayBitmap.Canvas.Handle, 0, 0, DisplayBitmap.Width, DisplayBitmap.Height, ColorToRGB(clblack));
end;

[franckcl]

au fait pourquoi tu n'utilises pas Canvas.Draw ?

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Draw(50, 50, DisplayBitmap);
  TransparentBlt(Canvas.Handle, 0, 0, DisplayBitmap.Width, DisplayBitmap.Height, DisplayBitmap.Canvas.Handle, 0, 0, DisplayBitmap.Width, DisplayBitmap.Height, ColorToRGB(clblack));
end;

C'est exactement ce que j'étais en train de me dire.
A vrai dire, je ne sais plus pour quelle raison j'avais utilisé cette fonction, d'autant plus que j'utilise Canvas.draw par ailleurs...
je vais refaire tous les tests avec Canvas.draw

[franckcl]

Je confirme que la transparence fonctionne très bien en passant par Canvas.draw et Canvas.Stretchdraw
Je n'explique toujours pas pourquoi la fonction de l'API windows TransparentBlt ne fonctionne pas partout mais je n'irai pas plus loin dans les recherches.
Problème résolu donc.