FiveTech Software tech support forums

by **Ariel** » Sat Sep 14, 2013 8:35 am

Antonio,
entiendo, gracias por responder.
Salu2, Ariel.

by **Antonio Linares** » Sat Sep 14, 2013 8:52 am

Silvio,

I like your idea, thanks! :-)

I have modified it this way:

Code: Select all Expand view RUN: if ::oTimer != nil ::oTimer:Deactivate() ::oTimer:End() endif DEFINE TIMER ::oTimer INTERVAL ::nTimer ACTION ::Hide() OF Self ACTIVATE TIMER ::oTimer

Now we need to figure how a easy way to relate a tooltip with a control

by **Antonio Linares** » Sat Sep 14, 2013 11:21 am

Ok, I have cleaned the Class, reformatted it, removed the not needed code, and here you have it:

I have also added shadow support.

Code: Select all Expand view RUN: #include "fivewin.ch" #define CW_USEDEFAULT 32768 #define SRCCOPY 13369376 #define DT_TOP 0x00000000 #define DT_LEFT 0x00000000 #define DT_CENTER 0x00000001 #define DT_RIGHT 0x00000002 #define DT_VCENTER 0x00000004 #define DT_BOTTOM 0x00000008 #define DT_WORDBREAK 0x00000010 #define DT_SINGLELINE 0x00000020 #define DT_EXPANDTABS 0x00000040 #define DT_TABSTOP 0x00000080 #define DT_NOCLIP 0x00000100 #define DT_EXTERNALLEADING 0x00000200 #define DT_CALCRECT 0x00000400 #define DT_NOPREFIX 0x00000800 #define DT_INTERNAL 0x00001000 #define CS_DROPSHADOW 0x00020000 //----------------------------------------------------------------------------// CLASS TC5Tooltip FROM TWindow CLASSDATA lRegistered AS LOGICAL DATA lSplitHdr AS LOGICAL INIT .f. DATA lLeft AS LOGICAL INIT .f. DATA lLineHeader AS LOGICAL INIT .f. DATA lLineFoot AS LOGICAL INIT .F. DATA lBorder AS LOGICAL INIT .t. DATA lBtnClose AS LOGICAL INIT .f. DATA cHeader AS CHARACTER INIT "" DATA cBmpLeft AS CHARACTER INIT "" DATA cBody AS CHARACTER INIT "" DATA cBmpFoot AS CHARACTER INIT "" DATA cFoot AS CHARACTER INIT "" DATA lRightAlignBody AS LOGICAL INIT .F. DATA cLibHeader DATA cBmpHeader DATA cLibLeft DATA cLibFoot DATA cTumbNail AS CHARACTER INIT "" DATA cHeader2 AS CHARACTER INIT space(255) DATA nClrPane2 DATA nClrBorder AS NUMERIC INIT 0 DATA nClrSepara1 AS NUMERIC INIT RGB(157,188,219) DATA nClrSepara2 AS NUMERIC INIT CLR_WHITE DATA nClrTextHeader DATA nClrTextBody DATA nClrTextFoot DATA oFontHdr DATA oFontHdr2 DATA oFontBody DATA oFontPie DATA aHeader AS ARRAY INIT {0,0,0,0} DATA aHeader2 AS ARRAY INIT {0,0,0,0} DATA aBody AS ARRAY INIT {0,0,0,0} DATA aLeft AS ARRAY INIT {0,0,0,0} DATA aRight AS ARRAY INIT {0,0,0,0} DATA aFoot AS ARRAY INIT {0,0,0,0} DATA aBtnClose AS ARRAY INIT {0,0,0,0} DATA nWRadio DATA nHRadio DATA nGetColor DATA aOldPos, nOldRow, nOldCol DATA hRgn DATA nMResize DATA bBmpLeft DATA nFixWidth DATA nFixHeight DATA bOwnerDraw DATA oTimer, nTimer METHOD New( nTop, nLeft, nWidth, nHeight, oWnd, lDisenio, nClrPane, ; nClrPane2, nClrText, nWRadio, nHRadio ) CONSTRUCTOR METHOD Default () METHOD Destroy() INLINE ::oFontHdr :End(),; ::oFontHdr2:End(),; ::oFontBody:End(),; ::oFontPie :End(),; DeleteObject( ::hRgn ),; ::Super:Destroy() METHOD EndPaint() INLINE ::nPaintCount--,EndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil, 0 METHOD Display() INLINE ::BeginPaint(),::Paint(),::EndPaint(),0 METHOD Paint () METHOD PaintHdr ( hDC, rc ) METHOD PaintHdr2( hDC, rc ) METHOD PaintBody( hDC, rc ) METHOD PaintFoot( hDC, rc ) METHOD HandleEvent( nMsg, nWParam, nLParam ) METHOD ReSize( nSizeType, nWidth, nHeight ) METHOD lHeader() INLINE !empty( ::cHeader ) METHOD lFoot() INLINE !empty( ::cFoot ) METHOD GetSize() METHOD SetSize( nWidth, nHeight ) INLINE ::Super:SetSize( nWidth, nHeight, .t. ) ENDCLASS //----------------------------------------------------------------------------// METHOD New( nTop, nLeft, nWidth, nHeight, oWnd, lDisenio, nClrPane, nClrPane2,; nClrText, nWRadio, nHRadio ) CLASS TC5ToolTip DEFAULT nClrPane := CLR_WHITE DEFAULT nClrPane2 := nClrPane DEFAULT nClrText := 0 DEFAULT nWRadio := 2 DEFAULT nHRadio := 2 ::oWnd = oWnd ::nStyle = nOR( WS_POPUP, WS_VISIBLE ) ::nTop = nTop ::nLeft = nLeft ::nBottom = nTop + nHeight ::nRight = nLeft + nWidth ::nClrPane = nClrPane ::nClrPane2 = nClrPane2 ::nClrText = nClrText ::nClrBorder = RGB( 118,118,118 ) ::nWRadio = nWRadio ::nHRadio = nHRadio ::nTimer = 5000 DEFINE FONT ::oFontHdr NAME "Verdana" SIZE 0, -11 BOLD DEFINE FONT ::oFontHdr2 NAME "Verdana" SIZE 0, -11 DEFINE FONT ::oFontBody NAME "Segoe UI" SIZE 0, -11 DEFINE FONT ::oFontPie NAME "Verdana" SIZE 0, -11 BOLD ::Register( nOR( CS_VREDRAW, CS_HREDRAW, CS_DROPSHADOW ) ) //, 131072 ::Create() ::cTitle = "Undefined" ::hRgn = nil ::Default( .T. ) return Self //----------------------------------------------------------------------------// METHOD GetSize() CLASS TC5ToolTip local rc := 0 local aSize := { 0, 0 } local hBmp := 0 local hDC := 0 local hOldFont := 0 local n := 0 local nHBmp := 0 local nHText := 0 local nHeight := 0 local nLen := 0 local nW := 0 local nW2 := 0 local nWB := 0 local nWBmp := 0 local nWBodyTxt := 227 local nWF := 0 local nWH := 0 local nWidth := 0 if ::nFixWidth != nil .and. ::nFixHeight != nil return {::nFixWidth, ::nFixHeight} endif rc := GetClientRect(::hWnd) nWidth := nWBodyTxt // Header if ! Empty( ::cHeader ) nHeight += 31 nWH = GetTextWidth( 0, ::cHeader, ::oFontHdr:hFont ) + 16 endif // Left side image if ! Empty( ::cBmpLeft ) hBmp := LoadImageEx( ::cBmpLeft ) else if ::bBmpLeft != nil hBmp = Eval( ::bBmpLeft, self ) endif endif if hBmp != 0 nWBmp := BmpWidth ( hBmp ) nHBmp := BmpHeight( hBmp ) nWidth += ( 14 + nWBmp ) DeleteObject( hBmp ) endif if Empty( ::cHeader ) .and. Empty( ::cFoot ) nWidth = 13 + If( nWBmp != 0, ( nWBmp + 13 ), 0 ) + ; GetTextWidth( 0, ::cBody, ::oFontBody:hFont ) + 26 endif if ! Empty( ::cFoot ) nHeight += 30 nWF = GetTextWidth( 0, ::cFoot, ::oFontPie:hFont ) + 22 endif nWidth = Max( Max( nWidth, nWH ), nWF ) if Empty( ::cHeader ) .and. Empty( ::cFoot ) nWidth = Min( nWidth, 227 ) endif // if there is text in the body if ! Empty( ::cBody ) hDC = CreateDC( "DISPLAY",0,0,0) hOldFont = SelectObject( hDC, ::oFontBody:hFont )// nHText = DrawText( hDC, AllTrim( ::cBody ),; { 0, 12 + nWBmp + 12 + 10, 20, nWidth },; nOr( DT_WORDBREAK, 8192, DT_CALCRECT ) ) SelectObject( hDC, hOldFont ) DeleteDC( hDC ) nHeight += nHText nHeight +=8 endif nHeight = Max( nHeight, nHBmp ) aSize := { nWidth, nHeight } return aSize //----------------------------------------------------------------------------// METHOD Default( lShowDlg ) CLASS TC5ToolTip local rc := {0, 0, ::nHeight, ::nWidth} Local hRgn Local hRgn2 Local hRgn3 local o := self DEFAULT lShowDlg := .F. ::hRgn = CreateRoundRectRgn( rc[ 2 ], rc[ 1 ], rc[ 4 ], rc[ 3 ], ::nWRadio,; ::nHRadio ) SetWindowRgn( ::hWnd, ::hRgn, .T. ) DeleteObject( ::hRgn ) return 0 //----------------------------------------------------------------------------// METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TC5Tooltip if nMsg == 20 return 1 endif return ::Super:HandleEvent( nMsg, nWParam, nLParam ) //----------------------------------------------------------------------------// METHOD ReSize( nSizeType, nWidth, nHeight ) CLASS TC5Tooltip ::Default() ::Refresh() return ::Super:ReSize( nSizeType, nWidth, nHeight ) //----------------------------------------------------------------------------// METHOD Paint() CLASS TC5ToolTip local hDCMem := CreateCompatibleDC( ::hDC ) local rc := GetClientRect( ::hWnd ) local hBmpMem := CreateCompatibleBitmap( ::hDC, rc[ 4 ] - rc[ 2 ],; rc[ 3 ] - rc[ 1 ] ) local hOldBmp := SelectObject( hDCMem, hBmpMem ) local nWRadio := ::nWRadio local nHRadio := ::nHRadio local nClrText := SetTextColor( hDCMem, ::nClrText ) local hBrush local hRgn := CreateRoundRectRgn( rc[ 2 ], rc[ 1 ], rc[ 4 ], rc[ 3 ],; ::nWRadio, ::nHRadio ) if ::oTimer != nil ::oTimer:Deactivate() ::oTimer:End() endif DEFINE TIMER ::oTimer INTERVAL ::nTimer ACTION ::Hide() OF Self ACTIVATE TIMER ::oTimer rc[ 3 ]--; rc[ 4 ]-- nWRadio += 2 nHRadio += 2 VerticalGradient( hDCMem, { rc[ 1 ] - 1, rc[ 2 ], rc[ 3 ], rc[ 4 ] },; ::nClrPane, ::nClrPane2 ) if ::bOwnerDraw == nil ::PaintHdr( hDCMem, rc ) ::PaintFoot( hDCMem, rc ) ::PaintBody( hDCMem, rc ) else Eval( ::bOwnerDraw, hDCMem ) endif hBrush = CreateSolidBrush( ::nClrBorder ) // FrameRgn( hDCMem, hRgn, hBrush, 1, 1 ) DeleteObject( hBrush ) DeleteObject( hRgn ) SetTextColor( hDCMem, nClrText ) BitBlt( ::hDC, 0, 0, rc[ 4 ] - rc[ 2 ], rc[ 3 ] - rc[ 1 ], hDCMem, 0, 0, SRCCOPY ) SelectObject( hDCMem, hOldBmp ) DeleteDC ( hDCMem ) DeleteObject( hBmpMem ) return 0 //----------------------------------------------------------------------------// METHOD PaintHdr( hDC, rc ) CLASS TC5ToolTip local hBmpHdr local nWBmpHdr := 0 local hOldFont local nClrText local lIcon := .f. local nTop local nMode // 25 pixels if ::lHeader ::aHeader = { rc[ 1 ], rc[ 2 ], rc[ 1 ] + 25, rc[ 4 ] } if ::lLineHeader Line( hDC, ::aHeader[ 3 ], ::aHeader[ 2 ] + 5, ::aHeader[ 3 ],; ::aHeader[ 4 ] - 5, ::nClrSepara1 ) Line( hDC, ::aHeader[ 3 ] + 1, ::aHeader[ 2 ] + 5, ::aHeader[ 3 ] + 1,; ::aHeader[ 4 ] - 5, ::nClrSepara2 ) endif if ! Empty( ::cBmpHeader ) hBmpHdr = LoadImageEx( ::cBmpHeader ) if hBmpHdr != 0 nWBmpHdr = BmpWidth( hBmpHdr ) nTop = ( ::aHeader[ 1 ] + ; ( ::aHeader[ 3 ] - ::aHeader[ 1 ] ) / 2 ) - ; BmpHeight( hBmpHdr ) / 2 nTop = Max( nTop, 5 ) DrawMasked( hDC, hBmpHdr, nTop, 5 ) DeleteObject( hBmpHdr ) endif endif hOldFont = SelectObject( hDC, ::oFontHdr:hFont ) if ::nClrTextHeader != nil nClrText = SetTextColor( hDC, ::nCLrTextHeader ) endif nMode = SetBkMode( hDC, 1 ) DrawText( hDC, ::cHeader, { ::aHeader[ 1 ], ::aHeader[ 2 ] + 10 + ; If( hBmpHdr != 0, nWBmpHdr, 0 ), ::aHeader[ 3 ],; ::aHeader[ 4 ] - 10 }, nOr( DT_VCENTER, DT_SINGLELINE, 8192 ) ) SetBkMode( hDC, nMode ) if ::nClrTextHeader != nil SetTextColor( hDC, nClrText ) endif SelectObject( hDC, hOldFont ) else ::aHeader := {rc[1],rc[2],rc[1],rc[4]} endif return 0 //----------------------------------------------------------------------------// METHOD PaintHdr2( hDC, rc ) CLASS TC5ToolTip local hOldFont local nClrText ::aHeader2 = { ::aHeader[ 3 ], rc[ 2 ], ::aHeader[ 3 ], rc[ 4 ] } if ::lHeader if ::lSplitHdr ::aHeader2 = { ::aHeader[ 3 ], rc[ 2 ], ::aHeader[ 3 ] + 25, rc[ 4 ] } endif if ::lLineHeader Line( hDC, ::aHeader2[ 3 ], ::aHeader2[ 2 ] + 5, ::aHeader2[ 3 ],; ::aHeader2[ 4 ] - 5, ::nClrSepara1 ) Line( hDC, ::aHeader2[ 3 ] + 1, ::aHeader2[ 2 ] + 5, ::aHeader2[ 3 ] + 1,; ::aHeader2[ 4 ] - 5, ::nClrSepara2 ) endif hOldFont = SelectObject( hDC, ::oFontHdr2:hFont ) if ::nClrTextHeader != nil nClrText := SetTextColor( hDC, ::nCLrTextHeader ) endif if ::lSplitHdr .and. ! Empty( ::cHeader2 ) DrawText( hDC, ::cHeader2, { ::aHeader2[ 1 ] + 1, ::aHeader2[ 2 ] + 20,; ::aHeader2[ 3 ], ::aHeader2[ 4 ] - 2 }, nOR( DT_WORDBREAK, 8192 ) ) endif if ::nClrTextHeader != nil SetTextColor( hDC, nClrText ) endif SelectObject( hDC, hOldFont ) endif return 0 //----------------------------------------------------------------------------// METHOD PaintBody( hDC, rc ) CLASS TC5ToolTip local hOldFont local nWBmp := 0 local nClrText local lIcon := .f. local nMode local hBmpLeft := 0 local n local nLen local nW local nW2 local aLeft ::aLeft = { 0, 0, 0, 0 } ::aBody = { ::aHeader[ 3 ] + If( ::lLineHeader, 5, 0 ), rc[ 2 ],; ::aFoot[ 1 ], rc[ 4 ] } if Empty( ::cBmpLeft ) ::aLeft = { ::aBody[ 1 ], rc[ 2 ], ::aBody[ 3 ],; If( ::lLeft, ( rc[ 4 ] - rc[ 2 ] ) * 0.33, rc[ 2 ] ) } else hBmpLeft = LoadImageEx( ::cBmpLeft ) if hBmpLeft != 0 nWBmp = BmpWidth( hBmpLeft ) ::aLeft = { ::aBody[ 1 ], rc[ 2 ], ::aBody[ 3 ], 12 + nWBmp + 12 } endif endif if ::bBmpLeft != nil hBmpLeft = Eval( ::bBmpLeft, self ) if hBmpLeft != 0 nWBmp = BmpWidth( hBmpLeft ) ::aLeft = { ::aBody[ 1 ], rc[ 2 ], ::aBody[ 3 ], 12 + nWBmp + 12 } endif endif ::aRight = { ::aBody[ 1 ] + 3, ::aLeft[ 4 ] + 20, ::aBody[ 3 ] - 3, rc[ 4 ] - 10 } hOldFont = SelectObject( hDC, ::oFontBody:hFont ) nMode = SetBkMode( hDC, 1 ) DrawText( hDC, AllTrim( ::cBody ), ::aRight,; nOr( If( ::lRightAlignBody, DT_RIGHT, DT_LEFT ), DT_WORDBREAK ) ) SetBkMode( hDC, nMode ) SelectObject( hDC, hOldFont ) if hBmpLeft != 0 DrawMasked( hDC, hBmpLeft, ::aLeft[ 1 ] + 5, ::aLeft[ 2 ] + 12 ) DeleteObject( hBmpLeft ) endif return 0 //----------------------------------------------------------------------------// METHOD PaintFoot( hDC, rc ) CLASS TC5ToolTip local hOldFont, hBmpFoot local nWFoot := 0 local nClrText local lIcon := .f. local nMode if ::lFoot ::aFoot = { rc[ 3 ] - 30, rc[ 2 ], rc[ 3 ], rc[ 4 ] } if ! Empty( ::cBmpFoot ) ::aFoot = { rc[ 3 ] - 30, rc[ 2 ], rc[ 3 ], rc[ 4 ] } endif hBmpFoot = LoadImageEx( ::cBmpFoot ) if hBmpFoot != 0 nWFoot = BmpWidth( hBmpFoot ) ::aFoot = { rc[ 3 ] - 30, rc[ 2 ], rc[ 3 ], rc[ 4 ] } DrawMasked( hDC, hBmpFoot,; ( ::aFoot[ 1 ] + ( ::aFoot[ 3 ] - ::aFoot[ 1 ] ) / 2 ) - ; BmpHeight( hBmpFoot ) / 2, 5 ) DeleteObject( hBmpFoot ) endif else ::aFoot = { rc[ 3 ], rc[ 2 ], rc[ 3 ], rc[ 4 ] } endif if ::lFoot hOldFont = SelectObject( hDC, ::oFontPie:hFont ) if ::nClrTextFoot != nil nClrText = SetTextColor( hDC, ::nClrTextFoot ) endif nMode = SetBkMode( hDC, 1 ) DrawText( hDC, ::cFoot, { ::aFoot[ 1 ], ::aFoot[ 2 ] + 10 + nWFoot,; ::aFoot[ 3 ], ::aFoot[ 4 ] }, nOr( DT_VCENTER, DT_SINGLELINE, 8192 ) ) SetBkMode( hDC, nMode ) if ::nClrTextFoot != nil SetTextColor( hDC, nClrText ) endif SelectObject( hDC, hOldFont ) endif Line( hDC, ::aFoot[ 1 ], ::aFoot[ 2 ] + 5, ::aFoot[ 1 ], ::aFoot[ 4 ] - 5,; ::nClrSepara1 ) Line( hDC, ::aFoot[ 1 ] + 1, ::aFoot[ 2 ] + 5, ::aFoot[ 1 ] + 1,; ::aFoot[ 4 ] - 5, ::nClrSepara2 ) return 0 //----------------------------------------------------------------------------// static function Line( hDC, nTop, nLeft, nBottom, nRight, nColor, nWidth ) local hPen, hOldPen DEFAULT nColor := CLR_BLACK, nWidth := 1 hPen = CreatePen( PS_SOLID, nWidth, nColor ) hOldPen = SelectObject( hDC, hPen ) MoveTo( hDC, nLeft, nTop ) LineTo( hDC, nRight, nTop ) SelectObject( hDC, hOldPen ) DeleteObject( hPen ) return 0 //----------------------------------------------------------------------------//

