FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour move a bitmaps
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
move a bitmaps
Posted: Wed Dec 09, 2009 11:28 AM
I must movre a bitmap into a window
Code (fw): Select all Collapse
 @ nRow, nCol BITMAP oSprite;
           FILE cBitmap;
           PIXEL NOBORDER  of oWnd

   nTipo:=nItem

   oSprite:lTransparent = .T.

  oSprite:Move(oSprite:nTop,;
                  oSprite:nLeft,;
                  oSprite:nWidth(),;
                  oSprite:nHeight())

     oSprite:lDrag  := .T.
     oSprite:bMoved := {|| oSprite:CoorsUpdate()      ,;
                           nBmpRow := oSprite:nTop  ,;
                           nBmpCol := oSprite:nLeft ;
                            }
              oSprite:cargo := {cBitmap,nTipo  }
              oSprite:bRClicked = { | nRow, nCol | Menu_azioni( oSprite, nRow, nCol ) }
              oSprite:SetFocus()



on this window I have a ribbonbar

1. How I can make to not move the bitmap over this ribbonbar ?
2. How I can to move this bitmap over the coor of the same window ?
Best Regards, Saludos



Falconi Silvio

Continue the discussion