FiveTech Software tech support forums

... HINSTANCE hInst = GetModuleHandle(0); WNDCLASSEX wcex; ZeroMemory(&wcex, sizeof wcex); wcex.cbSize = sizeof wcex; wcex.hbrBackground = (HBRUSH)(COLOR_3DFACE + 1); wcex.lpszMenuName = 0; wcex.style = CS_HREDRAW | CS_VREDRAW; wcex.lpfnWndProc = DefWindowProc; wcex.hInstance = hInst; wcex.hIcon ...

... hdcBack, hdcMem; POINT ptSize; COLORREF cColor; HBITMAP bmAndObject, bmAndBack, bmBackOld, bmObjectOld, bmAndTemp, bmTempOld, bmAndMem, bmMemOld; HBRUSH hBrush, hBrOld; ptSize.x = rct->right - rct->left + 1; ptSize.y = rct->bottom - rct->top + 1; hBrush = CreateSolidBrush(cBackgroundColor); ...

... colfinB,tgr ) // da TSBUTTON * Gradient( hDC, {0, 0, oDlgK:nHeight, oDlgK:nWidth }, rgb(250, 255, 255),colfinB ,.T. ) DeleteObject( oDlgK:oBrush:hBrush ) oDlgK:oBrush:hBitmap = hBmp oDlgK:oBrush:hBrush = CreatePatternBrush( hBmp ) SelectObject( hDC, hBmpOld ) oDlgK:ReleaseDC() * endif RETURN ...

... // ParentImage( ::hWnd, hDC ) // chidiak // DrawPBack( ::hWnd, hDC ) // chidiak remove this line endif endif return ::oBrush:hBrush I tried this test #include"fivewin.ch"FUNCTION TEST()   LOCAL oDlg,oFont,aGet[14],oFld   Local ...

... kreski Local oBRUSH // tlo cienia // cienie //DEFINE BRUSH oBrush COLOR GET_LAB_KOL(60) //FillRect( oPrn:hDcOut, { 100,100,200,200 }, oBrush:hBrush ) DEFINE PEN oPen WIDTH 3 // kreski poziome xWERT :=6 xSTART:=oPRN:Cmtr2Pix(xWERT,xLEFT2) xSTOP :=oPRN:Cmtr2Pix(xWERT,xRIGHT2) oPRN:Line(xSTART[1],xSTART[2],xSTOP[1],xSTOP[2],oPEN) ...

... aRect[3]=0 for n = 1 to nSteps aRect[ 3 ] += 3 DEFINE BRUSH oBrush COLOR RGB( 0, 0, nBlue ) FillRect(hDC,aRect,oBrush:hBrush) RELEASE BRUSH oBrush aRect[ 1 ] += 3 nBlue -= 1 next IF oBmp<>NIL // pinta bmp PalBmpDraw(hDC,; (oVentPrinc:nHeight()/2)-(oBmp:nHeight()/2)-50, ...

... 3029: void functions may not return a value in function HB_FUN_POW Warning W8004 G:\policia\C5\C5LIB\Source\c5cnew.c 3398: 'hBrush' is assigned a value that is never used in function HorizontalGradient Warning W8004 G:\policia\C5\C5LIB\Source\c5cnew.c 3398: 'height' is assigned ...

... BrowseCallbackProc Warning W8081 c5cnew.c 3029: void functions may not return a value in function HB_FUN_POW Warning W8004 c5cnew.c 3398: 'hBrush' is assigned a value that is never used in function HorizontalGradient *** 5 errors in Compile *** the lib is created but then I cannot show ...

... aPoint[ 2 ] - 1, aPoint[ 1 ] + oWndBtn:nTop + 80 ) //+ WndMain():oBar:nHeight - 1 ) FillRect( hDC, GetClientRect( oWndBtn:hWnd ), oWndBtn:oBrush:hBrush ) RETURN NIL Best Regards Uwe :?:

... aFont[3]) Pero no se como utilizar el fillrect para pintar eso./ FillRect( :hdcout, LAS COORDENADAS NO SE COMO CALCULLARLAS, oBCGris:hBrush ) Utilizo ese FillRect cuando pinto los encabezados que son fijos, pero no se como ir haciendo para pintar " el dato" que va cambiando. ...

... Es una Barra Negra //MSGALERT("ES NEGRA") IF lHorz FillRect ( oDlg:GetDC (), { __nx, __ny, __nx + nAlto , ( __ny += nAncho ) }, oBrush:hBrush ) && las coordenadas ya estan en Pixeles ELSE FillRect ( oDlg:GetDC (), { __nx, __ny, ( __nx += nAncho ), __ny + nAlto } , oBrush:hBrush ...

... Es una Barra Negra //MSGALERT("ES NEGRA") IF lHorz FillRect ( oDlg:GetDC (), { __nx, __ny, __nx + nAlto , ( __ny += nAncho ) }, oBrush:hBrush ) && las coordenadas ya estan en Pixeles ELSE FillRect ( oDlg:GetDC (), { __nx, __ny, ( __nx += nAncho ), __ny + nAlto } , oBrush:hBrush ...

... && Es una Barra Negra MSGALERT("ES NEGRA") IF lHorz FillRect ( oDlg:GetDC (), { nx, ny, nx + nAlto , ( ny += nAncho ) }, oBrush:hBrush ) && las coordenadas ya estan en Pixeles ELSE FillRect ( oDlg:GetDC (), { nx, ny, ( nx += nAncho ), ny + nAlto } , oBrush:hBrush ) && ...

... example: CREATE BRUSH oBrush FILE cFile // nCount is 1 CREATE WINDOW oWnd BRUSH oBrush // nCount is 2 RELEASE BRUSH oBrush // nCount is 1 and so hBrush is not destroyed ACTIVATE WINDOW ownd // here nCount becomes zero and the hBrush is released return nil Even this code works well with the present ...

... be helpful for FWH-Users, to create nice VTitles. One Question : Is it possible, to add the Gradient-Direction in VTitle METHOD Paint ? Lines : hBrush = GradientBrush( ::hDC, aRect[ 1 ] + ::nYOffSetTitle, aRect[ 2 ] + ::nXOffSetTitle, aRect[ 4 ], aRect[ 3 ], ::aGrdBack ) // .T. or .F. and : ...