OSD (On-Screen Display)

Salut,

je cherche une technique pour afficher quelque chose en OSD (un composant ou du code).

J'ne ai trouver un mais c'etait un faux, ce n'etait en fait qu'une fenetre sans bordure toujour au dessus des autre.

Le but c'est d'afficher un timer dans Quake3 (pour le quad damage) et il n'y a que du 'vrai' OSD qui s'affiche par dessus le jeux (je ne veut pas jouer en mode fenetre).

Si vous avez une idée, n'hesiter pas

@+
Ondex

C simple , grace a une API
( GetDesktopWindow ) tu recupere le Device Context de l'ecran
(numero identifiant pour windows)
maintenant , tu peux utiliser toutes les fonctions graphiques que tu veux , grace a ce hDc.


si tu veux plus de details...

Salut,

effectivement, je suis interresser par ton idée, peut m'envoyer plus d'information (ou me dire ou en trouver), si possible assez simple, je ne suis pas un grand programmeur VB

@+

-------------------------------
Réponse au message :
-------------------------------

C simple , grace a une API
( GetDesktopWindow ) tu recupere le Device Context de l'ecran
(numero identifiant pour windows)
maintenant , tu peux utiliser toutes les fonctions graphiques que tu veux , grace a ce hDc.


si tu veux plus de details...

comme je te l'ai dit ,

ex:
dans un module :

Public Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long

Public Declare Function Rectangle Lib "gdi32" Alias "Rectangle" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

et dans ton code

dim ecran HDC as long
ecranHDC = GetDesktopWindow
dim tim as long
tim=Timer
Do:Doevents
Rectangle ecranHDC 50,150,400,370
Loop until tim+2<timer
'Affiche un rectangle à l'ecran pendant 2 secondes
'by RENFIELD


NIX (WebMaster de VFrance) a fait une source a ce sujet; je viens de la trouver :
http://www.vbfrance.com/article.asp?Val=84

Bye ;)

comme je te l'ai dit ,

ex:
dans un module :

Public Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long

Public Declare Function Rectangle Lib "gdi32" Alias "Rectangle" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

et dans ton code

dim ecran HDC as long
ecranHDC = GetDesktopWindow
dim tim as long
tim=Timer
Do:Doevents
Rectangle ecranHDC 50,150,400,370
Loop until tim+2<timer
'Affiche un rectangle à l'ecran pendant 2 secondes
'by RENFIELD


NIX (WebMaster de VFrance) a fait une source qui utilise ce procede; je viens de la trouver :
http://www.vbfrance.com/article.asp?Val=84

Bye ;)

comme je te l'ai dit ,

ex:
dans un module :

Public Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long

Public Declare Function Rectangle Lib "gdi32" Alias "Rectangle" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

et dans ton code

dim ecran HDC as long
ecranHDC = GetDesktopWindow
dim tim as long
tim=Timer
Do:Doevents
Rectangle ecranHDC 50,150,400,370
Loop until tim+2<timer
'Affiche un rectangle à l'ecran pendant 2 secondes
'by RENFIELD


NIX (WebMaster de VFrance) a fait une source qui utilise ce procede :
http://www.vbfrance.com/article.asp?Val=84

Bye ;)

Salut,

j'ai essayer ton code mais impossible de le faire fonctionner, il ne se passe rien.
J'ai modifier les qques erreurs (genre dim ecran HDC) mais sans resultats, il ne se passe rien. Si tu as une idée, je suis sous winXP si cela peut influencer tes idée.

Merci, @+



-------------------------------
Réponse au message :
-------------------------------

comme je te l'ai dit ,

ex:
dans un module :

Public Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long

Public Declare Function Rectangle Lib "gdi32" Alias "Rectangle" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

et dans ton code

dim ecran HDC as long
ecranHDC = GetDesktopWindow
dim tim as long
tim=Timer
Do:Doevents
Rectangle ecranHDC 50,150,400,370
Loop until tim+2<timer
'Affiche un rectangle à l'ecran pendant 2 secondes
'by RENFIELD


NIX (WebMaster de VFrance) a fait une source qui utilise ce procede :
http://www.vbfrance.com/article.asp?Val=84

Bye ;)

desole , j'ai ouble un detail :

GetDesktopWindow renvoie le Hwnd , non le HDc

(le handle de la fenetre , non le handle graphique !)

if faut que tu utilise GetDc pour recuperer le Hdc a partir du hWnd :

Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long


puis dans ton code

dim ecranHDC as long
dim ecranHwnd as long
ecranHwnd = GetDesktopWindow
ecranHdc = getdc(ecranHwnd)
dim tim as long
tim=Timer
Do:Doevents
Rectangle ecranHDC,50,150,400,370
Loop until tim+2<timer
'Affiche un rectangle à l'ecran pendant 2 secondes

j'ai ecris le code de tete donc j'avais pas pu verifier.
desole pour la perte de temps

la , ca marche

BYE! Renfield.

Salut,

je te remerci de ton code mais je en voit tjr rien, pourrai tu m'envoyer la source de ton projet quand ça marchait, parceque je pense avoir bien fais mais il n'y a rien.

Merci d'avance .

@+

-------------------------------
Réponse au message :
-------------------------------

desole , j'ai ouble un detail :

GetDesktopWindow renvoie le Hwnd , non le HDc

(le handle de la fenetre , non le handle graphique !)

if faut que tu utilise GetDc pour recuperer le Hdc a partir du hWnd :

Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long


puis dans ton code

dim ecranHDC as long
dim ecranHwnd as long
ecranHwnd = GetDesktopWindow
ecranHdc = getdc(ecranHwnd)
dim tim as long
tim=Timer
Do:Doevents
Rectangle ecranHDC,50,150,400,370
Loop until tim+2<timer
'Affiche un rectangle à l'ecran pendant 2 secondes

j'ai ecris le code de tete donc j'avais pas pu verifier.
desole pour la perte de temps

la , ca marche

BYE! Renfield.

Tu m'as l'air sacrement embette !

desole , ton prbleme aurai pu etre regle vite et bien.
au lieu de ca , ca fait une semaine que tu reste bloque , par ma faute :

bon , treve de plaisanterie:
ce code fonctionne à 100% (C sur, la j'avais VB sous la main)

de plus , il est plus simple !! (autre api , il en existe souvent des tas , pour faire une chose...)

********************
Declarations :
********************
Public Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

*********************
Code :
*********************
Dim tim As Long
tim = Timer
Do: DoEvents
Rectangle GetWindowDC(0), 0, 0, 400, 370
Loop Until tim + 2 < Timer
End
*********************

pour eviter que le rectangle reste , il faut que l'ecran se rafraichisse integralement.
un bon moyen :
Demarrer -> Arreter -> Annuler

Je te prie d'accepter moes exscuses (si si)
et espere que tu me contactera , si tu as d'autres problemes