Howdy, Stranger!
It looks like you're new here. If you want to get involved, click one of these buttons!
Categories
In this Discussion
- Eugene Balabuev (LMD) November 2016
Reduce Flickering in El(X)TreeStringGrid
We reduce flickering by adding a TWMPaint--Methode in TCustomElTree
procedure TCustomElTree.WMPaint(var Message: TWMPaint);
var
PS: TPaintStruct;
begin
if not FDoubleBuffered or (Message.DC <> 0) then
begin
if not (csCustomPaint in ControlState) and (ControlCount = 0) then
inherited
else
PaintHandler(Message);
end
else
begin
BeginPaint(Handle, PS);
EndPaint(Handle, PS);
end;
end;
Can you check this fix if all constellations work with this new methode?
procedure TCustomElTree.WMPaint(var Message: TWMPaint);
var
PS: TPaintStruct;
begin
if not FDoubleBuffered or (Message.DC <> 0) then
begin
if not (csCustomPaint in ControlState) and (ControlCount = 0) then
inherited
else
PaintHandler(Message);
end
else
begin
BeginPaint(Handle, PS);
EndPaint(Handle, PS);
end;
end;
Can you check this fix if all constellations work with this new methode?
Comments