Объемный вид диаграммы определяется горизонтальным и вертикальным
углами поворота, изометрией и другими параметрами, влияющими на вид
трехмерной проекции. Объект Chart обладает следующими свойствами, по-
зволяющими изменить диаграмму объемного вида: Rotation — поворот
(в горизонтальной плоскости), Elevation — возвышение (поворот в верти-
кальной плоскости), Perspective — перспектива, RightAngleAxes — изомет-
рия, AutoScaling — автомасштаб, HeightPercent — высота в процентах от
нормальной высоты. Все перечисленные свойства имеют числовой тип, за
исключением свойства AutoScaling, имеющего логический тип. Значения
этих свойств можно считывать и изменять.
Следующие операторы позволяют определить значения параметров объем-
ной диаграммы.
Задание свойств объемной диаграммы
Rotation.Value:=Chart.Rotation;
Elevation.Value:=Chart.Elevation;
Perspective.Value:=Chart.Perspective;
RightAngleAxes.Checked:=Chart.RightAngleAxes;
AutoScaling.Checked:=Chart.AutoScaling;
HeightPercent.Value:=Chart.HeightPercent;
На рис. 14.19 представлены диаграмма и форма приложения, в которой ото-
бражены считанные значения свойств, определяющих объемный вид диа-
граммы.
Используя эту форму, изменим некоторые параметры, например возвыше-
ние и поворот диаграммы.
Рис. 14.19. Значения свойств объемной диаграммы
Изменение возвышения и поворота диаграммы
procedure TOKBottomDlg10.ElevationChange(Sender: TObject);
begin
Chart.Elevation:=Elevation.value;
end;
procedure TOKBottomDlglO.RotationChange(Sender: TObject);
begin
Chart.Rotation:=Rotation.Value;
end;
На рис. 14.20 видны результаты этих изменений.
Используя свойство RightAngleAxes объекта Chart, изменяем изометрию
объемной диафаммы.
Задание изометрии диаграммы
procedure TOKBottomDlg10.RightAngleAxesClick(Sender: TObject);
begin
Chart.RightAngleAxes:=RightAngleAxes.Checked;
end;
Внешний вид измененной диафаммы представлен на рис. 14.21.
Рис. 14.20. Вращение диаграммы в двух плоскостях
Рис. 14.21. Изометрический вид диаграммы |
Главная
Каталог файлов
