PureBasic

Juste un petit truc que j'utilise de temps en temps.

Comme je suis en 1600x1200 au niveau pro j'ai du mal à voir l'encombrement d'une fenetre suivant plusieurs résolutions.

Alors je met mon truc à la résolution du client et ça me donne une idée de la taille à donner à ma fenêtre.

Bon je pense que personne ne se servira de ce truc mais qui sait !

Voila le machin.

Code : Tout sélectionner

; Juste pour avoir une petite idée de l'encombrement d'une fenêtre
; Lukky 2003

Enumeration
    #Window_fenBase
    #Gadget_fenBase_btn800x600
    #gadget_fenbase_btnQuitter
    #Gadget_fenBase_btn1024x768
    #Gadget_fenBase_btn1280x1024
    #Gadget_fenBase_btn1600x1200
EndEnumeration

Procedure.l Window_fenBase()
  If OpenWindow(#Window_fenBase,681,14,800,600,#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_BorderLess|#PB_Window_ScreenCentered|#PB_Window_Invisible,"Fenêtre")
    If CreateGadgetList(WindowID())
      ButtonGadget(#Gadget_fenBase_btn800x600,420,60,60,20,"800x600")
      ButtonGadget(#gadget_fenbase_btnQuitter,410,570,60,20,"Quitter")
      ButtonGadget(#Gadget_fenBase_btn1024x768,420,95,60,20,"1024x768")
      ButtonGadget(#Gadget_fenBase_btn1280x1024,420,135,60,20,"1280x1024")
      ButtonGadget(#Gadget_fenBase_btn1600x1200,420,175,60,20,"1600x1200")
      HideWindow(#Window_fenBase,0)
      ProcedureReturn WindowID()
    EndIf
  EndIf
EndProcedure

If Window_fenBase()
  Repeat
    EventID=WaitWindowEvent()
    If EventID=#PB_EventGadget
      Select EventGadgetID()
        Case #Gadget_fenBase_btn800x600
          ResizeWindow(800,600)
        Case #Gadget_fenBase_btn1024x768
          ResizeWindow(1024,768)
        Case #Gadget_fenBase_btn1280x1024
          ResizeWindow(1280,1024)
        Case #Gadget_fenBase_btn1600x1200
          ResizeWindow(1600,1200)
        Case #gadget_fenbase_btnQuitter
          CloseWindow(#Window_fenBase)
          End
      EndSelect
    EndIf
  Until EventID=#PB_Event_CloseWindow And EventWindowID()=#Window_fenBase
  CloseWindow(#Window_fenBase)
  End
EndIf

JL

Modifie ton code pour les nouveaux car les trucs #GadgetIndex = #Gadgetindex +1 ne marche plus (enumeration le remplace)

Je me suis aperçu du truc aussitôt envoyé mais je n'ai pas été assez rapide, certains ici pulvériseraient une certaine souris du mexique !!

Bon modifié il est en tout cas.

Il n'est pas très beau mais bon ...

JL

Lukky a écrit :Je me suis aperçu du truc aussitôt envoyé mais je n'ai pas été assez rapide, certains ici pulvériseraient une certaine souris du mexique !!

Bon modifié il est en tout cas.

Il n'est pas très beau mais bon ...

JL

Moi je le trouve utile, je l'ai mis de côté

Je l'ai dans un autre langage dans une forme un peu plus évolué, centrage, taille réglable.

Je le mettrais à niveau en pure quand j'aurai un moment.

JL

moi, j'aurai plutot vu ça avec 2 carré de couleur, un en blanc qui représente l'écran et l'autre en noir centré au milieu du blanc qui représente la fenêtre.
comme ça on, peu choisir la taille de la fen et la taille de l'écran si tu vois ce que je veux dire

C'est bête comme choux, mais c'est pratique. Je garde.

Bon je vais voir pour les deux écrans.

Je ne l'ai pas vu de cette façon car en fait je lance la fenetre que je test et je la postionne par dessus mon petit gadget et je vois ce que ça donne en réel, c'est pour çà que je n'ai pas cherché plus loin, ce truc à l'origine n'a pas été fait pour tester des fenêtre pure.

Mais effectivement ça peut-être interessant tout de même, bon dès que j'ai deux minutes ...

JL

PureBasic

Visualiser l'encombrement d'une fenêtre

Visualiser l'encombrement d'une fenêtre