Re: Mr. Rao's samples collection for Xbrowse
Posted: Fri Feb 02, 2018 11:53 am
Great !!
Can I use it ?
Can I use it ?
www.FiveTechSoft.com
https://fivetechsupport.com/forums/
You are missing the topic title's in the browse.
And the Authors are not indexed or (the index in not active in the browse)
What was your idea about the multiple samples files ? and how would you use it...
You should consider to have at least a part of the title inside the browse, because when you say
ex. Headers as lookup item, you get result for :
Treport, XML,, Xbrowse, ....
and with the titles seen, you only hit pagedown. Otherwise you have to look for every row for the title
Code: Select all | Expand
#include "fivewin.ch"
static oWnd
function main()
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd ON PAINT Pinta( hDC )
return nil
function Pinta( hDC )
local nColor
local nLeft := 10
local cTexto := "En un lugar de la mancha de cuyo nombre no quiero acordarme"
local oFont
local hFont
local nLen := len( cTexto )
local cLetra, n
DEFINE FONT oFont NAME "Segoe UI Light" SIZE 0, -18
hFont := SelectObject( hDC, oFont:hFont )
for n := 1 to nLen
cLetra := substr( cTexto, n, 1 )
nColor := SetTextColor( hDC, nRandom( CLR_WHITE ) )
TextOut( hDC, 10, nLeft, cLetra )
SetTextColor( hDC, nColor )
nLeft += GetTextWidth( hDC, cLetra, oFont )
next
SelectObject( hDC, hFont )
oFont:ENd()
return nil