And here you have an example of use:

Code: Select all Expand view RUN: // C5 Tooltips demo #include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oWnd DEFINE WINDOW oWnd ACTIVATE WINDOW oWnd ; ON INIT ShowToolTip() ; ON CLICK ShowTooltip() return nil //----------------------------------------------------------------------------// function ShowToolTip( oWnd ) local oTT := TC5Tooltip():New( 100, 100, 250, 150, oWnd, .T., CLR_CYAN, CLR_WHITE ) oTT:cHeader = "header" oTT:cBody = "this is the body of the tooltip" + CRLF + "It looks nice" oTT:cFoot = "this is the footer" oTT:cBmpFoot = "..\bitmaps\16x16\help.bmp" oTT:cBmpLeft = "..\bitmaps\16x16\mail.bmp" oTT:lLineHeader = .T. // These are not working yet oTT:lBtnClose = .T. oTT:lSplitHdr = .T. oTT:lBorder = .T. return nil //----------------------------------------------------------------------------//

by **Antonio Linares** » Sat Sep 14, 2013 11:27 am

In Method Paint() this provides support to DATA lBorder:

Code: Select all Expand view RUN: hBrush = CreateSolidBrush( ::nClrBorder ) if ::lBorder FrameRgn( hDCMem, hRgn, hBrush, 1, 1 ) endif DeleteObject( hBrush ) DeleteObject( hRgn )

