anchor.diff:      procedure SelectRadioItem(AIndex: Integer);
       function GetRadionSelectedIndex(ATabDock: CHorizontalLayoutUI): Integer;
       procedure InitEvents;
  -    procedure ProcesNotifyEvent(var Msg: TNotifyUI);
  -
  -
  -    procedure openmycomputer(var Msg: TNotifyUI);
  -    procedure openbrowser(var Msg: TNotifyUI);
  -    procedure openyule(var Msg: TNotifyUI);
  -    procedure openappmarket(var Msg: TNotifyUI);
  -    procedure btnSearchClick(var Msg: TNotifyUI);
  -    procedure closebtnClick(var Msg: TNotifyUI);
  -    procedure minbtnClick(var Msg: TNotifyUI);
  -    procedure btnopenappClick(var Msg: TNotifyUI);
  -    procedure btnaddappClick(var Msg: TNotifyUI);
  +    procedure ProcesNotifyEvent(Sender: TObject);
  +
  +
  +    procedure openmycomputer(Sender: TObject);
  +    procedure openbrowser(Sender: TObject);
  +    procedure openyule(Sender: TObject);
  +    procedure openappmarket(Sender: TObject);
  +    procedure btnSearchClick(Sender: TObject);
  +    procedure closebtnClick(Sender: TObject);
  +    procedure minbtnClick(Sender: TObject);
  +    procedure btnopenappClick(Sender: TObject);
  +    procedure btnaddappClick(Sender: TObject);
   
   //    procedure menuCopyClick(var Msg: TNotifyUI);
   //    procedure menuCutClick(var Msg: TNotifyUI);
  
positive.code:         FSelectedRadioIndex := Msg.pSender.Tag;
          ShowPage(FSelectedRadioIndex);
        end;
      end else ProcesNotifyEvent(Msg);
    end else
    if LType.Equals(DUI_EVENT_KILLFOCUS) then
    begin
  
negative.code:   SelectRadioItem(FSelectedRadioIndex);
  end;
  
  procedure TAppsWindow.minbtnClick(Sender: TObject);
  begin
    Minimize;
  end;
  
  procedure TAppsWindow.openappmarket(Sender: TObject);
  begin
    MessageBox(0, 'appmarket', nil, 0);
  end;
  
  procedure TAppsWindow.openbrowser(Sender: TObject);
  begin
    MessageBox(0, 'browser', nil, 0);
  end;
  
  procedure TAppsWindow.openmycomputer(Sender: TObject);
  begin
    MessageBox(0, 'computer', nil, 0);
  end;
  
  procedure TAppsWindow.openyule(Sender: TObject);
  begin
    MessageBox(0, 'yule', nil, 0);
  end;
  
  procedure TAppsWindow.ProcesNotifyEvent(Sender: TObject);
  var
    LEvent: TNotifyEvent;
  begin
    if FEvents.TryGetValue(CControlUI(Sender).Name, LEvent) then
      LEvent(Sender);
  end;
  
  procedure TAppsWindow.ReInitRadios;
  