PROCEDURE OverrideAndExtend()
EXTEND CLASS TTaskPanel WITH DATA cBmpTransp
EXTEND CLASS TTaskPanel WITH METHOD WaterMark
RETURN
STATIC FUNCTION WaterMark()
LOCAL oIma
LOCAL Self:= qSelf()
LOCAL hDC:= GetDC()
DEFINE IMAGE oIma OF Self FILENAME ::cBmpTransp
PalBmpDraw( hDC, 550,50, oIma:hBitmap, , 100,100 )
oIma:END()
RETURN Nil
LOCAL oDlg, oTask
DEFINE DIALOG oDlg RESOURCE "Test"
REDEFINE TASKPANEL oTask ID 100 ANIMATE
oTask:cBmpTransp:= ".\windows.bmp"
oTask:WaterMark()
ACTIVATE DIALOG oDlg CENTERED On init ArmaTaskPnl(oTask)
Return nil
...
EXTEND CLASS TTaskPanel WITH DATA cBmpTransp
EXTEND CLASS TTaskPanel WITH DATA oBmpTransp
EXTEND CLASS TTaskPanel WITH METHOD MyEnd
...
STATIC FUNCTION WaterMark()
LOCAL Self := HB_QSelf()
LOCAL hDC := GetDC()
IF !empty( ::cBmpTransp )
DEFINE IMAGE ::oBmpTransp OF Self FILENAME ::cBmpTransp
IF hb_isObject( ::oBmpTransp ) .and. ::oBmpTransp:hBitmap <> 0
PalBmpDraw( hDC, 550, 050, ::oBmpTransp:hBitmap, , 100, 100 )
ENDIF
ENDIF
ReleaseDC( ::hWnd, hDC )
RETURN NIL
STATIC FUNCTION MyEnd()
LOCAL Self := HB_QSelf()
IF hb_isObject( ::oBmpTransp ) .and. ::oBmpTransp:hBitmap <> 0
::oBmpTransp:end()
ENDIF
::end()
RETURN NIL
ABPaint( hDC , ;
( ( oMainD:oWndClient:nWidth() - oBmpLogo:nWidth() ) )/2, ;
( ( oMainD:oWndClient:nHeight() - oBmpLogo:nHeight() ) )/2, ;
oBmpLogo:hBitmap, 0 )
PROCEDURE OverrideAndExtend()
EXTEND CLASS TTaskPanel WITH DATA cBmpTransp
EXTEND CLASS TTaskPanel WITH DATA oBmpTransp
EXTEND CLASS TTaskPanel WITH METHOD WaterMark
EXTEND CLASS TTaskPanel WITH METHOD MyEnd
OVERRIDE METHOD MouseMove IN CLASS TTaskPanel WITH MiMouseMove
RETURN
//-------------------------------------------------//
STATIC FUNCTION WaterMark()
LOCAL Self := HB_QSelf()
LOCAL hDC := ::GetDC()
IF !EMPTY( ::cBmpTransp )
DEFINE IMAGE ::oBmpTransp OF Self FILENAME ::cBmpTransp
IF hb_isObject( ::oBmpTransp ) .AND. ::oBmpTransp:hBitmap <> 0
ABPaint( hDC, 07, 470, ::oBmpTransp:hBitmap, 250 )
ENDIF
ENDIF
ReleaseDC( ::hWnd, hDC )
RETURN Nil
//-------------------------------------------------//
STATIC FUNCTION MyEnd()
LOCAL Self := HB_QSelf()
IF hb_isObject( ::oBmpTransp ) .AND. ::oBmpTransp:hBitmap <> 0
::oBmpTransp:END()
ENDIF
::END()
RETURN Nil
//-------------------------------------------------//
STATIC FUNCTION MiMouseMove( nRow, nCol, bKeyFlags )
# Define TME_LEAVE 2
LOCAL Self := HB_QSelf()
TrackMouseEvent( ::hWnd, TME_LEAVE )
RETURN Nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 32 guests