TScrollBar/fr
From Lazarus wiki
Jump to navigationJump to search
│
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
