VPF::Помогите с Canvas'ом - Форум программистов

Dobermann

Дата 21.5.2008, 15:28 (ссылка)

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

Загрузка ...

Опытный

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

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

Немогу сделать так, чтобы по форме точка сделанная из 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 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

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

Код


//...
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 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

Цитата(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 (ссылка)

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

Загрузка ...

Опытный

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

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

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

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