RADIO CLASS

[Silvio]

I trying to inser two items radio in a line

but I not want use redefine (resources)
if you see testrad5.prg you can see the radio in two lines I want a radio control with two item in only a line : it is possible ?

[Antonio Linares]

Silvio,

You can change the position of any radio control this way:

oRadMenu:aItems[ n ]:nTop = ...
oRadMenu:aItems[ n ]:nLeft = ...

[Silvio]

THANKSSSSSSSSSSS Antonio!!!!!!!!!!!!

[Otto]

Hello Antonio,
I tried:
ON INIT (oRadMenu:aItems[ 1 ]:SetText( "Hello" ), oRadMenu:aItems[ 1 ]:nLeft = 25)
But the position of aItems[1] does not change.
How do I use nLeft?
Thanks in advance
Otto



// Radio Buttons management sample

#include "FiveWin.ch"

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

function Main()

local oDlg, oRadMenu, oBrush
local nOption := 2

SET _3DLOOK ON

DEFINE DIALOG oDlg RESOURCE "Radios"

REDEFINE RADIO oRadMenu VAR nOption ID 110, 120, 130, 140, 150 OF oDlg ;
ON CHANGE MsgInfo( "select" ) // Beep()

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 ]:SetText( "Hello" ), oRadMenu:aItems[ 1 ]:nLeft = 25)

SET _3DLOOK OFF

return nil

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

procedure AppSys // XBase++ requirement

return

[Antonio Linares]

Otto,

You are missing the ":" of the assigment:

ON INIT (oRadMenu:aItems[ 1 ]:SetText( "Hello" ), oRadMenu:aItems[ 1 ]:nLeft := 25)

[Otto]

Thank you, Antonio.
I copy and paste it from a forum tip of ??? without looking.

Regards,
Otto