Visualiser l'encombrement d'une fenêtre

Lukky · Message par **Lukky** » mar. 28/sept./2004 15:30

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

Anonyme2 · Message par **Anonyme2** » mar. 28/sept./2004 15:33

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

Lukky · Message par **Lukky** » mar. 28/sept./2004 15:43

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

Anonyme2 · Message par **Anonyme2** » mar. 28/sept./2004 16:19

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é

Lukky · Message par **Lukky** » mar. 28/sept./2004 16:56

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

Le Soldat Inconnu

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

ZapMan · Message par **ZapMan** » sam. 02/oct./2004 9:14

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

Lukky · Message par **Lukky** » sam. 02/oct./2004 9:57

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