FiveTech Software tech support forums

... WINDOW oWnd TITLE cTitle ; COLORS CLR_BLACK, CLR_NBLUE ; MENU BuildMenu() MENUINFO 8 ; ICON oIco MDI ACTIVATE WINDOW oWnd MAXIMIZED ; ON PAINT DrawBitmap( hDC, oBmpTIT:hBitmap, 0, 0, oWnd:oWndClient:nWidth(), ; oWnd:oWndClient:nHeight() ) COMO LA PUEDO CAMBIAR EN TIEMPO DE EJECUCION ? GRACIAS

... DibRead() DibWidth() DibWrite() Ditbackgrd() DlgFindText() Dotsadjust() DPToLP() Draftmode() DragAcceptFiles() Dragfinish() DragqueryPoint() DrawBitmap() DrawfocusRect() DrawGrayed() Drawgrid() DrawIcon() DrawMasked() DrawMenuBar() DrawMsgItem() DrawText() DupRecord() Un abrazo, Carlos Gallego

... oDlg:getDC(), hEMF, oDlg:hWnd )rectangle( hDc, 0,0,60,80 )PlayEnhMetaFile( hDc, hEMF, oBmp:hWnd )DrawBitmap( oDlg:GetDC(), hBmp, 0, 0, 50, 75 )hDib := DibFromBitmap( hBmp )DibWrite( "file.bmp" , hDib )GloBalFree( ...

... ) el problema puede estar en que si haces un bitmap con un hDC "NULO" este se crea monocromatico despues de crear el bitmap puedes usar DrawBitmap o PalBmpDraw para probar que este bien

... and Alpha-Blended-BMP on Top // ---------------------------------------------------------- ACTIVATE WINDOW oWnd MAXIMIZED ; ON PAINT ( DRAWBITMAP( hdc, oBMP1:hbitmap, 0, 0,; nWidth, nHeight ), W_ALPHA( oWnd, hDC, "Ampel.bmp", 620, 120 ) ) RETURN NIL ----------------- FUNCTION ...

I tryed use DrawBitmap( hDc, gBmp, 0, 0 ) it´s Work, more make hidden in Text of Get. :cry: //-----------------------------------------------------------------------//function filldis( hDC, oGet)local gBmpif .not. oGet:lActive ...

I think it should work with JPEG but i'm not familiar with freeimage functions.

Try to load the jpeg image and then replace the drawbitmap with the correspondent function from freeimage lib.

Also you may try to use it as a brush.

Antonio

I think you need to paint the client area of the mdi and not the mdi window itself.

This works for me.

ON PAINT (drawbitmap( hdc, obmp:hbitmap, 0, 0,;
oWnd:owndclient:nWidth(), oWnd:owndclient:nHeight()))

Antonio

Lailton,

I am not quite sure about what you want to do, but you can try:

oMsgBar:bPainted = { | hDC | DrawBitmap( hDC, ... ) }

DrawBitmap( hDC, hBmp, 2, nLeft - 4 )

... 5 BITMAP oBmp FILENAME "Icon\ams.bmp" ADJUST SIZE 280, 200 OF oWnd ; //ON CLICK ( oBmp:lStretch := ! oBmp:lStretch, oBmp:Refresh(.t. ) ) oBmp := DrawBitmap( oWnd, "Icon\ams.bmp",5,5) Set message of oWnd to "Sales Commission Program Version 1.0" Keyboard Date activate window oWnd valid( MsgYesNo( ...

... TVS_HASBUTTONS 1 #define TVS_HASLINES 2 #define TIS_NORMAL 0 #define TIS_FIRST 1 #define TIS_LAST 2 #define TIS_PARENT 4 #define TIS_OPEN 8 void DrawBitmap( HDC, HBITMAP, int, int, int, int, LONG ); HARBOUR HB_FUN_TreeMeasur() // e( LPMEASUREITEMSTRUCT mi, nHeight ) { LPMEASUREITEMSTRUCT pMeasure ...

Silvio wrote:Antonio,
I not understand ...
with this func how now I can show an Hires transparent ?

Silvio,

You can use it instead DrawBitmap() function. But it displays only 32bit bitmaps with transparencies, not png files. Maybe maestro Antonio can optimize it for us

Regards,

Toninho.

Antonio,

Do it this way:

...
ON PAINT (drawbitmap( hDC, obmp:hbitmap, 0, 0,;
...

... all mdichilds can't be seen anymore they are hidden by the bitmap. How can I make it work ? ACTIVATE WINDOW oWnd MAXIMIZED VALID ; ON PAINT (drawbitmap( oWnd:owndclient:hdc, obmp:hbitmap, 0, 0,; oWnd:owndclient:nWidth(), oWnd:owndclient:nHeight())); ON DROPFILES DropArquiva(aFiles) ; ON RESIZE ...