Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.04.2010, 01:45   #1
Алексей777911
 
Аватар для Алексей777911
 
Регистрация: 02.11.2009
Сообщений: 6
Вопрос Рисование фигур в Delphi (поворот)

Задача состоит в том, чтобы нарисовать круг, прямоугольник, треугольник и бабочку. Затем необходимо их повернуть, видимо через 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) Ежи Лец
Алексей777911 вне форума Ответить с цитированием
Старый 29.04.2010, 03:03   #2
Greblin
Меркантильный кю
Участник клуба
 
Аватар для Greblin
 
Регистрация: 02.02.2008
Сообщений: 1,001
По умолчанию

Берём любой учебник линейной алгебры и читаем про матрицы поворота
Матрица поворота
Росли вроде умными, выросли дурнями... (c)А.Васильев
Greblin вне форума Ответить с цитированием
Старый 29.04.2010, 03:14   #3
Алексей777911
 
Аватар для Алексей777911
 
Регистрация: 02.11.2009
Сообщений: 6
По умолчанию

А как увеличить размер фигуры?
Подумайте, прежде чем подумать...(c) Ежи Лец
Алексей777911 вне форума Ответить с цитированием
Старый 29.04.2010, 03:17   #4
Greblin
Меркантильный кю
Участник клуба
 
Аватар для Greblin
 
Регистрация: 02.02.2008
Сообщений: 1,001
По умолчанию

Умножить векторы на коэффициент растяжения
Росли вроде умными, выросли дурнями... (c)А.Васильев
Greblin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi. Рисование. Ericnex Помощь студентам 3 20.04.2010 13:19
Рисование фигур в Delphi7 без использования VCL saintninja Помощь студентам 15 20.10.2007 11:04