ganttdatabinder5.pas

Gantt source file example to use in delphi 7

function TXMLChart_Date_BlocksType.Add: IXMLDate_BlockType;
begin
  Result := AddItem(-1) as IXMLDate_BlockType;
end;

function TXMLChart_Date_BlocksType.Insert(const Index: Integer): IXMLDate_BlockType;
begin
  Result := AddItem(Index) as IXMLDate_BlockType;
end;


{ TXMLDate_BlockType }

function TXMLDate_BlockType.Get_Block_Start: WideString;
begin
  Result := ChildNodes['Block_Start'].Text;
end;

procedure TXMLDate_BlockType.Set_Block_Start(Value: WideString);
begin
  ChildNodes['Block_Start'].NodeValue := Value;
end;

function TXMLDate_BlockType.Get_Block_End: WideString;
begin
  Result := ChildNodes['Block_End'].Text;
end;

procedure TXMLDate_BlockType.Set_Block_End(Value: WideString);
begin
  ChildNodes['Block_End'].NodeValue := Value;
end;


function TXMLDate_BlockType.Get_Block_Length: WideString;
begin
  Result := ChildNodes['Block_Length'].NodeValue;
end;

procedure TXMLDate_BlockType.Set_Block_Length(Value: WideString);
begin
  ChildNodes['Block_Length'].NodeValue := Value;
end;

function TXMLDate_BlockType.Get_Block_Title: WideString;
begin
  Result := ChildNodes['Block_Title'].Text;
end;

procedure TXMLDate_BlockType.Set_Block_Title(Value: WideString);
begin
  ChildNodes['Block_Title'].NodeValue := Value;
end;

function TXMLDate_BlockType.Get_Block_Colour: WideString;
begin
  Result := ChildNodes['Block_Colour'].Text;
end;

procedure TXMLDate_BlockType.Set_Block_Colour(Value: WideString);
begin
  ChildNodes['Block_Colour'].NodeValue := Value;
end;

{ TXMLGantt_ProjectsType }

procedure TXMLGantt_ProjectsType.AfterConstruction;
begin
  RegisterChildNode('Gantt_Project', TXMLGantt_ProjectType);
  ItemTag := 'Gantt_Project';
  ItemInterface := IXMLGantt_ProjectType;
  inherited;
end;

function TXMLGantt_ProjectsType.Get_Gantt_Project(Index: Integer): IXMLGantt_ProjectType;
begin
  Result := List[Index] as IXMLGantt_ProjectType;
end;

function TXMLGantt_ProjectsType.Add: IXMLGantt_ProjectType;
begin
  Result := AddItem(-1) as IXMLGantt_ProjectType;
end;

function TXMLGantt_ProjectsType.Insert(const Index: Integer): IXMLGantt_ProjectType;
begin
  Result := AddItem(Index) as IXMLGantt_ProjectType;
end;


{ TXMLGantt_ProjectType }

procedure TXMLGantt_ProjectType.AfterConstruction;
begin
  RegisterChildNode('Gantt_Project_Resource1', TXMLGantt_Project_Resource1Type);
  RegisterChildNode('Gantt_Project_Resource2', TXMLGantt_Project_Resource1Type);
  RegisterChildNode('Gantt_Project_Items', TXMLGantt_Project_ItemsType);
  inherited;
end;

function TXMLGantt_ProjectType.Get_Gantt_Project_Name: WideString;
begin
  Result := ChildNodes['Gantt_Project_Name'].Text;
end;

procedure TXMLGantt_ProjectType.Set_Gantt_Project_Name(Value: WideString);
begin
  ChildNodes['Gantt_Project_Name'].NodeValue := Value;
end;

function TXMLGantt_ProjectType.Get_Gantt_Project_Resource1: IXMLGantt_Project_Resource1Type;
begin
  Result := ChildNodes['Gantt_Project_Resource1'] as IXMLGantt_Project_Resource1Type;
end;

function TXMLGantt_ProjectType.Get_Gantt_Project_Resource2: IXMLGantt_Project_Resource1Type;
begin
  Result := ChildNodes['Gantt_Project_Resource2'] as IXMLGantt_Project_Resource1Type;
end;


function TXMLGantt_ProjectType.Get_Gantt_Project_Items: IXMLGantt_Project_ItemsType;
begin
  Result := ChildNodes['Gantt_Project_Items'] as IXMLGantt_Project_ItemsType;
