Dessiner et effacer la toile de bureau avec Delphi

Question

J'essaie de dessiner sur l'ensemble de l'écran en utilisant la toile de bureau et de peindre directement. Le problème est que je ne peux pas effacer cette toile de bureau. J'ai essayé de placer le canvas.pen.style à psNotXOR et de dessiner sur l'ancienne image mais malheureusement, ce n'est pas assez fiable et quelques restes sont toujours présents dans certaines conditions.

Mon besoin est de dessiner un rectangle de sélection autour d'une fenêtre/commande lorsque la souris est dessus.

Answer 1

Vous n'écrivez pas sur quel OS vous avez des problèmes avec les artefacts après l'effacement. Au moins avec la composition du bureau activée, c'est une très mauvaise idée de dessiner directement sur le bureau et de faire de la peinture XOR (voir "Dessiner et lire depuis l'écran - Baaaad!" Dans this blog post). Mis à part les conséquences négatives sur les performances, vous ne pouvez pas être sûr que les autres peintures se produisent en même temps et quels effets et animations modifient le contenu affiché, un simple XOR peut donc ne pas suffire à tout effacer complètement.

Une façon possible de l'implémenter serait une fenêtre de superposition transparente de taille de bureau, et de dessiner votre sélecteur de bande élastique par-dessus. Invalider toute la fenêtre si les changements de taille devraient suffire, pas besoin d'effacer l'ancienne ligne de sélection. Si la superposition est supprimée, la ligne sera également supprimée. La composition du bureau assurera qu'aucun scintillement ne se produira. Cependant, changer d'application en sélectionnant une zone sera problématique, vous devez l'attraper et annuler immédiatement la sélection.

Edit:

Je viens de tester avec Delphi 2009, et avec l'application de test suivant:

• un formulaire avec FormStyle ensemble à fsStayOnTop et AlphaBlend ensemble à True
• avec une méthode CreateParams() surchargée pour ajouter le drapeau de style étendu WS_EX_TRANSPARENT

Je peux passer tous les clics de souris aux fenêtres sous-jacentes tout en étant capable de dessiner dans une fenêtre au-dessus d'eux. Cela devrait vous aider à démarrer.

Answer 2

J'ai fait des choses comme ça dans le passé et je n'ai jamais trouvé de solution acceptable. Après avoir réfléchi à ce sujet, vous pouvez envoyer une commande d'invalidation au bureau HWND.

Parce que le bureau est un contrôle ListView modifié, vous devriez pouvoir utiliser quelque chose comme

procedure InvalidateDesktop; 
begin 
    RedrawWindow(GetDesktopWindow, 0, 0, RDW_INVALIDATE); 

    //if that doesn't work then try this: 
    //Sendmessage(GetDesktopWindow, wm_setredraw, 1, 0); 
end; 

Cela pourrait faire ce que vous voulez, je ne l'ai pas testé comme je l'ai juste frappé vers le haut pour l'exemple .

Answer 3

Voici comment nous le faisons dans notre application:

FBitmap.Canvas.Brush.Color := clWhite; 
    FBitmap.Canvas.FillRect(FBitmap.Canvas.ClipRect); 

Answer 4

le problème est que Windows ne me retourner le contrôle derrière la souris

Je pense vous devez accrocher les messages d'événement de la souris pour cela - le message accroché vous donne alors le handle de fenêtre que la souris est terminée.

Recherchez SetWindowsHookEx (WH_MOUSE ,,,) et MOUSEHOOKSTRUCT.