Hello Silvio,
Very nice. I hope xHarbour/FWH is able to offer it. 
or you can fix it for your TPlan class.
I waiting for you. 
Regards,
Richard
Silvio,
You can create a user defined control that looks like that.
As far as I remember, Otto (WinHotel) datron@aon.at has developed a similar control.
Richard & Antonio,
I have a similar Tgant 32 bit ( it called Tplan) but it is also in beta test
I have problem with a method : it must refill the rectangule of color of the brush I select but it not run ok
Dear Antonio If you can help me to finish this class , I give you many thanks
Regards
I am very interested in such a control too.
James
.....
Define Brush oPenR COLOR CLR_HBLUE
.......
oGraficos:FILLRECT( nLinea+nVertic+4, nColumnaInicio+nHoriz2, nLinea+nVertic+14, nColumnaFinal+nHoriz2, oPenR ,recno())METHOD Fillrect( nTop, nLeft, nBottom, nRight, oPen ,nRecord) CLASS TPlan
local hPen := if( oPen = nil, 0, oPen:hPen )
Local nX := oPen:nWidth / 2
IIF( nRecord == nil , nRecord := 0 , )
::GetDC()
Rectangle( ::hDC, nTop, nLeft, nBottom, nRight, hPen )
* MoveTo( ::hDC, nLeft, nTop )
* LineTo( ::hDC, nRight, nBottom, hPen )
FillRect( ::hDC, { nTop + 2, nLeft + 2, nBottom, nRight }, hpen)
::ReleaseDC()
if nRecord > 0
aadd(::aItems,{nTop-nX,nLeft-nX,nBottom+nX,nRight+nX,nRecord})
endifSilvo,
It looks like you are passing hPen, instead of hBrush. I think you need to define a brush. From the docs:
FillRect( <hDC>, <aRect>, <hBrush> )
James
TO ALL, ANTONIO AND RICHARD
I THINK I CAN PUBBLISH REL.100 OF TPLAN CLASS 32 BIT
I HAVE MADE ONLY A SIMPLY TEST PROGRAM BUT IT NOW RUN OK
BUT YOU CAN CREATE WITH ME ANOTHERS TEST PROGRAM
IT IS EASY TO CREATE A PROGRAM
TOMORROW I LOAD THE CLASS AT hYPERLOAD AND INSERT THE MESSAGE HERE .
REGARDS
FALCONI SILVIO
Hello Silvio,
Sounds good news.
I'm hurry to try your new TPlan 32bit.
Regards,
Richard
Hei Silvio:
Really good news for Fivewiners.
Thanks
Regards
Ruben Fernandez
