Rendre le cadre de la fenetre invisible ?

[wolfjeremy]

Salut,

Je voulais savoir si il était possible de rentre le cadre d'une fenetre invisible en laissant les image et gadget visible ? (quand je dit cadre, c'est la bare de titre au dessus et les bord de la fenetre)

Merci d'avance pour votre réponse.

[nico]

Oui c'est possible, voici les étapes:

-après avoir pirater PureBasic, tu télécharge le fichier d'aide fournit avec la version de démo

-ensuite, tu lance le fichier d'aide et tu vas sur la rubrique OpenWindow
et tu fais une capture

-lance maintenant Paint qui est livré en standard avec toutes les versions de windows, et colle ton image.

-zoom au maximum et recules de dix mètres ta chaise, alors devrait apparaitre la constante recherchée.

[wolfjeremy]

Attend tu insinue que je n'ai pas acheter purebasic ? mais je t'emmerde mon grand arrete de juger les gens comme si, si c'est a sa que tu pensai ! (si non je te prie de m'excuser) et voici une screen a te mettre où tu veu pour te prouver que j'ai bien pb :



(La partie grise est en faite mon nom de famille que je ne souhaite pas divulquer sur internet...)

Donc si tu me prend vraiment pour un gars mal honete et bien je te dit *merde* (excusez de l'expression), si ce n'était pas le cas et bien je m'en excuse...

Et au lieu de repondre dans le tas réfléchi car hidewindow masque toute la fenetre...

[nico]

Dans l'aide de PB, tu vas sur OpenWindow et tu verras la constante #PB_Window_BorderLess que tu recherches.

[wolfjeremy]

Ok merci

P.S.: excuse si je t'ai choqué plus haut mais j'aime pas qu'on me prenne pour un gars mal honete alors que j'ai mis tout mon argent que j'avais de coté pour m'acheter la licence ! je n'ai déjà pas beaucoup de sous...

[nico]

Ne t'excuse pas, tu as bien réagit au contraire, c'est bien fait pour moi!

[wolfjeremy]

Tant que sa repart bien et qu'on s'entend bien moi y a pas de prob c'est comme si c'était jamais arriver

Et merci sa marche tres bien pour #PB_Window_BorderLess
Tu na pas une idée de la maniere que je pourrai faire pour deplacer la fenetre sans les bordure ?

merci d'avance pour ton aide

[nico]

Tu peux faire comme ceci:

OpenWindow(0, 100, 200, 195, 260, #PB_Window_BorderLess|#WS_THICKFRAME, "PureBasic Window")

#WS_THICKFRAME est une constante window.

[wolfjeremy]

Ok, super ! merci

EDIT : mais en faite sa ne permet que de redimensioner la fenetre moi je cherche pour la faire bouger où on veut sur l'ecran. (merci car sa me servira aussi , tu les trouves où ces commandes ?)

[venom]

oui c'est sa suis se qu'a dit nico ou tu fait comme ca :d

Code : Tout sélectionner

;/Constantes Window 
Enumeration 
#Window_0 
EndEnumeration 

;/Constantes Gadget 
Enumeration 
#Minimize 
#Maximize 
#Close 
EndEnumeration 


If OpenWindow(#Window_0, 300, 300, 300, 200, #PB_Window_BorderLess, "essaie wolfjeremy",0) ; a cet endroie la tu met #PB_Window_BorderLess et tu a une fenetre sans bord
 If CreateGadgetList(WindowID(#Window_0)) 
  ButtonGadget(#Minimize, 0, 0, 20, 20, "_") 
  ButtonGadget(#Maximize, 20, 0, 20, 20, "||") 
  ButtonGadget(#Close, 40, 0, 20, 20, "X") 
 EndIf 
EndIf

Repeat 
 Select WaitWindowEvent()   
  Case #PB_EventGadget 
   Select EventGadgetID() 
 
     Case #Minimize ;fonction reduire la fenetre
      ShowWindow_(WindowID(#Window_0), #SW_MINIMIZE) 

     Case #Maximize ;fonction qui sert a agrandir ou remetre a la taille normal de la fenetre avec un buttongadget
      If IsZoomed_(WindowID(#Window_0)) 
       ShowWindow_(WindowID(#Window_0), #SW_RESTORE) 
      Else 
       ShowWindow_(WindowID(#Window_0), #SW_MAXIMIZE) 
      EndIf 

      Case #Close ; fonction fermer la fenetre
        quit = #True

    EndSelect 

      Case #PB_EventCloseWindow : quit = #True 
   
   EndSelect 
  Until quit 
 End 

voila @++

[wolfjeremy]

Ok merci a vous deux.

[nico]

Tu peux faire cela:

Code de Chris.

Code : Tout sélectionner

;- Window Constants 
; 
#Window_0 = 0 
#SizeWindowX = 300 
#SizeWindowY = 200 

Procedure Open_Window_0() 
  
  If OpenWindow(#Window_0, 366, 211, #SizeWindowX, #SizeWindowY, #PB_Window_BorderLess, "New window ( 0 )") 
    If CreateGadgetList(WindowID()) 
    EndIf 
  EndIf 
EndProcedure 

;- debut du prog 

Open_Window_0() 

Repeat 
  Select WaitWindowEvent() 
    Case #WM_LBUTTONDOWN 
      SendMessage_(WindowID(), #WM_NCLBUTTONDOWN, #HTCAPTION, 0) 
  EndSelect 
  
Until Event = #PB_EventCloseWindow 
End 

[wolfjeremy]

Ha ben merci sa marche tres bien