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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

if FX1<>Value then
begin
FX1:=Value;
Paint;
end;
end;
// ɭɫɬɚɧɨɜɤɚ ɤɨɨɪɞɢɧɚɬɵ y1
procedure TGr.SetY1(Value:real);
begin
if FY1<>Value then
begin
FX1:=Value;
Paint;
end;
end;
// ɭɫɬɚɧɨɜɤɚ ɤɨɨɪɞɢɧɚɬɵ x2
procedure TGr.SetX2(Value:real);
begin
if FX2<>Value then
begin
FX2:=Value;
Paint;
end;
end;
// ɭɫɬɚɧɨɜɤɚ ɤɨɨɪɞɢɧɚɬɵ y2
procedure TGr.SetY2(Value:real);
begin
if FY2<>Value then
begin
FY2:=Value;
Paint;
end;
end;
45

Страницы