FiveTech Software tech support forums

Antonio, Now the new class's modifies seems run ok also on test I made for Andrès G. Only the best is to create also the Horizontal lines : can create an lValue if the user want these lines this is a good idea because we can set a gant for one day and with horizontal lines the final user can see goo...

António,
Yes, I used the class tgantt gantt.prg silvio.prg and that you put in the post today, with FWH1202 and still the same error. What am I doing wrong?
Regards
Jose Magalhaes

Jose,

You have to use the revised Class TGantt published in my previous post

... Pack 3 Time from start: 0 hours 0 mins 0 secs Error occurred at: 31/07/12, 19:05:29 Error description: Warning BASE/1004 Message not found: TGANTT:SETGRIDMONTH Stack Calls =========== Called from: source\rtl\tobject.prg => TGANTT:ERROR( 0 ) Called from: source\rtl\tobject.prg => TGANTT:MSGNOTFOUND( ...

I have modified and enhanced the FWH Class TGantt and here it is an example with a xbrowse: http://img204.imageshack.us/img204/6408/capturexgo.png gantt.prg #include "FiveWin.ch"#define GWL_STYLE       -16static nOldCol, ...

>Do you mean that the bars in the gant are not at the same row position that the xbrowse rows ? yes, and the range day is not showed correctly, and the mounth have not allways 31 days Why not create a small test with xbrowse having this fields DbCreate('TEST', { { 'NUM', 'N', 3, 0},; { 'DESC' , '...

Do you mean that the bars in the gant are not at the same row position that the xbrowse rows ?

What kind of syncronization do you mean ?

the fillrect method of Tgant of Ramon link to nBar variable . it is the record of lbx

you can see clear :

oGraficos:FillRect( {nLinea+nVertic+4, nColumnaInicio+nHoriz, nLinea+nVertic+10, nColumnaFinal+nHoriz},oPen5,ActivProg->(Recno()) )

Silvio, Andrés,

I don't understand what you mean. What kind of syncronization do you want between the browse and the gant ?

If you select a row in the browse, what should happen or change in the gant ?

Antonio take a look of your email alinares@fivetechsoft.com and try to put a sample.
----
Antonio, puedes mirar tu correo en alinares@fivetechsoft.com con el ejemplo de gantt + xbrowse puedes mirar de arreglarlo.

Sorry I saw that is a new function in fwh 12.03.

Please Eoeo, could you post the function ScreenHeight(). When I try your function this one is missing.

LINKING THE TGANT WITH XBROWSE oApp():oGantt:= TGantt():New( 40,nSplit+5,nGridBottom2,nGridRight2, oApp():oDlg,; TRUE,TRUE,TRUE,,,,,oApp():oGrid2) the bars do not match the records in xbrowse as you can see in this picture ( I write a red line to ...

Thanks a lot Antonio, I made a test sample with a Xbrowse and Tgantt and a small test data array but I Not Know how link the data to the bars of Tgant class http://img442.imageshack.us/img442/9123/testdialog.png the code #include "FiveWin.ch"#include ...

Silvio, This example works fine here with the below changes in Class TGantt silvio.prg #include "FiveWin.ch"#include "Gantt.ch"function Main()   local oFont, oWnd, oGantt   DEFINE FONT oFont NAME "Verdana" SIZE 0, -10  ...