www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Code: Select all | Expand
WITH OBJECT oBrw:aCols[ 15 ]
:bCellToolTip := { |oCol| "My ToolTip" }
end
Code: Select all | Expand
#include "FiveWin.ch"
function TestTip()
LOCAL oDlg, oFont, oBrw
LOCAL nMilliSeconds := 32767
USE CUSTOMER
DEFINE DIALOG oDlg SIZE 600,500 PIXEL
@ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
DATASOURCE "CUSTOMER" AUTOCOLS ;
CELL LINES NOBORDER
/*
oBrw:bToolTips := ;
{ | oBrw,r,c,f,oMouseCol,nMouseRow| MyColToolTip( oBrw,r,c,f,oMouseCol,nMouseRow ) }
*/
oBrw:bCellToolTips := { |o| o:Value } // yes
// oBrw:bCellToolTips := { |o| { o:Value, nil, nil, nil, nil, nil, nMilliSeconds } } // yes
// { uToolTip, cTitle, choIcon, clrFore, clrBack, nWidth, nDelayTime}
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED
return nil
//----------------------------------------------------------
Function MyColToolTip( oBrw, r, c, f, oMouseCol, nMouseRow )
local uBm, uVal
if nMouseRow != oBrw:nRowSel
uBm := oBrw:BookMark
Eval( oBrw:bSkip, nMouseRow - oBrw:nRowSel )
uVal := oMouseCol:Value
oBrw:BookMark := uBm
else
uVal := oMouseCol:Value
endif
return cValToChar( uVal )
Code: Select all | Expand
:aCols[1]:bStrData:={||}
:aCols[1]:nDataBmpAlign:=AL_RIGHT
:aCols[1]:bBmpData{||}