Mdi Borderless
Publié : mer. 03/févr./2010 13:04
bonjour
j'ai trouvé ce super code qui me convient,
mais je n'y arrive pas a trouver comment ecrire le mode #PB_MDI_BorderLess
dans la doc il y a bien une constante de prévue.?.
Si quelqu'un sait comment faire merci d'avance.
Cordialement
j'ai trouvé ce super code qui me convient,
mais je n'y arrive pas a trouver comment ecrire le mode #PB_MDI_BorderLess
dans la doc il y a bien une constante de prévue.?.
Si quelqu'un sait comment faire merci d'avance.
Cordialement
Code : Tout sélectionner
; auteur Beriko forum english
Enumeration
#Main
#MDIChild
#Image1
#Canvas
EndEnumeration
If OpenWindow(#Main, 0, 0, 400, 300, "MDIGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget)
MDIGadget(0, 0, 0, 0, 0, 1, 2, #PB_MDI_AutoSize)
AddGadgetItem(0, #MDIChild, "child window" )
UseGadgetList(WindowID(#MDIChild))
CreateImage(#Canvas, 500, 500, 24)
StartDrawing(ImageOutput(#Canvas))
Box(5,5,20,20,RGB(0,255,100))
StopDrawing()
ImageGadget(#Image1, 0, 0, 500, 500, ImageID(#Canvas))
Repeat
ev = WaitWindowEvent()
Until ev=#PB_Event_CloseWindow
EndIf