Image du curseur souris

**Bruno@Chrysis** · 06/11/2006, 09h07

Bonjour,
Est-ce que vous savez comment faire pour récuperer l'image du curseur souris (pour le copier dans un TBitmap par exemple) ?
J'ai bien vu GetCursor() qui retourne un hCursor mais je n'arrive pas à le copier dans un TBitmap...

De la même facon comment savoir à quelles coordonnées est le Hot Point d'un curseur ?
même ici -> http://windowssdk.msdn.microsoft.com.../ms674642.aspx j'arrive pas à trouver ce que je cherche

Bruno.

**Lung** · 06/11/2006, 09h17

Envoyé par Bruno@Chrysis

De la même facon comment savoir à quelles coordonnées est le Hot Point d'un curseur ?

Quelque chose comme ça ?

Code :

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

1
2
3
4
5
6
7
8
var 
  iconInfo: TIconInfo; 
begin 
  if GetIconInfo(AnIcon.Handle, iconInfo) then 
  begin 
    x := iconInfo.xHotspot;
    y := iconInfo.yHotspot;
...

**LadyWasky** · 06/11/2006, 10h16

Pour récupérer le bitmap du curseur, je te propose cette petite procédure de mon crû :

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
procedure CursorToBitmap(CursorIndex:TCursor;var ABmp:TBitmap);
var hCursor:  THandle;
begin
  ABmp.Width := 32;
  ABmp.Height := 32;
  ABmp.PixelFormat := pf24bit;   // pour éviter de travailler avec les palettes
  hCursor := Screen.Cursors[CursorIndex];
  DrawIconEx(ABmp.Canvas.Handle, 0,0, hCursor, 32,32, 0,0, DI_NORMAL);
 
  // Remplissage du curseur depuis "l'extérieur" de telle façon qu'un curseur blanc
  // apparaisse blanc.  on suppose que le coin supérieur droit sera le point de départ du remplissage
  // On suppose que RGB(250,250,250) sera la couleur de "transparence".
  ABmp.Canvas.Brush.Color := RGB(250,250,250);
  ABmp.Canvas.FloodFill(31,0, clWhite, fsSurface);
 
  // Le coin supérieur gauche de certains curseurs est "bloqué" contre le floodfill
  ABmp.Canvas.FloodFill(0,0, clWhite, fsSurface);
end;

Exemple d'utilisation (dans le onclick d'un bouton) :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  iconInfo: TIconInfo;
  abmp:tbitmap;
begin
  abmp:=TBitmap.Create;
  try
    //Je récupère mon Bitmap (en premier paramètre, 
    //j'indique quel curseur je souhaite : 
    //crHandPoint, crHourGlass, crArrow, etc...)
    CursorToBitmap(crHandPoint,abmp);
    //Je l'affiche sur ma fiche
    Form1.Canvas.Draw(5,5,abmp);
    //ou le sauvegarde 
    abmp.saveTofile('MonCurseur.bmp');
  finally
    abmp.Free;
  end;
end;

Bon dev

**LadyWasky** · 06/11/2006, 10h24

Et pour récupérer les coordonnées du HotSpot et grace à Lung

:

Code :

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

1
2
3
4
5
6
7
8
9
function GetHotSpot(CursorIndex:TCursor):TPoint;
var iconInfo: TIconInfo;
begin
  if GetIconInfo(Screen.Cursors[CursorIndex], iconInfo) then
  begin
    Result.X:=iconInfo.xHotspot;
    Result.Y:=iconInfo.yHotspot;
  end;
end;