anchor.diff:  
   
   implementation
  +
   
   type
     // custom stringlist that will notify listbox of item changes
  
positive.code:   fpgStyle.DrawString(Canvas, rect.left+2, rect.top+1, FItems.Strings[num-1], Enabled);
  end;
  
  constructor TfpgTextListBox.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
  
negative.code:   // Listbox containg strings - the normal listbox as we know it. Used by
    // component developers.
    TfpgTextListBox = class(TfpgBaseListBox)
    private
    protected
      FItems: TStringList;
      procedure   DrawItem(num: integer; rect: TfpgRect; flags: integer); override;
      procedure   HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: boolean); override;
      property    Items: TStringList read FItems;
    public
      constructor Create(AOwner: TComponent); override;
  