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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

//ɜɵɱɢɫɥɟɧɢɟ ɷɤɪɚɧɧɨɣ ɤɨɨɪɞɢɧɚɬɵ JJ ɞɥɹ ɪɟɚɥɶɧɨɣ ɤɨɨɪɞɢɧɚɬɵ y
function TGr.JJ(y:real):Integer;
begin
Result:=Height-Round((y-FY1)*Height/(FY2-FY1));
end;
//ɮɭɧɤɰɢɹ, ɨɩɪɟɞɟɥɹɸɳɚɹ ɝɪɚɮɢɤ
function TGr.F(x:real):real;
begin
Result:=Fa*x*x;
end;
//ɞɟɫɬɪɭɤɬɨɪ
destructor TGr.Destroy;
begin
FPen.Free;
FBrush.Free;
inherited destroy;
end;
//ɩɟɪɟɪɢɫɨɜɤɚ ɤɨɦɩɨɧɟɧɬɚ
procedure TGr.Paint;
const
n=60;//ɤɨɥɢɱɟɫɬɜɨ ɬɨɱɟɤ, ɩɨ ɤɨɬɨɪɵɦ ɫɬɪɨɢɬɫɹ ɝɪɚɮɢɤ
var
I : integer;
h,x : real;
begin
h:=(X2-X1)/n;//ɲɚɝ ɢɡɦɟɧɟɧɢɹ ɚɪɝɭɦɟɧɬɚ ɮɭɧɤɰɢɢ
with Canvas do
begin
//ɪɢɫɨɜɚɧɢɟ ɨɫɟɣ ɤɨɨɪɞɢɧɚɬ
Rectangle(0,0,Width,height);
MoveTo(II(X1),JJ(0));
47

Страницы