anchor.diff:    PostMessage(Self.Handle, WM_USER_CLEARCHILDS, 0, 0);
   end;
   
  +procedure TUramakiBaseGridPlate.GetSelectedItems(const aKeyFieldName: string; aList: TObjectList);
  +var
  +  tmpBookmark : TBookmark;
  +  i : integer;
  +  tmpDatum : IVDDatum;
  +begin
  +  FGrid.BeginUpdate;
  +  try
  +    if FGrid.SelectedRows.Count = 1 then
  +    begin
  +      tmpDatum := GetDataProvider.FindDatumByStringKey(FDataset.FieldByName(aKeyFieldName).AsString);
  +      if Assigned(tmpDatum) then
  +        aList.Add(tmpDatum.AsObject);
  +    end
  +    else
  +    begin
  +      tmpBookmark := FDataset.Bookmark;
  +      try
  +        for i := 0 to FGrid.SelectedRows.Count - 1 do
  +        begin
  +          FDataset.GotoBookmark(FGrid.SelectedRows[i]);
  +          tmpDatum := GetDataProvider.FindDatumByStringKey(FDataset.FieldByName(aKeyFieldName).AsString);
  +          if Assigned(tmpDatum) then
  +            aList.Add(tmpDatum.AsObject);
  +        end;
  +      finally
  +        FDataset.GotoBookmark(tmpBookmark);
  +      end;
  +    end;
  +  finally
  +    FGrid.EndUpdate(true);
  +  end;
  +
  +end;
  +
   procedure TUramakiBaseGridPlate.OnClearFilter(Sender: TObject);
   begin
     if Assigned(FFilterPanel) then
  
positive.code:     procedure OnSelectEditor(Sender: TObject; Column: TColumn; var Editor: TWinControl);
      procedure InvokeChildsRefresh;
      procedure InvokeChildsClear;
  
      procedure OnClearFilter (Sender : TObject);
      procedure OnExecuteFilter (Sender : TObject);
  
negative.code: 
  uses
    Classes, Controls, ExtCtrls, DB, ComCtrls, {$IFDEF WINDOWS}Windows,{$ENDIF} DBGrids,
    Forms, Menus, SysUtils, StdCtrls, contnrs,
    UramakiToolbar,
    {$IFDEF FPC}
    InterfaceBase,
  