Анимация средствами Delphi7 - Мультимедиа в Delphi - Страница 2

Пепел Феникса · 12.10.2009, 01:09

попробуй послать этому окну сообщение WM_PAINT

SERG1980 · 12.10.2009, 08:44

Код:

 canva:TCanvas;
 begin
  canva:=tCanvas.Create;
  canva.Handle:= GetDC(0);
//ваши действия. Работайте  с Canva как с обычной канвой
  ReleaseDC(0, canva.handle);
  canva.Free;

рисуйте где хотите

ZuBy · 14.10.2009, 10:32

Олвин
сохрани изображение в TBitmap потом стирай область на которой рисуешь и заново рисуй то что сохранено в TBitmap.

если рисуешь на Image, PaintBox то воспользуйся Canvas.FillRect/Canvas.FrameRect

ZuBy · 14.10.2009, 10:33

если рисуете на Desktop'e то можно отправить F5, и раб. стол сам перерисуется.

SERG1980 · 14.10.2009, 13:25

Может это подойдёт

Serge_Bliznykov · 14.10.2009, 16:47

SERG1980, тёзка, птичка просто супер!
Спасибо за доставленное удовольствие.
Но не могу не отметить один косячок-с.. если во время полёта двигать окно, "над которым" производится полёт, то на экране получается мусор...

SERG1980 · 14.10.2009, 16:50

Цитата:

Сообщение от Serge_Bliznykov

SERG1980, тёзка, птичка просто супер!
Спасибо за доставленное удовольствие.
Но не могу не отметить один косячок-с.. если во время полёта двигать окно, "над которым" производится полёт, то на экране получается мусор...

Да есть такое дело. Как то нужно обновлять экран, а как времени не было догонять. Может кто то и подскажет

Alex Cones · 14.10.2009, 16:52

Выложу одну программку, может натолкнет на мысль.

Lifefine · 10.12.2009, 00:14

Цитата:

Сообщение от Alex Cones

Выложу одну программку, может натолкнет на мысль.

Ты молодец! Сам создал?

Volt · 10.12.2009, 01:18

А как вам вот такой вариант с использование swf

12.10.2009, 01:09	#11
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	попробуй послать этому окну сообщение WM_PAINT Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

14.10.2009, 10:32	#13
ZuBy Участник клуба Регистрация: 29.09.2008 Сообщений: 1,234	Олвин сохрани изображение в TBitmap потом стирай область на которой рисуешь и заново рисуй то что сохранено в TBitmap. если рисуешь на Image, PaintBox то воспользуйся Canvas.FillRect/Canvas.FrameRect бложик FMX Developer'a

14.10.2009, 10:33	#14
ZuBy Участник клуба Регистрация: 29.09.2008 Сообщений: 1,234	если рисуете на Desktop'e то можно отправить F5, и раб. стол сам перерисуется. бложик FMX Developer'a

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
анимация	shad0w	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	4	13.12.2020 11:02
Анимация в С++	Streb	Общие вопросы C/C++	28	07.06.2009 19:07
анимация	Juffin	Общие вопросы Delphi	2	26.05.2009 20:04
Перевод системного времени средствами Delphi7	Alex Cones	Общие вопросы Delphi	7	19.04.2009 08:57
Анимация	SanekIrk	Общие вопросы Delphi	2	15.08.2008 21:57

14.10.2009, 16:47	#16
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	SERG1980, тёзка, птичка просто супер! Спасибо за доставленное удовольствие. Но не могу не отметить один косячок-с.. если во время полёта двигать окно, "над которым" производится полёт, то на экране получается мусор...