FiveTech Software tech support forums

... I draw a red circle but the border is allways black...why ? hBrush := CreateSolidBrush(RGB(255, 28, 36)) SelectObject(hDC, hBrush) FW_Box( hDC, { nX, nY, nX + nSize, nY + nSize }, hBrush, hBrush, , 2 ) I tried also with FW_Box( hDC, { nX, nY, nX + nSize, ...

... ) ; ^ ..\SOURCE\FUNCTION\BPAINT.C:95:15: error: assigning to 'HFONT' (aka 'HFONT__ *') from incompatible type 'HGDIOBJ' (aka 'void *') hOldFont = SelectObject( hDC, hFont ) ; ^~~~~~~~~~~~~~~~~~~~~~~~~~ ..\SOURCE\FUNCTION\BPAINT.C:124:15: error: assigning to 'HBRUSH' (aka 'HBRUSH__ *') from incompatible ...

... ::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 [2][1],aPoints [2][2] }, hBru ...

... 1 ) MoveTo( hDC, nWidth - ::nWide_P - 1 + If( ::lPressed, 1, 0 ), 1 ) LineTo( hDC, nWidth - ::nWide_P - 1 + If( ::lPressed, 1, 0 ), nHeight - 1 ) SelectObject( hDC, hDarkPen ) //MoveTo( hDC, nWidth - 13 + If( ::lPressed, 1, 0 ), 1 ) //LineTo( hDC, nWidth - 13 + If( ::lPressed, 1, 0 ), nHeight ...

... 1 ) MoveTo( hDC, nWidth - ::nWide_P - 1 + If( ::lPressed, 1, 0 ), 1 ) LineTo( hDC, nWidth - ::nWide_P - 1 + If( ::lPressed, 1, 0 ), nHeight - 1 ) SelectObject( hDC, hDarkPen ) //MoveTo( hDC, nWidth - 13 + If( ::lPressed, 1, 0 ), 1 ) //LineTo( hDC, nWidth - 13 + If( ::lPressed, 1, 0 ), nHeight ...

... hDC := oDlg:GetDC() local hDCMem := CreateComtatibleDC( hDC ) local hBitmap := CreateCompatibleBitmap( hDCMem, nWidth, nHeigth ) local hPrev := SelectObject( hDCMem, hBitmap ) local hBmp, hDib now you paint your bitmaps on hDCMem this way: hBmp = ReadBitmap( 0, "name.bmp" ) PalBmpDraw( ...

... ) LOCAL hDC := CreateCompatibleDC( oBmp:GetDC() ) LOCAL hBmp := ReadBitmap( 0, "Picker.bmp" ) // the basic gradient bmp LOCAL hOldBmp := SelectObject( hDC, hBmp ) LOCAL nRGBColor := GetPixel( hDC, nCol, nRow ) SelectObject( hDC, hOldBmp ) DeleteObject( hBmp ) DeleteDC( hDC ) oBmp:ReleaseDC() ...

Jose Vicente, realmente lo que haces con ese comando es llamar a la function SelectObject( hDC, oFont:hFont ), para seleccionar el font definido cuando creas el font. Particularmente no he tenido necesidad de usarlo referido a un font definido por mi, pero si ...

... CreateSolidBrush( 0 ) local hBack := CreateSolidBrush( CLR_WHITE ) ::hCodeBar = CreateCompatibleBitMap( hDCDesk, ::nWidth, ::nHeight ) hBmpOld = SelectObject( hDCMem, ::hCodeBar ) ::hData := Eval( ::aTypes[ ::nType ][ CODEBAR_BLOCK ] ) ::DefError() FillRect( hDCMem, { 0, 0, ::nHeight, ::nWidth ...

... = _parni( 7 ) ; int nHeightSuper = _parni( 8 ) ; HDC hDC = GetDC( hWnd ) ; HFONT hOldFont ; int wMaxRight ; RECT rct ; if( hFont ) hOldFont = SelectObject( hDC, hFont ) ; GetWindowRect( hWnd, &rct ) ; wMaxRight = rct.right; rct.top += ( nHeightHead + nHeightSuper ) + ( wHeight * (wRow ...

... METHOD DrawEllipse( hDC, nRGBColor, n ) CLASS TRBtn local hOldBrush := SelectObject( hDC, GetStockObject( NULL_BRUSH ) ) local hPen := CreatePen( hDC, 1, nRGBColor ) DEFAULT n := -1 Ellipse( hDC, n, n, ::nWidth - 1 , ::nHeight ...

... ,2, 20, 34, 62,CLR_WHITE, CLR_RED )} FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color,color2 ) LOCAL hFontOld:= SelectObject( hDC, hFont ) LOCAL nBkOld := SetBkMode( hDC, nBkMode ) SetTextColor( hDC, color ) setBkColor( hDC, color2 ) DrawText( hDC, cText, { nTop, ...

... + " " ,2, 30, 34, 62, CLR_WHITE )} FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color ) LOCAL hFontOld:= SelectObject( hDC, hFont ) LOCAL nBkOld := SetBkMode( hDC, nBkMode ) SetTextColor( hDC, color ) DrawText( hDC, cText, { nTop, nLeft, nTop+nWidth, nLeft+nHeight ...

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)...

Gracias Armando, gracias karinha, pero...

Quizá mi cuestión no está bien delimitada.
La cuestión sería ¿ Imprime oPrinter:CmSay() el brush que se tiene seleccionado con SelectObject() ?

A ver si así me he explicado mejor.

Saludos.