anchor.diff:  
   { TDummyClass }
   
  +procedure TDummyClass.DoOnShow(Sender: TObject);
  +var
  +  i: integer;
  +begin
  +  for i:= 0 to Form.ControlCount-1 do
  +    if Form.Controls[i] is TListview then
  +      with (Form.Controls[i] as TListview) do
  +        if ItemFocused<>nil then
  +          ItemFocused.MakeVisible(false);
  +end;
  +
   procedure TDummyClass.DoKeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);
   begin
  
positive.code: 
  
  procedure DoSetListviewState(C: TListView; SValue: string);
  // index;check0,check1,
  var
    N: integer;
    SItem: string;
  begin
    SItem:= SGetItem(SValue, ';');
    N:= StrToIntDef(SItem, 0);
    if (N>=0) and (N<C.Items.Count) then
      C.ItemFocused:= C.Items[N];
  
    if C.Checkboxes then
    begin
      N:= 0;
  
negative.code:     Dummy.Form:= F;
      F.KeyPreview:= true;
      F.OnKeyDown:= @Dummy.DoKeyDown;
      F.OnShow:= @Dummy.DoOnShow;
  
      Res:= F.ShowModal;
      if Res>=cButtonResultStart then
  