FiveTech Software tech support forums

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

... siz:=GetWndRect(hDeskTop) hDC := CreateCompatibleDC( hDeskTop ) hBmp := CreateCompatibleBitMap( hDC, siz[4]-siz[2], siz[3]-siz[1]) hOldBmp:=SelectObject(hDc, hBmp) BitBlt(hDc, 0, 0, siz[4]-siz[2], siz[3]-siz[1], hDeskTop, 0, 0, 13369376) //SCRCOPY oImg:=GdiBmp():New() oImg:hBmp:=Gdip_FromHBitmap(hBmp,, ...

DrawLine( 0,300 )... function DrawLine( x, y ) Local hdc:= oDlgMain:GetDc() Local hPen := CreatePen( 0, 1, CLR_BLUE ) Local hOldPen := SelectObject( oDlgMain:hDc, hPen ) MoveTo( oDlgMain:hDC, x, y) LineTo( oDlgMain:hDC, x, y ) SelectObject( oDlgMain:hDc, hOldPen ) DeleteObject( hPen ) oDlgMain:ReleaseDc() ...