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

UptoLike

ВУЗ:

ВГУ | Воронеж

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

Рубрика:

Программирование

ssAlt

SSCtrl

ssShift h[hagZqZxl kblmZpbx gZ`Zlby khhl\_lkl\mxsbo deZ\br

dhgklZglussLeft, ssRight, ssMiddle, ssDouble

h[hagZqZxlkblmZpbxgZ`ZlbydeZ

\brfurbijbq_fssDouble

–

gZ`ZlbybijZ\hcbe_\hcdghidb

iZjZf_lju;b<kh^_j`Zlgh\u_dhhj^bgZlu mdZaZl_eyfurb\deb_gl

kdhch[eZklbh[t_dlZSender.

Kh[ulb_gZ`Zlby/hlimkdZgbydghidbfurb OnMouseDown/OnMouseUp:

type TMouseEvent = procedure(Sender: TObject; But-

ton: TMouseButton; Shift: TShiftState; X, Y: Integer) of

object,

]^_Button: TMouseButton – b^_glbnbdZlhj dghidb TMouseButton =

(mbLeft, mbRight, mbMiddle).

EZ[hjZlhjgZyjZ[hlZ

L_fZKha^Zgb_kh[kl\_gguodeZkkh\

Baf_gbfijh]jZffmbaeZ[jZ[hluKha^Z^bfdeZkkTGrafik\dexqZx

sbc ihey k\hckl\Z b f_lh^u b ijb]h^guc ^ey bah[jZ`_gby ijhba\hevguo

nmgdpbc<dZq_kl\_[Zah\h]hdeZkkZg_ihkj_^kl\_ggh]hij_^dZ\u[_j_fdeZkk

TPaintBox  ih^^_j`b\Zxsbc q_j_a k\hckl\h Canvas hkgh\gu_ ]jZnbq_kdb_

nmgdpbb DeZkk TGrafik [m^_l ^hihegbl_evgh kh^_j`Zlv k\hckl\Z PenColor

p\_l ebgbb BrushColorp\_l aZeb\db nhgZ %RUGHU p\_l jZfdb Seriesbg

^_dkbjh\Zggh_k\hckl\hgZ[hjagZq_gbcihhkbYihe_Nxqbkehlhq_dihhkb

XI_j_hij_^_ebfmgZke_^h\ZgguchlTControlf_lh^SetParentijbdj_ie_gb_

djh^bl_evkdhfm\bamZevghfmdhfihg_glm^h[Z\b\\g_]h\ujZ\gb\Zgb_]jZnb

dZih\k_ch[eZklbjh^bl_evkdh]hdhfihg_glZBlZd^eywlh]hgZ^hijh^_eZlv

ke_^mxsb_rZ]b

Hldjhcl_gh\ucijh_dl<jZa^_e_j_ZebaZpbbfh^meyihke_kljhd

LPSOHPHQWDWLRQb^5')0`aZibrbl_h[ty\e_gb_deZkkZ

type TGrafik = class(TPaintBox)

private Ihey©^eykem`_[gh]hihevah\Zgbyª

IF7FRORUP\_lebgbb

IEF7FRORUP\_lnhgZ

public H[s_^hklmigu_k\hckl\Zbf_lh^u

nx: i

QWHJHUQbkehlhq_d

procedure SetParent(Pn: TWinControl);override;

procedure SetColor(c: TColor);

procedure SetBColor(c: TColor);

procedure SetBorder(c: Tcolor);

procedure SetSeries(i: integer; y: real);

property Border: TColor write Set

%RUGHUP\_ljZfdb

property PenColor: TColor read Fc write Setcolor;

property BrushColor: TColor read fbc write SetBcolor;

property Series[i: integer]: real write SetSeries;

end;

^K\hckl\hhibku\Z_lkyke_^mxsbfh[jZahfkem`_[gh_keh\hSUR

HUW\aZl_fgZa\Zgb_blbik\hckl\ZIhke_kem`_[guokeh\UHDGb

ZULWHaZibku\Zxlkybf_gZf_lh^h\ql_gbybaZibkbk\hckl\Z

khhl\_lkl\_gghF_lh^ql_gbyhibku\Z_lkydZdnmgdpby?keb

                                         24

ssAlt, SSCtrl, ssShift h[hagZqZxl kblmZpbx gZ`Zlby khhl\_lkl\mxsbo deZ\br
dhgklZglussLeft, ssRight, ssMiddle, ssDouble h[hagZqZxlkblmZpbxgZ`ZlbydeZ
\brfurbijbq_fssDouble – gZ`ZlbybijZ\hcbe_\hcdghidb 
       iZjZf_lju;b

Заказать работу

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

UptoLike

ВУЗ:

Рудалев В.Г.

Кремер А.И.

Программирование

Вы здесь

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

UptoLike

ВУЗ:

Рудалев В.Г.

Кремер А.И.

Программирование

Страницы