Discussion :

[carlg]

Salut,

Voici mon petit problème,
Quand on crée un Canvas comme suite:

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
 
var
     Desktop: Tcanvas;
     x,y: Integer;
begin
     x := Mouse.CursorPos.X - 25;
     y := Mouse.CursorPos.Y - 25;
     Desktop := Tcanvas.Create;
     try
          Desktop.Handle := GetWindowDC(0);
          Desctop.Rectangle(Rect(x,y,50,50));
          ReleaseDC(0, Desktop.Handle);
     finally
          Desktop.Free;
     end;
end;

Comment fait on pour que ce rectangle suive la souris sans que celui efface tout l'écran?

C'est pour creer une loupe qui suit la souris en utilisant un Copyrect (Toute la partie d'agrandissement ne me pose aucun problème puisque je l'ai déjà fait mais dans une form fixe).

Merci d'avance.

[sjrd]

Il faut faire se rafraîchir la partie de l'écran que tu as obscurcie précédemment. Peut-être qu'il existe une méthode InvalidateRect dans TScreen ou quelque chose comme ça. Sinon il faut trouver une API Windows qui le fait.

[devyan]

L'écran ayant le handle 0, il suffit de faire un appel à invalidateRect()

[carlg]

Dans quelle unit se trouve cette fonction, je ne la trouve pas dans l'aide de delphi?

[carlg]

J'ai fini par trouver la fonction, mais le problème c'est que tout l'écran clignotte, ce qui fait que ca ne va pas comme je voudrais.

Si quelqu'un à une solution, merci d'avance

[Tardiff Jean-François]

Bonjour

Pour les clignotements, essayer doubleBufered := true;

[carlg]

Je l'ai déjà mis, mais ca ne change rien.

[carlg]

Pour l'effacement j'ai une solution seulement, le problème, c'est que ca clignotte à mort, même avec un DoubleFuffered := True;.

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
 
     w:=320;
     h:=240;
     s:=10;
     x:=mouse.CursorPos.X;
     y:=mouse.CursorPos.Y;
     with rs do
     begin
          Left := x - ((w div s) div 2);
          Right := x + ((w div s) div 2);
          Top := y - ((h div s) div 2);
          Bottom := y + ((h div s) div 2);
     end;
     with rd do
     begin
          Left := x - (w div 2);
          Right := x + (w div 2);
          Top := y - (h div 2);
          Bottom := y + (h div 2);
     end;
     bmp := TBitmap.Create;
     bmp.LoadFromFile('e:\01.bmp');
     bmp.Width:=w;
     bmp.Height:=h;
     dsk := TCanvas.Create;
     dsk.Handle := GetDC(0);
     bmp.Canvas.CopyRect(Rect(0,0,w,h), dsk, rd);
     dsk.CopyRect(rd, dsk, rs);
     dsk.Draw(x - (w div 2), y - (h div 2), bmp);
     ReleaseDC(0, dsk.Handle);
     dsk.Free;
     bmp.Free;

[devyan]

Bonjour,

Pour ton problème de clignottement essaye de faire quelque chose du genre :

Code :

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

1
2
3
 
ValidateRect(0, Rect(les dimensions de l'écran complet));
InvalidateRect(0, Rect(le rectangle que tu veux effacer));

Avant le ReleaseDC().

Je ne suis pas certain que cela foncitonne mais ça ne coute rien d'essayer

[Sub0]

Tu as lu et essayer le code de cet article ?
http://llb.developpez.com/loupe/

ou celui là ?
http://nono40.developpez.com/sources/source0025/

[carlg]

Salut,

Pour le validateRect et le InvalidateRect, ca ne donne rien, en fait je précise bien une partite de l'écran mais il fait un raffraichissement sur tout l'écran.

Pour les liens, je ne les avais pas lu, et malheureusement, ils ne me sont pas util car ce qu'ils font, je l'avais déjà trouver par moi même et je les applique déjà dans une de mes apps. Mais merci quand même.

Voilà, je suis toujours au même point, si quelqu'un à une bonne idée, merci d'avance.

[Sub0]

Je crois savoir pourquoi ton programme scintille malgré DoubleBuffered, je me souviens avoir eu le même problème de scintillement avec cette démo; L'image déplacée possède en plus un masque alpha... En fait, je pense qu'il ne faut restaurer que la partie nécessaire, car si la région à restaurer et la région à dessiner se chevauchent, tu vas superposer l'écran sur ton image. Pense également à ne restaurer l'écran que lorsque la souris bouge...

Tu peux aussi envisager d'utiliser un curseur de souris perso pour y afficher la loupe, tu n'aurais plus à te préoccuper de la restauration de l'écran, mais tu seras alors limiter par la taille maximale des curseurs.
Peut-être une autre solution : Tu devrais selon moi, essayer d'utiliser une TImage et définir la position de cette image sur l'écran avec les propriétés Left et Top, le système se chargera de la restauration...

[Sub0]

Je me souviens aussi de ce sujet :

http://www.developpez.net/forums/viewtopic.php?t=250833