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

Вниз

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 - а потом её копируешь на канву формы


 
Владимир Васильев   (2002-04-30 10:54) [7]

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


 
VEG   (2002-04-30 17:09) [8]

Короче, кладем на ПАНЕЛЬ (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!!!


 
Doom   (2002-05-09 13:04) [9]


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

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



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

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

Наверх




Память: 0.46 MB
Время: 0.006 c
1-26996
CrazyHackers
2002-08-29 15:43
2002.09.09
Поиск - Замена


14-27196
Sten
2002-08-12 00:28
2002.09.09
Подскажите компАнет....плииииз


7-27253
NOIQ
2002-06-28 22:05
2002.09.09
Подскажите или укажите путь к истине!


7-27238
Malcolm
2002-06-27 19:42
2002.09.09
Окно на панели задач


14-27231
MJH
2002-08-14 13:12
2002.09.09
Э...типа....временно пока...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский