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

• Doc. TScrollBar
• TTrackBar
• TScrollBox

From the Free Pascal wiki, page "TScrollBar/fr", as the Internet Archive kept it on 2025-02-17, last changed on 2020-03-02. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.