by **Antonio Linares** » Sat Sep 14, 2013 11:52 am

Enhanced version:

Code: Select all Expand view RUN: #include "fivewin.ch" #define CW_USEDEFAULT 32768 #define SRCCOPY 13369376 #define DT_TOP 0x00000000 #define DT_LEFT 0x00000000 #define DT_CENTER 0x00000001 #define DT_RIGHT 0x00000002 #define DT_VCENTER 0x00000004 #define DT_BOTTOM 0x00000008 #define DT_WORDBREAK 0x00000010 #define DT_SINGLELINE 0x00000020 #define DT_EXPANDTABS 0x00000040 #define DT_TABSTOP 0x00000080 #define DT_NOCLIP 0x00000100 #define DT_EXTERNALLEADING 0x00000200 #define DT_CALCRECT 0x00000400 #define DT_NOPREFIX 0x00000800 #define DT_INTERNAL 0x00001000 #define CS_DROPSHADOW 0x00020000 //----------------------------------------------------------------------------// CLASS TC5Tooltip FROM TWindow CLASSDATA lRegistered AS LOGICAL DATA lSplitHdr AS LOGICAL INIT .F. DATA lLeft AS LOGICAL INIT .F. DATA lLineHeader AS LOGICAL INIT .F. DATA lLineFoot AS LOGICAL INIT .F. DATA lBorder AS LOGICAL INIT .T. DATA lBtnClose AS LOGICAL INIT .F. DATA cHeader AS CHARACTER INIT "" DATA cBmpLeft AS CHARACTER INIT "" DATA cBody AS CHARACTER INIT "" DATA cBmpFoot AS CHARACTER INIT "" DATA cFoot AS CHARACTER INIT "" DATA lRightAlignBody AS LOGICAL INIT .F. DATA cLibHeader DATA cBmpHeader DATA cLibLeft DATA cLibFoot DATA cTumbNail AS CHARACTER INIT "" DATA cHeader2 AS CHARACTER INIT space(255) DATA nClrPane2 DATA nClrBorder AS NUMERIC INIT 0 DATA nClrSepara1 AS NUMERIC INIT RGB(157,188,219) DATA nClrSepara2 AS NUMERIC INIT CLR_WHITE DATA nClrTextHeader DATA nClrTextBody DATA nClrTextFoot DATA oFontHdr DATA oFontHdr2 DATA oFontBody DATA oFontPie DATA aHeader AS ARRAY INIT {0,0,0,0} DATA aHeader2 AS ARRAY INIT {0,0,0,0} DATA aBody AS ARRAY INIT {0,0,0,0} DATA aLeft AS ARRAY INIT {0,0,0,0} DATA aRight AS ARRAY INIT {0,0,0,0} DATA aFoot AS ARRAY INIT {0,0,0,0} DATA aBtnClose AS ARRAY INIT {0,0,0,0} DATA nWRadio DATA nHRadio DATA nGetColor DATA aOldPos, nOldRow, nOldCol DATA hRgn DATA nMResize DATA bBmpLeft DATA nFixWidth DATA nFixHeight DATA bOwnerDraw DATA oTimer, nTimer METHOD New( nTop, nLeft, nWidth, nHeight, oWnd, lDisenio, nClrPane, ; nClrPane2, nClrText, nWRadio, nHRadio ) CONSTRUCTOR METHOD Default () METHOD Destroy() INLINE ::oFontHdr :End(),; ::oFontHdr2:End(),; ::oFontBody:End(),; ::oFontPie :End(),; DeleteObject( ::hRgn ),; ::Super:Destroy() METHOD EndPaint() INLINE ::nPaintCount--,EndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil, 0 METHOD Display() INLINE ::BeginPaint(),::Paint(),::EndPaint(),0 METHOD Paint () METHOD PaintHdr ( hDC, rc ) METHOD PaintHdr2( hDC, rc ) METHOD PaintBody( hDC, rc ) METHOD PaintFoot( hDC, rc ) METHOD HandleEvent( nMsg, nWParam, nLParam ) METHOD ReSize( nSizeType, nWidth, nHeight ) METHOD lHeader() INLINE !empty( ::cHeader ) METHOD lFoot() INLINE !empty( ::cFoot ) METHOD GetSize() METHOD SetSize( nWidth, nHeight ) INLINE ::Super:SetSize( nWidth, nHeight, .T. ) ENDCLASS //----------------------------------------------------------------------------// METHOD New( nTop, nLeft, nWidth, nHeight, oWnd, lDisenio, nClrPane, nClrPane2,; nClrText, nWRadio, nHRadio ) CLASS TC5ToolTip DEFAULT nClrPane := CLR_WHITE DEFAULT nClrPane2 := nClrPane DEFAULT nClrText := 0 DEFAULT nWRadio := 2 DEFAULT nHRadio := 2 ::oWnd = oWnd ::nStyle = nOR( WS_POPUP, WS_VISIBLE ) ::nTop = nTop ::nLeft = nLeft ::nBottom = nTop + nHeight ::nRight = nLeft + nWidth ::nClrPane = nClrPane ::nClrPane2 = nClrPane2 ::nClrText = nClrText ::nClrBorder = RGB( 118,118,118 ) ::nWRadio = nWRadio ::nHRadio = nHRadio ::nTimer = 5000 DEFINE FONT ::oFontHdr NAME "Verdana" SIZE 0, -11 BOLD DEFINE FONT ::oFontHdr2 NAME "Verdana" SIZE 0, -11 DEFINE FONT ::oFontBody NAME "Segoe UI" SIZE 0, -11 DEFINE FONT ::oFontPie NAME "Verdana" SIZE 0, -11 BOLD ::Register( nOR( CS_VREDRAW, CS_HREDRAW, CS_DROPSHADOW ) ) //, 131072 ::Create() ::cTitle = "Undefined" ::hRgn = nil ::Default( .T. ) return Self //----------------------------------------------------------------------------// METHOD GetSize() CLASS TC5ToolTip local rc := 0 local aSize := { 0, 0 } local hBmp := 0 local hDC := 0 local hOldFont := 0 local n := 0 local nHBmp := 0 local nHText := 0 local nHeight := 0 local nLen := 0 local nW := 0 local nW2 := 0 local nWB := 0 local nWBmp := 0 local nWBodyTxt := 227 local nWF := 0 local nWH := 0 local nWidth := 0 if ::nFixWidth != nil .and. ::nFixHeight != nil return {::nFixWidth, ::nFixHeight} endif rc := GetClientRect(::hWnd) nWidth := nWBodyTxt // Header if ! Empty( ::cHeader ) nHeight += 31 nWH = GetTextWidth( 0, ::cHeader, ::oFontHdr:hFont ) + 16 endif // Left side image if ! Empty( ::cBmpLeft ) hBmp := LoadImageEx( ::cBmpLeft ) else if ::bBmpLeft != nil hBmp = Eval( ::bBmpLeft, self ) endif endif if hBmp != 0 nWBmp := BmpWidth ( hBmp ) nHBmp := BmpHeight( hBmp ) nWidth += ( 14 + nWBmp ) DeleteObject( hBmp ) endif if Empty( ::cHeader ) .and. Empty( ::cFoot ) nWidth = 13 + If( nWBmp != 0, ( nWBmp + 13 ), 0 ) + ; GetTextWidth( 0, ::cBody, ::oFontBody:hFont ) + 26 endif if ! Empty( ::cFoot ) nHeight += 30 nWF = GetTextWidth( 0, ::cFoot, ::oFontPie:hFont ) + 22 endif nWidth = Max( Max( nWidth, nWH ), nWF ) if Empty( ::cHeader ) .and. Empty( ::cFoot ) nWidth = Min( nWidth, 227 ) endif // if there is text in the body if ! Empty( ::cBody ) hDC = CreateDC( "DISPLAY",0,0,0) hOldFont = SelectObject( hDC, ::oFontBody:hFont )// nHText = DrawText( hDC, AllTrim( ::cBody ),; { 0, 12 + nWBmp + 12 + 10, 20, nWidth },; nOr( DT_WORDBREAK, 8192, DT_CALCRECT ) ) SelectObject( hDC, hOldFont ) DeleteDC( hDC ) nHeight += nHText nHeight +=8 endif nHeight = Max( nHeight, nHBmp ) aSize := { nWidth, nHeight } return aSize //----------------------------------------------------------------------------// METHOD Default( lShowDlg ) CLASS TC5ToolTip local rc := { 0, 0, ::nHeight, ::nWidth } Local hRgn Local hRgn2 Local hRgn3 local o := self DEFAULT lShowDlg := .F. ::hRgn = CreateRoundRectRgn( { rc[ 1 ], rc[ 2 ], rc[ 3 ], rc[ 4 ] },; ::nWRadio, ::nHRadio ) SetWindowRgn( ::hWnd, ::hRgn, .T. ) DeleteObject( ::hRgn ) return 0 //----------------------------------------------------------------------------// METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TC5Tooltip if nMsg == 20 return 1 endif return ::Super:HandleEvent( nMsg, nWParam, nLParam ) //----------------------------------------------------------------------------// METHOD ReSize( nSizeType, nWidth, nHeight ) CLASS TC5Tooltip ::Default() ::Refresh() return ::Super:ReSize( nSizeType, nWidth, nHeight ) //----------------------------------------------------------------------------// METHOD Paint() CLASS TC5ToolTip local hDCMem := CreateCompatibleDC( ::hDC ) local rc := GetClientRect( ::hWnd ) local hBmpMem := CreateCompatibleBitmap( ::hDC, rc[ 4 ] - rc[ 2 ],; rc[ 3 ] - rc[ 1 ] ) local hOldBmp := SelectObject( hDCMem, hBmpMem ) local nWRadio := ::nWRadio local nHRadio := ::nHRadio local nClrText := SetTextColor( hDCMem, ::nClrText ) local hBrush local hRgn := CreateRoundRectRgn( { rc[ 1 ], rc[ 2 ], rc[ 3 ], rc[ 4 ] },; ::nWRadio, ::nHRadio ) if ::oTimer != nil ::oTimer:Deactivate() ::oTimer:End() endif DEFINE TIMER ::oTimer INTERVAL ::nTimer ACTION ::Hide() OF Self ACTIVATE TIMER ::oTimer rc[ 3 ]--; rc[ 4 ]-- nWRadio += 2 nHRadio += 2 VerticalGradient( hDCMem, { rc[ 1 ] - 1, rc[ 2 ], rc[ 3 ], rc[ 4 ] },; ::nClrPane, ::nClrPane2 ) if ::bOwnerDraw == nil ::PaintHdr( hDCMem, rc ) ::PaintFoot( hDCMem, rc ) ::PaintBody( hDCMem, rc ) else Eval( ::bOwnerDraw, hDCMem ) endif hBrush = CreateSolidBrush( ::nClrBorder ) if ::lBorder FrameRgn( hDCMem, hRgn, hBrush, 1, 1 ) endif DeleteObject( hBrush ) DeleteObject( hRgn ) SetTextColor( hDCMem, nClrText ) BitBlt( ::hDC, 0, 0, rc[ 4 ] - rc[ 2 ], rc[ 3 ] - rc[ 1 ], hDCMem, 0, 0, SRCCOPY ) SelectObject( hDCMem, hOldBmp ) DeleteDC ( hDCMem ) DeleteObject( hBmpMem ) return 0 //----------------------------------------------------------------------------// METHOD PaintHdr( hDC, rc ) CLASS TC5ToolTip local hBmpHdr local nWBmpHdr := 0 local hOldFont local nClrText local lIcon := .F. local nTop local nMode // 25 pixels if ::lHeader ::aHeader = { rc[ 1 ], rc[ 2 ], rc[ 1 ] + 25, rc[ 4 ] } if ::lLineHeader Line( hDC, ::aHeader[ 3 ], ::aHeader[ 2 ] + 5, ::aHeader[ 3 ],; ::aHeader[ 4 ] - 5, ::nClrSepara1 ) Line( hDC, ::aHeader[ 3 ] + 1, ::aHeader[ 2 ] + 5, ::aHeader[ 3 ] + 1,; ::aHeader[ 4 ] - 5, ::nClrSepara2 ) endif if ! Empty( ::cBmpHeader ) hBmpHdr = LoadImageEx( ::cBmpHeader ) if hBmpHdr != 0 nWBmpHdr = BmpWidth( hBmpHdr ) nTop = ( ::aHeader[ 1 ] + ; ( ::aHeader[ 3 ] - ::aHeader[ 1 ] ) / 2 ) - ; BmpHeight( hBmpHdr ) / 2 nTop = Max( nTop, 5 ) DrawMasked( hDC, hBmpHdr, nTop, 5 ) DeleteObject( hBmpHdr ) endif endif hOldFont = SelectObject( hDC, ::oFontHdr:hFont ) if ::nClrTextHeader != nil nClrText = SetTextColor( hDC, ::nCLrTextHeader ) endif nMode = SetBkMode( hDC, 1 ) DrawText( hDC, ::cHeader, { ::aHeader[ 1 ], ::aHeader[ 2 ] + 10 + ; If( hBmpHdr != 0, nWBmpHdr, 0 ), ::aHeader[ 3 ],; ::aHeader[ 4 ] - 10 }, nOr( DT_VCENTER, DT_SINGLELINE, 8192 ) ) SetBkMode( hDC, nMode ) if ::nClrTextHeader != nil SetTextColor( hDC, nClrText ) endif SelectObject( hDC, hOldFont ) else ::aHeader := {rc[1],rc[2],rc[1],rc[4]} endif return 0 //----------------------------------------------------------------------------// METHOD PaintHdr2( hDC, rc ) CLASS TC5ToolTip local hOldFont local nClrText ::aHeader2 = { ::aHeader[ 3 ], rc[ 2 ], ::aHeader[ 3 ], rc[ 4 ] } if ::lHeader if ::lSplitHdr ::aHeader2 = { ::aHeader[ 3 ], rc[ 2 ], ::aHeader[ 3 ] + 25, rc[ 4 ] } endif if ::lLineHeader Line( hDC, ::aHeader2[ 3 ], ::aHeader2[ 2 ] + 5, ::aHeader2[ 3 ],; ::aHeader2[ 4 ] - 5, ::nClrSepara1 ) Line( hDC, ::aHeader2[ 3 ] + 1, ::aHeader2[ 2 ] + 5, ::aHeader2[ 3 ] + 1,; ::aHeader2[ 4 ] - 5, ::nClrSepara2 ) endif hOldFont = SelectObject( hDC, ::oFontHdr2:hFont ) if ::nClrTextHeader != nil nClrText := SetTextColor( hDC, ::nCLrTextHeader ) endif if ::lSplitHdr .and. ! Empty( ::cHeader2 ) DrawText( hDC, ::cHeader2, { ::aHeader2[ 1 ] + 1, ::aHeader2[ 2 ] + 20,; ::aHeader2[ 3 ], ::aHeader2[ 4 ] - 2 }, nOR( DT_WORDBREAK, 8192 ) ) endif if ::nClrTextHeader != nil SetTextColor( hDC, nClrText ) endif SelectObject( hDC, hOldFont ) endif return 0 //----------------------------------------------------------------------------// METHOD PaintBody( hDC, rc ) CLASS TC5ToolTip local hOldFont local nWBmp := 0 local nClrText local lIcon := .F. local nMode local hBmpLeft := 0 local n local nLen local nW local nW2 local aLeft ::aLeft = { 0, 0, 0, 0 } ::aBody = { ::aHeader[ 3 ] + If( ::lLineHeader, 5, 0 ), rc[ 2 ],; ::aFoot[ 1 ], rc[ 4 ] } if Empty( ::cBmpLeft ) ::aLeft = { ::aBody[ 1 ], rc[ 2 ], ::aBody[ 3 ],; If( ::lLeft, ( rc[ 4 ] - rc[ 2 ] ) * 0.33, rc[ 2 ] ) } else hBmpLeft = LoadImageEx( ::cBmpLeft ) if hBmpLeft != 0 nWBmp = BmpWidth( hBmpLeft ) ::aLeft = { ::aBody[ 1 ], rc[ 2 ], ::aBody[ 3 ], 12 + nWBmp + 12 } endif endif if ::bBmpLeft != nil hBmpLeft = Eval( ::bBmpLeft, self ) if hBmpLeft != 0 nWBmp = BmpWidth( hBmpLeft ) ::aLeft = { ::aBody[ 1 ], rc[ 2 ], ::aBody[ 3 ], 12 + nWBmp + 12 } endif endif ::aRight = { ::aBody[ 1 ] + 3, ::aLeft[ 4 ] + 20, ::aBody[ 3 ] - 3, rc[ 4 ] - 10 } hOldFont = SelectObject( hDC, ::oFontBody:hFont ) nMode = SetBkMode( hDC, 1 ) DrawText( hDC, AllTrim( ::cBody ), ::aRight,; nOr( If( ::lRightAlignBody, DT_RIGHT, DT_LEFT ), DT_WORDBREAK ) ) SetBkMode( hDC, nMode ) SelectObject( hDC, hOldFont ) if hBmpLeft != 0 DrawMasked( hDC, hBmpLeft, ::aLeft[ 1 ] + 5, ::aLeft[ 2 ] + 12 ) DeleteObject( hBmpLeft ) endif return 0 //----------------------------------------------------------------------------// METHOD PaintFoot( hDC, rc ) CLASS TC5ToolTip local hOldFont, hBmpFoot local nWFoot := 0 local nClrText local lIcon := .F. local nMode if ::lFoot ::aFoot = { rc[ 3 ] - 30, rc[ 2 ], rc[ 3 ], rc[ 4 ] } if ! Empty( ::cBmpFoot ) ::aFoot = { rc[ 3 ] - 30, rc[ 2 ], rc[ 3 ], rc[ 4 ] } endif hBmpFoot = LoadImageEx( ::cBmpFoot ) if hBmpFoot != 0 nWFoot = BmpWidth( hBmpFoot ) ::aFoot = { rc[ 3 ] - 30, rc[ 2 ], rc[ 3 ], rc[ 4 ] } DrawMasked( hDC, hBmpFoot,; ( ::aFoot[ 1 ] + ( ::aFoot[ 3 ] - ::aFoot[ 1 ] ) / 2 ) - ; BmpHeight( hBmpFoot ) / 2, 5 ) DeleteObject( hBmpFoot ) endif else ::aFoot = { rc[ 3 ], rc[ 2 ], rc[ 3 ], rc[ 4 ] } endif if ::lFoot hOldFont = SelectObject( hDC, ::oFontPie:hFont ) if ::nClrTextFoot != nil nClrText = SetTextColor( hDC, ::nClrTextFoot ) endif nMode = SetBkMode( hDC, 1 ) DrawText( hDC, ::cFoot, { ::aFoot[ 1 ], ::aFoot[ 2 ] + 10 + nWFoot,; ::aFoot[ 3 ], ::aFoot[ 4 ] }, nOr( DT_VCENTER, DT_SINGLELINE, 8192 ) ) SetBkMode( hDC, nMode ) if ::nClrTextFoot != nil SetTextColor( hDC, nClrText ) endif SelectObject( hDC, hOldFont ) endif Line( hDC, ::aFoot[ 1 ], ::aFoot[ 2 ] + 5, ::aFoot[ 1 ], ::aFoot[ 4 ] - 5,; ::nClrSepara1 ) Line( hDC, ::aFoot[ 1 ] + 1, ::aFoot[ 2 ] + 5, ::aFoot[ 1 ] + 1,; ::aFoot[ 4 ] - 5, ::nClrSepara2 ) return 0 //----------------------------------------------------------------------------// static function Line( hDC, nTop, nLeft, nBottom, nRight, nColor, nWidth ) local hPen, hOldPen DEFAULT nColor := CLR_BLACK, nWidth := 1 hPen = CreatePen( PS_SOLID, nWidth, nColor ) hOldPen = SelectObject( hDC, hPen ) MoveTo( hDC, nLeft, nTop ) LineTo( hDC, nRight, nTop ) SelectObject( hDC, hOldPen ) DeleteObject( hPen ) return 0 //----------------------------------------------------------------------------//

