Разработка компонентов в DELPHI. Вощинская Г.Э. - 42 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

4. ɉɪɢɦɟɪɵ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ
4.1. Ʉɨɦɩɨɧɟɧɬ, ɧɚɫɥɟɞɧɢɤ ɤɥɚɫɫɚ TGraphicControl
ȼ ɤɚɱɟɫɬɜɟ ɛɨɥɟɟ ɫɥɨɠɧɨɝɨ ɩɪɢɦɟɪɚ ɫɨɡɞɚɞɢɦ ɤɨɦɩɨɧɟɧɬ Gr, ɩɪɟɞɧɚ-
ɡɧɚɱɟɧɧɵɣ ɞɥɹ ɪɢɫɨɜɚɧɢɹ ɝɪɚɮɢɤɚ ɮɭɧɤɰɢɢ y=a*x*x ɜ ɨɤɧɟ
(x1,y1,x2,y2).
ȼɵɛɨɪ ɤɥɚɫɫɚ-ɩɪɟɞɤɚ ɨɩɪɟɞɟɥɹɟɬɫɹ ɬɟɦ, ɱɬɨ ɞɥɹ ɞɚɧɧɨɝɨ ɤɨɦɩɨɧɟɧɬɚ
ɬɪɟɛɭɟɬɫɹ ɜɨɡɦɨɠɧɨɫɬɶ ɪɢɫɨɜɚɧɢɹ, ɧɨ ɧɟ ɧɭɠɟɧ ɮɨɤɭɫ ɜɜɨɞɚ. ɉɭɛɥɢɤɭɟ-
ɦɵɦɢ ɫɜɨɣɫɬɜɚɦɢ ɞɨɥɠɧɵ ɛɵɬɶ ɤɨɷɮɮɢɰɢɟɧɬ a ɢ ɤɨɨɪɞɢɧɚɬɵ
x1,y1,x2,y2. ɇɢɠɟ ɩɪɢɜɟɞɟɧɨ ɨɩɢɫɚɧɢɟ ɤɥɚɫɫɚ
TGr, ɨɩɪɟɞɟɥɹɸɳɟɝɨ ɬɚ-
ɤɨɣ ɤɨɦɩɨɧɟɧɬ [3].
unit UGr;
interface
uses Windows, Messages, SysUtils, Classes,
Controls,Graphics;
type
TGr = class(TGraphicControl)
private
FPen:TPen;
FBrush:TBrush;
Fx1,Fy1,Fx2,Fy2:real;//ɤɨɨɪɞɢɧɚɬɵ ɨɤɧɚ
Fa:real; //ɤɨɷɮɮɢɰɢɟɧɬ ɮɭɧɤɰɢɢ
function II(x:real):Integer; //ɩɟɪɟɜɨɞ ɪɟɚɥɶɧɨɣ ɤɨɨɪɞɢɧɚɬɵ x
//ɜ ɷɤɪɚɧɧɭɸ
function JJ(y:real):Integer; //ɩɟɪɟɜɨɞ ɪɟɚɥɶɧɨɣ ɤɨɨɪɞɢɧɚɬɵ
// y ɜ ɷɤɪɚɧɧɭɸ
function F(x:real):real; //ɮɭɧɤɰɢɹ, ɨɩɪɟɞɟɥɹɸɳɚɹ ɝɪɚɮɢɤ
procedure SetX1(Value:real); //ɭɫɬɚɧɨɜɤɚ ɤɨɨɪɞɢɧɚɬɵ x1
procedure SetY1(Value:real); //ɭɫɬɚɧɨɜɤɚ ɤɨɨɪɞɢɧɚɬɵ y1
procedure SetX2(Value:real); //ɭɫɬɚɧɨɜɤɚ ɤɨɨɪɞɢɧɚɬɵ x2
procedure SetY2(Value:real); //ɭɫɬɚɧɨɜɤɚ ɤɨɨɪɞɢɧɚɬɵ y2
42

Страницы