Discussion :

[hpalpha]

Bonjour tlm,
j'ai besoin que les maitres du delphi m'aide sur ce coup là.

Je souhaiterais dessiner un cercle au premier plan de mon appli, je ne sais pas trop comment expliquer ce que je souhaite faire, alors faites l'experience :
Dans windows, panneau de config, souris ==> onglet option du pointeur, cocher "afficher l'emplacement du pointeur lorsque j'appuie sur la touche CTRL" , appliqué, et appuyer sur CTRL, ca dessine un cercle au premier plan, voila ce que je cherche a reproduire.
Une petite idée ?

Merci

[Lung]

Une piste (vite fait):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
   ACanvas: TCanvas;
begin
   ACanvas := TCanvas.Create;
   try
      ACanvas.Handle := GetDC(0);
      ACanvas.Brush.Style := bsClear;
      ACanvas.Pen.Color := clBlue;
      ACanvas.Pen.Width := 5;
      ACanvas.Ellipse(100, 100, 200, 200);
   finally
      ACanvas.Free;
   end;

[hpalpha]

Merci Lung,

j'ai fait ca (vite fait aussi), ca fonctionne mais on peut peut etre optimiser.

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
procedure TFPrinc.alertecircle(pos:TPoint);
var ACanvas: TCanvas;
    hd : HDC;
    i,a,b,c,d:integer;
    bm:TBitmap;
begin
 hd := getdc(0);
 ACanvas := TCanvas.Create;
 bm:=TBitmap.Create;
 bm.Width:=25*4*2+25;
 bm.Height:=bm.Width;
 ACanvas.Handle := GetDC(0);
 ACanvas.Brush.Style := bsClear;
 ACanvas.Pen.Color := clRed;
 ACanvas.Pen.Width := 5;
 for i := 4 downto 1 do
 begin
  a:=pos.X-(25*i);
  b:=pos.Y-(25*i);
  c:=pos.X+(25*i);
  d:=pos.Y+(25*i);
  bm.Canvas.FillRect(classes.Rect(0,0,200,200));
  BitBlt(bm.Canvas.Handle,0,0,c-a+10,d-b+10,hD,a-5,b-5,SRCCOPY);
  ACanvas.Ellipse(a,b,c,d);
  sleep(50);
  BitBlt(ACanvas.Handle,a-5,b-5,c-a+10,d-b+10,bm.Canvas.Handle,0,0,SRCCOPY);
 end;
 ACanvas.Free;
 bm.Free;
 ReleaseDc(0, hd);
end;

grossomodo, je fait une capture de l'ecran avant de dessiner le cercle, je dessine le cercle et je restore la capture, il y a peu etre une meilleure technique.