by **Antonio Linares** » Sat Sep 14, 2013 11:55 am

Una diferencia entre el código de C5 y el de FWH es que la función CreateRoundRectRgn() de FWH espera un primer parámetro array que contiene las coordenadas en formato nTop, nLeft, nBottom y nRight.

En C5 se sigue la sintaxis del API de Windows (nLeft, nTop, nWidth, nHeight), pero para FWH es mucho más cómodo permitir ese array, pues lo devuelven métodos como GetRect() de FWH y asi nos evita tener que manipular las coordenadas.

Podemos intentar compatibilizar ambos...

by **Antonio Linares** » Sat Sep 14, 2013 12:00 pm

Aqui está la función CreateRoundRectRgn() compatible tanto con FWH como con el API de Windows y con C5 :-)

Code: Select all Expand view RUN: HB_FUNC( CREATEROUNDRECTRGN ) { HRGN hRgn; if( hb_pcount() > 3 ) // C5 format hRgn = CreateRoundRectRgn( hb_parni( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parnl( 4 ), hb_parni( 5 ), hb_parni( 6 ) ); else hRgn = CreateRoundRectRgn( hb_parvni( 1, 2 ), hb_parvni( 1, 1 ), hb_parvni( 1, 4 ), hb_parvni( 1, 3 ), hb_parni( 2 ), hb_parni( 3 ) ); RegisterResource( hRgn, "REGION" ); #ifndef _WIN64 hb_retnl( ( LONG ) hRgn ); #else hb_retnll( ( LONGLONG ) hRgn ); #endif }

by **Antonio Linares** » Sat Sep 14, 2013 12:06 pm

Reevisando la Clase de C5 veo que Paco contempló el mostrar un botón de cierre del tooltip (DATA lBtnClose), pero viendo imágenes en google imágenes no veo tooltips con ese botón de cierre.

Supongo que la idea viene más de los notifications balloons:
http://msdn.microsoft.com/en-us/library/windows/desktop/aa511497.aspx

Se los añadimos ? Y en tal caso, que bitmap usamos para el cierre ? La cruz gris ?

by **cnavarro** » Sat Sep 14, 2013 12:12 pm

Una propuesta

by **Antonio Linares** » Sat Sep 14, 2013 12:16 pm

Cristobal,

Pero ese botón de cierre no parece estandard. No me suena haberlo visto nunca...

by **Antonio Linares** » Sat Sep 14, 2013 6:55 pm

Bueno, pues gracias a la feliz idea de Silvio de que el timer perteneciese al propio objeto tooltip, ya tenemos los tooltips de C5 funcionando! :-)

