Discussion :

[jeng37]

Bonjour,

Mon probléme suivant sous FMX.
J´ai une TSpinBox laqulle je veut afficher verticallement.
Avec l´option RotateAngle á 90 j´arrive a la tourner verticallement.
Mais le compteur reste horizentalement.
Comment je peut tourner le compteur dans ce cas, le 4 sur l´image?

Voici l´image:


Je veut utiliser la SpinBox pour controler le Up/Down des volets électriques.
Ou y a t´il aute chose que je puisse utiliser?
Merci.

[SergioMaster]

Bonjour,

AMHA il faut aller piocher dans les styles,
soit modifier ce dernier
soit en créer un nouveau
soit changer la rotation du texte par code : l'élément (layout) contenant le texte y est nommé Content et il a sa propre propriété rotationAngle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SpinBox1.StylesData['Content.RotationAngle'] :=-SpinBox1.RotationAngle;

Bien noter que j'ai mis la valeur en la multipliant par -1 sinon la valeur a la tête en base
J'ai tester ce code aussi bien au create de la forme qu'avec un onclic d'un bouton ça fonctionne

Seul bémol que je mettrai si on clique sur le chiffre on passe en mode édition de la valeur

[jeng37]

Ca marche
Super, Merci beaucoup.

[SergioMaster]

re,

Cela m'a fait penser à tes trackbars que j'avais suggéré de mettre dans un bouton. Comme je pense qu'il s'agit du même programme, j'ai trouvé un moyen de les agrandir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TrackBar1.StylesData['htrack.Size.Height']:=TrackBar1.Parent.Height ; // moins quelque chose au besoin

cela fonctionne mais dépend malgré tout du Style chargé (ie. ne fonctionne pas avec le style windows de base)

par contre dans la même veine j'ai essayé d'augmenter la taille du thumb (du curseur) de ce même trackbar sans succès dommage
la meilleure piste resterai donc un style maison.

[jeng37]

Bonjour,

j´ai un nouveau probléme avec la SpinBox.
Je reprend le premmier post.

La SpinBox est tournee du bon sense et le texte est maintenant afichée correctement.
Mais y a t´il un moyen d´avoir un upclic et downclic?

[SergioMaster]

Bonjour,

Mais y a t´il un moyen d´avoir un upclic et downclic?

Tu peux expliquer ? est-ce que tu entends par là utiliser les événements onclick des boutons minusbutton et plusbutton ?

en théorie cela devrait être possible en passant encore une fois par les styles
lors de l'écriture de ce tutoriel j'ai codé le onclick d'un bouton contenu dans un style

... nous devrons lier l'événement par code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonLabelStylé.StylesData['BrowseBtn.OnClick'] := TValue.From<TNotifyEvent>(Button3Click);

où Button3Click est une procédure à déclarer et bien sûr à coder.

il y a une coquille dans le tutoriel la suite & # 8 2 1 6 ; n'a rien à faire là dedans (une mauvaise ' s'est glissé dans le texte)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure Plusclick(Sender : TObject);
begin
// du coup il faut faire l'incrémentation manuelle 
SpinBox1.IncValue;
... 
end;
 
Spinbox1.StylesData['plusbutton.OnClick']:=TValue.From<TNotifyEvent>(PlusClick);

je reviendrai sur ce post après la pause matinale (petit déjeuner) et relecture du tutoriel original et de ses sources

[Edit]<< le retour>> la théorie fonctionne mais avec l'effet que je craignais
le fait d'intercepter le onclick fait que le spinbox ne s'incrémente plus , il faut donc pour avoir quand même le comportement d'incrémentation faire une incValue manuelle (pas top).