FiveTech Software tech support forums

... 24.03 el mismo codigo se pinta: &Acceso Siendo la misma sentencia con Resources: Redefine Group oGrp1 ID 130 of oDlg1 color RGB(128,0,0),oDlg1:nClrPane TRANSPARENT Y también con codigo: @ 6,6 GROUP TO 20,60 LABEL "&Acceso" of oDlg2 color nRGB(128,0,0),oDlg2:nClrPane TRANSPARENT ...

... WITH OBJECT oBrw :AddVar( "AAPPEND", nil ) :bClrStd := { || If( oBrw:aRow == oBrw:aAppend, { CLR_BLACK, CLR_YELLOW }, { CLR_BLACK, oBrw:nClrPane } ) } :bChange := { || If( oBrw:nArrayAt < oBrw:nLen, CheckAppendRow( oBrw ), nil ) } :bPastEof := { || If( oBrw:aAppend != nil .and. Empty( ...

... that does not look good commercially. Could you, just for the sake of testing uncomment ALL items that have to do with the looks ? like oLbx:nClrPane := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ; CLR_LGREEN, CLR_LGRAY ) } and all others. Just to see if you get more speed and ...

... bClrGrad ahora puede tener cualquier combinación de colores alfa y sólidos por lo que es posible tener fondos translúcidos. - SetColor( nTextClr, nClrPane, oBrush ): nClrPane ahora puede ser de color alfa o de color sólido. * BtnBmp: Estilo FLAT: El estilo plano se introdujo principalmente para ...

... can now have any combination of alpha and solid colors and thereby making it possible to have translucent backgrounds - SetColor( nTextClr, nClrPane, oBrush ): nClrPane can now be either alpha color or solid color * BtnBmp: FLAT Style: Flat style was introduce to mainly support solid colors. ...

... lAdjust, nSeparator, nOption, bPopUp, lStretch, ; cLayOut, bBmpAction, nBright, lAnimate, nSpeed, oFontDefault, ; lTransparent, aDialogs, lBorder, nClrPane, cVarName ) so ON PAINT TAB  -> bClrTabs ON PAINT TEXT -> bClrText

... <nBright>,; <.lAnimate.>, [<nSpeed>], <oFont>, <.lTransparent.>, [\{<cDlgsName>\}], ; <.lBorder.>, <nClrPane>, [<(oFolder)>] )      oTab_Left  := TFolderEx() :New( 40 + nBB, 1, ( nWidth / 2 ) - 05, nHeight - 180 - nBB, ...

... 100 ; id 215 OF ofld1:aDialogs[ 2 ] update oRApertur:bLClicked := { || (dbselectarea( "RApertur" ),oFld1:aDialogs[2]:update) } oRApertur:nClrPane := { || IIF( ( recno() ) % 2 == 0 , ; // Efecto "Pijama" RGB( 193, 221, 255 ), RGB( 221, 245, 255 ) ) } oRApertur:bKeyDown := { | ...

... TA_LEFT ) ExtTextOut( hDC, nTop, nLeft + 2, { nTop, nLeft, nBottom, nRight }, cValToChar( aValues[ n ] ) ) endif SetBkColor( hDC, If( ValType( nClrPane ) == "B", nClrPane := Eval( nClrPane ), nClrPane ) ) endif ----> Fin mi código <---- endif else do case case nLineStyle == ...

... con el control TSlider, de hecho me va irá muy bien. El caso es que en la cláusula ON INIT de un DIALOG quiero cambiar el color de fondo (DATA nClrPane), pero no hay manera. Después de dar nuevo valor a :nClrPane intento un Hide(), un Show(), un Display(), un ShowFocus( .T. ), nada que no cambia ...

... }, {CVARNAME, oSayActive}, {NID, 102}, {TWINDOW:NTOP, 864}, {TWINDOW:NLEFT, 10}, {NBOTTOM, 893}, {NRIGHT, 649.00}, {NSTYLE, 1342177280}, {NCLRPANE, 16777215}, {NCLRTEXT, 0}, {ACONTROLS, {}}, {OBRUSH, {{HBRUSH, 9437200}, {HBITMAP, 0}, {HBMPORGL, 0}, {NCOUNT, 6}, {NRGBCOLOR, 16777215}, {LSYSTEM, ...

... = { || oRS1Cli:MoveLast() } oBrow:bSkip = { | nSkip | Skipper( oRs1Cli, nSkip ) } oBrow:lcellstyle := .f. oBrow:nlinestyle := 2 oBrow:nclrpane := { || iif( ( oRS1Cli:AbsolutePosition / 2 ) - INT( oRS1Cli:AbsolutePosition / 2 ) > 0, RGB( 193, 221, 255 ), RGB( 221, 245, 255 ) ) } ...

... ; W_21AEU(oBrw,nItem,mMode,oDlg),oSay11:Refresh(),oSay21:Refresh(), ; oSay31:Refresh()),)))} oBrw:nClrText := {|| SelColor(1,nItem)} oBrw:nClrPane := {|| SelColor(2,nItem)} oBrw:nClrForeFocus := {|| SelColor(3,nItem)} On key press {Enter].. fuction called ..To edit columns...

Creo que hay un malentendido

Estamos hablando de un GET con claúsula ACTION que hace que se muestre un botón al lado derecho del GET

En tal caso sería:

REDEFINE GET oGet ID ... OF oDlg ACTION ( oGet:SetColor( nClrText, nClrPane, oBrush ), otras cosas que necesites hacer )

ACTIVATE DIALOG oDlg ON INIT ( oBtnGet:SetColor( nClrText, nClrPane, oBrush ), .T. )

nClrPane and oBrush are optional