anchor.diff:    Vcl.StdCtrls;
   
   type
  -  { @abstract(Appends formatted @link(TLogItem) to a TMemo in a VCL application) }
  +  { @abstract(Appends formatted @link(TLogItem) to a TListBox in a VCL application) }
     TVCLListBoxAppender = class(TLoggerProAppenderBase)
     private
       FLB: TListBox;
  
positive.code: unit LoggerPro.VCLListBoxAppender;
  { <@abstract(The unit to include if you want to use the @link(TVCLMemoLogAppender))
    @author(Daniele Teti) }
  
  interface
  
  
negative.code:         Lines := FLB.Items.Count;
          if Lines > FMaxLogLines then
            FLB.Items.Delete(0);
          FLB.AddItem(lText, nil);
          FLB.ItemIndex := FLB.Items.Count - 1;
        finally
          FLB.Items.EndUpdate;
        end;
      end);
  end;
  
  