Sélection avec la souris hors d'une application

**carlg** · 01/03/2006, 22h40

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

**petitcoucou31** · 01/03/2006, 22h58

salut ,

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 ?

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

**sjrd** · 01/03/2006, 23h15

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.

**carlg** · 02/03/2006, 08h14

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

**Graffito** · 02/03/2006, 08h53

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.

**sjrd** · 02/03/2006, 10h28

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 :

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 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;

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

Si tu veux il existe également un outil tout fait dans Windows

**carlg** · 02/03/2006, 12h52

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

**Graffito** · 02/03/2006, 13h36

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.

**carlg** · 02/03/2006, 14h35

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.

**carlg** · 02/03/2006, 17h57

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

Merci d'avance

**Graffito** · 02/03/2006, 19h24

Bonjour,

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

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

.

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
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.

**Graffito** · 02/03/2006, 19h27

Rebonjour,

Le commentaire 60x60 est faux, c'est en fait 100x100

**carlg** · 02/03/2006, 21h15

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.

**Graffito** · 02/03/2006, 22h09

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.

**carlg** · 05/03/2006, 16h50

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

**Graffito** · 05/03/2006, 17h15

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.

**carlg** · 08/03/2006, 10h02

Merci à tous pour votre aide

Sélection avec la souris hors d'une application

API, COM et SDKs Delphi

Vue hybride

Discussions similaires

Partager

Partager