Sélection avec la souris hors d'une application

Version imprimable

01/03/2006, 22h40
carlg

Sélection avec la souris hors d'une application

Salut,

Je crée une loupe qui m'aidera dans l'utilisation quotidienne de mon pc (je suis mal voyant), et il me manque 2 choses:
- Comment sélectionner une partie de l'écran (taille fix, avec encadré autourde la souris) hors de l'application.
- Savoir si l'utilisateur appuie sur une (ou plusieurs) touche du clavier, toujours hors de l'application.
Si quelqu'un à une réponce ou un début de piste, merci de me tenir au courrant.

PS: Si des explications longues doivent se faire, serait il possible de les résumer car les longues lecture me fatigue énormément les yeux.

Merci d'avance
01/03/2006, 22h58
petitcoucou31

salut ,

Citation:

Comment sélectionner une partie de l'écran (taille fix, avec encadré autourde la souris) hors de l'application.

Pour cela un peu plus d'explication serait neccessaire , quel genre de selection ?

Citation:

Savoir si l'utilisateur appuie sur une (ou plusieurs) touche du clavier, toujours hors de l'application.
Si quelqu'un à une réponce ou un début de piste, merci de me tenir au courrant.

Pour cela fait une recherche sur le forum : avec les mots clé Hook Clavier
01/03/2006, 23h15
sjrd

Citation:

Envoyé par petitcoucou31

Pour cela un peu plus d'explication serait neccessaire , quel genre de selection ?

J'imagine que c'est un rectangle de sélection dessiné à la souris, qui déterminera la portion de l'écran à "louper".
Pour faire cela ce n'est pas facile. Il faut soit utiliser la "belle" méthode : un hook souris avec dessin du rectangle sur la fenêtre 0 (l'écran directement). Soit utiliser la méthode "facile mais moche" : utiliser une fenêtre plein écran sans bords et avec une propriété TransparentColor = clBtnFace.
02/03/2006, 08h14
carlg

Merci pour ces infos, juste un petit rappel (pour moi) pour dessiner sur l'écran, on utilise getwindowDC et releaseDc avec un objet canvas?
02/03/2006, 08h53
Graffito

Bonjour,

Il est peut-être plus simple d'utiliser une souris avec cette fonction en standard : la souris achetée en grande surface (moins de 15 Euros) pour mon PC perso active une loupe lorsqu'on clique sur la molette de défilement.

Citation:

Envoyé par carlg

Merci pour ces infos, juste un petit rappel (pour moi) pour dessiner sur l'écran, on utilise getwindowDC et releaseDc avec un objet canvas?

Oui mais c'est GetDC et non GetWindowDC :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 var DC : HDC; Canvas : TCanvas; begin DC := GetDC(0); try Canvas := TCanvas.Create; try Canvas.Handle := DC; // ici tu utilises Canvas pour dessiner sur l'écran finally Canvas.Free; end; finally ReleaseDC(DC); end; end;

02/03/2006, 11h19
the big ben 5

Si tu veux il existe également un outil tout fait dans Windows :D
02/03/2006, 12h52
carlg

Merci pour les infos, je vais regarder à tout ca.

Pour les outils, en fait j'utilise déjà la loupe de windows, mais le gros problème est que je ne sais pas tout voir (les infos-bulles, barre d'état, et autres.) C'est pour ca que je met au point cette loupe qui ne suivera pas le curseur (car déjà réalisée et sans interret vu que windows en a une), mais qui restera fixe (sauf pour les infos bulle ou je vais faire suivre le curseur mais en prenant la partie inférieur ou suppérieur selon les cas, à moins qu'on sache reprendre la position ou voir mieux le texte d'une info vulle d'une autre application).

En tous cas, un grand merci
02/03/2006, 13h36
Graffito

Bonjour,

