Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.22;
Скачать: CL | DM;

Вниз

Бегающие огни   Найти похожие ветки 

 
Жанна   (2003-05-28 13:29) [0]

Подскажите. пожалуйста как на канве сделать бегающие огни (не мигающие, а именно бегающие) по горизонтали и по кругу. Заранее спасибо


 
MBo ©   (2003-05-28 15:36) [1]

Вот тебе моргунчик для начала.


var
Counter:Integer;
x,y:Integer;
b,empty:TBitmap;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Counter<>0 then
BitBlt(Canvas.Handle,x,y,40,40,empty.Canvas.Handle,0,0,srccopy);
x:=150+Round(100*cos(Counter/100));
y:=150+Round(100*sin(Counter/100));
BitBlt(Canvas.Handle,x,y,40,40,b.Canvas.Handle,0,0,srccopy);
Canvas.Draw(x,y,b);
inc(Counter);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Counter:=0;
b:=TBitmap.Create;
empty:=TBitmap.Create;
empty.Width:=40;
empty.Height:=40;
empty.Canvas.Brush.Color:=color;
empty.Canvas.FillRect(rect(0,0,40,40));
b.Assign(empty);
b.Canvas.Brush.Color:=clYellow;
b.Canvas.Pen.Color:=clBlue;
b.Canvas.ellipse(0,0,40,40);
x:=250;
y:=150;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
b.free;
empty.free;
end;


 
MBo ©   (2003-05-28 15:38) [2]

Эта строка не нужна
if Counter<>0 then



Страницы: 1 вся ветка

Текущий архив: 2003.09.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
1-71689
berezen
2003-09-11 10:47
2003.09.22
com порт и база данных


1-71703
P0tia
2003-09-10 18:01
2003.09.22
Формы и как с ними бороться?


1-71672
First_May
2003-09-11 11:48
2003.09.22
Файл ресурсов....


1-71601
Murad
2003-09-09 13:00
2003.09.22
сервер Ole-документов


14-71899
Dark Elf
2003-09-03 15:58
2003.09.22
Добавление оглавления в chm-файл