Bug 2303

We've recently fixed this error while compiling for Lazarus.

Modify the TFilterComboBox.FilterItems method in the "Sources\VCL\VCLTee.Control.pas" unit for the following and try to recompile.

procedure TFilterComboBox.FilterItems;
var
  I: Integer;
{$IFNDEF FPC}
  Selection: TSelection;
{$ENDIF}
begin
{$IFNDEF FPC}
  // store the current combo edit selection
  SendMessage(Handle, CB_GETEDITSEL, WPARAM(@Selection.StartPos),
    LPARAM(@Selection.EndPos));
{$ENDIF}

  //start filter cycle
  Items.BeginUpdate;
  try
    // if the combo edit is not empty, then clear the items
    // and search through the FStoredItems
    if Text <> '' then
    begin
      // clear all items
      Items.Clear;

      for I := 0 to FStoredItems.Count - 1 do
        if AnsiContainsText(FStoredItems[I], Text) then
          Items.Add(FStoredItems[I]); //resulting matched items
    end
    else
      // if no match, ie. empty filter, add all items.
      Items.Assign(FStoredItems)
  finally
    Items.EndUpdate;
  end;
{$IFNDEF FPC}
  // restore the last combo edit selection
  SendMessage(Handle, CB_SETEDITSEL, 0, MakeLParam(Selection.StartPos,
    Selection.EndPos));
{$ENDIF}
end;