Estoy trabajando con el control Radio, y veo un comportamiento extraño en los controles que se agregan a un RadioMenu
Aqui te anexo el ejemplo :
Code: Select all
nRAD:= 1
DEFINE DIALOG oDlgRad FROM 0, 0 TO 220, 240 OF oWnd TITLE "RADIO" PIXEL
@ 1, 1 GROUP oGrp TO 120, 210 PROMPT "Radio!" PIXEL
*@ 180, 20 BUTTON oBtn OF oDlg PROMPT "Valor" SIZE 80, 30 ACTION MsgInfo( Str( nRAD ) ) PIXEL
ACTIVATE DIALOG oDlgRad ONINIT CW:RADIO(oGrp)
RETURN
*
FUNCTION RADIO()
PARAM oGrp
@ 1, 2 RADIO oRadMenu VAR nRAD ITEMS {"One","Two","Three"} SIZE 80, 15 OF oGrp
@ 130, 150 RADIOITEM oRitem3 PROMPT "Six" MENU oRadMenu SIZE 40, 15 OF oDlgRad PIXEL COLORS nRGB(0,0,0),nRGB(0,255,255)
@ 130, 70 RADIOITEM oRitem1 PROMPT "Four" MENU oRadMenu SIZE 5, 15 OF oDlgRad PIXEL COLORS nRGB(0,0,0),nRGB(255,0,255)
@ 130, 2 RADIOITEM oRitem2 PROMPT "Five" MENU oRadMenu SIZE 40, 15 OF oDlgRad PIXEL COLORS nRGB(0,0,0),nRGB(0,255,0)
@ 145, 40 RADIOITEM oRitem4 PROMPT "Four" MENU oRadMenu SIZE 5, 15 OF oDlgRad PIXEL COLORS nRGB(0,0,0),nRGB(255,0,255)
@ 160, 65 RADIOITEM oRitem5 PROMPT "Four" MENU oRadMenu SIZE 5, 15 OF oDlgRad PIXEL COLORS nRGB(0,0,0),nRGB(255,0,255)
oRitem5:SetText( lTrim( Str( oRitem5:nLeft-4 ) ) +","+lTrim( Str( oRitem5:nRight-4 ) ) )
oRitem4:SetText( lTrim( Str( oRitem4:nLeft-4 ) ) +","+lTrim( Str( oRitem4:nRight-4 ) ) )
oRitem3:SetText( lTrim( Str( oRitem3:nLeft-4 ) ) +","+lTrim( Str( oRitem3:nRight-4 ) ) )
oRitem2:SetText( lTrim( Str( oRitem2:nLeft-4 ) ) +","+lTrim( Str( oRitem2:nRight-4 ) ) )
oRitem1:SetText( lTrim( Str( oRitem1:nLeft-4 ) ) +","+lTrim( Str( oRitem1:nRight-4 ) ) )
@ 180, 20 BUTTON oBtn PROMPT "Valor" OF oDlg SIZE 80, 30 ACTION MsgInfo( Str( nRad ) ) PIXEL
RETURN
Adjunto también una imagen de como se ve.
