Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Графика, звук, видео
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
roland123
40 / 40 / 0
Регистрация: 07.02.2012
Сообщений: 63
1

Графические возможности Delphi

23.03.2012, 23:47. Просмотров 2092. Ответов 10
Метки нет (Все метки)

Разработать программу, демонстрирующую графические возможности Delphi. Предусмотреть обязательное использование оператора цикла для формирования нескольких однотипных элементов изображения.
1
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2012, 23:47
Ответы с готовыми решениями:

Графические изображения в delphi 7
Доброго времени суток, Подскажите, кто знает, как заставить двигаться окружность по прямоугольной...

Возможности Delphi в плане работы с видео
Привет всем! Есть весьма важный и волнующий меня вопрос по возможностям работы с видео в среде...

Графические возможности Delphi
Проиллюстрируйте законы Кеплера, согласно которым планеты движутся по эллипсам, в одном из фокусов...

Графические возможности Delphi
Помогите создать программу в Дельфи...В диалоговое окно вывести текст разного стиля и размера

Графические возможности Delphi
Здравствуйте. Кто-нибудь помогите составить программу в делфи (обязательно в делфи 7). По...

10
Electroflower
Shiningemerald
376 / 109 / 22
Регистрация: 05.01.2012
Сообщений: 693
Записей в блоге: 1
24.03.2012, 16:20 2
OpenGL в помощь
0
Puporev
Модератор
57221 / 43670 / 30175
Регистрация: 18.05.2008
Сообщений: 104,112
24.03.2012, 16:24 3
Спираль из окружностей.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    procedure PaintBox1Paint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  C, P: TPoint;
  i, R, S: Integer;
  d: Double;
begin
 PaintBox1.Canvas.Pen.Color := clRed;
 C := Point(PaintBox1.Width shr 1, PaintBox1.Height shr 1);
 R := 0; // Начальный радиус спирали
 S := 90; // Количество кружков на всю длину спирали
 d := 8*Pi/S; //Шаг спирали, в данном случае накручивается 4 оборота
 PaintBox1.Canvas.MoveTo(C.X, C.Y);
 for i := 0 to S-1
 do begin
    P := Point(Round(R*Cos(d*i))+C.X, Round(R*Sin(d*i))+C.Y);
    PaintBox1.Canvas.Ellipse(P.X,P.Y,P.X+5+Round(i/s*10),P.Y+5+Round(i/s*10));
    Inc(R, 2);
    end;
end;
 
end.
2
roland123
40 / 40 / 0
Регистрация: 07.02.2012
Сообщений: 63
24.03.2012, 19:05  [ТС] 4
Puporev, а можете мне скриншот Form1 показать?
0
24.03.2012, 19:05
Puporev
Модератор
57221 / 43670 / 30175
Регистрация: 18.05.2008
Сообщений: 104,112
24.03.2012, 19:30 5
Могу....
0
Миниатюры
Графические возможности Delphi  
roland123
40 / 40 / 0
Регистрация: 07.02.2012
Сообщений: 63
24.03.2012, 19:35  [ТС] 6
нет, мне нужно скриншот Form1 до того как запустить программу
0
Puporev
Модератор
57221 / 43670 / 30175
Регистрация: 18.05.2008
Сообщений: 104,112
24.03.2012, 19:53 7
roland123, С головой все в порядке? На форме один PaintBox и все...
0
roland123
40 / 40 / 0
Регистрация: 07.02.2012
Сообщений: 63
24.03.2012, 20:03  [ТС] 8
понятно, извините я просто новичок в delphi
0
Chibi
0 / 0 / 0
Регистрация: 03.06.2016
04.05.2014, 15:27 9
Puporev, у меня выходит ошибка в (PaintBox1.Width shr 1, PaintBox1.Height shr 1) перед единицей, что делать?
0
Puporev
Модератор
57221 / 43670 / 30175
Регистрация: 18.05.2008
Сообщений: 104,112
04.05.2014, 15:38 10
Не знаю, у меня нет никакой ошибки, да вроде и не откуда ей взяться.
0
long399
153 / 153 / 93
Регистрация: 16.10.2013
Сообщений: 738
Записей в блоге: 3
05.05.2014, 12:58 11
В интернете есть некоторые интересные проги по графике. Скидываю вам:
0
Вложения
Тип файла: rar 3 проги.rar (928.7 Кб, 17 просмотров)
05.05.2014, 12:58
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.05.2014, 12:58

Графические возможности Delphi
1. Создать фон формы с плавным переходом от одного цвета к другому. 2. Используя пиксельную...

Графические возможности Delphi.
Здравствуйте! Объясните пожалуйста как в этом коде программы, сделать, так, чтобы результат...

Графические возможности
ПРИВЕТ!!! :) Люди добрые, помогите пожалуйста нарисовать горный пейзаж...


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

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

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