Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
Вниздвижение картинки Найти похожие ветки
← →
Flame (2005-05-28 16:25) [0]в паскале была такая вункция, как xorput. а как можно в делфи реализовать движение некой картинки (20*20) по image. если пользоваться приведенным ниже кодом, то остаются части от предыдущих рисунков и в итоге ничего не получается.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(y,4);
Form1.Imagelist1.GetBitmap(0,BMP);
bmp.Transparent:=true;
Form1.Image1.Canvas.Draw(x,y,BMP);
end;
← →
Marser © (2005-05-28 16:28) [1]
> Form1.Imagelist1.GetBitmap(0,BMP);
Как говорил ЮЗ, такая конструкция излишня и даже вредна. Используй self.Imagelist1.GetBitmap(0,BMP);
Для того, чтобы очистить форму, нужно её перерисовать.
self.Repaint
← →
Flame (2005-05-28 16:37) [2]представь себе, что таймер - 0.1 сек. тогда знаешь как картника моргает??? мне бы надо именно без repaint!!!!!
← →
Marser © (2005-05-28 16:44) [3]DoubleBuffered:=true;
← →
Marser © (2005-05-28 16:45) [4]Вставь двойную буферизацию, моргать не будет. Но скорость тоже упадёт.
← →
Flame (2005-05-28 16:45) [5]и куды это сувать надо?
← →
Marser © (2005-05-28 16:45) [6]
> Flame (28.05.05 16:45) [5] [Новое
>сообщение][Ответить]
> и куды это сувать надо?
Просто настройка формы. Выполни один раз.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c