/* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
  * Copyright 2012 Janusz Pora <januszpora@onet.eu> 
  * 
  * Revised by Grigory Filatov, 2017-2025 
 */ 
  
 SET PROCEDURE TO clradio.prg 
  
 #include "minigui.ch" 
  
 FUNCTION Main() 
  
    LOCAL aRadio 
  
    SET FONT TO 'MS Shell Dlg', 12 
  
    DEFINE WINDOW Form_Main ; 
          AT 0, 0 ; 
          WIDTH 640 HEIGHT 480 ; 
          TITLE 'MiniGUI Check Label Demo' ; 
          MAIN BACKCOLOR {236,240,250} 
 /* 
       @ 40, 50 BUTTON Btn1 ; 
          CAPTION "Check Label_2" ; 
          WIDTH 120 DEFAULT ; 
          ACTION Form_Main.Label_2.Checked := .T. 
  
       @ 80, 50 BUTTON Btn2 ; 
          CAPTION "Uncheck Label_2" ; 
          WIDTH 120 ; 
          ACTION Form_Main.Label_2.Checked := .F. 
 */ 
       @ 150, 30 CHECKLABEL Label_1 ; 
          WIDTH 200 HEIGHT 20 ; 
          VALUE 'Check Label_1 standard' ; 
          CHECKED ; 
          ON MOUSEHOVER Rc_Cursor( "MINIGUI_FINGER" ) 
  
       @ 180, 15 FRAME Frame_1 WIDTH 470 HEIGHT 230 CAPTION "CheckBox and RadioGroup Emulation" FONTCOLOR NAVY 
 /* 
       DEFINE CHECKLABEL Label_2 
          ROW 200 
          COL 30 
          WIDTH 190 
          HEIGHT 18 
          VALUE 'Left Check Label_2 with images' 
          LEFTCHECK .T. 
          TRANSPARENT .T. 
          IMAGE { 'Check', 'UnCheck' } 
          TOOLTIP 'CheckLabel Control' 
          FONTCOLOR NAVY 
          ON MOUSEHOVER ( Rc_Cursor( "MINIGUI_FINGER" ), Form_Main.Label_2.FONTCOLOR := BLUE ) 
          ON MOUSELEAVE ( Form_Main.Label_2.FONTCOLOR := NAVY ) 
          VCENTERALIGN .T. 
       END CHECKLABEL 
  
       @ 200, 300 CHECKBOX Check_1 CAPTION ' CheckBox Check_1 standard' ; 
          WIDTH 180 ; 
          HEIGHT 21 ; 
          VALUE .F. ; 
          TOOLTIP 'CheckBox Control' ; 
          FONTCOLOR NAVY 
 */ 
       aRadio := CLRadio_Create( ; 
         "RB_Custom", ; 
         Form_Main.NAME, ; 
         250, 30, ; 
         100, 18, ; 
         { 'One', 'Two', 'Three', 'Four' }, ; 
         { 'radio1.bmp', 'radio2.bmp' }, ; 
         NAVY, BLUE, ; 
         1, ; 
         25, ; 
         .F. ) 
  
       CLRadio_Create( "RB2", Form_Main.NAME, 210, 30, 100, 36, { 'One', 'Two', 'Three', 'Four' }, { 'CheckT32', 'CheckF32' }, NAVY, BLUE, 1, 50, .T. ) 
  
       DEFINE RADIOGROUP Radio_1 
          ROW 246 
          COL 300 
          OPTIONS { 'One', 'Two', 'Three', 'Four' } 
          VALUE 1 
          WIDTH 100 
          TOOLTIP 'Radio Group Control' 
          FONTCOLOR NAVY 
       END RADIOGROUP 
  
       @ 360, 30 BUTTON Btn3 ; 
          CAPTION "Get CheckLabel Radio Value" ; 
          WIDTH 200 ; 
          ACTION MsgInfo ( CLRadio_GetValue( Form_Main.NAME, aRadio ), 'CheckLabel Group' ) SIZE 10 
  
       @ 360, 300 BUTTON Btn4 ; 
          CAPTION "Get Radio Group Value" ; 
          WIDTH 160 ; 
          ACTION MsgInfo ( Form_Main.Radio_1.VALUE, 'Radio Group' ) SIZE 10 
  
       ON KEY ESCAPE ACTION ThisWindow.RELEASE 
  
    END WINDOW 
  
    CENTER WINDOW Form_Main 
  
    ACTIVATE WINDOW Form_Main 
  
 RETURN NIL