FiveTech Support Forums

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