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