TScrollBar/fi

│ Deutsch (de) │ English (en) │ suomi (fi) │ français (fr) │ 日本語 (ja) │

TScrollBar on komponentti, jonka avulla käyttäjä voi vierittää siihen liittyvän komponentin/olion sisältöä siirtämällä liukusäädintä.

Käyttö

TScrollBar voidaan ottaa käyttöön lomakkeella, valitsemalla se komponenttipaletin Standard-välilehdeltä ja klikkaamalla se lomakkeelle.

Pieni esimerkki

Siirrä kuvaa lomakkeella vierityspalkin sijainnin mukaan

• Sijoita kaksi TScrollBars lomakkeelle
• Komponenttimuokkaimessa muuta ensimmäisen vierityspalkin (scrollbar) ominaisuudet: "Name" arvoon "sbVert", "Kind" arvoon "sbVertical" ja "Align" arvoon "alRight"
• Komponenttimuokkaimessa muuta toisen vierityspalkin ominaisuudet: "Name" arvoon "sbHori" ja "Align" arvoon "alBottom"
• Lisää TPaintBox (löytyy komponenttipaletin Additional -välilehdeltä) lomakkeelle ja aseta sen ominaisuus "Align" arvoon "alClient"
• Lisää TImageList (löytyy komponenttipaletin Common Controls -välilehdeltä) lomakkeelle.
• Lataa kuvia ImageList:iin:
  • Klikkaa ImageList1 kuvaketta hiiren kakkospainikkeella ja valitse Kuvaluettelon muokkain ponnahdusvalikosta
  • Klikkaa Lisää... ja valitse kuva (mieluiten pieni kuvake, esimerkiksi 16 x 16, Lazarus/images/icons/lazarus16x16)
  • Lopeta valintasi painamalla OK
• Valitse PaintBox lomakkeella, mene komponenttimuokkaimen tapahtumiin, luo tapahtumankäsittelijä tapahtumalle OnPaint ja täydennä se seuraavanlaiseksi:

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;

• Nyt muutetaan vierityspalkin sijainteja lomakkeella käyttämällä sen RePaint-metodia: Luodaan vierityspalkille tapahtumakäsittelijä OnChange ja kutsu tätä myös toisesta vierityspalkista:

procedure TForm1.sbVertChange(Sender: TObject);
begin
  RePaint;
end;

Tämä pieni ohjelma voisi näyttää tämänkaltaiselta:

Katso myös

• TScrollBar doc
• TTrackBar
• TScrollBox