website logo
Auteur
avatar
zzd10h

Forum » » Création-Développement » » besoin d'aide rxmui


Posté : 14-12-2012 16:54 icone du post

Je ne sais pas comment faire des scrollbars donc je te file un exemple avec un simple bouton.

Dans cette exemple, le bouton disparait quand il n'y a plus de place pour afficher son texte.
Donc quand le parent est < à l'enfant

Par contre, le contraire, c'est quoi ? Le bouton (ou ta scrollbar) ne doit apparaitre que s'il n'y a plus de place pour l'afficher entiérement ? Si c'est ça je ne comprends pas bien...

voici le REXX :

CreateApp: procedure expose global.

app.title="Test"
app.version="$VER: Test"
app.copyright="?2012"
app.author=""
app.description="Test"
app.base="Test"
app.SubWindow="mwin"

mwin.title="Test"
mwin.ID="VIRT"

mwin.UseRightBorderScroller=1
mwin.UseBottomBorderScroller=1
mwin.SizeGadget=1

mwin.contents="mgroup"
mgroup.0="rien"
rien.class="group"
rien.0=HSpace(250)
mgroup.1="Bouton"
Bouton.class="group"
Bouton.HorizDisappear = 1
Bouton.VertDisappear = 1
Bouton.horiz=0
Bouton.acyclechain=1
Bouton.0=HSpace(250)
Bouton.1=Button("Bouton1","_Test de disparition !")
Bouton.2=HSpace(250)
mgroup.2="rien2"
rien2.class="group"
rien2.0=HSpace(250)

if NewObj("application","app")>0 then exit

call Notify("mwin","CloseRequest",1,"app","ReturnID","quit")

call set("mwin","open",1)

return

Cet article provient de Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x
https://amiga-ng.org/viewtopic.php?topic=1428&forum=14