Hi,
Is it possible to show text in the xBrowse cell with characters inserted into it from another code table
(for example, superscript characters of space or volume. As in Word/Excel) ?
? cText
superscript characters of space or volume
FW_SayTextHilite( hDC, cText, aRect, oFont, nClrText, nClrBack, aWords )
function TestHilite()
local oWnd
local cText := "We always eat dinner together"
local aWords
local oFont, oBold, oItalic
DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-22
DEFINE FONT oBold NAME "VERDANA" SIZE 0,-25 BOLD
DEFINE FONT oItalic NAME "TIMES NEW ROMAN" SIZE 0,-25 ITALIC
aWords := { { "ALWAYS", oBold, CLR_HRED, CLR_YELLOW }, ;
{ "DINNER", oItalic, CLR_GREEN, CLR_HGRAY }, ;
{ "TOGETHER", oItalic, CLR_WHITE, CLR_RED } }
DEFINE WINDOW oWnd
oWnd:SetFont( oFont )
oWnd:bPainted := <|hDC|
local aRect := GetClientRect( oWnd:hWnd )
aRect[ 2 ] += 100
FW_SayTextHilite( hDC, cText, aRect, oFont, ;
CLR_BLACK, CLR_WHITE, aWords )
return nil
>
ACTIVATE WINDOW oWnd CENTERED
RELEASE FONTS oFont, oBold, oItalic
return nil
oCol:bPaintText
Eval( ::bPaintText, Self, hDC, cStrData, oRect:aRect, aColors, lHighLite, lSelected )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 53 guests