[Re-résolu] Quelques questions sur les gadgets...

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
SPH
Messages : 4722
Inscription : mer. 09/nov./2005 9:53

[Re-résolu] Quelques questions sur les gadgets...

Message par SPH »

Salut,

existe t'il un string gadget que l'on peux remplir sur plusieurs lignes ?
Par exemple, lui inserer tout ca :
a
b
c
d
e
(en une fois)

Peut on choisir la largeur d'un onglet ?
Peut on centrer le nom d'un onglet ?

Thx 8)
Dernière modification par SPH le mar. 25/juin/2019 21:58, modifié 3 fois.
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Marc56
Messages : 2146
Inscription : sam. 08/févr./2014 15:19

Re: Quelques questions sur les gadgets

Message par Marc56 »

1. EditorGadget
2. Non
3. Non

1. 2. 3. :arrow: F1
2. 3. Sauf bidouille

:wink:
Avatar de l’utilisateur
SPH
Messages : 4722
Inscription : mer. 09/nov./2005 9:53

Re: Quelques questions sur les gadgets

Message par SPH »

Grand merci Marc :arrow: 8)
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Avatar de l’utilisateur
MLD
Messages : 1097
Inscription : jeu. 05/févr./2009 17:58
Localisation : Bretagne

Re: [Résolu] Quelques questions sur les gadgets...

Message par MLD »

Salut SPH
C'est pas une bidouille

Code : Tout sélectionner

      Const=#ES_MULTILINE|#ESB_DISABLE_LEFT|#ESB_DISABLE_RIGHT
      StringGadget(1, 5, 5, 200, 150,"",Const)
Avatar de l’utilisateur
SPH
Messages : 4722
Inscription : mer. 09/nov./2005 9:53

Re: [Résolu] Quelques questions sur les gadgets...

Message par SPH »

salut,

questions :
comment mettre le focus sur un EditorGadget ?
comment voir automatiquement la fin du texte dans un EditorGadget ? (EditorGadget(2001, 10, 160, 276, 140, #PB_Editor_ReadOnly | #PB_Editor_WordWrap) )
en le remplissant, on reste quand meme sur le tout premier mot...
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Marc56
Messages : 2146
Inscription : sam. 08/févr./2014 15:19

Re: Quelques questions sur les gadgets...

Message par Marc56 »

1. SetActiveGadget
2. Ajouter une ligne vide à la fin

Méthode Basic

Code : Tout sélectionner

OpenWindow(0, 0, 0, 322, 150, "EditorGadget")  
EditorGadget(0, 8, 8, 306, 133) 

; Créer un texte
For i = 1 To 20
    Txt$ + "ABC" + Chr(10) 
Next

; Mettre le texte dans le gadget
SetGadgetText(0, Txt$)

; Définir le gadget actif
SetActiveGadget(0)

; Ajouter une ligne (vide) à la fin
AddGadgetItem(0, -1,"")

; Puis enlever cette ligne en trop
RemoveGadgetItem(0, CountGadgetItems(0)-2)

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
Possible aussi (je pense) avec API pour ne pas avoir à ajouter/supprimer une ligne.
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Quelques questions sur les gadgets...

Message par falsam »

SPH a écrit :comment voir automatiquement la fin du texte dans un EditorGadget ?

Code : Tout sélectionner

Declare Start()
Declare Exit()

Start()

Procedure Start()
  OpenWindow(0, 0, 0, 800, 600, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  
  EditorGadget(0, 10, 10, 500, 400, #PB_Editor_ReadOnly)
  
  ; Un peu de remplissage pour ce test
  For n = 1 To 100
    AddGadgetItem(0, -1, "Ligne " + Str(n))
  Next
  
  ; Positionnement en fin d'editor  
  SendMessage_(GadgetID(0), #EM_SETSEL, -1, 0)
    
  ;Triggers
  BindEvent(#PB_Event_CloseWindow, @Exit())
  
  Repeat : WaitWindowEvent() : ForEver
EndProcedure

Procedure Exit()  
  End
EndProcedure
* API Window

Pour se positionner au début (C'est pour info)

Code : Tout sélectionner

SendMessage_(GadgetID(0), #EM_SETSEL, 0, 0)
* API Window
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
Mindphazer
Messages : 635
Inscription : mer. 24/août/2005 10:42

Re: Quelques questions sur les gadgets...

Message par Mindphazer »

falsam a écrit : Pour se positionner au début (C'est pour info)

Code : Tout sélectionner

SendMessage_(GadgetID(0), #EM_SETSEL, 0, 0)
Et ça marche que sous Windows :mrgreen:
Bureau : Win10 64bits
Maison : Macbook Pro M1 14" SSD 512 Go / Ram 16 Go - iPad Pro 32 Go (pour madame) - iPhone 15 Pro Max 256 Go
Avatar de l’utilisateur
venom
Messages : 3071
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

Re: Quelques questions sur les gadgets...

Message par venom »

Oui API Windows :wink:







@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Quelques questions sur les gadgets...

Message par falsam »

Mindphazer a écrit :Et ça marche que sous Windows
Quelque chose de ce style te conviendrait mieux pour MacOS ?

Code : Tout sélectionner

Declare Start()
Declare Exit()

Start()

Procedure Start()
  OpenWindow(0, 0, 0, 800, 600, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  
  EditorGadget(0, 10, 10, 500, 400, #PB_Editor_ReadOnly)
  
  ; Un peu de remplissage pour ce test
  For n = 1 To 100
    AddGadgetItem(0, -1, "Ligne " + Str(n))
  Next
  
  ; Positionnement en fin d'editor  
  Range.NSRange\location = Len(GetGadgetText(0))
  CocoaMessage(0, GadgetID(0), "scrollRangeToVisible:@", @Range) 
    
  ;Triggers
  BindEvent(#PB_Event_CloseWindow, @Exit())
  
  Repeat : WaitWindowEvent() : ForEver
EndProcedure

Procedure Exit()  
  End
EndProcedure
Testé sous El Capitan
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
Mindphazer
Messages : 635
Inscription : mer. 24/août/2005 10:42

Re: Quelques questions sur les gadgets...

Message par Mindphazer »

Très bien ! 8)
Bureau : Win10 64bits
Maison : Macbook Pro M1 14" SSD 512 Go / Ram 16 Go - iPad Pro 32 Go (pour madame) - iPhone 15 Pro Max 256 Go
Répondre