anchor.diff:  end;
   
   procedure TAppsWindow.DoHandleMessage(var Msg: TMessage; var bHandled: BOOL);
  -begin
  -  inherited;
  +var
  +  R: TRect;
  +begin
     case Msg.Msg of
       WM_DROPFILES:
        begin
          //TDropStruct
          // ļϷ
        end;
  +
       WM_TRAYICON_MESSAGE:
        begin
          case Msg.LParam of
  
positive.code:   FTrayData.hIcon := LoadIcon(HInstance, 'MAINICON');
    StrPLCopy(FTrayData.szTip, 'ʾ', Length(FTrayData.szTip) - 1);
    Shell_NotifyIcon(NIM_ADD, @FTrayData);
  end;
  
  procedure TAppsWindow.CreateRadioButton(const AName: string);
  
negative.code:     FInitOK: Boolean;
      FIcons: TList<TIconInfo>;
      FTrayData: TNotifyIconData;
      FIsMouseHover: Boolean;
      FIsNcMouseEnter: Boolean; // û취Ӹж
      procedure CreateRadioButton(const AName: string);
      procedure ShowPage(AIndex: Integer);
      procedure AddIcon(AIcon: TIconInfo);
  