Probleme SpinBox verticalement.

Version imprimable

29/11/2015, 19h22
jeng37

1 pièce(s) jointe(s)

Probleme SpinBox verticalement.

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?:koi:

Voici l´image:
Pièce jointe 193883

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.
30/11/2015, 07h55
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:

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
30/11/2015, 13h24
jeng37

Ca marche:hola:
Super, Merci beaucoup.
30/11/2015, 16h38
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:

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.
04/12/2015, 19h53
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?

Bonjour,

Citation:

Envoyé par jeng37

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

Citation:

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

Code:

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:

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 :weird:
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).

Citation:

Envoyé par SergioMaster

Bonjour,

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

Oui, c´est cela que j´ai besoin.
Code:

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 viens de testre ce code, mais ca ne se passe rien.

Code:

Spinbox1.StylesData['plusbutton.OnClick']:=TValue.From<TNotifyEvent>(PlusClick);

Cette lingne est initializée dans OnFormCreate.
Et puis dans l´événement OnClick de la SpinBox1 j´ai mis la procedure PlusClick pour tester.

Le compteur incrément au button Plus et décrémente avec le button minus.
J´ai meme mis un showmessage, mais il me semble quil nést pas executé.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 procedure TMiniDOForm.Plusclick(Sender : TObject); begin // du coup il faut faire l'incrémentation manuelle SpinBox2.Valueinc; Showmessage('Up'); end; procedure TMiniDOForm.MinusClick(Sender : TObject); begin // du coup il faut faire l'incrémentation manuelle SpinBox2.ValueDec; Showmessage('Down'); end;

Bonsoir,

j'avais tester le même code avec succès pourtant ! seule différence la déclaration Spinbox1.StylesData['plusbutton.OnClick']:=TValue.From<TNotifyEvent>(PlusClick); n'était pas faite dans le OnFormCreate mais à partir d'un Onclick d'un bouton.

Essaye de le mettre dans le onActivate de la forme pour tester

[Edit] ce matin, je fais le test et effectivement le onCreate de la forme n'est pas le bon endroit ! apparemment le style s'applique après la création de la forme. L'objectif est de de trouver quand il s'applique . Pour l'instant j'ai utilisé le ApplyStyleLookup du composant avec succès
Code:

1 2 3 4 5 6 procedure TForm8.SpinBox1ApplyStyleLookup(Sender: TObject); begin SpinBox1.StylesData['plusButton.onclick']:=TValue.From<TNotifyEvent>(UpClick); SpinBox1.StylesData['minusButton.onclick']:=TValue.From<TNotifyEvent>(DownClick); end;

Citation:
Envoyé par SergioMaster
Bonsoir,

j'avais tester le même code avec succès pourtant ! seule différence la déclaration Spinbox1.StylesData['plusbutton.OnClick']:=TValue.From<TNotifyEvent>(PlusClick); n'était pas faite dans le OnFormCreate mais à partir d'un Onclick d'un bouton.

Essaye de le mettre dans le onActivate de la forme pour tester

[Edit] ce matin, je fais le test et effectivement le onCreate de la forme n'est pas le bon endroit ! apparemment le style s'applique après la création de la forme. L'objectif est de de trouver quand il s'applique . Pour l'instant j'ai utilisé le ApplyStyleLookup du composant avec succès
Code:

1 2 3 4 5 6 procedure TForm8.SpinBox1ApplyStyleLookup(Sender: TObject); begin SpinBox1.StylesData['plusButton.onclick']:=TValue.From<TNotifyEvent>(UpClick); SpinBox1.StylesData['minusButton.onclick']:=TValue.From<TNotifyEvent>(DownClick); end;
Ok je vais essayer ca.
Mais ou je fais appel à SpinBox1ApplyStyleLookup?
Dans le OnClick de la SpinBox1?

07/12/2015, 08h44
SergioMaster

Citation:

Envoyé par jeng37

Mais ou je fais appel à SpinBox1ApplyStyleLookup?
Dans le OnClick de la SpinBox1?

