FiveTech Software tech support forums

... C5_ISAPPTHEMED(), C5_ISTHEMEACTIVE(), C5_OPENTHEMEDATA(), COMPATBMP(), COMPATDC(), CREAFBOLD(), CREAFCAPT(), CREAFUNDER(), CREATECAPTIONFONT(), CREATECOMPATIBLEBITMAP(), CREATECOMPATIBLEDC(), CREATEFONTBOLD(), CREATEFONTUNDERLINE(), DRAWEDGE(), DRAWMASKEDCOLOR(), DRAWSTATE(), ENDPATH(), EQUALRECT(), ...

#define SRCCOPY 13369376 local 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 = ...

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

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

Yes, you are right! A complete picture to print is ok.
But to write to a printer-hDc (oPrint-class) the same transparent circles is not possible! Is always full color. Only some printers are able to print transparent output.
The png i make with CreateCompatibleBitMap( ) and write to a file.

... HDC ) hb_parnl( 1 ) ) ); // hb_retni( CreateCompatibleDC( hb_parnl( 1 ) ) ); } HB_FUNC( COMPATBMP ) // ( hDC, nWidth, nHeight ) { hb_retnl( (LONG) CreateCompatibleBitmap( (HDC) hb_parnl(1),hb_parni(2), hb_parni(3) ) ); } HB_FUNC( BITBLT ) // ( hdcDest, nXDest, nYDest, nWidth, nHeight,hdcSrc, nXSrc ...

hDeskTop:=GetWindowDc(FindWindow(...)) 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) ...

Same routines to make bitmaps with CreateCompatibleBitmap() use on other places in program without problems! if i use CreateCompatibleBitmap() only in black/white (the standard hdc) is ok! My opinion is that TImageList() or TTreeView() is the problem!
Tomorrow ill send a screenshoot!

Antonio,

¿para un bitmap monocromo, como indico el HDC original ?

Con CreateCompatibleBitmap sí tiene ese parámetro.

Joaquín, Prueba asi, teniendo seleccionado el bitmap original en hDC: HDC hDCMem = CreateCompatibleDC( hDC ); HBITMAP hBmp = CreateCompatibleBitmap( hDC, rc->right - rc->left, rc->bottom - rc->top ); HBITMAP hBmpOld = ( HBITMAP ) SelectObject( hDCMem, hBmp ); BitBlt( hDCMem, ...

Hello Antonio. Some errors went away. Now I have another one, from the same source. Type: C >>>xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:"c:\fwh\lib" -LIBPATH:"C:\xHB\lib" -LIBPATH:"C:\xHB\c_lib" -LIBPATH:"C:\...

thanks can I make a big bmp ? change this line ? HBITMAP hBitmap = CreateCompatibleBitmap(HDCMem, GetSystemMetrics(SM_CXICON), GetSystemMetrics(SM_CYICON)); Itried to make HBITMAP hBitmap = CreateCompatibleBitmap(HDCMem, 128, 128); the bitmap is large but ...

... ) { HICON hIcon = ( HICON ) hb_parnl( 1 ); HDC HDCMem = GetDC( GetDesktopWindow() ); HDC hDC = CreateCompatibleDC( HDCMem ); HBITMAP hBitmap = CreateCompatibleBitmap(HDCMem, GetSystemMetrics(SM_CXICON), GetSystemMetrics(SM_CYICON)); HBITMAP hOldBitmap = (HBITMAP)SelectObject(hDC, hBitmap); ...

... no me he dado cuenta. En algunas versiones de FWH CreateCompatibleDc() viene como CraeteCDC() y CreateCompBmp es invento mio porque no tengo el CreateCompatibleBitmap(), que a lo mejor si lo teneis, o no, en cuyo caso así se implementa en Borland C++: HB_FUNC( CREATECOMPBMP )    //  ...

... nPensize, nPenColor ) LOCAL nWidth := oImg:nWidth() LOCAL nHeight := oImg:nHeight() LOCAL hMemDC := CREATECOMPATIBLEDC( hDC ) LOCAL hMemBmp := CREATECOMPATIBLEBITMAP( hDC, nWidth, nHeight ) LOCAL hBmpOld := SELECTOBJECT( hMemDC, hMemBmp ) LOCAL hBitmap := oImg:hBitmap LOCAL hPalette := oImg:hPalette ...