end;


{ TXMLGantt_Project_Resource1Type }

function TXMLGantt_Project_Resource1Type.Get_Resource_ID: WideString;
begin
  Result := ChildNodes['Resource_ID'].NodeValue;
end;

procedure TXMLGantt_Project_Resource1Type.Set_Resource_ID(Value: WideString);
begin
  ChildNodes['Resource_ID'].NodeValue := Value;
end;

function TXMLGantt_Project_Resource1Type.Get_Resource_Name: WideString;
begin
  Result := ChildNodes['Resource_Name'].Text;
end;

procedure TXMLGantt_Project_Resource1Type.Set_Resource_Name(Value: WideString);
begin
  ChildNodes['Resource_Name'].NodeValue := Value;
end;

function TXMLGantt_Project_Resource1Type.Get_Resource_Dept: WideString;
begin
  Result := ChildNodes['Resource_Dept'].Text;
end;

procedure TXMLGantt_Project_Resource1Type.Set_Resource_Dept(Value: WideString);
begin
  ChildNodes['Resource_Dept'].NodeValue := Value;
end;

function TXMLGantt_Project_Resource1Type.Get_Resource_Email: WideString;
begin
  Result := ChildNodes['Resource_Email'].Text;
end;

procedure TXMLGantt_Project_Resource1Type.Set_Resource_Email(Value: WideString);
begin
  ChildNodes['Resource_Email'].NodeValue := Value;
end;

function TXMLGantt_Project_Resource1Type.Get_Resource_Company: WideString;
begin
  Result := ChildNodes['Resource_Company'].Text;
end;

procedure TXMLGantt_Project_Resource1Type.Set_Resource_Company(Value: WideString);
begin
  ChildNodes['Resource_Company'].NodeValue := Value;
end;



{ TXMLGantt_Project_ItemsType }

procedure TXMLGantt_Project_ItemsType.AfterConstruction;
begin
  RegisterChildNode('Project_Item', TXMLProject_ItemType);
  ItemTag := 'Project_Item';
  ItemInterface := IXMLProject_ItemType;
  inherited;
end;

function TXMLGantt_Project_ItemsType.Get_Project_Item(Index: Integer): IXMLProject_ItemType;
begin
  Result := List[Index] as IXMLProject_ItemType;
end;

function TXMLGantt_Project_ItemsType.Add: IXMLProject_ItemType;
begin
  Result := AddItem(-1) as IXMLProject_ItemType;
end;

function TXMLGantt_Project_ItemsType.Insert(const Index: Integer): IXMLProject_ItemType;
begin
  Result := AddItem(Index) as IXMLProject_ItemType;
end;


{ TXMLProject_ItemType }

procedure TXMLProject_ItemType.AfterConstruction;
begin
  RegisterChildNode('Item_Brush', TXMLItem_BrushType);
  RegisterChildNode('Item_Pen', TXMLItem_PenType);
  RegisterChildNode('Item_Link', TXMLItem_LinkType);

  inherited;
end;

function TXMLProject_ItemType.Get_Item_Name: WideString;
begin
  Result := ChildNodes['Item_Name'].Text;
end;

procedure TXMLProject_ItemType.Set_Item_Name(Value: WideString);
begin
  ChildNodes['Item_Name'].NodeValue := Value;
end;

function TXMLProject_ItemType.Get_Item_Type: WideString;
begin
  Result := ChildNodes['Item_Type'].Text;
end;

procedure TXMLProject_ItemType.Set_Item_Type(Value: WideString);
begin
  ChildNodes['Item_Type'].NodeValue := Value;
end;

function TXMLProject_ItemType.Get_Item_Status: WideString;
begin
  Result := ChildNodes['Item_Status'].Text;
end;

procedure TXMLProject_ItemType.Set_Item_Status(Value: WideString);
begin
  ChildNodes['Item_Status'].NodeValue := Value;
end;

function TXMLProject_ItemType.Get_Item_Percent_Completed: Integer;
begin
  Result := ChildNodes['Item_Percent_Completed'].NodeValue;
end;

procedure TXMLProject_ItemType.Set_Item_Percent_Completed(Value: Integer);
begin
  ChildNodes['Item_Percent_Completed'].NodeValue := Value;
end;

function TXMLProject_ItemType.Get_Item_Colour: WideString;
begin
  Result := ChildNodes['Item_Colour'].Text;
