![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 02.11.2009
Сообщений: 6
|
![]()
Задача состоит в том, чтобы нарисовать круг, прямоугольник, треугольник и бабочку. Затем необходимо их повернуть, видимо через Timer.
Мой код: unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm3 = class(TForm) Button1: TButton; PaintBox1: TPaintBox; RadioGroup1: TRadioGroup; ColorDialog1: TColorDialog; Timer1: TTimer; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form3: TForm3; implementation {$R *.dfm} procedure TForm3.Button1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0: begin PaintBox1.Refresh; PaintBox1.Canvas.Ellipse(150,150,50 0,500); end; 1: begin PaintBox1.Refresh; PaintBox1.Canvas.MoveTo(200,200); PaintBox1.Canvas.LineTo(200,300); PaintBox1.Canvas.LineTo(300,250); PaintBox1.Canvas.LineTo(200,200); end; 2: begin PaintBox1.Refresh; Paintbox1.Canvas.Rectangle(10,150,5 00,500); end; 3: begin PaintBox1.Refresh; PaintBox1.Canvas.Ellipse(100,50,150 ,100); PaintBox1.Canvas.MoveTo(50,500); PaintBox1.Canvas.LineTo(115,100); PaintBox1.Canvas.Ellipse(130,210,90 ,310); PaintBox1.Canvas.Ellipse(90,210,50, 310); end; end; end; end. Фигуры нарисованы. Помогите их повернуть ![]()
Подумайте, прежде чем подумать...(c) Ежи Лец
|
![]() |
![]() |
![]() |
#2 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
![]()
Берём любой учебник линейной алгебры и читаем про матрицы поворота
Матрица поворота
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 02.11.2009
Сообщений: 6
|
![]()
А как увеличить размер фигуры?
Подумайте, прежде чем подумать...(c) Ежи Лец
|
![]() |
![]() |
![]() |
#4 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
![]()
Умножить векторы на коэффициент растяжения
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi. Рисование. | Ericnex | Помощь студентам | 3 | 20.04.2010 13:19 |
Рисование фигур в Delphi7 без использования VCL | saintninja | Помощь студентам | 15 | 20.10.2007 11:04 |