anchor.diff:    TfpgTextListBox = class(TfpgBaseListBox)
     protected
       FItems: TStringList;
  +    function    GetText: string; virtual;
  +    procedure   SetText(const AValue: string); virtual;
       procedure   DrawItem(num: integer; rect: TfpgRect; flags: integer); override;
       procedure   Exchange(Index1, Index2: Integer); override;
       procedure   HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: boolean); override;
  
positive.code: 
  { TfpgTextListBox }
  
  procedure TfpgTextListBox.DrawItem(num: integer; rect: TfpgRect; flags: integer);
  begin
    //if num < 0 then
  
negative.code: function TfpgTextListBox.ItemCount: integer;
  begin
    result := FItems.Count;
  end;
  
  { TColorItem }
  