FiveTech Software tech support forums

... oDbf:Load(),; oBtn[1]:Disable(),oBtn[2]:Enable(),oBtn[3]:Enable(),; nTotOs:= oDbf:Acoso + oDbf:Accos1 + oDbf:Accos2 + oDbf:Accos3 + oDbf:Accos4 ,; oRad[1]:Disable(),oRad[2]:Disable(),oRad[3]:Disable(),oRad[4]:Disable(),oRad[5]:Disable(),; oRad[6]:Disable(),oRad[7]:Disable(), aCredito:={},oBrwTic:SetArray(aCredito) ...

... of all procedures for each user when I add a user the procedur load all records found into Moduli.dbf on a explorer I use a radioMenu @ 2,5 RADIO oRad VAR nMod ; ITEMS "Tutti","Hardware","Software","Manuali", "Prestiti","Magazzino","Utilità"; ...

Very cool this FolderEx. I only have one problem: - When I have "REDEFINE CHECKBOX oChk" or "REDEFINE RADIO oRad" inside a FolderEx and you need to give an oChk:Enable()/Disable() or oRad:Enable()/Disable() it messes up a good part of the other fields of the folderex. ...

... = 1, SetWindowPos( oDlgMain:hWnd, -1, 0, 0, 0, 0, 3 ), ; // On Top SetWindowPos( oDlgMain:hWnd, -2, 0, 0, 0, 0, 3 ) ) AEval( oOntop:aItems, { | oRad | oRad:lTransparent := .T., ; oRad:SetFont ( oFont1 ), ; oRad:nClrText := nDTxtColor } ) Just add to ON INIT of oDlgMain the following line all ...

Es posible asignar una fuente a un RADIO ?
@ 3.0, .2 RADIO oRad VAR nValue ;
ITEMS "&Enero", "&Febrero", "&Marzo" _3D SIZE 150, 10

necesito hacerlas mas grandes y al incluir FONT oFont1, sale un error al compilar

gracias

... como dice el Maestro Antonio Linares Modifica la clase rpreview METHOD PrintPage() CLASS TPreview local hMeta := ::oMeta1:hMeta local oDlg, oRad, oPageIni, oPageEnd local nOption := 1, nFirst := 1, nLast := Len( ::oDevice:aMeta ) // DEVICE local oThis := Self local lCancel := .t. if nLast ...

a working sample . REDEFINE RADIO oRadio1 VAR nRadio1 ID 170 , 171, 172 OF oFld:aDialogs[ 2 ] UPDATE AEval( oRadio1:aItems, { | oRad | oRad:lTransparent := .T., ; oRadio1:aItems[2]:Disable(), ; oRad:SetFont ( oFontText ), ; oRad:nClrText := ...

Silvio, I found a short and easy transparent solution that works from resources. @ 30, 20 RADIO oRadio1 VAR nValue1 ITEMS "&No" OF oFld:aDialogs[1] SIZE 30, 10 PIXEL ; ON CHANGE { || ; IIF( nValue1 = 1, oBmp1:LoadImage( "IMAGE1" ), NIL ), ; IIF( ...

... OF SuboDlg SIZE 200,40 FONT oFont TRANSPARENT @ 1.4,2 GET oGetNum VAR Porcien PICTURE "99.99" SPINNER OF SuboDlg SIZE 40,4 @ 4, 2 RADIO oRad VAR Tipo OF SuboDlg ; PROMPT cCalculate, cIncremental ,cDecremental SIZE 100,12 @ 5,8 BUTTON obtnok PROMPT "OK" OF SuboDlg ; FONT oFont ...

... .t. try it please !! I insert the insed and the thereis an error on SET ORDER TO TAG ROOMS_ID instead of SET ORDER TO TAG ROOMS_OD @ 10,230 RADIO oRad VAR nFilter ITEMS "Mostra tutte le camere", ; "Mostra solo le camere libere",; "Mostra solo le camere occupate" ; ...

... BUTTON ID 101 OF oDlg ; ACTION oThis:PrintPrv( oDlg, nOption, nFirst, nLast ) REDEFINE BUTTON ID 102 OF oDlg ACTION oDlg:End() REDEFINE RADIO oRad VAR nOption ID 103, 104, 105 OF oDlg ; ON CHANGE If( nOption==3 ,; ( oPageIni:Enable(), oPageFin:Enable() ),; ( oPageIni:Disable(), oPageFin:Disable() ...

... #INCLUDE "FIVEWIN.CH" FUNCTION MAIN() local oDlg, oGrp, oFont, oGroup, Brush local oCheck, lCheck := .T., oRadio, nOption := 1, oSay DEFINE FONT oFont NAME "Arial" SIZE 0, -16 DEFINE DIALOG oDlg TITLE "TRANSPARENT Grouptest" ; FROM 0,0 ...

Sorry Daniel why you joke with me ? on mine testrad2.prg I found on my folder and I have the same command @ 3, 2 RADIO oRad VAR nValue ; ITEMS "&One", "&Two", "T&hree" _3D SIZE 150, 25 ; HELPID 100, 101, 102 ; ON CHANGE MsgBeep() // adding ...

... i copied and pasted the code from testrad2.prg please see my post and the testrad2.prg code MY POST testrad (all item together) @ 3, 2 RADIO oRad VAR nValue ;       ITEMS "&One", "&Two", "T&hree" _3D SIZE 150, 25 ;       HELPID 100, 101, 102 ;     ...

Silvio I only saw the sample testrad2.prg : it was the same commnd of my test it's no same command testrad (all item together) @ 3, 2 RADIO oRad VAR nValue ;      ITEMS "&One", "&Two", "T&hree" _3D SIZE 150, 25 ;      HELPID 100, 101, 102 ;      ON ...