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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

28
\hkklZgh\blvgZqZevguc\ZjbZgldhgl_dklZ(nmgdpbySelect);
m^Zeblvbgkljmf_glnmgdpbyDelete);
DeZkkTCanvas bf__lk\hckl\hHandle: hDCkihfhsvxdhlhjh]he_]dh
fh`ghmagZlv^_kdjbilhjh[eZklbjbkh\ZgbyIhwlhfmihemqZlvdhgl_dkly\gh
\uau\Zyijhp_^mjmGetDcg_lg_h[oh^bfhklb
JZkkfhljbff_lh^bdmh[jZs_gbydnmgdpbyfAPI baijh]jZffugZDel-
phiI_j_njZabjmyijbf_jbadgb]b[3]kha^Z^bfijbeh`_gb_ij_^klZ\e_ggh_
gZjbkmgd_
<hafh`ghwlhg_lZdGhZ`bhlZ`\hdjm]Delphi g_kihkh[kl\m_l]Zjfh
gbqghfm__jZa\blbx
>h[Z\vl_\k_dpbxuses \uah\fh^meyWinProcskh^_j`Zs_]hbgl_jn_cku
dnmgdpbyfAPI.Kha^Zcl_h[jZ[hlqbdkh[ulbyOnPaintnhjfu
procedure TForm1.FormPaint(Sender: TObject);
var s: string;
OI7ORJ)RQWAZibkvOIkh^_j`bljZaebqgu_iZjZf_ljurjbnlZ
p: PPoint;
k: integer;
IQWIQW2OG)QW2OG)QW+)RQW>_kdjbilhjurjbnlZ
begin
V G_emqrZy\fbj_kbkl_fZijh]jZffbjh\Zgby
with lf do
begin
lfh
HLJKW <ukhlZ
OI:HLJKW IZB1RUPDOLhesbgZ
OI8QGHUOLQH Ih^q_jdb\Zgb_
6WU&RS\OI)DFH1DPH&RXULHU1HZ&\UBfyrjbnlZ
end;
with Form1.Canvas do
begin
:LQ3URFV0RYH7R([KDQGOHSL_dmsb_dhhj^bgZlu
Se
W7H[W$OLJQKDQGOHWDB8SGDWH&3MklZgZ\eb\Z_lkihkh[
\ujZ\gb\Zgbyl_dklZ
6HW7H[W&KDUDFWHU([WUDKDQGOHMklZgZ\eb\Z_l
f_`kljhqgucbgl_j\Ze
for k:=1 to Length(S) do
>eydZ`^hc[md\uk\hcgZdehg
begin
Mjh\_gvgZdehgZrjbnlZd]hjbahglZevghchkb\^_kyluo
^heyo]jZ^mkZ
LF.lfEscapement := -(k-1)*Round(3600/length(s)); 
                                     28

      \hkklZgh\blvgZqZevguc\ZjbZgldhgl_dklZ(nmgdpbySelect);
      m^Zeblvbgkljmf_gl nmgdpbyDelete);
      DeZkkTCanvas bf__lk\hckl\hHandle: hDCkihfhsvxdhlhjh]he_]dh
fh`ghmagZlv^_kdjbilhjh[eZklbjbkh\ZgbyIhwlhfmihemqZlvdhgl_dkly\gh
\uau\Zyijhp_^mjmGetDcg_lg_h[oh^bfhklb
      JZkkfhljbff_lh^bdmh[jZs_gbydnmgdpbyfAPI baijh]jZffugZDel-
phiI_j_njZabjmyijbf_jbadgb]b[3]kha^Z^bfijbeh`_gb_ij_^klZ\e_ggh_
gZjbkmgd_




      h[Z\vl_\k_dpbxuses \uah\fh^meyWinProcskh^_j`Zs_]hbgl_jn_cku
dnmgdpbyfAPI.Kha^Zcl_h[jZ[hlqbdkh[ulbyOnPaintnhjfu
     procedure TForm1.FormPaint(Sender: TObject);
     var s: string;
     OI7ORJ)RQWAZibkvOIkh^_j`bljZaebqgu_iZjZf_ljurjbnlZ
       p: PPoint;
       k: integer;
     IQWIQW2OG)QW2OG)QW+)RQW>_kdjbilhjurjbnlZ
     begin
     V    G_emqrZy\fbj_kbkl_fZijh]jZffbjh\Zgby 
       with lf do
       begin
          lfhHLJKW eydZ`^hc[md\uk\hcgZdehg
          begin
     Mjh\_gvgZdehgZrjbnlZd]hjbahglZevghchkb\^_kyluo
      ^heyo]jZ^mkZ
            LF.lfEscapement := -(k-1)*Round(3600/length(s));

Страницы