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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

// ɭɫɬɚɧɨɜɤɚ ɤɨɷɮɮɢɰɢɟɧɬɚ a
procedure TGr.SetA(Value:real);
begin
if FA<>Value then
begin
FA:=Value;
Paint;
end;
end;
// ɭɫɬɚɧɨɜɤɚ ɤɢɫɬɢ
procedure TGr.SetBrush(Value:TBrush);
begin
if FBrush<>Value then
begin
FBrush:=Value;
Paint;
end;
end;
// ɭɫɬɚɧɨɜɤɚ ɩɟɪɚ
procedure TGr.SetPen(Value:TPen);
begin
if FPen<>Value then
begin
FPen:=Value;
Paint;
end;
end;
//ɜɵɱɢɫɥɟɧɢɟ ɷɤɪɚɧɧɨɣ ɤɨɨɪɞɢɧɚɬɵ II ɞɥɹ ɪɟɚɥɶɧɨɣ ɤɨɨɪɞɢɧɚɬɵ x
function TGr.II(x:real):Integer;
begin
Result:=Round((x-FX1)*Width/(FX2-FX1));
end;
46

Страницы