Discussion :

[blondelle]

Bonjours
Je tente de realiser un petit curseur, le curseur est un petit bitmap de 9x9 pixels, j'arrive a le dessiner mais je n'arrive pas a programmer la transparence j'ai pourtant inclus "wingdi.h", j'ai vu sur le net que l'on pouvait appeler "msimg32.dll", j'ai reussi a compiler et a executer le code sans erreurs mais la transparence ne fonctionne pas, et je ne vois pas d'ou cela vient
le .cpp

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "windows.h"
#include "wingdi.h"
#include <conio.h>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
PAINTSTRUCT ps;
static HDC hDC, hdcMem;
static HBITMAP hBitmap;
static BITMAP bitmap;
COLORREF crTransColor = RGB(0, 0, 0);
typedef long (__cdecl *transparentblt)(HDC,int,int,int,int,HDC,int,int,int,int,UINT);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
     : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
hBitmap = LoadImage(NULL, "C:\\Users\\home\\Documents\\Prog_Fraisage\\Bitmap18.bmp", IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);
GetObject(hBitmap, sizeof(bitmap), &bitmap);
hDC = GetDC(Form1->Handle);
hdcMem = CreateCompatibleDC(hDC);
SelectObject(hdcMem, hBitmap);
transparentblt ImpFuncDLL;
HINSTANCE msimg = LoadLibrary("msimg32.dll");
ImpFuncDLL= (transparentblt)GetProcAddress(msimg, "TransparentBlt");
if (ImpFuncDLL)
{
transparentblt(hDC, 120, 120, bitmap.bmWidth, bitmap.bmHeight, hdcMem, 0, 0, bitmap.bmWidth, bitmap.bmHeight, crTransColor);
}
BeginPaint(hDC, &ps);
BitBlt(hDC, 120, 120, bitmap.bmWidth, bitmap.bmHeight, hdcMem, 0, 0, SRCCOPY); // SRCAND NOTSRCCOPY SRCPAINT SRCCOPY
EndPaint(hDC, &ps);
}
//---------------------------------------------------------------------------

[ShaiLeTroll]

Tu fais tout par API ?
Est-ce une volonté ?

TImageList.Draw + TDrawingStyle dsTransparent gère cela à la perfection pour copier une image transparente vers un TBitmap
Etudie le code Pascal pour en extraire les API

[blondelle]

Merci pour ta reponse ShaiLeTroll
Je fais des testes pour voir si le code s'execute plus rapidement avec les Api, le dessin va s'afficher et s'effacer pour simuler le deplacement d'un outil, je veux eviter le scintillement a l'ecran, et puis cela permet d'apprendre la programmation non assistee

[Argol_Medusa]

Bonjour,

je ne suis pas sur que ce soit beaucoup plus rapide "à l'échelle humaine" en utilisant les API, maintenant on a tout de même des sacrées bêtes de course niveau ordinateur, et de toute façon 25 Hz de rafraichissement suffit.

Je ne connais pas les commandes que tu utilises, mais par contre pour confirmation : est-ce que par "curseur" tu parles du curseur de la souris que tu déplaces par logiciel ou simplement d'un curseur que tu ajoutes sur ton images mais qui n'a rien à voir avec le curseur de souris ?

Dans le second cas, personnellement j'utilise la technologie de la superposition de Form transparentes, qui a l'avantage de passer partout, y compris sur de la video passant directement par la carte 3D ( accélération matériel 3D).

J'avais fais un HUD tete haute de drone quadcopter avec cette technique ça marche pas mal ).

D'ailleurs maintenant que j'y pense, je me demande si ce n'est pas toi qui m'avait conseillé cette technique il y a quelques années Blondelles sur ce forum

Sinon en mettant à true le double buffer on n'a pas de scintillement normalement, et avec un PNG, aucun problème, la transparence est gérée nativement ( enfin sur le XE3 en tout cas pour le builder 6 je ne suis pas sur )

[blondelle]

Merci pour ta reponse Argol_Medusa
C'est pour l'interface graphique d'un logiciel de pilotage de fraiseuse d'etabli
le curseur que je cherche a controler, n'est pas celui gere par la souris, mais un repere visuel qui represente la position de l'outil sur la piece en cours d'usinage
je pensais utiliser un TImage transparent, qui peut s'effacer facilement avec " Picture = NULL "
les déplacements sont de l'ordre de quelque centiemes de mm, il y a donc beaucoup d'affichages / effacements, et un scintillement desagreable
j'ai aussi la posibilite de mettre un compteur et d'effectuer un affichage / effacement sur 10 ou 100
ou ce que j'essaye de tester les APIs
le materiel informatique sejourne dans un atelier et n'est pas de premiere jeunesse
j'utilise souvent les Images transparentes, la gestion en est beaucoup plus simple quand on a de nombreuses choses a afficher
je suis encore avec mon vieux bcb6
les PNG je n'ai jamais utilise

[yarp]

J'ai souvent eu des problèmes avec la transparence des icones.
En gros les API n'ont pas beaucoup d'influence sur la transparence des icones (ou cruseurs), c'est l'icone qui doit contenir ses infos de transparence.
Donc ça dépend surtout:
1- de l'outil d'édition que tu utilise.
2- de la façon dont il est stocké dans CBuilder.

1- Je crée mes icones avec un freeware qui s'appelle IcoFx puis je les édite dans VisualStudio pour ajouter la transparence (je pense que IcoFx pourrais tout faire mais c'est la force de l'habitude).

2- L'éditeur de resource de CBuilder n'est pas fiable et à tendance à réécrire les ressources et alors adieux la transparence. Je crée donc un fichier resource windows (.rc + resource.h) de type VisualStudio (avec VS ou ResEDit - un freeware) et je joint les ressource au projet.
Ensuite je charge les ressources avec les API.

Si ça t'intéresse je peut mettre un exemple.