How I can create it ?

Post Reply
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

How I can create it ?

Post by Silvio »

Have You an Idea to create it on xharbour & fw

Image

Regards
Best Regards, Saludos

Falconi Silvio
User avatar
Taiwan
Posts: 218
Joined: Fri Oct 07, 2005 1:55 am
Location: Taipei, Taiwan
Contact:

Post by Taiwan »

Hello Silvio,

Very nice. I hope xHarbour/FWH is able to offer it. :oops:
or you can fix it for your TPlan class.
I waiting for you. :)

Regards,

Richard
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by 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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by 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
Best Regards, Saludos

Falconi Silvio
User avatar
James Bott
Posts: 4654
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA
Contact:

Post by James Bott »

I am very interested in such a control too.

James
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by 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

.....
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
Best Regards, Saludos

Falconi Silvio
User avatar
James Bott
Posts: 4654
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA
Contact:

Post by 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
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by 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
Best Regards, Saludos

Falconi Silvio
User avatar
Taiwan
Posts: 218
Joined: Fri Oct 07, 2005 1:55 am
Location: Taipei, Taiwan
Contact:

Post by Taiwan »

Hello Silvio,

Sounds good news.

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

Regards,

Richard
User avatar
RuFer
Posts: 140
Joined: Sat Oct 08, 2005 5:16 pm
Location: Uruguay

Post by RuFer »

Hei Silvio:

Really good news for Fivewiners.

Thanks


Regards

Ruben Fernandez
Post Reply