end;

procedure TXMLProject_ItemType.Set_Item_Colour(Value: WideString);
begin
  ChildNodes['Item_Colour'].NodeValue := Value;
end;

function TXMLProject_ItemType.Get_Item_Start_Date: WideString;
begin
  Result := ChildNodes['Item_Start_Date'].Text;
end;

procedure TXMLProject_ItemType.Set_Item_Start_Date(Value: WideString);
begin
  ChildNodes['Item_Start_Date'].NodeValue := Value;
end;


function TXMLProject_ItemType.Get_Item_End_Date: WideString;
begin
  Result := ChildNodes['Item_End_Date'].Text;
end;

procedure TXMLProject_ItemType.Set_Item_End_Date(Value: WideString);
begin
  ChildNodes['Item_End_Date'].NodeValue := Value;
end;


function TXMLProject_ItemType.Get_Item_Days: Integer;
begin
  Result := ChildNodes['Item_Days'].NodeValue;
end;

procedure TXMLProject_ItemType.Set_Item_Days(Value: Integer);
begin
  ChildNodes['Item_Days'].NodeValue := Value;
end;


procedure TXMLProject_ItemType.Set_Item_TextData(Value: WideString);
begin
  ChildNodes['Item_TextData'].NodeValue := Value;
end;

function TXMLProject_ItemType.Get_Item_TextData: WideString;
begin
  Result := ChildNodes['Item_TextData'].Text;
end;


function TXMLProject_ItemType.Get_Item_Brush: IXMLItem_BrushType;
begin
  Result := ChildNodes['Item_Brush'] as IXMLItem_BrushType;
end;

function TXMLProject_ItemType.Get_Item_Pen: IXMLItem_PenType;
begin
  Result := ChildNodes['Item_Pen'] as IXMLItem_PenType;
end;

function TXMLProject_ItemType.Get_Item_Link: IXMLItem_LinkType;
begin
  Result := ChildNodes['Item_Link'] as IXMLItem_LinkType;
end;

{ TXMLItem_BrushType }

function TXMLItem_BrushType.Get_Item_Brush_Colour: WideString;
begin
  Result := ChildNodes['Item_Brush_Colour'].Text;
end;

procedure TXMLItem_BrushType.Set_Item_Brush_Colour(Value: WideString);
begin
  ChildNodes['Item_Brush_Colour'].NodeValue := Value;
end;

function TXMLItem_BrushType.Get_Item_Brush_Style: WideString;
begin
  Result := ChildNodes['Item_Brush_Style'].Text;
end;

procedure TXMLItem_BrushType.Set_Item_Brush_Style(Value: WideString);
begin
  ChildNodes['Item_Brush_Style'].NodeValue := Value;
end;

{ TXMLItem_PenType }

function TXMLItem_PenType.Get_Item_Pen_Colour: WideString;
begin
  Result := ChildNodes['Item_Pen_Colour'].Text;
end;

procedure TXMLItem_PenType.Set_Item_Pen_Colour(Value: WideString);
begin
  ChildNodes['Item_Pen_Colour'].NodeValue := Value;
end;

function TXMLItem_PenType.Get_Item_Pen_Size: Integer;
begin
  Result := ChildNodes['Item_Pen_Size'].NodeValue;
end;

procedure TXMLItem_PenType.Set_Item_Pen_Size(Value: Integer);
begin
  ChildNodes['Item_Pen_Size'].NodeValue := Value;
end;

{ TXMLItem_LinkType }

function TXMLItem_LinkType.Get_Project_ID: Integer;
begin
  Result := ChildNodes['Project_ID'].NodeValue;
end;

procedure TXMLItem_LinkType.Set_Project_ID(Value: Integer);
begin
  ChildNodes['Project_ID'].NodeValue := Value;
end;

function TXMLItem_LinkType.Get_Item_ID: Integer;
begin
  Result := ChildNodes['Item_ID'].NodeValue;
end;

procedure TXMLItem_LinkType.Set_Item_ID(Value: Integer);
begin
  ChildNodes['Item_ID'].NodeValue := Value;
end;

function TXMLItem_LinkType.Get_Link_Type: String;
begin
  Result := ChildNodes['Link_Type'].NodeValue;
end;

procedure TXMLItem_LinkType.Set_Link_Type(Value: String);
begin
  ChildNodes['Link_Type'].NodeValue := Value;
end;

end.