FiveTech Software tech support forums

... *---------------------------------------------------------------------------* FUNCTION HEditCol( nCol, uVar, cPicture, bValid, nClrFore, nClrBack,aItems, bAction, aVarArry ) *---------------------------------------------------------------------------* LOCAL oDlg, oGet, oFont, ...

... [ FONT <oFont> ] ; [ <change: ON CLICK, ON CHANGE> <uClick> ] ; [ VALID <ValidFunc> ] ; [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ; [ <design: DESIGN> ] ; [ <pixel: PIXEL> ] ; [ MESSAGE <cMsg> ] ; [ <update: UPDATE> ] ; ...

... " Prenotazione", IIF(nstatus=2," Occupato"," Libero")) local cIcon := IcoTooltip(cCliente,nstatus) local nClrFore := CLR_HRED local nClrBack := CLR_YELLOW return {cText, cTitle , cIcon , nClrFore, nClrBack } then on Tootip created it not espect the colors ...

... <INFIELDCAPTION <cInfieldCap> ] ; [ INFIELDSIZE <nWidth>, <nHeight> ]; [ INFIELDFONT <oFont> ] ; [ INFIELDCOLORTEXT <nClrFore> [,<nClrBack>] ] [ INFIELDCOLORBORDER <nClrFore> [,<nClrBack>] ] Thank you in advance Otto [ <INFIELDCAPTION <cInfieldCap> ...

... Window CLASS METHOD ShowToolTip( nRow, nCol, cToolTip ) CLASS TWindow local aToolTip, nLenToolTip, oTemp, hWnd local cIcon, hIcon, cText, cTitle, nClrFore, nClrBack, nWidth local nDelayTime, nDelayType DEFAULT nCol := 7, nRow := ::nHeight() + 7, ; cToolTip := ::cToolTip if oToolTip == nil if ValType( ...

Is it possible to set duration of tooltip showtime? Yes. Assign an array to cToolTip cToolTip := { cToolTipText, [cHeader], [Icon], [nClrFore], [nClrBack], [nWidth], [nDelayInSeconds] } Note: Color settings do not seem to work in Windows 10  oBrw:bToolTips   := ;         { | oBrw,r,c,f,oMouseCol,nMouseRow| ...

Is it possible to set duration of tooltip showtime?

Yes.
Assign an array to cToolTip

cToolTip := { cToolTipText, [cHeader], [Icon], [nClrFore], [nClrBack], [nWidth], [nDelayInSeconds] }

Note: Color settings do not seem to work in Windows 10

... 1705 to 1801 may please apply this fix to tget.prg Pleae remove the following lines of code from methods New() and Redefine() ---- if ValType( nClrFore ) == 'B' ::bColor := nClrFore nClrFore := GetSysColor( COLOR_WINDOWTEXT ) endif ---- - If width and height are not specified, they are calculated ...

... <oExBar> ; [ <of: OF, WINDOW, DIALOG> <oWnd> ] ; [ SIZE <nWidth>, <nHeight> ] ; [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ; [ BRUSH <oBrush> ]; - New parameters in method AddPanel nTitleh: height of title nRound: round box of panel ...

... GDIPLUS> ]; ------------------ #xcommand @ <nRow>, <nCol> BTNBMP [<oBtn>] ; [ GRADIENT <bGradColors> ]; [ COLOR <nClrFore> [,<nClrBack>] ] ; [ <pixel: PIXEL> ] ; [ <design: DESIGN> ] ; [ <lGDIP: GDIP, GDIPLUS> ]; Question 2 how to change ...

... VAR ] <uVar> ; [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ; [ VALID <ValidFunc> ] ; [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ; [ SIZE <nWidth>, <nHeight> ] ; [ FONT <oFont> ] ; [ <design: DESIGN> ] ; [ CURSOR <oCursor> ...

... VAR ] <uVar> ; [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ; [ VALID <ValidFunc> ] ; [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ; [ SIZE <nWidth>, <nHeight> ] ; [ FONT <oFont> ] ; [ <design: DESIGN> ] ; [ CURSOR <oCursor> ...

... ] ; [ <l2007: 2007> ] ; [ <lTrans: TRANSPARENT> ] ; [ <lNoRound: NOROUND> ]; [ GRADIENT <bGradColors> ]; [ COLOR <nClrFore> [,<nClrBack>] ] ; [ <pixel: PIXEL> ] ; [ <design: DESIGN> ] ; [ <lGDIP: GDIP, GDIPLUS> ]; best regard Uwe

... As you can see in icon.prg CLASS TIcon FROM TControl .... METHOD New( nRow, nCol, cResName, cIcoFile, lBorder, bClick,; oWnd, lUpdate, bWhen, nClrFore, nClrBack ) there is only nRow and nCol parameters. Is there any way to show icon in diffrent size.

Victor, El problema viene de la función EXTDRAWICON() que selecciona los colores de esta fortma: COLORREF nClrFore = bFocused ? GetSysColor( COLOR_CAPTIONTEXT ) : hb_parnl( 7 ); COLORREF nClrBack = bFocused ? GetSysColor( COLOR_ACTIVECAPTION ) : hb_parnl( 8 ); Al dibujar el ...