La idea es que ahora todas las ventanas, controles, diálogos tienen la DATA oToolTip y si ahi asignamos un objeto TC5ToolTip pues se pone en funcionamiento.

He tenido que modificar cosas en la Clase TWindow y en la Clase TC5Tooltip. Aqui teneis una demo con el código fuente:
https://code.google.com/p/fivewin-contributions/downloads/detail?name=c5tooltip_demo.zip

Si copiais el EXE a la carpeta SAMPLES de FWH vereis ademas como usa los bitmaps :-)

Si no le veis objecciones, podemos incluirlos en FWH 13.08

by **D.Fernandez** » Sat Sep 14, 2013 7:15 pm

Excelente trabajo Antonio.

Muchas gracias a Ud. y a Paco.

Saludos

Dario Fernandez

by **Antonio Linares** » Sat Sep 14, 2013 7:18 pm

Una pequeña corrección al ejemplo anterior. Se calculaban mal las coordenadas relativas, ahora esta bien :-)

https://code.google.com/p/fivewin-contributions/downloads/detail?name=c5tooltip_demo_2.zip

by **Silvio.Falconi** » Sun Sep 15, 2013 9:03 am

Antonio,
If you decide to insert the new Tooltip class on window ( and on all controls) I think you must create a selection for this

type
x,y SAY ..... TOOLTIP NORMAL " BLABLABLABLABLA"

1. oldTooltip ( one line and yellow) TOOLTIP NORMAL
2. Baloon TOOLTIP BALLOONS
2. the new tooltip ( supertooltip) TOOLTIP SUPER

JUST AND iDEA

also you can insert to windows class

CLASSDATA oToolTip
CLASSDATA lSuperTooltips

and when you create the tooltip on METHOD ShowToolTip

If :: lSuperTooltips
::oToolTip := TC5Tip():New( ............... )

else

DEFINE WINDOW ::oToolTip FROM 0, 0 TO 1, 5 ;
STYLE nOr( WS_POPUP, WS_BORDER ) ;
COLOR 0, RGB( 255, 255, 225 ) OF Self

by **Silvio.Falconi** » Sun Sep 15, 2013 9:07 am

Antonio Linares wrote:Cristobal,

Pero ese botón de cierre no parece estandard. No me suena haberlo visto nunca...

I'm thinking the button close is no need !!!

FiveTech Software tech support forums

ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Re: ejemplo c5Tooltip

Who is online