Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Delphi]Вращение и перемещение рисунка


Автор: Sharlej 10.5.2012, 01:25
Здравствуйте, господа! 
Я нуб в 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 градусов за каждый интервал таймера. Перерыл весь интернет и ничего толкового не нашел. Все что нашлось - этот код http://delphiworld.narod.ru/base/rotate_image.html. Он рабочий, и изображение крутится, но далеко не так как мне бы хотелось. В общем я в тупике, помогите. smile 

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


Код


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

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

Автор: Sharlej 11.5.2012, 15:36
В общем, проблему решил сам, вот код:
Код

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.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)