Введение в Delphi. Рудалев В.Г - 15 стр.

UptoLike

Составители: 

15
AZ^Zgb_
:
baf_gbl_ijh]jZffmqlh[u\kibkhdfh`gh[uehaZghkblvjZa
ghjh^gu_we_f_glu
:
dghidbiZg_ebb^j;he__ih^jh[gmxbgnhjfZpbxh[bk
ihevah\Zgbbhi_jZlhjh\is
bas
fh`ghihemqblv\
[7].
EZ[hjZlhjgZyjZ[hlZ
L_fZKibkdbbdhf[bgbjh\Zggu_kibkdbIhehkuijhdjmldb
Kibkdbdhfihg_glListBoxbkihevamxlky^ey\u[hjZwe_f_glZdhf[bgb
jh\Zggu_ kibkdbComboBox fh]ml ^hihegbl_evgh hlj_^Zdlbjh\Zlv wlhl \u
[jZggucwe_f_glq_j_ak\hckl\hText
.
GZibrbl_kZfhklhyl_evghijbf_jiha\heyxsbc\u[bjZlvbakibkdZ
(
bba
dhf[bgbjh\Zggh]h kibkdZp\_l nhjfu >eybaf_g_gby
p\_lZnhjfugZ^haZ
^Zlvk\hckl\hnhjfuColor: TColor
.
>hklmigu_p\_lh\u_dhgklZglufh`ghih
kfhlj_lv\k\hckl\_Color
\bgki_dlhj_h[t_dlh\
Ijbf_jgucwkdbanhjfu
:
GZibrbl_ ijbf_j \ dhlhjhf p\_l nhjfu aZ^Z_lky k bkihevah\Zgb_f
nmgdpbbRGB
:
function RGB (R,G,B: byte): TColor;
A^_kv
R,G,B –
agZq_gbybgl_gkb\ghkl_cdjZkghca_e_ghcbkbg_ckhklZ\
eyxs_c p\_lZ >ey ieZ\gh]h baf_g_gby bgl_gkb\ghkl_c bkihevamcl_ ljb dhf
ihg_glZScrollBar
(
ihehkZijhdjmldb
)
K\hckl\Zmin
,
max: integer
kh^_j`ZlgZ
qZevgh_ b dhg_qgh_ agZq_gb_ iheh`_gby[_]mgdZ K\hckl\h Position
l_dms__
iheh`_gb_ [_]mgdZ P\_l ^he`_g baf_gblvky ijb gZklmie_gbb kh[ulby On-
Change
dhfihg_glZScrollBar\aZ\bkbfhklbhlagZq_gbyPosition.
EZ[hjZlhjgZyjZ[hlZ
5
L_fZKha^Zgb_ijbeh`_gbckg_kdhevdbfbnhjfZfb
>hjZ[hlZ_f ij_^u^msmx ijh]jZffm lZd qlh[u ijb gZ`Zlbb dghidb gZ
wdjZg_ihy\behkv^hihegbl_evgh_hdgh
                                        15




     AZ^Zgb_: baf_gbl_ijh]jZffmqlh[u\kibkhdfh`gh[uehaZghkblvjZa
ghjh^gu_we_f_glu:dghidbiZg_ebb^j;he__ih^jh[gmxbgnhjfZpbxh[bk
ihevah\Zgbbhi_jZlhjh\is bas fh`ghihemqblv\[7].

     EZ[hjZlhjgZyjZ[hlZ‹
     L_fZKibkdbbdhf[bgbjh\Zggu_kibkdbIhehkuijhdjmldb

      Kibkdb dhfihg_glListBox bkihevamxlky^ey\u[hjZwe_f_glZdhf[bgb
jh\Zggu_ kibkdb ComboBox  fh]ml ^hihegbl_evgh hlj_^Zdlbjh\Zlv wlhl \u
[jZggucwe_f_glq_j_ak\hckl\hText.
      GZibrbl_kZfhklhyl_evghijbf_jiha\heyxsbc\u[bjZlvbakibkdZ(bba
dhf[bgbjh\Zggh]h kibkdZ  p\_l nhjfu >ey baf_g_gby p\_lZ nhjfu  gZ^haZ
^Zlvk\hckl\hnhjfuColor: TColor. >hklmigu_p\_lh\u_dhgklZglufh`ghih
kfhlj_lv\k\hckl\_Color \bgki_dlhj_h[t_dlh\
      Ijbf_jgucwkdbanhjfu:




     GZibrbl_ ijbf_j \ dhlhjhf p\_l nhjfu aZ^Z_lky k bkihevah\Zgb_f
nmgdpbbRGB:
     function RGB (R,G,B: byte): TColor;
     A^_kvR,G,B – agZq_gbybgl_gkb\ghkl_cdjZkghca_e_ghcbkbg_ckhklZ\
eyxs_c p\_lZ >ey ieZ\gh]h baf_g_gby bgl_gkb\ghkl_c bkihevamcl_ ljb dhf
ihg_glZScrollBar (ihehkZijhdjmldb)K\hckl\Zmin, max: integer kh^_j`ZlgZ
qZevgh_ b dhg_qgh_ agZq_gb_ iheh`_gby [_]mgdZ K\hckl\h Position – l_dms__
iheh`_gb_ [_]mgdZ P\_l ^he`_g baf_gblvky ijb gZklmie_gbb kh[ulby On-
Change dhfihg_glZScrollBar\aZ\bkbfhklbhlagZq_gbyPosition.

     EZ[hjZlhjgZyjZ[hlZ‹5
     L_fZKha^Zgb_ijbeh`_gbckg_kdhevdbfbnhjfZfb

     >hjZ[hlZ_f ij_^u^msmx ijh]jZffm lZd qlh[u ijb gZ`Zlbb dghidb gZ
wdjZg_ihy\behkv^hihegbl_evgh_hdgh