Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Работа с компонентом TChartДля изменения параметров компонента Chart необходимо дважды щелкнуть по нему мышью в окне формы. Появится окно редактирования Editing chrtMy. Для создания нового объекта Series1 щелкнуть по кнопке Add на странице Series. В появившемся диалоговом окне TeeChart Gallery выбрать пиктограмму с надписью Line (график выводится в виде линии). Если нет необходимости представления графика в трехмерном виде, отключить переключатель 3D. После нажатия на кнопку ОК появится новая серия с названием Series1. Для изменения названия нажать кнопку Title. В появившемся однострочном редакторе набрать имя отображаемой функции – “sin(x)”. Аналогичным образом нужно создать объект Series2 для функции cos(x). Для изменения надписи над графиком на странице Titles в редакторе набрать: “Графики функций”. Для разметки осей нужно выбрать страницу Axis и установить нужные параметры настройки осей. Нажимая различные кнопки меню, познакомьтесь с другими возможностями Editing Chart.
Написание текста программы 1. Определите следующие глобальные переменные: Xmin, Xmax,Ymin,Ymax,Hx,Hy,h: extended;
2. Создайте процедуру, которая выполняет разметку осей Procedure TfrmMain.MarkingAxis; Begin {отключение автоматического определения параметров нижней оси} chrtMy.BottomAxis.Automatic:=false; {установка левой и правой нижней границы оси} chrtMy.BottomAxis.Minimum:= Xmin; chrtMy.BottomAxis.Maximum:= Xmax; {отключение автоматического определения параметров левой оси} chrtMy.LeftAxis.Automatic:=false; {установка нижней и верхней границы левой оси} chrtMy.LeftAxis.Minimum:= Ymin; chrtMy.LeftAxis.Maximum:= Ymax; {установка шага разметки по нижней оси} chrtMy.BottomAxis.Increment:=Hx; chrtMy.LeftAxis.Increment:= Hy; end;
Внимание: не забудьте в разделе описания типов в секции privet добавить поле с заголовком процедуры
|