Mdi Borderless

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
kernadec
Messages : 1606
Inscription : ven. 25/avr./2008 11:14

Mdi Borderless

Message par kernadec »

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

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