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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

25
ihlj_[ghklb\ki_pbZevghff_lh^_ql_gbyg_llh\f_klhbf_gb
f_lh^Zql_gbymdZau\Z_lkybfyiheyojZgys_]hagZq_gbyk\hckl\Z
?kebk\hckl\hbkihevam_lkylhevdh^eyql_gbybeblhevdh^eyaZibkb
lhkhhl\_lkl\mxsbcf_lh^fh`_l[ulvhims_g`
procedure TGrafik.SetParent (Pn: TWinControl);
begin
Inherited SetParent(Pn);//<uau\Z_lkymgZke_^h\Zggucf_lh^
Align:=alclient;//<ujZ\gb\Zgb_ih\k_ch[eZklbdhfihg_glZ3Q
Visible:=true;
end;
procedure TGrafik.SetColor (c: TColor);//F_lh^aZibkbk\hckl\Z
begin
fc:=c;
Canvas.pen.color:=fc;
//Djhf_aZibkbkjZamijhbkoh^blmklZgh\dZp\_lZ
end;
JZamf__lkyijhs_mklZgh\blvp\_lh[jZsZykvg_ihkj_^kl\_ggh
dk\hckl\m&DQYDVh[t_dlZ*UDILNIhwlhfm^Zggucijbf_j
ghkblg_kdhevdhbkdmkkl\_ggucoZjZdl_jP_ev_]h
-
ijh^_fhgkljbjh\Zlvf_lh^bdmkha^Zgbybbkihevah\Zgbyk\hckl\
procedure TGrafik.SetBcolor (c: TColor);
begin
fbc:=c;
Canvas.Brush.color:=fbc;
end;
procedure TGrafik.SetBorder(c: Tcolor);
begin
Canvas.Pen.Color:=c;
Canvas.Rectangle(0,0,width,height);//Jbkm_lkyijyfhm]hevgbd
Canvas.Pen.Color:=fc;
end;
AZibkvagZq_gbc\k\hckl\h6HULHVZ\lhfZlbq_kdb
ijb\h^bldihy\e_gbxwlboagZq_gbcgZ]jZnbd_
procedure TGrafik.SetSeries(i: integer; y: real);
var ix, iy: integer; // WdjZggu_dhhj^bgZlu
begin
if i<=1 then
begin
iy := round(y*height);
// KHLJKWbZLGWK
-
mgZke_^h\Zggu_hl73DLQW%R[k\hckl\Z
Canvas.MoveTo(1,height-iy-1);
end
else
begin
ix := round(i/nx*width);
iy := round(y*height);
Canvas.LineTo(ix,height-iy-1);
end;
end;
 >ey l_klbjh\Zgby deZkkZ kha^Zcl_ nhjfm kh ke_^mxsbfb bgl_jn_ck
gufbwe_f_glZfbdghidZButton1FgZ^ibkvxJbkh\ZlviZg_evPanel1]jmiiZ
GroupBox1\dhlhjhcgZoh^ylkyr_klvkljhdj_^Zdlbjh\Zgbykijb]eZr_gbyfb
kfjbk 
                                      25

ihlj_[ghklb\ki_pbZevghff_lh^_ql_gbyg_llh\f_klhbf_gb
f_lh^Zql_gbymdZau\Z_lkybfyiheyojZgys_]hagZq_gbyk\hckl\Z
?kebk\hckl\hbkihevam_lkylhevdh^eyql_gbybeblhevdh^eyaZibkb
lhkhhl\_lkl\mxsbcf_lh^fh`_l[ulvhims_g`
     procedure TGrafik.SetParent (Pn: TWinControl);
     begin
       Inherited SetParent(Pn);//ey l_klbjh\Zgby deZkkZ kha^Zcl_ nhjfm kh ke_^mxsbfb bgl_jn_ck
gufbwe_f_glZfbdghidZButton1FgZ^ibkvxJbkh\ZlviZg_evPanel1]jmiiZ
GroupBox1\dhlhjhcgZoh^ylkyr_klvkljhdj_^Zdlbjh\Zgbykijb]eZr_gbyfb
 kfjbk

Страницы