Добрый день!

Пишу программу, которая строит расписание дежурств. На самой важной форме, отображающей это самое расписание визуально, сидит чёртова туча компонентов.

И когда форма по какой-то причине (изменение размера, открытие-закрытие панели и т.п.) отрисовывает себя по новой, это выглядит, как нервный тик - всё начинает "моргать" и дёргаться.

Прошёл по списку компонентов, выставил всем DoubleBuffer. "Моргать" перестало, но время отрисовки формы выросло настолько, что можно чуть ли не кофе попить, пока она приводит себя в порядок.

Думаю, я не первый сталкиваюсь с такими вещами. Кто уже решал подобные проблемы - поделитесь опытом, плиз! Спасибо заранее.

У меня похожая проблема: Timage должен двигаться, из-за этого его сильно глючит Кто-нибудь знает решение подобных проблем?

Зачем двигать TImage? Нужно двигать изображение на TImage, а чтобы не моргало нужно всё прорисовывать в памяти (например временных TBitmap), а потом за один раз выдавать на экран - ...Canvas.Draw или BitBlt

Гость_Александр у тебя какая машина, что так тормозит от DoubleBuffered? И зачем для каждого контрола ее выставлять? Достаточно для формы поставить. У тебя точно на таймерах\потоках ни чего не сидит?

Машина - второй пень. Тормозит она не так страшно, но задержка в несколько секунд с прорисовкой - это хреново. Просто на форме много всякого понавешано.

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

Borland_Delphi_6, насчёт TImage.
Передо мной стояла задача периодической перерисовки изображения - всё работало очень плавно. Двигать Image - изврат. Я бы просто перерисовывал изображение на канве парента с новыми координатами. Делается так.

Сам обработчик onPaint:

Код

var   Bitmap     : HBITMAP;   BitmapInfo : TBitMapInfo;

Код

procedure TESSGMainForm.pbPaint(Sender: TObject); var   MemDC : HDC;   bm    : TBitmap; begin   MemDC := CreateCompatibleDC(pb.Canvas.Handle);   SelectObject (MemDC, Bitmap);   GetObject (Bitmap, SizeOf (TBITMAP), @bm);   BitBlt (pb.Canvas.Handle, 0, 0, pb.Width, pb.Height, MemDC, 0, 0, SRCCOPY);   DeleteDC (MemDC); end;

(Подумав) О, Господи. А теперь надо рассказать, как по-простому загрузить картинку в HBitmap, как использовать CreateDIBSection...

А сейчас 5 утра.
В общем, извините. Если ЭТО кому-то надо - будет. Если нет - то нет.
Просто сейчас писать про всё это очень не хочется...
Добавлено @ 04:03
Если интересно - напишите, и завтра я опишу всё подробно.

dm9
Нужно, нужно В общем, у меня есть jpeg, его нужно туда-сюда по форме таскать

Borland_Delphi_6, что-то я тогда загнался
DIB - это хорошо, но в данном случае совершенно ни к чему.
Просто создаёшь динамически j : TJPEGImage, грузишь туда картинку и затем отрисовываешь картинку на форме:
Form1.Canvas.Draw (X, Y, j);

Единственное, можно допустить такую ошибку. На таймере или как там поставить изменение координат X и Y, и затем написать Form1.Repaint или Form1.Refresh. Тогда будет моргать. А надо писать просто Form1.Canvas.Draw (X, Y, j). Всё плавно - я проверил. На на onPaint форсы тоже на забыть отрисовку.

А то тут хотел уж рассказывать, как работать с DIB и DDB Отдохнуть просто надо - я слишком долго занимался этими DIB - зациклился уже.

Цитата

На на onPaint форсы тоже на забыть отрисовку.

Смысл этого предложения мне не понятен...
И еще. Вот у меня был такой код:

Код

if Image1.Left>=(Form1.ClientWidth-5)-Image1.Width then gx:=-gx; if Image1.Top>=(Form1.ClientHeight-5)-Image1.Height then gy:=-gy; if Image1.Top<=0 then gy:=-gy; if Image1.Left<=0 then gx:=-gx; Image1.Left:=Image1.Left+gx; Image1.Top:=Image1.Top+gy;

(это что-то вроде скринсевера)

Как мне теперь узнать аналог Image1.Left и Image1.Top?

Borland_Delphi_6, в простейшем случае я имел в виду это (см. файл).
Если более сложно - там надо писать ещё обработчик onPaint для формы и делать не столь халявную перерисовку.
Добавлено @ 01:39
PS Там что-то типа 5 килобайт...

Присоединённый файл ( Кол-во скачиваний: 18 )
 Draw.zip

dm9
Спасибо, примерчик очень хороший! Тока я взялся попробовать написать эту прогу на API, а то уж слишком большая она получается.

Borland_Delphi_6, О! А вот здесь тогда как раз понадобится работа с DIB
И отрисовку делать надо будет, как я написал.

Будет время - скину примерчик.

dm9
Спасибо, как раз хотел тебе попрасить об этом Точнее, вывести пикчуру я уже научился, вот так вот:

Код

bmp:=LoadImage(0,'img.bmp',IMAGE_BITMAP,0,0,LR_LOADFROMFILE); WindowDc:=GetDC(MainWnd); memorydc:=CreateCompatibleDC(windowdc); SelectObject(memorydc,bmp); BitBlt(windowdc,x,y,200,150,memorydc,0,0,SRCCOPY); DeleteDC(memorydc); ReleaseDC(MainWnd,windowdc);

Вот тебе примерчик отрисовки, всё на чистом WinAPI. (Не мой).
Что там тебе ещё надо. Таймер?

Да, и не забывай всякие DeleteDC, DeleteObject, etc.

Кстати, мои эксперименты показывают, что при такой отрисовке BeginPaint и EndPaint не спасают от мерцания почему-то... Это если движение картинки делать.
Добавлено @ 17:04
PS Компиляция - запуск батника. Там < 30 кБайт.

Присоединённый файл ( Кол-во скачиваний: 23 )
 Dib__s.zip

имеются две фазы обновления окна.
1. привыводе окна винда посылает сообщение WM_ERASEBKGND, оповещяющее онеобходимости стирания фона перед процедурой рисования. Затем посылается сообщение WM_PAINT, служащее сигналом для закрашивания.
Первое сообщение можно пропустить
а) форсируя обновление самому с помощью вызова функции InvalidateRect(Handle, Nil, False) ;
б) Можно указать VCL не стирать фон
ControlStyle := ControlStyle + [csOpaque];

В этом случае от моргания можно избавиться.

PS: Второй выриант в ХР не срабатывает почему-то (имею ввиду, что всё равно моргает), первый не проверял, но работать должен.