Controles Radio

Controles Radio

Postby Vikthor » Thu Sep 28, 2006 1:58 am

Antonio :

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.
Image
Vikthor
User avatar
Vikthor
 
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 30 guests