PureBasic

Forums PureBasic
Nous sommes le Lun 17/Juin/2019 2:23

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 3 messages ] 
Auteur Message
 Sujet du message: PB_FX
MessagePosté: Mer 29/Aoû/2018 9:38 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 29/Juin/2011 14:11
Messages: 1590
Localisation: Belgique
Bonjour à tous,

Je trouve personnellement qu'il manque à PureBasic des composant tel que les panels. Par contre il existe la technique des dialogs mais cette dernière n'est pas toujours intuitive.

J'ai donc commencé un petit module pour faire cela de façon plus intuitive. Donc ceci n'est qu'un aperçu c'est loin d'être fini.

Remarque : L'utilisation est assez simple (pas le code du module avec un mécanisme d'héritage multiple assez complexe)

Image

Télécharger depuis Github

Zip content :
  • Modules
    • __FX.pbi
    • FX.pbi
    • FX_Classes
      • Button.pbi
      • Expands.pbi
      • Gadget.pbi
      • HBox.pbi
      • Object.pbi
      • Pänel.pbi
      • Transform.pbi
      • VBox.pbi
      • Window.pbi
  • Main.pb

Le code du Main qui donne le résultat ci-dessus

Code:
XIncludeFile "Modules\FX.pbi"
myWin.FX::Window = FX::new_window(800,600,"test")
myWin\set_canBeResised(#True)
myWin\set_canBeMaximised(#True)
vb.FX::VBox = FX::new_Vbox()
hb.FX::HBox = FX::new_Hbox()
Define.FX::Button bt1,bt2,bt3,bt4,bt5
bt1 = FX::new_button("Button 1")
bt2 = FX::new_button("Button 2")
bt3 = FX::new_button("Button 3")
bt4 = FX::new_button("Button 4")
bt5 = FX::new_button("Button 5")
hb\add(bt1)
hb\add(bt2)
hb\add(bt3)
vb\add(hb)
vb\add(bt4)
vb\add(bt5)
myWin\add(vb)

Procedure Exit()
  End
EndProcedure
If Not myWin\open()
  Debug myWin\get_error()
Else
  BindEvent(#PB_Event_CloseWindow,@Exit(),myWin\get_objectId())
  Repeat : WaitWindowEvent() : ForEver
EndIf


:mrgreen: Yes i know it's again designed in opp. But what do you want, i very like that

_________________
Linux Mint / Windows 10 64 bits PB: 5.61 ; 5.62 beta


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: PB_FX
MessagePosté: Mer 29/Aoû/2018 10:06 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2133
Localisation: 50200 Coutances
Moi aussi, j'aime ça, merci pour le partage.

_________________
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.62, 5.70 LTS
Un homme doit être poli, mais il doit aussi être libre !


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: PB_FX
MessagePosté: Mer 29/Aoû/2018 10:19 
Hors ligne

Inscription: Sam 08/Fév/2014 15:19
Messages: 1563
Intéressant, mais:
Citation:
If Not myWin\open()
Debug myWin\get_error()
N'affichera rien car les lignes Debug sont ignorées lors de la compilation.
Préférer un MessageRequester()


Citation:
Else
BindEvent(#PB_Event_CloseWindow,@Exit(),myWin\get_objectId())
...
Il ne se passera rien non plus, car on ne peut faire de Bind...(CloseWindow) sans fenêtre

Logique ? :wink:


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 3 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Google [Bot] et 2 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye