[R] GUICreate n'est pas "autoScroll"

Aide sur les Interfaces Graphique Utilisateurs (GUI).
Règles du forum
.
Répondre
BMayer
Niveau 1
Niveau 1
Messages : 8
Enregistré le : mer. 10 avr. 2013 16:26
Localisation : Nantes
Status : Hors ligne

[R] GUICreate n'est pas "autoScroll"

#1

Message par BMayer »

Bonjour

Je crée par Koda un form, qui contient un label. Ce label contient plus de texte que le form ne peut en contenir.
Il n'apparait pas de barre verticale / ascenseur pour pouvoir lire l'ensemble du texte.

Comment pouvoir parcourir (scroller) ce texte ?
Merci d'avance

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=U:\myTools\$bin\testGuiScroll.kxf
$Form1 = GUICreate("Form1", 420, 220, 192, 114)
$Label1 = GUICtrlCreateLabel("Je suis le label du haut", 40, 24, 111, 17)
$Button1 = GUICtrlCreateButton("Fermer", 272, 24, 97, 17)
GUICtrlSetOnEvent(-1, "Button1Click")
$Label2 = GUICtrlCreateLabel("Label2", 40, 56, 333, 444)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUICtrlSetData($Label2, "Sed ut perspiciatis, " _
& @CRLF & "unde omnis iste natus error sit voluptatem accusantium doloremque laudantium," _
& @CRLF & " totam rem aperiam eaque ipsa, quae ab illo inventore veritatis" _
& @CRLF & " et quasi architecto beatae vitae dicta sunt, explicabo. " _
& @CRLF & "Nemo enim ipsam voluptatem, quia voluptas sit, aspernatur aut odit aut fugit, " _
& @CRLF & "sed quia consequuntur magni dolores eos, qui ratione voluptatem sequi " _
& @CRLF & "nesciunt, neque porro quisquam est, qui dolorem ipsum, quia dolor sit, " _
& @CRLF & "amet, consectetur, adipisci velit, sed quia non numquam eius modi tempora incidunt, " _
& @CRLF & "ut labore et dolore magnam aliquam quaerat voluptatem. Ut enim ad minima veniam, " _
& @CRLF & "quis nostrum exercitationem ullam corporis suscipit laboriosam, " _
& @CRLF & "nisi ut aliquid ex ea commodi consequatur? Quis autem vel eum iure reprehenderit, " _
& @CRLF & "qui in ea voluptate velit esse, quam nihil molestiae consequatur, " _
& @CRLF & "vel illum, qui dolorem eum fugiat, quo voluptas nulla pariatur? [33] " _
& @CRLF & "At vero eos et accusamus et iusto odio dignissimos ducimus, qui blanditiis praesentium " _
& @CRLF & "voluptatum deleniti atque corrupti, quos dolores et quas molestias excepturi sint, " _
& @CRLF & "obcaecati cupiditate non provident, similique sunt in culpa, qui officia deserunt mollitia animi, " _
& @CRLF & "id est laborum et dolorum fuga. Et harum quidem rerum facilis est et expedita " _
& @CRLF & "distinctio. Nam libero tempore, cum soluta nobis est eligendi optio, cumque nihil impedit, " _
& @CRLF & "quo minus id, quod maxime placeat, facere possimus, omnis voluptas assumenda est, omnis dolor repellendus. " _
& @CRLF & "Temporibus autem quibusdam et aut officiis debitis aut rerum necessitatibus saepe eveniet, " _
& @CRLF & "ut et voluptates repudiandae sint et molestiae non recusandae. " _
& @CRLF & "Itaque earum rerum hic tenetur a sapiente delectus, ut aut reiciendis voluptatibus " _
& @CRLF & "maiores alias consequatur aut perferendis doloribus asperiores repellat.")

While 1
    Sleep(100)
WEnd

Func Button1Click()
    Exit
EndFunc
 
Avatar du membre
jchd
AutoIt MVPs (MVP)
AutoIt MVPs (MVP)
Messages : 2272
Enregistré le : lun. 30 mars 2009 22:57
Localisation : Sud-Ouest de la France (43.622788,-1.260864)
Status : Hors ligne

Re: [..] GUICreate n'est pas "autoScroll"

#2

Message par jchd »

Un label n'est pas scrollable. Il suffit de le dimensionner correctement.
La cryptographie d'aujourd'hui c'est le taquin plus l'électricité.
GaRydelaMer
Niveau 7
Niveau 7
Messages : 450
Enregistré le : mer. 18 mars 2009 22:12
Localisation : Montpellier
Status : Hors ligne

Re: [..] GUICreate n'est pas "autoScroll"

#3

Message par GaRydelaMer »

Bonjour

la meilleure solution utiliser un contrôle capable de contenir plus de texte.

Pour cela, il y a plusieurs solution:

1/ Un contrôle edit, la tu pourras choisir si tu veux les scrollbars, et tu change son état en DISABLE si tu souhaite pas que le contenu soit modifier.
$Edit1 = GUICtrlCreateEdit("", 24, 88, 529, 89, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))

2/ Une autre solution que je pense plus agréable, tu ajoutes un Objet IE embeded, la tu pourras ajouter ton texte dans un DIV avec ou sans scrollbars. L’intérêt ici tu vas pouvoir utiliser des styles pour coller au mieux à ta fenetre.
$oIE = _IECreateEmbedded()
$Ax = GUICtrlCreateObj($oIE, 10, 10, 200, 200)
_IEDocWriteHTML($oIE , $Html)
BMayer
Niveau 1
Niveau 1
Messages : 8
Enregistré le : mer. 10 avr. 2013 16:26
Localisation : Nantes
Status : Hors ligne

Re: [..] GUICreate n'est pas "autoScroll"

#4

Message par BMayer »

GaRydelaMer a écrit :tu ajoutes un Objet IE embeded

Merci, cela réponds au besoin, et même au delà (enrichissement du texte). Question de candide ; on perd ce qui est "événementiel" avec de tels objets, non ?
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: [..] GUICreate n'est pas "autoScroll"

#5

Message par mikell »

Avec ObjEvent on peut gérer les events propres à l'objet
Mais c'est une solution bien compliquée pour répondre à la question initiale "Comment pouvoir parcourir (scroller) ce texte ?" où le contrôle adapté est clairement l'Edit (ou RichEdit si on veut du texte enrichi)
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
BMayer
Niveau 1
Niveau 1
Messages : 8
Enregistré le : mer. 10 avr. 2013 16:26
Localisation : Nantes
Status : Hors ligne

[R] GUICreate n'est pas "autoScroll"

#6

Message par BMayer »

Ok, Changement de contrôle alors.

Merci à tous.
Répondre