How I can create it ?

[Silvio]

Have You an Idea to create it on xharbour & fw



Regards

[Taiwan]

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

[Antonio Linares]

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.

[Silvio]

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

[James Bott]

I am very interested in such a control too.

James

[Silvio]

Dear James,
I have a class
it is similar to gant class but it now not run ok because there is a wrong method
the name of this method is FillRect
this func must create a rectangule and must refill this rectangule of the color I selected
example :

Code: Select all  Expand view  RUN

.....
Define Brush oPenR COLOR CLR_HBLUE

.......
oGraficos:FILLRECT( nLinea+nVertic+4, nColumnaInicio+nHoriz2, nLinea+nVertic+14, nColumnaFinal+nHoriz2, oPenR ,recno())


oGraficos is the Object of Tplan class



the method Fillrect MUst create a rectangule and refill this rectangule :

Code: Select all  Expand view  RUN


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})
   endif







all run ok but it not refill the rectangule

How I can make it ?


thanks

[James Bott]

Silvo,

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

[Silvio]

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

[Taiwan]

Hello Silvio,

Sounds good news.

I'm hurry to try your new TPlan 32bit.

Regards,

Richard

[RuFer]

Hei Silvio:

Really good news for Fivewiners.

Thanks


Regards

Ruben Fernandez