Komponenta ScrollBar


Přehled vlastností, metod a událostí objektu:
--------------------------------------------------------------
Ctl3D (RW)           Cursor (RW)          Enabled (RW)
Height (RW)          HelpContext (RW)     Hint (RW)
Kind (RW)            LargeChange (RW)     Left (RW)
Max (RW)             Min (RW)             Name (R)
ParentCtl3D (RW)     ParentShowHint (RW)  PopupMenu (RW)
Position (RW)        ShowHint (RW)        SmallChange (RW)
TabOrder (RW)        TabStop (RW)         Tag (RW)
Top (RW)             Visible (RW)         Width (RW)
--------------------------------------------------------------
SetParams            
--------------------------------------------------------------
OnChange             OnEnter              OnExit
OnKeyDown            OnKeyPress           OnKeyUp
--------------------------------------------------------------
Legenda: * -> pouze z programu, R -> lze číst, W -> lze zadat

Komponenta ScrollBar se používá pro nastavení hodnot v požadovaném intervalu. Změna hodnot se provádí pomocí přetáčecího pruhu zvaného též někdy jako posuvnítko.

Orientaci přetáčecího pruhu určuje vlastnost Kind. Je možné horizontální (standard) nebo vertikální umístění. Minimální a maximální hodnotu nastavíte ve vlastnostech Min, a Max. Velikost posuvu (změny intervalu) zadáte ve vlastnostech LargeChange a SmallChange. Aktuální pozici udává vlastnost Position. Hodnotu minima, maxima a aktuální pozice můžete zadat najednou voláním metody SetParams.

Změnu pozice přetáčecího pruhu indikuje událost OnChange.

Podobné použití má i komponenta UpDown, která se však používá ve spojení s další komponentou pro zadání numerické hodnoty v požadovaném intervalu.

Příklad použití:
Požadujete, aby byl na formuláři zobrazen panel, jehož velikost chcete měnit pomocí objektu ScrollBar. Počáteční hodnota objektu ScrollBar a současně jeho vlastnost Max je rovna počáteční velikosti panelu. Panel bude proto možné pouze zmenšovat.


Jazyk KLONDAIK: procedure TForm.FormCreate(Sender: TObject); begin ScrollBar.Max := Panel.Width; end; procedure TForm.ScrollBarChange(Sender: TObject); begin Panel.Width := ScrollBar.Position; end;


Jazyk BONANZA: Sub FormCreate(Sender) ScrollBar.Max = Panel.Width End Sub Sub ScrollBarChange(Sender) Panel.Width = ScrollBar.Position End Sub


OZOGAN, 1 Máje 97, 460 01 Liberec
tel.,fax: (048) 52 28 338, e-mail: info@ozogan.cz