Difference between revisions of "TScrollBar/fr"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{TScrollBar}} Un '''TScrollBar''' image:tscrollbar.png est un contrôle qui permet à l'utilisateur de défiler le contenu d'un contrôle associé en déplaçant un cur...") |
m (Fixed syntax highlighting) |
||
Line 18: | Line 18: | ||
** Terminez votre sélection avec ''OK''. | ** Terminez votre sélection avec ''OK''. | ||
* Choisissez votre PaintBox, dans l'inspecteur d'objet, dans l'onglet Evénements, créez le gestionnaire d'événément pour ''OnPaint'' et écrivez le code suivant : | * Choisissez votre PaintBox, dans l'inspecteur d'objet, dans l'onglet Evénements, créez le gestionnaire d'événément pour ''OnPaint'' et écrivez le code suivant : | ||
− | <syntaxhighlight> | + | |
+ | <syntaxhighlight lang=pascal> | ||
procedure TForm1.PaintBox1Paint(Sender: TObject); | procedure TForm1.PaintBox1Paint(Sender: TObject); | ||
begin | begin | ||
Line 29: | Line 30: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
* Maintenant faites que tout changement des positions des Scrollbar repeignent la fiche : créez le gestionnaire d'événement ''OnChange'' pour un ScrollBar et appelez-le aussi pour l'autre Scrollbar. | * Maintenant faites que tout changement des positions des Scrollbar repeignent la fiche : créez le gestionnaire d'événement ''OnChange'' pour un ScrollBar et appelez-le aussi pour l'autre Scrollbar. | ||
− | <syntaxhighlight> | + | |
+ | <syntaxhighlight lang=pascal> | ||
procedure TForm1.sbVertChange(Sender: TObject); | procedure TForm1.sbVertChange(Sender: TObject); | ||
begin | begin | ||
Line 35: | Line 37: | ||
end; | end; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
+ | |||
Votre petit programme pourrait ressembler à ceci : | Votre petit programme pourrait ressembler à ceci : | ||
Latest revision as of 01:16, 2 March 2020
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
Un TScrollBar est un contrôle qui permet à l'utilisateur de défiler le contenu d'un contrôle associé en déplaçant un curseur (slider).
Usage
Pour utiliser un TScrollBar sur une fiche, vous pouvez simplement le sélectionner sur l'onglet Standard de la palette de composants et le placer en cliquant sur la fiche.
Petit exemple
Déplacez sur image sur votre fiche selon les positions du ScrollBar.
- Placez deux ScrollBars sur votre fiche.
- Dans l'inspecteur d'objet, modifiez les propriétés du premier ScrollBar "Name" en "sbVert", "Kind" en "sbVertical" et "Align" en "alRight"
- Dans l'inspecteur d'objet, modifiez les propriétés du second ScrollBar "Name" en "sbHori" et "Align" en "alBottom".
- Ajoutez un TPaintBox (onglet Additional de la palette de composants) à la fiche et définissez sa propriété "align" en "alClient".
- Ajoutez un TImageList (onglet Coommion controls de la palette de composants) sur la fiche.
- Chargez une image dans l'ImageList:
- Cliquez droit sur ImageList1 et sélectionner l'éditeur de liste d'image... depuis le menu pop-up.
- Cliquez sur Ajouter et sélectionner une image (de préférence une petite icône de 16x16 par exemple, dans le répertoire Lazarus/images/icons/lazarus16x16)
- Terminez votre sélection avec OK.
- Choisissez votre PaintBox, dans l'inspecteur d'objet, dans l'onglet Evénements, créez le gestionnaire d'événément pour OnPaint et écrivez le code suivant :
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
ImageList1.Draw(
Paintbox1.Canvas,
sbHori.Position * (PaintBox1.ClientWidth - ImageList1.Width) div sbHori.Max,
sbVert.Position * (Paintbox1.ClientHeight - ImageList1.Height) div sbVert.Max,
0);
end;
- Maintenant faites que tout changement des positions des Scrollbar repeignent la fiche : créez le gestionnaire d'événement OnChange pour un ScrollBar et appelez-le aussi pour l'autre Scrollbar.
procedure TForm1.sbVertChange(Sender: TObject);
begin
RePaint;
end;
Votre petit programme pourrait ressembler à ceci :
Voir aussi