TImage

← →
Artemkin (2002-04-30 09:00) [0]

Требуется двигать по форме TImage с задержкой. Как это делать быстро и без моргания???

← →
MBo © (2002-04-30 09:05) [1]

уменьшить моргание -
doublebuffered:=true;

а может, на канве рисовать ?

← →
Artemkin (2002-04-30 09:24) [2]

А как с задержкой быть ?

← →
MBo © (2002-04-30 09:34) [3]

Timer1.Timer

image1.left:=image1.left+10;

← →
Artemkin (2002-04-30 09:41) [4]

сильно большое смещение...image1.left:=image1.left +10, надо ..+1 и побыстрее

← →
MBo © (2002-04-30 10:16) [5]

какое смещение - это уж твое дело

← →
Владимир Васильев © (2002-04-30 10:52) [6]

Надо буферизировать вывод графики - сначала собираешь картинку в памяти - TBitmap - а потом её копируешь на канву формы

И ещё, если прорисовка стоит на OnMouseMove - то надо ограничить вывод разумным пределом - 10-20 раз в секунду.

Короче, кладем на ПАНЕЛЬ (Panel1) все комнпоненты, которые нужно двигать БЕЗ мерцания. Для события OnMouseDown тех компонентов, при клике по которому должно происходить перемещение пишешь:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Panel1.perform(WM_SysCommand, $F009, 0);//Двигаем ПАНЕЛЬ!!!
end;

Причем свойство FullRepaint у ПАНЕЛИ (Panel1) ДОЛЖНО стоять в FALSE!!!

> Владимир Васильев © (30.04.02 10:52)
> Надо буферизировать вывод графики - сначала собираешь картинку
> в памяти - TBitmap - а потом её копируешь на канву формы

а если загружен JPG а не битмап, что тогда?
У меня сейчас на этом загвоздка, не знаю что и делать.
Нужно передать изображение по инету. У меня это сделано так. Передает сервер, принимает клиент. Сервер пишет Image1.Picture.Graphic.SaveToStream(MyMemoryStream)
клиент читает Image2.Picture.Graphic.LoadFromStream(MyClientMemoryStream);
все прекрасно получается, НО...у клиента картинка оччень неприятно мигает. КАК от этого избавиться? Оччень надеюсь на помощь.

TImage Найти похожие ветки