FiveTech Software tech support forums

... Concha, desde aquí mí código <--- if n == nColuAct --> (si es orden natural o si es otro oBrw variable nColuAct debe venir en cero) hBrush = CreateSolidBrush( CLR_BRWHS ) FillRect( hDC, { nTop, nLeft, nBottom, nRight }, hBrush ) DeleteObject( hBrush ) SetBkColor( hDC, CLR_BRWHS ) if aJustify ...

... ::hDC, aPoints, aGrad) } or ::bPainted := { |hDC|FloodFill( ::hDC, aPoints [1][1], aPoints [5][1], nil, nColor ) } or local hBru := CreateSolidBrush( nColor ) local hOld := SelectObject( ::hDC, hBru ) local hpen:=CreatePen(0,8,nColor) FillRect( ::hDC, { aPoints [1][1],aPoints [1][2],aPoints ...

... Build() CLASS TCodeBars local hBmpOld local hDCDesk := GetDC( GetDesktopWindow() ) local hDCMem := CreateCompatibleDC( hDCDesk ) local hBrush := CreateSolidBrush( 0 ) local hBack := CreateSolidBrush( CLR_WHITE ) ::hCodeBar = CreateCompatibleBitMap( hDCDesk, ::nWidth, ::nHeight ) hBmpOld = SelectObject( ...

... hDC ) local hZebra local cCode := "20219719443 | 01 | F001 | 00045256 | 25/01/2018 | 18.00 | 118.00 | 6 | 10087302682 |" local hBrush := CreateSolidBrush( 0 ) hZebra := hb_zebra_create_qrcode( cCode, NIL ) hb_zebra_draw( hZebra, {| x, y, w, h | FillRect( hDC, { y, x, y + h, x + w }, hBrush ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

Exactly we must use a logic new data l2016 and insert before my lines hBrush2 = CreateSolidBrush( ::nClrPaneRB ) FillRect( hDCMem, aRect, hBrush2 ) IF ::l2016 GradientFill( hDCMem, aRect[ 1 ] - 2, aRect[ 2 ] - 3, aRect[ 3 ] + 1, aRect[ 4 ] + 5,; { { 1, ::nClrPaneRB,CLR_WHITE ...

Also Itried it and also I saw the black line perhaps can change ( for 2016) the type of Brush from blue to white something as hBrush2 = CreateSolidBrush( ::nClrPaneRB ) //*FillRect( hDCMem, aRect, hBrush2 ) GradientFill( hDCMem, aRect[ 1 ] - 2, aRect[ 2 ] - 3, aRect[ 3 ] + 1, aRect[ 4 ] + ...

Also Itried it and also I saw the black line perhaps can change ( for 2016) the type of Brush from blue to white something as hBrush2 = CreateSolidBrush( ::nClrPaneRB ) //*FillRect( hDCMem, aRect, hBrush2 ) GradientFill( hDCMem, aRect[ 1 ] - 2, aRect[ 2 ] - 3, aRect[ 3 ] + 1, aRect[ 4 ] + ...

Silvio, I have tried this: hBrush2 = CreateSolidBrush( ::nClrPaneRB ) aRect[ 3 ] -= 3 FillRect( hDCMem, aRect, hBrush2 ) aRect[ 3 ] += 3 but then the color of those bottom lines is black > because ::nClrPaneRB give the color to all ribbonbar ...

Antonio, I think we can change these lines ( METHOD Paint() CLASS TRibbonBar ) hBrush2 = CreateSolidBrush( ::nClrPaneRB ) FillRect( hDCMem, aRect, hBrush2 ) because ::nClrPaneRB give the color to all ribbonbar but the line is down the group must be the same color of ...

... // Se dibujan los dias. SelectObject( hDC, oFont:hFont) FOR A = 1 TO 42 // Se crea brocha para pintar el fondo del recuadro... hBrocha := CreateSolidBrush ( aClrDias[ A][ 2] ) // se carga la brocha, se guarda la brocha anterior y se pinta hBrochaAnterior := SelectObject (hDC, hBrocha) ...

... LOADIMAGE,LOADBITMAP,LOADBITMAPEX,OPENIMAGE,OPENBITMAP,CREATESOLIDBRUSH,CREATEHATCHBRUSH,CREATEFONT,LOADICON,WINDOW2BITMAP WVW_DLGSETICON,WVW_CREATEDIALOGDYNAMIC,WVW_CREATEFONT,WVW_SETPOPUPMENU,WVW_CREATEMENU,WVW_CREATEPOPUPMENU,WVW_GETMENU ...

... LOADIMAGE,LOADBITMAP,LOADBITMAPEX,OPENIMAGE,OPENBITMAP,CREATESOLIDBRUSH,CREATEHATCHBRUSH,CREATEFONT,LOADICON,WINDOW2BITMAP WVW_DLGSETICON,WVW_CREATEDIALOGDYNAMIC,WVW_CREATEFONT,WVW_SETPOPUPMENU,WVW_CREATEMENU,WVW_CREATEPOPUPMENU,WVW_GETMENU ...

... 0 6. in popmenu "&No Degrade", ; "&Degrade horiz.", ; "&Degrade vert.", ; 7. in Method _FillRect hBru := CreateSolidBrush( nColor ) hOld := SelectObject( ::hDC, hBru ) IF ::nDegrade > 0 IF ::nDegrade = 1 nMid:=(nRight-nLeft)/2 Gradient( ::hDC, { nTop, ...

... estas forzando al Folder a la pestaña 2 y luego eliminas la uno Linea 1358 LOCAL hBrush, hDlgBrush := ::aDialogs[ ::nOption ]:oBrush:hBrush//CreateSolidBrush( CLR_WHITE )// Lo más probable es que aquí ::nOption sea 2