Скачать: CL | DM;

Как избавиться от навязчивого мерцания?   Найти похожие ветки 

← →
andrew_f   (2002-09-10 16:53) [0]

Добрый день! Наваял свой компонент - потомок BitBtn, в котором происходит смена изображения при различных событиях мыши. Например, навожу на него, потом убираю - меняеся картинка. Внедрил свойство
FImageList: TImageList; , а процедура смены картинки выглядит так:
procedure TAFVActiveButton.SetImage(Index: integer);
begin
if not Assigned(FImageList) then exit;
if Index = -1 then exit;
if Index > FImageList.Count-1 then exit;
with Glyph do begin
Width := FImageList.Width;
Height := FImageList.Height;
Canvas.FillRect(Rect(0,0, Width, Height));
FImageList.GetBitmap(Index, Glyph);
end;
end;
При отрабоке события мерцает вся кнопка. Не знаю, можно ли как нибудь уменьшить это мерцание или хотя бы мерцал только сам Glyph ? Зарание спасибо.

---

← →
Alx2 ©   (2002-09-10 16:57) [1]

Попробуй перехватить сообщение wm_erasebkgnd.

---

← →
Dimka Maslov ©   (2002-09-10 16:59) [2]

В конструкторе поставь
DoubleBuffered := True

---

← →
Вконец озверевший кадастрат   (2002-09-10 19:14) [3]

Дело все не в этом.
Вот, например, строка
>> Canvas.FillRect(Rect(0,0, Width, Height));

Наводит на размышления. То есть, я так понимаю, в метод TAFVActiveButton.SetImage вызывается в методе .Paint.
И значит, каждый раз при перерисовке компонента (принудительной или вызыванной системой) происходит (я так понимаю):

1. Очистка канваса (вот тут "мигает")
2. Перенос изображения из ImageList"а и т.п.

Короче, говоря, делается так:

Сначала все дело рисуется на канве временного битмэпа, потом (в самом конце)картинка с этого битмэпа переносится на твою канву.


...
var TempBmp: TBitmap;
...
try
TempBmp := TBitmap.Create;
With TempBmp.Canvas do
begin

/// тут делается все то, что нужно рисовать на твоей канве
/// можно и в твой метод вставить параметр, передающий
/// канву для рисования и передавать туда канву
/// TempBmp.Canvas

end;
// а теперь окончательно рисуем на своей канве
Self.Canvas.Draw (0,0,TempBmp)
finally
TempBmp.Free;
end;


---

← →
Вконец озверевший кадастрат   (2002-09-10 19:16) [4]

Я привел код для метода .Paint

---

← →
Andrew_f   (2002-09-10 19:39) [5]

Спасибочки Dimka Maslov !
Кажется сработало!

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c