[Lazarus] TListBox Find method?

[Antônio]

Why not to implement a Find method for TListBox which allows partial
search? Delphi missed it, but why Lazarus does the same?

function TCustomListBox.Find(S : string) : integer;
begin
  {$IFDEF WINDOWS}
  Result := SendMessage(Handle, LB_FINDSTRING, -1, LParam(PChar(S)));
  {$ELSE}
  Result := Items.IndexOf(S);
  {$ENDIF}
end;

Antônio
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20140826/246d64fd/attachment-0002.html>