Appliquer un skin dans une fenêtre mère MDIRésolu

Question

Tout est dans le titre :

Si vous connaissez un code sympathique permettant de skinner le contour int&#233;rieur d'une fen&#234;tre m&#232;re MDI je suis preneur. 

J'ai d&#233;j&#224; tout ce qu'il me faut pour pouvoir skinner des fen&#234;tre filles, je bloque un peu beaucoup sur les fen&#234;tres m&#232;res qui ne se laissent pas manipuler aussi bien que leurs filles (l'instinct maternel peut-&#234;tre).

La finalit&#233; serait de pouvoir donner l'illusion qu'il n'y a qu'une seule fen&#234;tre skinner le reste &#233;tant appeler sans utiliser les bordures classiques des fen&#234;tres.

Merci d'avance

Julien237 · Accepted Answer

J'ai une solution &#224; te proposer,

C'est surement pas la meilleur... mais bon....



Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As
Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long,
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long



Dim e As Long, MeDC As Long



Private Sub MDIForm_Load()

    e = CreateRectRgn(5, 26, 200, 200) 'Cr&#233;er un rectangle sans les bordures du form

    SetWindowRgn Me.hwnd, e, True  'Rogner le form en dehors de ce rectangle

    MeDC = GetDC(Me.hwnd)  ' Juste pour r&#233;cup&#233;rer le DC du form

    Me.Picture = LoadPicture("c:	emp.bmp") 'Et tu applique ton skin

End Sub




Je t'ai aussi mis "CreateEllipticRgn" pour faire des form en forme d'&#233;llipse...

Ainsi tu as le DC du form pour pouvoir dessiner dessus.

Evidemment le "skin" (c:	emp.bmp) est un peu simplet, je te conseil de
cr&#233;er le skin avec les bonnes tailles de bordures etc.. dans une
picture box invisible, de l'enregistrer et puis de la charger. Ou plus
simple d'utiliser stretchblt avec le DC r&#233;cup&#233;r&#233;...



Julien.

cs_NoFutur · Answer

C'est excellent pour un bon d&#233;but merci

cs_NoFutur · Answer

Je reviens sur le devant de la sc&#232;ne pour un autre probl&#232;me. En fouinant un peu j'ai trouv&#233; ceci qui enl&#232;ve bien les bordures de la fen&#234;tre :

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByValdwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_SYSMENU = &H80000

Private Sub MDIForm_Load()
   Dim lStyle As Long
   lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
   lStyle = lStyle Xor WS_CAPTION
   Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
End Sub

Le seul probl&#232;me c'est qu'il me met une barre de d&#233;filement juste en bas de la fen&#234;tre MDI m&#232;re, si tu as une solution potentielle &#224; ce cas l&#224; je suis preneur. 

Ton code est nikel jusqu'&#224; ce que je teste avec les skins de XP actif, je me suis aper&#231;u que les param&#232;tres ne collaient plus avec la taille de la fen&#234;tre.

Julien237 · Answer

Gasp, je n'ai point de solutions pour la scrollbar...

Pour ce qui est de mon code, il faut utiliser les coordonn&#233;es relatives &#224; la r&#233;gion utilis&#233;e,
Par exemple en reprennant ce que j'ai fait plus haut, le rectangle est (5,26,200,200)
Il faudra donc ajouter 5 &#224; tes X et 26 &#224; tes Y.
SetWindowRgn ne fait que masquer ce qui est en-dehors du rectangle...

Julien.

Appliquer un skin dans une fenêtre mère MDI

4 réponses

Discussions similaires