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 Expand view
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
Le agrege colores para que se claramente que el ancho que pinta el control no es el mismo que se define.
Adjunto también una imagen de como se ve.
