FiveTech Software tech support forums

... static oWnd //----------------------------------------------------------------------------// function Main() local nValue := 3, oRad SET _3DLOOK ON SET HELPFILE TO "Test.hlp" DEFINE DIALOG oWnd ; TITLE "Testing a Radio Buttons Menu" COLOR "N/W" @ ...

... description: Error BASE/1002 No existe el alias: Cliente1 // Asi sí me funciona ACTIVATE DIALOG oDlg CENTER ON INIT (lNew:=.f.,oDlg:aEvalWhen(),oRad:SetOption(2),CliAlta(dCli,lAlt,oBrw), ; IIF((dCli)->(EOF()),EVAL(bCliVer),(oFol:SetOption(1),oFol:aEnable:={.t.,.f.,.f.,.f.,.f.},oBrw:SetFocus()))) ...

... SAY oSay3 ID 110 PROMPT cTEXTFONT1 OF oFld:aDialogs[1] FONT oTextFont PIXEL oSay3:SetColor( nTColor2, ) oSay3:lTransparent := .T. REDEFINE RADIO oRadio3 VAR nRadio3 OF oFld:aDialogs[1] ID 120, 121 ; ON CHANGE MsgBeep() ; COLOR nTColor2 oRadio3:SetFont( oTextFont ) AEval( oRadio3:aItems, { | oRad ...

... el usuario // Ralph //----------------------------------------------------------------------------// METHOD PrintSetup() CLASS TDosPrn local oDlg, oRad, oChk, oSay := array(3) local nModo := 1 local nLinP := ::nLength, lPreview := .f. local nTipo, oP := self local oBtnOk, oBtnCn, oBtnSetup, oBtnAtrib, ...

oRad:aItems[5]:Disable()

Hi,
is there a way to disable just an element of a radio button ?

Just to be clear, I have
REDEFINE RADIO oRad VAR numero ;
ID 102, 103, 104, 105 OF oDlg2

and I want to disable just the 105 element of the radio.

Thanks in advance

... xHarbour ) Without TRANSPARENT it is OK, but I need it for Folder-Display ( Tab-Area ). Static Function fResources() Local oDlg, oIco, oFont, oRad[ 3 ], nItem[ 3 ], oBrush, ; aItems := { "&First", "&Second", "&Third", "F&ourth" } DEFINE ...

... oBmp[ 6 ] FILENAME c_path + "\System\Key2.bmp" DEFINE BITMAP oBmp[ 8 ] FILENAME c_path + "\System\Key4.bmp" @200, 100 SRADIO oRad[ 12 ] VAR lActive OF oWnd7 ; ITEMS "Enable/Disable all Radio Boxes" SIZE 70, 30 PIXEL ; FONT oFont BITMAPS oBmp[ 5 ], oBmp[ 6 ],, oBmp[ ...

... is a missing background of the added Item. http://www.pflegeplus.com/pictures/testrad1.jpg function Main() local nValue := 3, oRad SET _3DLOOK ON SET HELPFILE TO "Test.hlp" DEFINE DIALOG oWnd PIXEL ; TITLE "Testing a Radio Buttons Menu" COLOR "N/W" ...

... oMae:Skipper( nRecs ) } oLbx:nLineStyle := 3 oLbx:lAdjlastcol:= .F. oLbx:nClrBackFocus := CLR_CYAN oLbx:nClrForeFocus := CLR_WHITE REDEFINE RADIO oRad VAR nOrden ID 108, 107, 112 OF oDlg; ON CHANGE Orden(nOrden,oLbx,oMae,oMemos,oDomcli,oClitrans) // Al detectar un cambio se ejecutar  la funci¢n ...

... ACTION( MsgInfo( "Say Button" ) ) font oFontDATE But I see often the text small and for the radmenu any solution? i TRY WITH AEval( oRadMenu:aItems, { | oRad | oRad:lTransparent := .T. } ) BUT NOT RUN

... METHOD PrintPage() CLASS TPreview local hOldRes := GetResources() local hMeta := ::oMeta1:hMeta local oDlg, oRad, oPageIni, oPageFin local nOption := 1, nFirst := 1, nLast := Len( ::oDevice:aMeta ) // DEVICE local oThis := Self if nLast == 1 ::PrintPrv( nil, ...

... DefImage( Bmp ) Return TImage():Define( , Bmp ) static function MenuRadio( cMsg, aOpc, cTit, nValue ) ************************************* local oRad, oWnd2, oBot1, aLista := Array( 3 ) local lValor := .f., n := 0 DEFAULT cMsg := 'Valores: ' DEFAULT aOpc := { 'Si', 'No', 'Ignorar' } DEFAULT cTit ...

... static function PrintPage() local hOldRes := GetResources() local hMeta := oMeta1:hMeta local oDlg, oRad, oPageIni, oPageFin local nOption := 1 ,; nFirst := 1 ,; nLast := len(DEVICE:aMeta) if nLast == 1 PrintPrv(nil, nOption, nFirst, nLast) RETU nil ...

... corrected the Radio- and Checkbox-Lines in the sample above. Font defines also included now ( Radio is different to Checkbox ) : oRADIO:SetFont( oRadioFont ) oCheck:oFont := oRadioFont I still have to look for the Font-Color-defines on Gradient, to make the sample complete. Before I didn't use ...