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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

23
Pen.Style := psSolid; //KiehrgZyebgby
I_j_kq_lnbabq_kdbodhhj^bgZl\wdjZggu_^eyi_j\hclhqdb
iy := round((sin(w*x0)-YMin)/(YMax-YMin)*PH);
MoveTo(0,PH-iy-1);
x:=x0;
for i:=2 to n do
begin
x := x + dx;
y := sin(w*x);
I_j_kq_l^eyihke_^mxsbolhq_d
ix := round((x-x0)/(xk-x0)*PW);
iy := round((y-ymin)/(ymax-ymin)*PH);
LineTo(ix, PH-iy-1);
end;
end;
%XWWRQKXUVRU FU'HIDXOW
end;
Ijb\uiheg_gbbijh]jZffuh[jZlbl_\gbfZgb_
qlhihke_fbgbfbaZpbb
hdgZijh]jZffubebi_j_djulby_]h^jm]bfbhdgZfbbah[jZ`_gb_gZPaintBox
ihjlblkyQlh[uwlh]hg_ijhbkoh^behgZc^bl_\bgki_dlhj_h[t_dlh\kh[ulb_
OnPaint^eyPaintBox1wlhkh[ulb_ \hagbdZ_l ijbi_j_jbkh\d_dhfihg_glZb
ijbk\hcl__fmh[jZ[hlqbdkh[ulbyButton1Click
.
EZ[hjZlhjgZyjZ[hlZ
L_fZKha^Zgb_]jZnbq_kdh]hj_^ZdlhjZ
GZibrbl_ijhklhc]jZnbq_kdbcj_^Zdlhjiha\heyxsbc\u[bjZlvp\_lb
lhesbgmebgbcaZdjZrb\ZlvaZfdgmlu_h[eZklbaZ]jm`ZlvbkhojZgylvbah
[jZ`_gb_\nZce_
Bkihevamcl_dhfihg_glImage
,
mf_xsbcq_j_ak\hckl\hPicture
jZ[hlZlvk
]jZnbq_kdbfbnZceZfbgZijbf_j
Image.Picture.LoadFromFile(CurrentFile);
Jbkh\Zgb_ijhbkoh^bl\h[jZ[hlqbdZokh[ulbchlfurbKh[ulb_i_j_
f_s_gbymdZaZl_eyfurbOnMouseMove
bf__llbi
type TMouseMoveEvent = procedure(Sender: TObject;
Shift: TShiftState; X, Y: Integer) of object,
]^_ iZjZf_lj Shift iha\hey_l magZlv [ueb eb gZ`Zlu ijb i_j_f_s_gbb
mdZaZl_ey deZ\brb deZ\bZlmju Shift, Ctrl, Alt beb dghidb furbdhgklZglu
                                        23

          Pen.Style := psSolid; //KiehrgZyebgby
     I_j_kq_lnbabq_kdbodhhj^bgZl\wdjZggu_^eyi_j\hclhqdb
        iy := round((sin(w*x0)-YMin)/(YMax-YMin)*PH);
        MoveTo(0,PH-iy-1);
        x:=x0;
        for i:=2 to n do
        begin
           x := x + dx;
           y := sin(w*x);
     I_j_kq_l^eyihke_^mxsbolhq_d
           ix := round((x-x0)/(xk-x0)*PW);
           iy := round((y-ymin)/(ymax-ymin)*PH);
           LineTo(ix, PH-iy-1);
        end;
       end;
     %XWWRQKXUVRU FU'HIDXOW
     end;




     Ijb\uiheg_gbbijh]jZffuh[jZlbl_\gbfZgb_qlhihke_fbgbfbaZpbb
hdgZijh]jZffubebi_j_djulby_]h^jm]bfbhdgZfbbah[jZ`_gb_gZPaintBox
ihjlblkyQlh[uwlh]hg_ijhbkoh^behgZc^bl_\bgki_dlhj_h[t_dlh\kh[ulb_
OnPaint ^ey PaintBox1 wlh kh[ulb_ \hagbdZ_l ijb i_j_jbkh\d_ dhfihg_glZ  b
ijbk\hcl__fmh[jZ[hlqbdkh[ulbyButton1Click.

     EZ[hjZlhjgZyjZ[hlZ‹
     L_fZKha^Zgb_]jZnbq_kdh]hj_^ZdlhjZ

      GZibrbl_ijhklhc]jZnbq_kdbcj_^Zdlhjiha\heyxsbc\u[bjZlvp\_lb
lhesbgmebgbcaZdjZrb\ZlvaZfdgmlu_h[eZklbaZ]jm`ZlvbkhojZgylvbah
[jZ`_gb_\nZce_
      Bkihevamcl_dhfihg_glImage, mf_xsbcq_j_ak\hckl\hPicture jZ[hlZlvk
]jZnbq_kdbfbnZceZfbgZijbf_j
Image.Picture.LoadFromFile(CurrentFile);
      Jbkh\Zgb_ ijhbkoh^bl \ h[jZ[hlqbdZo kh[ulbchlfurbKh[ulb_i_j_
f_s_gbymdZaZl_eyfurbOnMouseMove bf__llbi
      type TMouseMoveEvent = procedure(Sender: TObject;
Shift: TShiftState; X, Y:                Integer) of object,
      ]^_ iZjZf_lj Shift iha\hey_l magZlv [ueb eb gZ`Zlu ijb i_j_f_s_gbb
mdZaZl_ey deZ\brb deZ\bZlmju Shift, Ctrl, Alt beb dghidb furb dhgklZglu

Страницы