VPF::[Delphi]Вращение и перемещение рисунка

Sharlej

Дата 10.5.2012, 01:25 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Здравствуйте, господа!
Я нуб в Delphi, но стараюсь исправиться. Наткнулся на проблему с выполнением лабораторной работы, где нужно, как гласит задание, "заставить мяч катиться справа на лево";
Понятное дело, для того, чтобы мяч перемещался по форме много ума не нужно:

Код


var
  Form1: TForm1;
  ok:Boolean;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Color:=clWhite;
tmr1.Enabled:=False;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
if ok then
    begin
    tmr1.Enabled:=false;
    btn1.Caption:='Пуск';
    ok:=false;
    end
else
    begin
    tmr1.enabled:=True;
    btn1.caption:='стоп';
    ok:=true;
    end;
end;
procedure TForm1.tmr1Timer(Sender: TObject);
begin
  if img1.Left + img1.Width < ClientWidth-10 then
    begin
    img1.left:=img1.Left+10;
     end
  else
      begin
      tmr1.Enabled:=false;
      btn1.Caption:='Остановлено';
      ok:=false;
      end
end;
end.

Стало быть, сам мячик: прямоугольное изображение мячика формата Bmp. Проблема у меня с его с вращением, я пытался, сделать так чтобы тут:

Код


  if img1.Left + img1.Width < ClientWidth-10 then
    begin
    img1.left:=img1.Left+10;
     end

выполнялся бы поворот рисунка на, скажем, 10 градусов за каждый интервал таймера. Перерыл весь интернет и ничего толкового не нашел. Все что нашлось - этот код Алгоритм поворота изображения Delphiworld. Он рабочий, и изображение крутится, но далеко не так как мне бы хотелось. В общем я в тупике, помогите. smile

Telepyz

Дата 10.5.2012, 10:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: 1

В фотошопе поверни рисунок как тебе надо, и сохраняй каждый кадр, а потом при движении (изменении координат) загружай новый рисунок

Код



if img1.Left + img1.Width < ClientWidth-10 then
   begin
      img1.left:=img1.Left+10;
      img1.image = {новый рисунок};
   end

--------------------

обновить драйвер

Sharlej

Дата 10.5.2012, 13:44 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Ну это очень простой вариант и, печально, но не то, что нужно. Я хотел бы именно сделать так, чтобы объект Image поворачивался именно средствами Delphi. Как бы такая задача передо мной стоит.

Sharlej

Дата 11.5.2012, 15:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

В общем, проблему решил сам, вот код:

Код


var
  Form1: TForm1;
    obr, bm, bm1: TBitMap;
     x, y: integer;
  r, a: single;
  xo, yo: integer;
  s, c: extended;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
  btn1.Enabled:=False;
  tmr1.Enabled:=True;
begin
  bm := TBitMap.Create;
  bm.LoadFromFile('02.bmp');
  xo := bm.Width div 2;
  yo := bm.Height div 2;
  bm1 := TBitMap.Create;
  bm1.Width := bm.Width;
  bm1.Height := bm.Height;
  a := 0;
  repeat
    for y := 0 to bm.Height - 1 do
    begin
      for x := 0 to bm.Width - 1 do
      begin
        r := sqrt(sqr(x - xo) + sqr(y - yo));
        SinCos(a + arctan2((y - yo), (x - xo)), s, c);
        bm1.Canvas.Pixels[x,y] := bm.Canvas.Pixels[
        round(xo + r * c), round(yo + r * s)];
      end;
      Application.ProcessMessages;
    end;
    img1.Canvas.Draw(0, 0, bm1);
    a := a + 0.05;
    Application.ProcessMessages;
  until
    Form1.Tag <> 0;
  bm.Destroy;
  bm1.Destroy;
end;
end;
procedure TForm1.btn2Click(Sender: TObject);
var r:tmodalresult;
begin
Form1.Tag := 1;
btn2.Enabled:=false;
tmr1.Enabled:=False;
r:=MessageDlg('Âûïîëíåíèå ïðîãðàììû îñòàíîâëåíî',mtWarning,[mbOK],0);
if r=mrOk then form1.Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Color:=clBlack;
img1.Left:=900;
end;
procedure TForm1.tmr1Timer(Sender: TObject);
begin
 if img1.Left + img1.Width > 200 then
    begin
    img1.left:=img1.Left-1;
     end
  else
      begin
      tmr1.Enabled:=false;
      end
end;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »