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 ?
Falconi 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 ?
Silvio,
You can change the position of any radio control this way:
oRadMenu:aItems[ n ]:nTop = ...
oRadMenu:aItems[ n ]:nLeft = ...
THANKSSSSSSSSSSS Antonio!!!!!!!!!!!!
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
//----------------------------------------------------------------------------//
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
Thank you, Antonio.
I copy and paste it from a forum tip of ???
without looking.
Regards,
Otto