В этом уроке я расскажу как сделать свою программу которая составляет диаграммы. В общем получиться что то типа Exel. Для составления диаграмм мы будем использовать достаточно мощный и продвинутый компонент TChar из вкладки Additional. Ну меньше слов. Приступим создавать программу.
Для начала кинем на форму следующие компоненты: TEdit из вкладки Standart(6 штук), TButton тоже из вкладки Standart, TChar из вкладки Additional. По желанию можно кинуть TLabel.
В итоге получается такая вот форма:
Кликаем дважды по TChar и видим такое вот окно:
В этом окне нажимаем Add и выбираем Pie(Круговая диаграмма). Теперь создаем событие Button1Click для TButton и пишем:
procedure TForm1.Button1Click(Sender: TObject); begin Button1.Caption:='Пересчитать'; //Смена названия кнопки Series1.Clear; //Очистка предыдущих значений диаграммы Series1 Series1.AddPie(strtoint(Edit2.Text),Edit1.Text, clred ); //Пишем значения Series1.AddPie(strtoint(Edit4.Text),Edit3.Text, clblue );// и их цвета Series1.AddPie(strtoint(Edit6.Text),Edit5.Text, clyellow ); end;
Внимание! Если вы выбрали не Pie(круговая диаграмма), а например Line(Линейная диаграмма), то вместо Series1.AddPie нужно писать Series1.AddLine.
Ну вот и все! Вот такая программа у нас получилась:
Источник: | 
Главная
Контакты
RSS
О сайте
Форум
Информация
О рекламе
Правила
FAQ по новостям
Термины
