Cgallegoa wrote:Leandro, excelente.
Gracias.
Leandro ????????
I am the creator of TprogressWheel class together with Antonino Perricone, Leandro is not the creator of the class !!!!
there is an exhaustive example in the fwh \ sample folder
I didn't understand what you want to prove
leandro's example creates a child with customer, dbf and with the gray wheel class always spinning, what's the use?
i am ignorant i really don't understand the logical sense of leandro's test
if you wish insert a whhel on xbrowse
- Code: Select all Expand view
function MeterInBackGround()
local oDlg, oFont, oBrwFont, oBrush, oBrw
USE STATES SHARED VIA "DBFCDX"
DEFINE BRUSH oBrush FILE "..\bitmaps\backgrnd\paper2.bmp"
DEFINE FONT oBrwFont NAME "CALIBRI" SIZE 0,-16 BOLD
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
DEFINE DIALOG oDlg SIZE 400,600 PIXEL TRUEPIXEL ;
FONT oFont TITLE "CIRCULAR METER INSIDE BROWSE"
@ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
DATASOURCE "STATES" AUTOCOLS CELL LINES ;
NOBORDER FONT oBrwFont
WITH OBJECT oBrw
:lTransparent := .t.
:nStretchCol := STRETCHCOL_WIDEST
:bPaintBack := <||
FillRect( oBrw:GetDC(), GetClientRect( oBrw:hWnd ), oBrush:hBrush )
PaintCircularMeter( oBrw, {130,30,430,330}, 0.5, oBrw:KeyNo, oBrw:nLen, ;
{ 0x6000ff00, 0x60FA6800 } )
oBrw:ReleaseDC()
return nil
>
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont, oBrwFont
RELEASE BRUSH oBrush
CLOSE DATA
return nil