#include "minigui.ch" 
  
 function Main() 
  
   define window Win_1 ; 
     at 0,0 ; 
     width 640 height 480 ; 
     title "Test of Radiogroup's ENABLED property" ; 
     main ; 
     on init {|| Rabota() } 
  
   end window 
  
   Win_1.Center 
   Win_1.Activate 
  
 Return Nil 
  
 *---------- 
 function Rabota() 
  
   @ 30-5, 20 ; 
      checkbox CHB_1 of Win_1 ; 
      caption "all" ; 
      width 50 ; 
      value .T. ; 
      on change { || Win_1.R_Ex.Enabled := .not.(This.Value), ; 
                     Win_1.B_Ex7.Enabled := (This.Value) } 
  
   define tab Tab_0 of Win_1 ; 
     at 60, 0 ; 
     width Win_1.Width - GetBorderWidth() * 2 ; 
     height ; 
      Win_1.Height - ; 
      ( GetTitleHeight() + GetBorderHeight() + ; 
        GetMenuBarHeight() + 65 ) ; 
  
     page "Page 1" 
  
       @ 340-100, 60 buttonEx B_Ex7 of Win_1 ; 
         width 250 ; 
         caption "Button (don't click - for test only)" ; 
         lefttext 
  
       Win_1.B_Ex7.Enabled:=.T. 
  
       @ 380-100, 80 radiogroup R_Ex of Win1 ; 
         options { "1 month", "12 monthes" } ; 
         value 1 ; 
         horizontal 
  
       Win_1.R_Ex.Enabled:=.F. 
       //  20100728 - так почему-то вылетает в XP 
       //SetProperty( "Win_1", "R_Ex", "Enabled", .F. ) 
       // и так тоже (ТОЛЬКО на этом контроле!) 
      
       // 20100728 - заменил на Hide/Show 
       //Win_1.R_Ex.Hide() 
  
     end page 
  
   end tab 
  
 Return Nil