DoubleBuffered:=true и ThemeServices : палка о двух концах ?

← →
pirat (2004-01-19 19:32) [0]

Действие происходит под XP Pro.
Наблюдается стабильный глюк: неправильная перерисовка фона контролов (TButton, TCheckBox и т.д.) при условии что Form.DoubleBuffered := true и на форме лежит экземпляр TXPManifest. Свойство DoubleBuffered крайне необходимо для устранения всяческих морганий при перерисовке формы ( для контролов, например TPanel ето тоже надо включать если размеры привязаны к размерам формы). Напрмер если положить TButton на формы то вокруг нее будет наблюдаться черная окантовка (кусок фона).

В Controls.pas есть очень интересный кусок :

procedure TWinControl.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
with ThemeServices do
if ThemesEnabled and Assigned(Parent) and (csParentBackground in FControlStyle) then
begin
{ Get the parent to draw its background into the control"s background. }
DrawParentBackground(Handle, Message.DC, nil, False);
end
else
begin
{ Only erase background if we"re not doublebuffering or painting to memory. }
if not FDoubleBuffered or
(TMessage(Message).wParam = TMessage(Message).lParam) then
FillRect(Message.DC, ClientRect, FBrush.Handle);

end;

Message.Result := 1;
end;

То есть так прямо и сказано что в режиме двойной буферизации делать нифига не будем! Если закомментировать if, то есть оставить FillRect без условия то все черные окантовки (у Button) и черный фон ( у CheckBox ) исчезают и все рисуется правильно.

Но дело в том что это не единственное (похоже) место, где надо править, так как ели на форме лежит TXPManifest форма начисто игнорирует DoubleBuffered := true. Кто с этим сталкивался ? А может борландцы уже патч давно выпустили ??

← →
pirat (2004-01-20 14:08) [1]

ну и чего все молчат, неужели любите мерцающие контролы??

DoubleBuffered:=true и ThemeServices : палка о двух концах ? Найти похожие ветки