LockResize.pbi : Redimensionner un ou plusieurs gadgets

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: LockResize.pbi : Redimensionner un ou plusieurs gadgets

Message par falsam »

Bonjour Ar-s. Effectivement je peux. Je n'ai pas l'habitude des userlibraries mais je vais regarder ça :)
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Micoute
Messages : 2522
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Re: LockResize.pbi : Redimensionner un ou plusieurs gadgets

Message par Micoute »

Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: LockResize.pbi : Redimensionner un ou plusieurs gadgets

Message par falsam »

Nouvelle mise à jour de LockResize qui passe en version 1.30

■ Ajout.
LockGadget() contient deux paramètres facultatifs qui permet de centrer un gadget horizontalement et/ou verticalement.
LockGadget(Window.i, Gadget.i, LockLeft.b, LockTop.b, LockRight.b, LockBottom.b, HorizontalCenter.b = #False, VerticalCenter.b = #False)

Exemple d'un bouton centré horizontalement.
Image

Explication et téléchargement de LockResizeGadget.pbi sur le premier message.

■ Exemple de code.

Code : Tout sélectionner

EnableExplicit

IncludeFile "LockResize.pbi"
Enumeration
  #Mainform
  #Editor
  #Valid
EndEnumeration


Define.l Event, WEvent

Global WindowStyle.i=#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget

OpenWindow(#Mainform, 0, 0, 350, 150, "ResizeGadgets - Demo4", WindowStyle)
EditorGadget(#Editor, 10, 10, 330, 100)  
ButtonGadget(#Valid, 0, 120, 80, 22, "Ok")
UseLockGadget()

;l'éditeur est locké sur tous ses bords
LockGadget(#Mainform, #Editor, #True, #True, #True, #True)

;Le bouton valid est locké sur le bord bas et centré horizontalement
LockGadget(#Mainform, #Valid , #False, #False, #False, #True, #True)

Repeat
  Event  = WaitWindowEvent(10)
  WEvent = EventWindow()
  
  Select Event
      
    Case #PB_Event_SizeWindow
      ResizeGadgets(WEvent)
      
    Case #PB_Event_CloseWindow
      FreeLockGadget()
      End
  EndSelect
ForEver
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Ar-S
Messages : 9477
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: LockResize.pbi : Redimensionner un ou plusieurs gadgets

Message par Ar-S »

Merci pour cette MAJ.
M'en suis pas encore servi mais ça va finir par arriver :)
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: LockResize.pbi : Redimensionner un ou plusieurs gadgets

Message par Backup »

c'est intéressant, tu nous a refait PureResize de Gnozal ;)
l'avantage , on a le source . pour ça Merci ... :)
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: LockResize.pbi : Redimensionner un ou plusieurs gadgets

Message par falsam »

L'avantage est aussi d'éviter d'avoir une lib qui ne fonctionne plus quand une lib dépendante comme misc manque. :mrgreen:
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: LockResize.pbi : Redimensionner un ou plusieurs gadgets

Message par Backup »

oui oui , on est bien d'accords :)
poshu
Messages : 1138
Inscription : sam. 31/juil./2004 22:32

Re: LockResize.pbi : Redimensionner un ou plusieurs gadgets

Message par poshu »

Trouvé via PBstreet, c'est fort pratique... J'ajouterais que, contrairement à pureresize, c'est multi et ça c'est cool pour nous autres qui ne sommes pas sous windows :3
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: LockResize.pbi : Redimensionner un ou plusieurs gadgets

Message par falsam »

■ ̶U̶n̶e̶ ̶v̶e̶r̶s̶i̶o̶n̶ ̶l̶i̶b̶ ̶(̶[̶i̶]̶f̶r̶a̶î̶c̶h̶e̶m̶e̶n̶t̶ ̶c̶o̶m̶p̶i̶l̶é̶e̶ ̶a̶v̶e̶c̶ ̶T̶a̶i̶l̶b̶i̶t̶e̶[̶/̶i̶]̶)̶ ̶d̶e̶ ̶L̶o̶c̶k̶R̶e̶s̶i̶z̶e̶G̶a̶g̶e̶t̶ ̶e̶s̶t̶ ̶d̶i̶s̶p̶o̶n̶i̶b̶l̶e̶ ̶e̶n̶ ̶c̶l̶i̶q̶u̶a̶n̶t̶ ̶s̶u̶r̶ ̶c̶e̶ ̶l̶i̶e̶n̶ ̶:̶
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Ar-S
Messages : 9477
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: LockResizeGadge.pbi : Redimensionner un ou plusieurs gad

Message par Ar-S »

La version lib ne s'est pas bien installé, message d'erreur sous mon w8.1
du coup j'ai pris le .pbi
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: LockResizeGadge.pbi : Redimensionner un ou plusieurs gad

Message par falsam »

Ar-S a écrit :La version lib ne s'est pas bien installé, message d'erreur sous mon w8.1
Mes tests sont effectivement sous Windows 7. Je viens de le faire sous Windows 8 avec la version 5.31 (x86) de Pure Basic et je n'ai pas eu de souci. Quel version de Pure Basic utilises tu sous Windows 8 ?
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Lord Nelson
Messages : 355
Inscription : dim. 01/déc./2013 15:29

Re: LockResizeGadge.pbi : Redimensionner un ou plusieurs gad

Message par Lord Nelson »

Super, j'arrive même pas à l’installer, il refuse, il dis que c'est impossible :mrgreen:
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: LockResizeGadge.pbi : Redimensionner un ou plusieurs gad

Message par falsam »

Lord Nelson a écrit :Super, j'arrive même pas à l’installer, il refuse, il dis que c'est impossible :mrgreen:
Cesse avec ce ton moqueur et sarcastique :)
Quelle version de Windows ?
Quelle version de Pure Basic ?
Est ce bien la version x86 ?
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Lord Nelson
Messages : 355
Inscription : dim. 01/déc./2013 15:29

Re: LockResizeGadge.pbi : Redimensionner un ou plusieurs gad

Message par Lord Nelson »

C'était pas méchant hein :wink:

Je suis en 64 Bits, c'est pour ça ?
Une version 64 Bits prochainement ? :)

Windows 7 64 bits, 5.31 64 bits.
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: LockResizeGadge.pbi : Redimensionner un ou plusieurs gad

Message par falsam »

Lord Nelson a écrit :Je suis en 64 Bits, c'est pour ça ?
Oui
Lord Nelson a écrit :Une version 64 Bits prochainement ?
Oui
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Répondre