Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
cosmos2012
0 / 0 / 0
Регистрация: 29.05.2012
Сообщений: 5
#1

Графика в Delphi

31.05.2012, 12:16. Просмотров 552. Ответов 3
Метки нет (Все метки)

Расположить на вкладке компоненты для ввода параметров изображения и кнопку «Рисование», по нажатию на которую в центре компонента TImage будет выведено изображение( Круг, разделенный на N равных секторов, каждый из которых закрашен случайным цветом. Два соседних сектора не должны иметь одинаковый цвет)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2012, 12:16
Ответы с готовыми решениями:

Графика delphi
Отобразить на фоне звездного неба периодически пролетающую комету рисунок

Графика в Delphi
Почему при запуске ничего не рисует? unit Unit1; interface uses Windows,...

Графика в Delphi
Всем привет, с дельфином совсем,совсем недавно столкнулся, но в общем вот...

Графика в Delphi
Я delphi изучаю только пол года и дошёл до изучения графики.Меня волнует вопрос...

Графика в Delphi
Привет всем,нужна помощь, задание такое нужно нарисовать палатку и два дерева в...

3
Санек25
420 / 350 / 19
Регистрация: 14.05.2012
Сообщений: 1,437
31.05.2012, 12:46 #2
А вы уверены что это должен быть именно image ,а не рисунок на канве. насколько я знаю image таких возможностей не дает. Хотя я и могу ошибаться.

Добавлено через 3 минуты
Тут посмори.
Разделить круг на 2, 3, 4, 5 секторов в зависимости от выбора радиокнопок, каждый полученный сектор следует закрасить в разные цвета.
1
cosmos2012
0 / 0 / 0
Регистрация: 29.05.2012
Сообщений: 5
31.05.2012, 12:56  [ТС] #3
Просто Canvas это свойство Image

Добавлено через 6 минут
и мне нужно делать количество секторов по значению компонента Spinedit.
Вот что у меня пока есть:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.Button1Click(Sender: TObject);
var  n,r,a,i,x1,y1,x2,y2,x3,y3,x4,y4:integer;   z,f,z1,f1:real;
begin
With image1.Canvas  do
begin
 image1.width:= image1.height;
 x1:=0;
 y1:=0;
  x2:=image1.width;
 y2:=image1.height;
 
n:=spinedit1.value;
r:=round(x2/2);
for i:=1 to n do
begin
z:=cos(i*360/n);
f:=sin(i*360/n);
z1:=cos((i+1)*360/n);
f1:=sin((i+1)*360/n);
 
x3:=round(r*(1+z));
y3:=round(r*(1-f));
 
x4:=round(r*(1+z1));
y4:=round(r* (1-f1));
pie(x1,y1,x2,y2,x3,y3,x4,y4);
 end;
end;
end;
0
zuxa-zuxa
Мишка Косолапый :)
282 / 252 / 86
Регистрация: 15.02.2012
Сообщений: 1,468
Завершенные тесты: 1
31.05.2012, 12:58 #4
для таких целей очень подойдет уже готовый компонент с грфиками помоему во вкладке aditionl
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2012, 12:58

Delphi 7 графика
Помогите с графикой плиз кто может=) Надо нарисовать пушку из которого через...

Графика в Delphi
В одном приложении на разных вкладках выполнить следующие задания: Задание 1. ...

Графика Delphi
Нужно проводить масштабирование и выводить только тот отрезок на весь image...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru