FiveTech Software tech support forums

Posted: **Sat Mar 11, 2006 11:59 pm**

Have You an Idea to create it on xharbour & fw

Regards

Posted: **Sun Mar 12, 2006 2:22 am**

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

Posted: **Sun Mar 12, 2006 7:48 am**

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.

Posted: **Sun Mar 12, 2006 3:09 pm**

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

Posted: **Sun Mar 12, 2006 7:08 pm**

I am very interested in such a control too.

James

Posted: **Sun Mar 12, 2006 11:14 pm**

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

.....
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


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

Posted: **Sun Mar 12, 2006 11:54 pm**

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

Posted: **Mon Mar 13, 2006 12:02 pm**

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

Posted: **Mon Mar 13, 2006 4:02 pm**

Hello Silvio,

Sounds good news.

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

Regards,

Richard

Posted: **Mon Mar 13, 2006 5:48 pm**

Hei Silvio:

Really good news for Fivewiners.

Thanks

Regards

Ruben Fernandez

FiveTech Software tech support forums

How I can create it ?

How I can create it ?