FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour RADIO CLASS
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
RADIO CLASS
Posted: Sat Jan 13, 2007 12:09 AM

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 ?

Best Regards, Saludos



Falconi Silvio
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
RADIO CLASS
Posted: Sat Jan 13, 2007 08:07 AM

Silvio,

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

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
RADIO CLASS
Posted: Sat Jan 13, 2007 10:39 AM

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

Best Regards, Saludos



Falconi Silvio
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
RADIO CLASS
Posted: Thu Dec 06, 2007 03:28 PM

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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
RADIO CLASS
Posted: Thu Dec 06, 2007 05:23 PM
Otto,

You are missing the ":" of the assigment:

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

Antonio Linares
www.fivetechsoft.com
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
RADIO CLASS
Posted: Thu Dec 06, 2007 05:57 PM

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

Regards,
Otto

Continue the discussion