Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вращение линии вокруг элипса 
:(
    Опции темы
MrDmitry
Дата 4.9.2015, 18:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Здравствуйте помогите осуществить вращение линии вокруг элипса. 

Вот что я пытался сделать, но получается хрень какая то


Код

procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered:=true;
image1.Canvas.Ellipse(50,100,50+24,100+24);
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
yes:=true;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if yes then
begin
Linex:=x;
liney:=y;
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
yes:=false;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
 x, y, NewX, NewY:integer;
begin
if yes then
begin
  Image1.Picture.Bitmap:=nil;
  image1.Canvas.Ellipse(50,100,50+24,100+24);

  //72 - правый граница элипса
  //50 - левый граница эллипса
  //122- нижняя граница эллипса
  //100- верхняя граница эллипса
  //61 - центральный x эллипса
  //111 - центральный y эллипса

  if linex>72 then
   x:=72;
  if lineX<72 then
   x:=Linex;
  if LineX<50 then
   x:=50;
  if lineY>122 then
   y:=122;
  if lineY<122 then
   Y:=LineY;
  if LineY<100 then
   Y:=100;

  try
   if LineY<100 then
     newy:=y-round((X-61)/2);
   if lineY>122 then
     newy:=y-round((X-61)/2);
  except
   newy:=Y;
  end;


  try
    if LineY<100 then
    newX:=x-round((Y-111)/2)
   else
    newX:=x+round((Y-111)/2);
  except
   newX:=X;
  end;


  image1.Canvas.MoveTo(newX,NewY);
  image1.Canvas.LineTo(LineX,liney);
end;


PS с тригонометрией и геометрией у меня проблемы )))

Это сообщение отредактировал(а) MrDmitry - 4.9.2015, 18:38
PM MAIL   Вверх
bems
Дата 5.9.2015, 02:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88
опиши толково что тебе нужно какая линия, какой эллипс, что такое вращение. при чем тут мыша.


--------------------
Обижено школьников: 8
PM MAIL   Вверх
MrDmitry
Дата 5.9.2015, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Ну я скинул код и думал будет понятно что я хочу. Есть эллипс, расположенный в каких то координатах. Нужно при нажатии левой кнопки мыши и ее перемещению по канве, от границ эллипса до координат мыши рисовалась линия.

Это сообщение отредактировал(а) MrDmitry - 5.9.2015, 15:55
PM MAIL   Вверх
bems
Дата 5.9.2015, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88
как-то так?

Код

unit Unit28;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
  TForm28 = class(TForm)
    img: TImage;
    procedure FormResize(Sender: TObject);
    procedure imgMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  strict private
    const
      EllipceBounds: TRect = (Left: 100; Top: 150; Right: 400; Bottom: 600);
  public
    { Public declarations }
  end;

var
  Form28: TForm28;

implementation

uses
  Math;

{$R *.dfm}

procedure TForm28.FormResize(Sender: TObject);
begin
  img.Picture.Bitmap.SetSize(img.Width, img.Height);
  img.Canvas.Ellipse(EllipceBounds)
end;

procedure TForm28.imgMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  pt: TPoint;
  Alpha: Extended;
begin
  if ssLeft in Shift
     then begin
          pt := Point(X, Y) - EllipceBounds.CenterPoint;
          pt.Y := Round(pt.Y * (EllipceBounds.Width / EllipceBounds.Height));
          Alpha := Arctan2(pt.Y, pt.X);
          pt.X := Round(Cos(Alpha) * (EllipceBounds.Width / 2));
          pt.Y := Round(Sin(Alpha) * (EllipceBounds.Height / 2));
          pt := pt + EllipceBounds.CenterPoint;
          img.Canvas.MoveTo(pt.X, pt.Y);
          img.Canvas.LineTo(X, Y);
          end;
end;

end.



--------------------
Обижено школьников: 8
PM MAIL   Вверх
MrDmitry
Дата 9.9.2015, 18:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Цитата(bems @ 5.9.2015,  21:45)
как-то так?

Код

unit Unit28;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
  TForm28 = class(TForm)
    img: TImage;
    procedure FormResize(Sender: TObject);
    procedure imgMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  strict private
    const
      EllipceBounds: TRect = (Left: 100; Top: 150; Right: 400; Bottom: 600);
  public
    { Public declarations }
  end;

var
  Form28: TForm28;

implementation

uses
  Math;

{$R *.dfm}

procedure TForm28.FormResize(Sender: TObject);
begin
  img.Picture.Bitmap.SetSize(img.Width, img.Height);
  img.Canvas.Ellipse(EllipceBounds)
end;

procedure TForm28.imgMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  pt: TPoint;
  Alpha: Extended;
begin
  if ssLeft in Shift
     then begin
          pt := Point(X, Y) - EllipceBounds.CenterPoint;
          pt.Y := Round(pt.Y * (EllipceBounds.Width / EllipceBounds.Height));
          Alpha := Arctan2(pt.Y, pt.X);
          pt.X := Round(Cos(Alpha) * (EllipceBounds.Width / 2));
          pt.Y := Round(Sin(Alpha) * (EllipceBounds.Height / 2));
          pt := pt + EllipceBounds.CenterPoint;
          img.Canvas.MoveTo(pt.X, pt.Y);
          img.Canvas.LineTo(X, Y);
          end;
end;

end.

Мне казалось что можно было все сделать попроще... Но похоже что нет. Спасибо ))
PM MAIL   Вверх
bems
Дата 10.9.2015, 17:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88
можно и попроще. рисуешь сначала линию от "центра" эллипса к мыше, а потом поверх неё рисуешь закрашенный эллипс


--------------------
Обижено школьников: 8
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0636 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.