Je ne sais pas si la solution te conviendra, mais tu pourrais créér une application présente en permanence.
- Cette appli "plein écran" (sans bordure) serait minimized en général,
- Elle s'activerait Lorsqu'on appuie sur une touche spéciale du clavier (exemple le [n 2] sous la touche escape),
- lors de l'activation par le Hook du mousemove, on recopie l'écran (avec bulles d'aide, etc) dans le timage qui occupe toute la forme
- à ce moment-là, le zoom window continue à marcher normalement comme d'habitude,
- lorsque qu'on appuye sur la touche spéciale et que l'appli qui "fige" l'écran est en avant-plan, on minimize cette appli.
02/03/2006, 14h35
carlg

Cette solution la ne va pas, car il faut pouvoir continuer à travailler normalement en perdant le moins de temps possible. Mon appli ne prend qu'une petite partie de l'écran, ce qui me permet de la regarder et de procéder au action souhaité ou de pratiquer des réglage (car je travail beaucoup sous FL Studio et Audition).

Par contre g un petit soucis, je ne trouve pas pour mettre une couleur transparente pour l'encadremen ainssi que l'effacement de se rectanglet, j'utilise delphi 5 personal edition.
02/03/2006, 17h57
carlg

Y a t il un moyen d'utiliser les hooks sans dll, si oui, comment?

Merci d'avance

Bonjour,

voivi le code (testé) qui devrait répondre à la question 1 :

Citation:

- Comment sélectionner une partie de l'écran (taille fix, avec encadré autourde la souris) hors de l'application

Code:

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
unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;
type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    screencanvas : tcanvas ;
    screenhandle : HWND ;
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
screencanvas:=TCanvas.Create;
screencanvas.Handle:=GetWindowDC(GetDesktopWindow);
form1.doublebuffered:=true ;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var sourcerect : trect ;
    demicote : integer ;
begin
demicote:=100 div 2 ; // zone a zoomer : 60x60
sourcerect.Left  :=mouse.cursorPos.X-demicote ;
sourcerect.right :=mouse.cursorPos.X+demicote ;
sourcerect.Top   :=mouse.cursorPos.Y-demicote ;
sourcerect.Bottom:=mouse.cursorPos.Y+demicote ;
image1.Canvas.CopyRect(image1.ClientRect, screencanvas, SourceRect);
end ;
 
end.

02/03/2006, 19h27
Graffito

Rebonjour,

Le commentaire 60x60 est faux, c'est en fait 100x100 :!:
02/03/2006, 21h15
carlg

Sympa pour le code, mais ca je l'ai déja fait, ce que je voudrais, c'est un encadrement autour du curseur pour montrer l'endroit qui va etre agrandit.

Merci quand même.
02/03/2006, 22h09
Graffito

Bonjour,

Pour le tracé autour de la souris, je te suggére de gérer une forme transparente :
- créer une forme stayonotop,
- supprimer ses "border icons", mettre borderwitdth à zero,
- mettre la propriété "Transparent" de la Form à True,
- mettre les propriétés "Color" et "TransparentColor" à la même valeur ( tout autre couleur que clBtnFace)
- créér un panel de la même couleur (caption='')

On ne voit plus de la forme que le cadre du panel et en dehors du bord du cadre on a accès à toutes les appli (même celles situées sous la forme).

Il ne reste plus qu'à déplacer la forme en fonction de la position curseur.
05/03/2006, 16h50
carlg

Avec le form transparent, comment on fait pour récupérer le clique et masquer le curseur. J'ai essayer avec Screen.Cursor mais ça ne donne rien.

Merci d'avance
05/03/2006, 17h15
Graffito

Bonjour,

Quand la forme est transparente, il me sembe que le curseur n'est plus géré par la forme sur les zones transparentes. Ca permet en particulier de cliquer à travers la forme.

Pour récupérer le clic, il faut le piéger sur toutes les autres formes, donc via un hook curseur. Mais je crois qu'il faut faire ce type de hook pour événements WH_MOUSE_LL (ou WH_KEYBOARD_LL ) dans une DLL.
08/03/2006, 10h02
carlg

:D Merci à tous pour votre aide :D