FiveTech Software tech support forums

... FUNCTION ABmpTiled( hDC, oWnd, oBmp ) local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() local nCol := (nWidth-nBmpWidth)-20, nRow := (nHeight-nBmpHeight)-90 IF oBmp:hBitMap == 0 RETURN nil ENDIF PalBmpDraw( ...

Hello

http://wiki.fivetechsoft.com/doku.php?id=fivewin_function_nbmpheight

http://wiki.fivetechsoft.com/doku.php?id=fivewin_function_nbmpwidth

... above Panel-top and minus 1/3 of BMP-width from left. ... ::aPanels[ n ]:nLeft - ( nBmpWidth( hBmpPanel ) / 3 ),; ::aPanels[ n ]:nTop - ( nBmpHeight( hBmpPanel ) / 3 ),; ... ... to change this like using + 100, will move the BMP 100 Pixel from left to right as well You have to change the ...

... hDC, oWnd, oBmp ) local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() if oBmp:hBitmap == 0 return nil endif while nRow < nHeight nCol = 0 while nCol < nWidth PalBmpDraw( hDC, nRow, nCol, ...

... ) .and. !::lCollapsed ::hWaterImage := ::LoadImage( ::cWaterImage ) if ::hWaterImage != 0 nWidth = nBmpWidth( ::hWaterImage ) nHeight = nBmpHeight( ::hWaterImage ) nTop := ::nHeight - nHeight-1 nLeft := ::nWidth - nWidth-10 nBottom := nTop + nHeight nRight := nLeft + nWidth nAlphaLevel ...

... la imagen y no como lo haces actualmente, que es cambiar el tamaño de la imagen al tamaño del control oImage:SetSize( nBmpWidth( oImage:hBitmap ), nBmpHeight( oImage:hBitmap ), .T. ) si no trabaja como esperas, alguna solucion te ayudaremos encontrar

... MsgLogo() MsgMeter() MsgNoYes() MsgPaint() MsgRetryCancel() MsgRun() MsgSound() MsgStop() MsgToolBar() MsgWait() MsgYesNo() nAnd() nArgC() nBmpHeight() nBmpWidth() nColorToN() nDbl2Flt() nDDEGetErrorString() NDdeShareSetInfo() nDlgBox() NextDlgTabItem() nExtMem() nFileCrc() nGetBackRgb() ...

... I check for the size and only adjust it necessary? The functions to get the sizes of bitmaps are: nBmpWidth( oBmp:hBitmap ) // bitmap's width nBmpHeight( oBmp:hBitmap ) // bitmap's height I was trying with a function that may do the job (not fully tested) Function AdjustBmp( oBmp )  ...

Hello Tim, have a look at the Alpa-Function above : DEFINE BITMAP oBmp1 FILENAME "Logo.bmp" nBMPWidth := oBmp1:nWidth nBMPHeight := oBmp1:nHeight // Centered Logo // ---------------- ABPaint( hDC, ( oWnd:nWidth() / 2 ) - ( nBMPWidth / 2 ), ; ( oWnd:nHeight() / 2 ) - (nBMPHeight ...

... oBmp, oWnd ) //BmpTiled( local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() if oBmp:hBitmap == 0 return nil endif while nRow < nHeight nCol = 0 while nCol < nWidth PalBmpDraw( hDC, nRow, nCol, ...

... oBmp, oWnd ) //BmpTiled( local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() if oBmp:hBitmap == 0 return nil endif while nRow < nHeight nCol = 0 while nCol < nWidth PalBmpDraw( hDC, nRow, nCol, ...

... CreateCompatibleDC( ::hDC ) hOldBmp = SelectObject( hDCMem, hBmp ) StretchBlt( ::hDC, 0, 0, ::nWidth, ::nHeight, hDCMem, 0, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), SRCCOPY ) SelectObject( hDCMem, hOldBmp ) DeleteDC( hDCMem ) */ ::Say( ::nHeight / 4 - 2,; If( ::lCentered, ( ::nWidth / 2 ) - ( ...

dbarrio,

hBmp:=ReadBitmap(0, "C:\bitmap.bmp")
nHig=nBmpHeight(hBmp)
nWid=nBmpWidth(hBmp)
oWord:AddImagen( 1, 1, 1+nCol, 1+nHig, nWid, "C:\bitmap.bmp", {1,1,1,1,1,1})

Saludos, Euclides

... Simply replace hBmpPal for hBitmap and it will be ok. Also notice that pBmpHeight() and pBmpWidth() no longer exist, and must replaced by nBmpHeight( hBitmap ) and nBmpWidth( hBitmap ) calls. -------------------------------------------------------------------------------- Everyone, At ...

Euclides wrote:Hi to all!
It there a way to get the bitmap sizes (width & height) read by ReadBitmap() function ?
TIA & Regards, Euclides

nBmpWidth( hBmp )
nBmpHeight( hBmp )

Source: \fwh\source\function\fwbmp.c