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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

36
procedure Rectangle (X1, Y1, X2, Y2: integer);
Jbkm_l ijyfhm]hevgbd k
\_jogbfe_\ufm]ehf;<bgb`gbfijZ\uf\;<
procedure Refresh;
Ijb\h^bl &DQYDV ohekl d aZ^Zgghfm ih mfheqZgbx
khklhygbx
.
procedure RoundRect (X1, Y1, X2, Y2, X3, Y3: integer);
Jbkm_lijyfhm]hev
gbd k aZdjm]e_ggufb m]eZfb AZdjm]e_gby jbkmxlky dZd k_]f_glu weebikZ k
jZaf_jZfbhk_cih]hjbahglZebb\_jlbdZeb;b<
procedure TextHeight (const Text: string): integer;
<ha\jZsZ_l \ukhlm
kljhdb\ibdk_eZolhqdZo
procedure TextOut(x,y: integer; const Text: string);
<u\h^blkljhdm\ihab
pbx[\
procedure TextWidth (const Text: string): integer; <ha\jZsZ_lrbjbgmkljh
db\ibdk_eZo
property PenPos: TPoint; Kh^_j`bll_dmsmxihabpbxi_jZ
<ur_[uebbkihevah\Zgulbiu
type
TPoint = record ^Dhhj^bgZlulhqdb`
X: Longint;
Y: Longint;
end;
TRect=record ^Dhhj^bgZluijyfhm]hevgbdZ`
case Integer of
0: (Left, Top, Right, Bottom: Integer);
1: (TopLeft, BottomRight: TPoint);
end;
KhklZ\bl_ebJm^Ze_\<Ze_jbc=_ggZ^v_\bq
Dj_f_j:e_dkZg^jBevbq
J_^Zdlhj;mgbgZL>
                                        36

      procedure Rectangle (X1, Y1, X2, Y2: integer); Jbkm_l ijyfhm]hevgbd k
\_jogbfe_\ufm]ehf ;< bgb`gbfijZ\uf\ ;< 
      procedure Refresh; Ijb\h^bl &DQYDV ohekl  d aZ^Zgghfm ih mfheqZgbx
khklhygbx.
      procedure RoundRect (X1, Y1, X2, Y2, X3, Y3: integer); Jbkm_lijyfhm]hev
gbd k aZdjm]e_ggufb m]eZfb AZdjm]e_gby jbkmxlky dZd k_]f_glu weebikZ k
jZaf_jZfbhk_cih]hjbahglZebb\_jlbdZeb;b<
      procedure TextHeight (const Text: string): integer; 

Страницы