FiveTech Software tech support forums

Ok, bColorBlock (actually bColor) is evaluated inside paint event. So this is the only option, it seems. I would like to avoid using paint event.

EMG

Si no se especifica lDisColors en false ni bColor, el color del panel disable lo genera con nClrP := GetSysColor( COLOR_WINDOW ) Yes, but I was referring to the fact that the background color of the readonly GETs is set inside the paint event, ...

... the readonly GETs? Is it an internal Windows behaviour that can be change only using paint event? EMG Si no se especifica lDisColors en false ni bColor, el color del panel disable lo genera con nClrP := GetSysColor( COLOR_WINDOW )

... 1 nCount ++ aResult[ ii ] [ 3 ] := NumColor2RGB( nNumColor * nCount ) ENDIF NEXT return aBColors FUNCTION FindDupe(aResult,oCol) LOCAL nPosi LOCAL bColor := {255,255,255} LOCAL nCellValue nCellValue := oCol:value nPosi := ASCAN( aResult, { | e | e[ 1 ] = nCellValue } ) IF nPosi > 0 IF aResult[ ...

... especificar un bloque de código en la cláusula COLOR en lugar de la constante de color. Si se especifica un bloque de código, se asigna a oGet: bColor. El bloque de código se evalúa en cada actualización con el objeto get como parámetro. El bloque de código debe devolver una matriz de dos colores, ...

... * TGet: - A codeblock can be specified in the COLOR clause instead of color constant. If a codeblock is specified, it is assigned to oGet:bColor. The codeblock is evaluated on every refresh with the get object as parameter. The codeblock should return an array of two colors, which will ...

... please apply this fix to tget.prg Pleae remove the following lines of code from methods New() and Redefine() ---- if ValType( nClrFore ) == 'B' ::bColor := nClrFore nClrFore := GetSysColor( COLOR_WINDOWTEXT ) endif ---- - If width and height are not specified, they are calculated automatically. ...

Anyway, the problem seems to be here in tget.prg, method Default():   if ::bColor != nil      tmp   := Eval( ::bColor, Self )      ::SetColor( tmp[ 1 ], tmp[ 2 ] )   endif If I'm not ...

... shows how to use pcode DLLs from our EXEs. * samples\TransFree.prg Other sample use function FW_TransLang from dialog * TGET: New DATA bColor If specified, bColor will be evaluated with oGet as parameter. The codeblock should return an array { nTextColor, nBackColor } TGet uses these ...

... // xBROWSE Function XBRW_DB(nDBF,aDB,nFUN,nDES,nSRC,nSTA,nFIL,nBUT,oUSR,nSCH,nICO,bSALDO,nTAG,bCOLOR,bPOP,oFONT,bGO,nUFLT,bUKEY) Local oWIN,oICO,oXDBF,oBAR,oPOPEXP Local oBRW,nUSR:=0 Local oINS,oMOD,oCAN,oVIS,oANT,oSTA,oSRC,oFLT,oEXP Local nUNO:=StrTran(IIF(AT("/",nDES)>0,Left(nDES,Len(nDES)-2),nDES) ...

... que es potente, muy muy potente. La magia NO EXISTE. Muchas methods, DATA, etc... no están implementadas, por lo tanto, código del tipo oBrowse:bColor := {|o| iif( o:MiData, Esto, lo otro ) } te va a explotar en las manos. La impresión, oh! la impresión ;-) Creo que la gente de GTK, olvidó el ...

... := .f. obRW2:lDrawHeaders:= .t. obRW2:lNoChangeOrd:= .t. obRW2:lFooting := .t. obRW2:lNoMoveCols := .t. obRW2:lNoHScroll := .t. obRW2:nFreeze := 2 bColor := {|| If(oBrw2:nLogicPos() % 2 = 0,CLR_LGRAY,CLR_LGREEN) } obRW2:SetColor( { 1, 3, 4, 5, 6, 9, 10, 13, 15, 11, 12, 14 }, ; { CLR_BLACK,; CLR_BLACK,; ...

... := .t. obRW2:lDrawHeaders:= .t. obRW2:lNoChangeOrd:= .t. obRW2:lFooting := .f. obRW2:lNoMoveCols := .f. obRW2:lNoHScroll := .t. obRW2:nFreeze := 4 bColor := {|| If(oBrw2:nLogicPos() % 2 = 0,CLR_LGRAY,CLR_LGREEN) } obRW2:bKeyDown := {|nKey| if(nKey==VK_INSERT,fwhtradicmanut(.t.,oBrw2),; if(nKey==VK_RETURN,fwhtradicmanut(.f.,oBrw2),; ...

... icon1 DEFINE ICON ICON1 name "cliente" define window oWnd2 title "Fichero de Clientes" MDICHILD ICON ICON1 of oWnd color 25,bcolor ... en otra función local icon1 DEFINE ICON ICON1 name "factura" define window oWnd2 title "Facturas" MDICHILD ICON ICON1 ...

... ? ADD COLUMN TO BROWSE oLbx DATA ARRAY ELEMENT 1; TITLE "Col 1" ; SIZE 120 EDITABLE check; // this column is editable COLORS CLR_BLACK, bColor; // background color from a Code Block 3DLOOK TRUE, TRUE, TRUE; // cells, titles, footers MOVE DT_MOVE_NEXT; // cursor goes to next editable ...