c'est un évènement de SpinBox !
07/12/2015, 08h53
jeng37

Citation:

Envoyé par SergioMaster

c'est un évènement de SpinBox !

Ouupss... :pastaper:
Ok maintenant ca fonctionne!
Merci pour ton aide et ta patience!!:hola:

Rebonjour,

Ok Le up/Downclick fonctionne maintenant.
Mais du coup je n´arrive plus a lui passer mon index.
SpinButton est un array of TSpinBox, TSpinBox(Sender).Tag reste toujours a 0.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
...
SpinButton: array [0 .. 7] of TSpinBox;
...
 
 
 
procedure TMiniDOForm.PlusClick;
Var val: integer;
begin
// du coup il faut faire l'incrémentation manuelle
   val := TSpinBox(Sender).Tag; //<--- reste toujours a 0
   SpinButton[val].Valueinc;
   Memo1.Lines.Insert(0,'Port: '+IntToStr(val)+' Up');
 
end;
 
 
procedure TMiniDOForm.MinusClick;
 Var val: integer;
begin
// du coup il faut faire l'incrémentation manuelle
   val := TSpinBox(Sender).Tag;
   SpinButton[val].ValueDec;
   Memo1.Lines.Insert(0,'Port: '+IntToStr(val)+' Down');
 
end;

re,

parce que la procédure est mal déclarée

Code:

1
2
3
4
5
6
7
procedure TMiniDOForm.PlusClick(sender : TObject);
Var val: integer;
begin
   val := TSpinBox(Sender).Tag;
   SpinButton[val].Valueinc; //  il faut faire l'incrémentation manuellement
   Memo1.Lines.Insert(0,'Port: '+IntToStr(val)+' Up');
end;

idem pour minusClick

Hmm je crois q´il y a un autre problème car le Tag reste
toujour à 0. Meme en changeant le code comme tu m´as montrée.

Code:

1
2
3
4
5
6
7
8
9
 
procedure TMiniDOForm.SpinBoxApplyStyleLookup(Sender: TObject);
Var val: Integer;
begin
    val := TSpinBox(Sender).Tag;
    SpinButton[val].StylesData['plusButton.onclick']:=TValue.From<TNotifyEvent>(PlusClick1);
    SpinButton[val].StylesData['minusButton.onclick']:=TValue.From<TNotifyEvent>(MinusClick1);
 
end;

Dans chaque event des SpinBoxes j´ai mis la procedure ci desus.
et puis la procedure comme tu me l´as corrigée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
procedure TMiniDOForm.PlusClick1(Sender: TObject);
 Var val: integer;
begin
// du coup il faut faire l'incrémentation manuelle
 val := TSpinBox(Sender).Tag;
 SpinButton[val].Valueinc;
 Memo1.Lines.Insert(0,'Port: '+IntToStr(val)+' Up');
 
end;
 
 
procedure TMiniDOForm.MinusClick1(Sender: TObject);
 Var val: integer;
begin
// du coup il faut faire l'incrémentation manuelle
 val := TSpinBox(Sender).Tag;
 SpinButton[val].ValueDec;
 Memo1.Lines.Insert(0,'Port: '+IntToStr(val)+' Down');
 
end;

:calim2:

Bonjour,

Citation:

Envoyé par jeng37

Hmm je crois q´il y a un autre problème car le Tag reste
toujour à 0. Meme en changeant le code comme tu m´as montrée.

Encore eusse t-il fallu que j'eusse cette information !

modification simple
Code:

1 2 3 4 5 6 7 8 9 10 procedure TMiniDOForm.SpinBoxApplyStyleLookup(Sender: TObject); var val: Integer; begin val := TSpinBox(Sender).Tag; SpinButton[val].StylesData['plusButton.onclick']:=TValue.From<TNotifyEvent>(PlusClick1); SpinButton[val].StylesData['plusButton.tag']:=val; SpinButton[val].StylesData['minusButton.onclick']:=TValue.From<TNotifyEvent>(MinusClick1); SpinButton[val].StylesData['minusButton.tag']:=val; end;