Pb de ScrollBar avec un GroupBox
Salut à tous ! Je viens de commencer le builder y à pas longtemps et j'ai une aplication à faire dans laquelle j'ai un GroupBox où j'ajoute des images dedans et j'aimerai faire défiler le contenu de ce groupBox avec une ScrollBar. J'ai essayé avec la méthode ScrollBy mais j'ai plusieurs problèmes avec :cry: . Je vous montre ce que j'ai essayer mais ca marche pas bien.
:(
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| ScrollBar1->Max = SurveillanceVideo->GroupBox1->Height ;
ScrollBar1->Min = 0;
void __fastcall TSurveillanceVideo::ScrollBar1Scroll(TObject *Sender,
TScrollCode ScrollCode, int &ScrollPos)
{
if( ScrollCode == scLineUp || ScrollCode == scPageUp && ScrollPos > 0 )
SurveillanceVideo->GroupBox1->ScrollBy(0,ScrollPos) ;
if( ScrollCode == scLineDown || ScrollCode == scPageDown )
SurveillanceVideo->GroupBox1->ScrollBy(0,-ScrollPos) ;
SurveillanceVideo->GroupBox1->Repaint() ;
} |
Si vous avez d'autre idées ou si vous voyez pourquoi ca marche pas, je suis preneur de suggestion.
merci. :wink:
