Fenetre mini prix, mais fait pas le maximum :-( [Résolu]
Publié : ven. 23/janv./2009 17:27
Bonjour la famille, c'est encore mooooaaaa !!!
Une histoire de dingue aujourd'hui, rien ne gazouille
J'ai une fenetre a coin arrondis que j'arrive pas a MAXIMISER en cliquant sur le "Schumurtze" dans l'angle à droite
La fonction resize la deplace en "0 ,0" , mais elle est coincée en grandeur
J'ai vu que c'etait les lignes
Qui etaient méchante avec KCC
Quelqu'un aurait une idée pourquoi cette fenetre veut rester petite comme moi
Merci et bonne journée

Une histoire de dingue aujourd'hui, rien ne gazouille

J'ai une fenetre a coin arrondis que j'arrive pas a MAXIMISER en cliquant sur le "Schumurtze" dans l'angle à droite
La fonction resize la deplace en "0 ,0" , mais elle est coincée en grandeur

J'ai vu que c'etait les lignes
Code : Tout sélectionner
RgnA = CreateRoundRectRgn_(0, 0, WindowWidth(#FormUpdatER), WindowHeight(#FormUpdatER), 40, 40)
SetWindowRgn_(hWnd, RgnA, True)

Code : Tout sélectionner
Enumeration
#FormUpdatER
#LabelQuitter
#LabelMaximiser
#GadgetWeb
EndEnumeration
Global LargeurEcran
Global LargeurEcran
EnumDisplaySettings_(0, -1, DevM.DEVMODE)
LargeurEcran = DevM\dmPelsWidth
HauteurEcran = DevM\dmPelsHeight
hWnd.l = OpenWindow(#FormUpdatER, 0, 0, 600, 600, " ", #PB_Window_ScreenCentered|#PB_Window_BorderLess|#PB_Window_Invisible)
RgnA = CreateRoundRectRgn_(0, 0, WindowWidth(#FormUpdatER), WindowHeight(#FormUpdatER), 40, 40)
SetWindowRgn_(hWnd, RgnA, True)
TextGadget(#LabelQuitter, (WindowWidth(#FormUpdatER) / 2) - 20, WindowHeight(#FormUpdatER) - 27, 120, 20, "Quitter", #SS_NOTIFY)
TextGadget(#LabelMaximiser, WindowWidth(#FormUpdatER) - 40, 5, 15, 20, "¤", #SS_NOTIFY)
HideWindow(#FormUpdatER, 0)
Repeat
EvenementFenetre = WaitWindowEvent()
If EvenementFenetre = #PB_Event_Gadget
EvenementGadget = EventGadget()
Select EvenementGadget
Case #LabelQuitter
Break
Case #LabelMaximiser
ResizeWindow(#FormUpdatER, 0, 0, LargeurEcran, LargeurEcran)
;SetWindowPos_(WindowID(#FormUpdatER),#HWND_TOP, 0, 0, LargeurEcran, HauteurEcran, #SWP_SHOWWINDOW)
EndSelect
EndIf
Until EvenementFenetre = #PB_Event_CloseWindow

Merci et bonne journée