FiveTech Software tech support forums

... creo perdite di risorse ? Esempio: function ShowBmp( oDlg ) local oBmp1,oDc oDc:=oWnd:oWndClient:GetDC() DEFINE BITMAP oBmp1 RESOURCE "IMAGE1" DrawBitmap( oDC, oBmp1:hBitmap, 0, 0, 0, 0, SRCPAINT ) oBmp1:End() DEFINE BITMAP oBmp1 RESOURCE "IMAGE2" DrawBitmap( oDC, oBmp1:hBitmap, 0, 0, 0, 0, ...

Salve, ho qualche problema a visualizzare una bitmap su una finestra MDI. Sbaglio forse qualcosa nell'utilizzare la funzione drawbitmap ? Grazie Marco ---- #include "FiveWin.ch" #define SRCPAINT 15597702 // 0xEE0086 #define SRCAND 8913094 static oWnd //----------------------------------------------------------------------------// ...

... HDC hDC, RECT * rct, HPEN hPUpLeft, HPEN hPBotRit ); void WindowInset( HDC hDC, RECT * pRect ); void WindowRaised( HDC hDC, RECT * pRect ); void DrawBitmap( HDC, HBITMAP, WORD, WORD, WORD, WORD, DWORD ); void DrawMasked( HDC, HBITMAP, WORD, WORD ); void DrawGrayed( HDC, HBITMAP, int, int ); void ...

... Si la Ventana tiene Barra de botones nHeight -= oWnd:oBar:nHeight ENDIF nHeight -= 40 // +- Altura de la barra de titulo y menu #IFDEF __HARBOUR__ DrawBitmap( hDC, oBmpFondo:hBitmap , 0, 0, nWidth, nHeight ) #ELSE IF At("2.1",FWVERSION) > 0 DrawBitmap( hDC, oBmpFondo:hBmpPal , 0, 0, nWidth, ...

... ; SIZE 074, 10 ; ACTION( WinExec( "Notepad.exe Error.Log" ) ) // Bloco de Notas SET FONT OF oDlg TO oFont ACTIVATE DIALOG oDlg CENTERED ; ON PAINT DrawBitmap( hDC, hLogo, 6, 6 ) DeleteObject( hLogo ) oFont:End() If lRet == Nil .Or. ( !LWRunning() .And. lRet ) DBCLOSEALL() SET RESOURCES TO ErrorLevel( ...

Gustavo,

En el módulo wbrwline.c del browse de Hernán se está llamando a DrawMasked(). Hay que cambiarlo para que llame a DrawBitmap() y modificar un poco los parámetros que se le pasan

... } * SetWindowLong( ::hWnd, GWL_EXSTYLE, nOr( GetWindowLong( ::hWnd, GWL_EXSTYLE ), WS_EX_TRANSPARENT ) ) RETURN lFocus METHOD Paint() CLASS TDIAG DrawBitmap( ::hDc, ::hFond, -::nDif, -::nDif ) IF ::bPainted # NIL EVAL(::bPainted,::hDc) ENDIF RETURN NIL * METHOD StartPaint() CLASS TDIAG IF ::lSomb ...

... } * SetWindowLong( ::hWnd, GWL_EXSTYLE, nOr( GetWindowLong( ::hWnd, GWL_EXSTYLE ), WS_EX_TRANSPARENT ) ) RETURN lFocus METHOD Paint() CLASS TDIAG DrawBitmap( ::hDc, ::hFond, -::nDif, -::nDif ) IF ::bPainted # NIL EVAL(::bPainted,::hDc) ENDIF RETURN NIL * METHOD StartPaint() CLASS TDIAG IF ::lSomb ...

... ) * ::nDif := IF(lAnd(GetWindowLong(::hWnd,GWL_STYLE),WS_BORDER),1,0) ::bStart := { || ::StartPaint() } RETURN lFocus METHOD Paint() CLASS TDIAG DrawBitmap( ::hDc, ::hFond, -::nDif, -::nDif ) IF ::bPainted # NIL EVAL(::bPainted,::hDc) ENDIF RETURN NIL * METHOD StartPaint() CLASS TDIAG ::GetDc() ...

Hola Rufer

Depende de como estas dibujando la imágen. Si estas poniendo un @ fila, columna BITMAP y lo que sea o si estas haciendo un DrawBitmap en el bPaint del dialogo.

Dime como estas haciendo y te cuento

Un saludo

... :-) I don't want to blame MS but I can't understand how they don't provide this functionality built-in as it was on 16 bits, same as there is no a DrawBitmap() for a GUI since the early days of Windows... I agree. The MS guy who designed the API layer did not make a good work for me. Thats why ...

... I don't want to blame MS but I can't understand how they don't provide this functionality built-in as it was on 16 bits, same as there is no a DrawBitmap() for a GUI since the early days of Windows... Thats why we were doing some research on mscomm32.ocx

... ; MENU BuildMenu() ; MENUINFO 2 ; MDI DEFINE BITMAP oBmp FILE "Imagen\Fondo.bmp" OF _oWnd bla....bla.. ACTIVATE WINDOW _oWnd MAXIMIZED ; ON PAINT DrawBitmap( hDC, oBmp:hBitmap, ; ( _oWnd:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ), ; ( _oWnd:nWidth() / 2 ) - ( oBmp:nWidth() / 2 ),0,0 ) El problema ...