Class TGantt from Ram贸n is really simple and such simplicity makes it be very flexible. In fact all the modifications implemented after the original design, are simple details with no relevance and that are not needed really 
A TGantt object is a control (inherits from TControl) which manages an array of items. Those items have coordinates and they get painted on the surface of the TGantt. Besides that, we can use the mouse to move those items and to redimension them. Thats all!
What we may want to do with those items is our matter (as programmers). Lets review a first example very easy to use TGantt so we understand it:
testgant.prg
As you can see, we define 5 items for this Gantt, and we assign a color to each one. We could assign much more data, but for now, lets focus on the main idea. The result looks this way:
Moving and resizing the items:
You can download the EXE from here, so you can move and redimension the items with the mouse. Full source code included:
http://code.google.com/p/fivewin-contributions/downloads/detail?name=gantt.zop&can=2&q=
A TGantt object is a control (inherits from TControl) which manages an array of items. Those items have coordinates and they get painted on the surface of the TGantt. Besides that, we can use the mouse to move those items and to redimension them. Thats all!
What we may want to do with those items is our matter (as programmers). Lets review a first example very easy to use TGantt so we understand it:
testgant.prg
#include "FiveWin.ch"
#include "Gantt.ch"
function Main()
聽 聽local oWnd, oGantt
聽 聽DEFINE WINDOW oWnd TITLE "Class TGantt test"
聽 聽
聽 聽@ 1, 1 GANTT oGantt SIZE 300, 300 OF oWnd
聽 聽
聽 聽AAdd( oGantt:aItems, { 聽10, 10, 聽30, 聽80, CLR_BLUE } )
聽 聽AAdd( oGantt:aItems, { 聽40, 30, 聽60, 110, CLR_RED } )
聽 聽AAdd( oGantt:aItems, { 聽70, 50, 聽90, 聽90, CLR_GREEN } )
聽 聽AAdd( oGantt:aItems, { 100, 10, 120, 聽80, CLR_CYAN } )
聽 聽AAdd( oGantt:aItems, { 130, 50, 150, 120, CLR_YELLOW } )
聽 聽
聽 聽oWnd:oClient = oGantt
聽 聽ACTIVATE WINDOW oWnd
return nilAs you can see, we define 5 items for this Gantt, and we assign a color to each one. We could assign much more data, but for now, lets focus on the main idea. The result looks this way:
Moving and resizing the items:
You can download the EXE from here, so you can move and redimension the items with the mouse. Full source code included:
http://code.google.com/p/fivewin-contributions/downloads/detail?name=gantt.zop&can=2&q=
