Reduce Flickering in El(X)TreeStringGrid

Quanos Service Solutions GmbH

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?

Eugene Balabuev (LMD)

Fixed.