FiveTech Software tech support forums

... := SelectObject( hDCMem, hBitmap ) local hBmp, hDib now you paint your bitmaps on hDCMem this way: hBmp = ReadBitmap( 0, "name.bmp" ) PalBmpDraw( hDCMem, nRow, nCol, hBmp ) Finally you save it and clean: DibWrite( cFileName, DibFromBitmap( hBitmap ) ) SelectObject( hDCMem, hPrev ) ...

... NOBORDER OF oWnd ; ON CLICK( oBmp:lStretch := ! oBmp:lStretch, oBmp:Refresh( .t. ) ) ACTIVATE WINDOW oWnd MAXIMIZED ; ON PAINT PalBmpDraw( hDC, 150, 250, oBmp:hBitmap ) Pero cuando se trata de poner botones, encima del logo por ejemplo, ¿cómo se haría? Gracias

... // add the lines ::osettingbmp:=TBitmap():Define( "config",,::oWnd) ::osettingbmp:ltransparent:=.t. 3. METHOD Paint() CLASS TXBrowse ... PalBmpDraw( ::hDC, (::nHeaderHeight - 3-if(::lgetbar,::nrowheight*2,0))*0.2, RECORDSELECTOR_WIDTH*0.2,; ::osettingbmp:hBitmap,; ::osettingbmp:hPalette,; ...

... oGRid is a xbrowse allready open Local hBmp,hBlur oApp:oGrid:GetDC() hBmp := MakeBkBmp( oApp:oGrid:hWnd, oApp:oGrid:hDC ) hBlur := Blur( hBmp, 3 ) PalBmpDraw( oApp:oGrid:hDC, 0, 0, hBlur ) DEFINE DIALOG oDlg DEFINE DIALOG oDlg DeleteObject( hBmp ) DeleteObject( hBlur ) oApp:oGrid:ReleaseDC()

... .. Here is my current code .. Any suggestions to replace this code to use a ( much smaller ) .Jpg vs a Bitmap in a Mdi environment that uses the PalBmpDraw() function .. local oBmp,oBMAP,nScr1,nScr2nSCR1 := GetSysMetrics(0)nSCR2 := GetSysMetrics(1)DEFINE BITMAP oBMP  FILENAME ...

... and now the logo has disappeared ACTIVATE WINDOW oWnd ; VALID MsgNoYes( "Do you want to Exit " + PA[04] + "?" ) ; ON PAINT ( PalBmpDraw( hDC, (oWnd:nHeight/2-oBmp:nHeight/2)-50,(oWnd:nWidth/2-oBmp:nWidth/2), oBmp:hBitmap, oBmp:hPalette ) ); ON INIT ShowLogo( @oBmp, oWnd ) ...

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

... ) DEFINE BITMAP oBmp FILE cBmp DEFINE DIALOG oWnd TITLE cTitulo ; SIZE oBmp:nWidth(), oBmp:nHeight PIXEL ACTIVATE DIALOG oWnd CENTERED ; ON PAINT PalBmpDraw( hDC, 300, 300, oBmp:hBitmap ) * ON PAINT PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) oBmp:End() else MsgAlert( "..Archivo Inexistente !" ...

I insert on a folder a image oImagen = TImage():Define(,"scaf.bmp" ) ... oGrid:adialogs[1]:bPainted := {|hDC| (PalBmpDraw( hDC, 0, 0, oImagen:hBitmap,, oGrid:adialogs[1]:nWidth, oGrid:adialogs[1]:nHeight,, .T.) ) } and on this folder many btnbmp buttons with png file @ nrow,ncol ...

... I have a png where you can see a room as the picture I sent you and the reels must be on center ( see the e-mail) I use oWnd:bPainted := {|hDC| PalBmpDraw( hDC, 0, 0, oBackground:hBitmap,, oWnd:nWidth, oWnd:nHeight,, .T.) } then I must make a configuration for the touch monitor I found local ...

... .t. )], [lStretch/nResizeMode], [nAlpha/lAlpha],[lGray] ) paints the image using the appropriate painting function eg. ABPaint(), TransBmp(),PalBmpDraw() For the sample you sent me, I suggest using FWH methods like this: function magicbmp()   local oDlg, aBmp   local ...

The result of ResizeImg() is slightly different in width and height if compared with ResizeBmp() and PalBmpDraw().

EMG

... oBmpRect:nWidth, oBmpRect:nWidth )         endif      else         PalBmpDraw( ::hDC, oBmpRect:nTop, oBmpRect:nLeft, hBmp, hPal, oBmpRect:nWidth, oBmpRect:nHeight, ;              ...

... hDC, nWidth, nHeight ) LOCAL hBmpOld := SELECTOBJECT( hMemDC, hMemBmp ) LOCAL hBitmap := oImg:hBitmap LOCAL hPalette := oImg:hPalette PALBMPDRAW( hMemDC, 0, 0, hBitmap, hPalette, nWidth, nHeight ) DO_LINES( hMemDC, hPen, nPensize, nPenColor ) SELECTOBJECT( hMemDC, hBmpOld ) DELETEDC( ...

... Tengo una imagen de 1920x xxx y deseo centrarla siempre en cualquier odenador sin importar su resolucion de pantalla. Alguna sugerencia? Con PalBmpDraw( hDC, ,, oImage:hBitmap, , , , , .T. ) la coloco en la pantalla SOLUCION local nMaxAlto := GetSysMetrics(1) local nMaxAncho := GetSysMetrics(0) ...