FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Color en un item de RADIO
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Color en un item de RADIO
Posted: Fri Apr 04, 2025 02:10 AM
Mis estimados, se puede poner color en las opciones de RADIO ?
* Opcion 1
* Opcion 2
* Opcion 3


https://uploadnow.io/f/2sMPsC7
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Color en un item de RADIO
Posted: Fri Apr 04, 2025 05:08 AM
Estimado Willi,

Solo funciona sin uso de temas :!:
#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oRadMenu, oBrush
   local nOption := 2

   DEFINE DIALOG oDlg RESOURCE "Radios"

   REDEFINE RADIO oRadMenu VAR nOption ID 110, 120, 130, 140, 150 OF oDlg ;
      ON CHANGE MsgBeep()

   REDEFINE BUTTON ID 100 OF oDlg ACTION oRadMenu:GoNext() ;
      WHEN nOption == 3

   REDEFINE BUTTON ID 102 OF oDlg ACTION oRadMenu:GoPrev()

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT oRadMenu:aItems[ 1 ]:SetColor( CLR_GREEN, RGB( 240, 240, 240 ) )

return nil

//----------------------------------------------------------------------------//
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Color en un item de RADIO
Posted: Fri Apr 04, 2025 10:54 AM

Gracias Antonio,

Funciona Perfecto...

GRacias

Continue the discussion