anchor.diff:  function TfpgTextListBox.ItemCount: integer;
   begin
     result := FItems.Count;
  -end;
  -
  -function TfpgTextListBox.Text: string;
  -begin
  -  if (ItemCount > 0) and (FocusItem <> -1) then
  -    result := FItems[FocusItem]
  -  else
  -    result := '';
   end;
   
   { TColorItem }
  
positive.code: 
  { TfpgTextListBox }
  
  procedure TfpgTextListBox.DrawItem(num: integer; rect: TfpgRect; flags: integer);
  begin
    //if num < 0 then
  
negative.code:   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;
  