Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Помогите с Canvas'ом

Автор: Dobermann 21.5.2008, 15:28

Немогу сделать так, чтобы по форме точка сделанная из ellipse'а ездила по форме описывая синусоиду.... smile

Свой пример думаю показывать не стоит =)
Делал так:

Код


for i:=0 to form1.width do begin

+ 4 координаты элипса (диаметр=3, чтоб хоть на точку была похожа)

Код


form1.canvas.ellipse(x1,y1,x2,y2)

Изменял координаты по х и у, но получалась чушь (ездила не точка, а получались овалы)
Думал заrepeat'тить, чтобы ездила без остановок, например до keypressed как в паскале.... и добать case, т.к. y изменяется и вверх и вниз, но не получилось...
На паскале это делаю без проблем, а вот с Delphi пока проблемы....
Вообщем просто smile

Автор: THandle 21.5.2008, 15:37

Небольшой примерчик, писал тут, могут быть опечатки)

Код


//...
var
  Form1: TForm1;
  x : integer = 100;
  y : integer = 100;
//...

Код


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Canvas.Pen.Color := clBtnFace;
  Canvas.Ellipse(x, y, x + 3, y + 3);
  case Key of
    VK_UP : dec(y, 5);
    VK_DOWN: inc(y, 5);
    VK_LEFT: dec(x, 5);
    VK_RIGHT: inc(x, 5);
  end;
  Canvas.Pen.Color := clBlack;
  Canvas.Ellipse(x, y, x + 3, y + 3);
end;

Добавлено через 8 минут и 10 секунд
Отсюда уже можно сделать стобы ездила автоматически, допустим по таймеру...

Автор: ama_kid 21.5.2008, 16:05

Цитата(Dobermann @ 21.5.2008, 15:28

)

чтобы по форме точка сделанная из ellipse'а ездила по форме описывая синусоиду....

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x:integer;
  y:integer;
  V:integer=50;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
 x:=Self.Width div 2;
 Timer1.Interval:=50;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 with Self.Canvas do
  begin
   Pen.Color:=clBtnFace;
   Ellipse(x, y, x + 3, y + 3);
   inc(x,1);
   if x>=Self.Width then x:=0;
   y:=(Self.Height div 2)+trunc(V*sin(5*(x/180)*Pi));
   Pen.Color:=clBlack;
   Ellipse(x, y, x + 3, y + 3);
  end;
end;

end.

Автор: Dobermann 21.5.2008, 17:07

Спасибо...помогли....разберусь теперь.....CLOSED =)