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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

29
Kha^ZlvrjbnlbaZibkZlv_]h^_kdjbilhj\IQW
fnt2:=CreateFontIndirect(Lf);
<klZ\blvrjbnlk^_kdjbilhjhfIQW\dhgl_dkl
ij_`gbcrjbnlkhojZgblv\2OGIQW
OldFnt2:=SelectObject(handle,fnt2);
ZLQSURFV7H[W2XWKDQGOH#V>N@<u\h^[md\u
<hkklZgh\blvij_`g__kh^_j`Zgb_dhgl_dklZ
SelectObject(handle,oldfnt2);
'HOHWH2EMHFW)QWM^Zeblvrjbnl
end;
end;
with lf do
begin
lfheight := 25;
OI,WDOLF Dmjkb\
OI:HLJKW IZB%ODFNHq_gv`bjgucrjbnl
lfUnderline := 1;
lfEscap
HPHQW ;_agZdehgZ
StrCopy(lfFaceName,'Arial');
end;
IQW &UHDWH)RQW,QGLUHFW/IKha^Zlvrjbnl
with Form1.Canvas do
begin
2OG)QW 6HOHFW2EMHFWKDQGOHIQW<klZ\blv\dhgl_dkl
:LQ3URFV0RYH7R([KDQGOHSDhhj^bgZlu
winprocs.TextOut(handle,0,0, 'Borland Delphi', 14);
6HOHFW2EMHFWKDQGOH2OG)QW<hkklZgh\blvbkodhgl_dkl
'HOHWH2EMHFW)QWM^Zeblvrjbnl
end;
end;
AZ^Zgby. IhiulZcl_kv gZclb \ Delphi ^jm]b_ ZgZeh]bqgu_ kj_^kl\Z AZ
ijh]jZffbjmcl_\jZs_gb_©i_qZlbªihqZkh\hcklj_ed_
AZ^Zgby^eykZfhklhyl_evghcjZ[hlu
GZibrbl_ijh]jZffmdhlhjZykqblu\Z_lfZkkb\p_euoqbk_ebal_d
klh\h]hnZceZq_lgu_qbkeZaZghkbl\kibkhdListbox1g_q_lgu_-\ListBox2.
GZibrbl_ijh]jZffmdhlhjZykljhbl]jZnbdihqbkeZf\\h^bfuf\
l_dklh\hfj_^Zdlhj_
Kha^Zcl_gZhkgh\_deZkkZTStringGridlZ[ebpmihkljhdZfdhlhjhcgZ
oh^ylky^Zggu_ihijh^Z`_lh\ZjZaZdZ`^ucf_kypZihklhe[pZf-^Zggu_ih
ijh^Z`_dZ`^h]h\b^Zlh\ZjZ<uqbkebl_kj_^gb_ijh^Z`baZ]h^^eydZ`^h]h
\b^Zlh\ZjZbihkljhcl_ihemqb\rmxkyaZ\bkbfhklv\\b^_klhe[bdh\hc^bZ
]jZffu
<aZ^Zq_ihkljhblvdjm]h\mx^bZ]jZffm
GZibkZlvijh]jZffm©<bamZevgh_j_^Zdlbjh\Zgb_]jZnZªk\hafh`gh
klvxkhojZg_gbykljmdlmju]jZnZ\nZce_ 
                                      29

     Kha^ZlvrjbnlbaZibkZlv_]h^_kdjbilhj\IQW
            fnt2:=CreateFontIndirect(Lf);
     N@ 

Страницы