ganttdatabinder3.pas

Gantt source file example to use in delphi 7

  Result := NewXMLDocument.GetDocBinding('Root_Element', TXMLRoot_ElementType) as IXMLRoot_ElementType;
end;

{ TXMLRoot_ElementType }

procedure TXMLRoot_ElementType.AfterConstruction;
begin
  RegisterChildNode('Gantt_Chart', TXMLGantt_ChartType);
  inherited;
end;

function TXMLRoot_ElementType.Get_Gantt_Chart: IXMLGantt_ChartType;
begin
  Result := ChildNodes['Gantt_Chart'] as IXMLGantt_ChartType;
end;

{ TXMLGantt_ChartType }

procedure TXMLGantt_ChartType.AfterConstruction;
begin
  RegisterChildNode('Gantt_Chart_Details', TXMLGantt_Chart_DetailsType);
  RegisterChildNode('Gantt_Projects', TXMLGantt_ProjectsType);
  inherited;
end;

function TXMLGantt_ChartType.Get_Gantt_Chart_Details: IXMLGantt_Chart_DetailsType;
begin
  Result := ChildNodes['Gantt_Chart_Details'] as IXMLGantt_Chart_DetailsType;
end;

function TXMLGantt_ChartType.Get_Gantt_Projects: IXMLGantt_ProjectsType;
begin
  Result := ChildNodes['Gantt_Projects'] as IXMLGantt_ProjectsType;
end;

{ TXMLGantt_Chart_DetailsType }

function TXMLGantt_Chart_DetailsType.Get_Gantt_Title: WideString;
begin
  Result := ChildNodes['Gantt_Title'].Text;
end;

procedure TXMLGantt_Chart_DetailsType.Set_Gantt_Title(Value: WideString);
begin
  ChildNodes['Gantt_Title'].NodeValue := Value;
end;

function TXMLGantt_Chart_DetailsType.Get_Start_Month: Integer;
begin
  Result := ChildNodes['Start_Month'].NodeValue;
end;

procedure TXMLGantt_Chart_DetailsType.Set_Start_Month(Value: Integer);
begin
  ChildNodes['Start_Month'].NodeValue := Value;
end;

function TXMLGantt_Chart_DetailsType.Get_Number_of_Months: Integer;
begin
  Result := ChildNodes['Number_of_Months'].NodeValue;
end;

procedure TXMLGantt_Chart_DetailsType.Set_Number_of_Months(Value: Integer);
begin
  ChildNodes['Number_of_Months'].NodeValue := Value;
end;

function TXMLGantt_Chart_DetailsType.Get_Project_Title_Colour: WideString;
begin
  Result := ChildNodes['Project_Title_Colour'].Text;
end;

procedure TXMLGantt_Chart_DetailsType.Set_Project_Title_Colour(Value: WideString);
begin
  ChildNodes['Project_Title_Colour'].NodeValue := Value;
end;

function TXMLGantt_Chart_DetailsType.Get_Project_Height: Integer;
begin
  Result := ChildNodes['Project_Height'].NodeValue;
end;

procedure TXMLGantt_Chart_DetailsType.Set_Project_Height(Value: Integer);
begin
  ChildNodes['Project_Height'].NodeValue := Value;
end;

function TXMLGantt_Chart_DetailsType.Get_Day_Width: Integer;
begin
  Result := ChildNodes['Day_Width'].NodeValue;
end;

procedure TXMLGantt_Chart_DetailsType.Set_Day_Width(Value: Integer);
begin
  ChildNodes['Day_Width'].NodeValue := Value;
end;

function TXMLGantt_Chart_DetailsType.Get_Shadow_Colour: WideString;
begin
  Result := ChildNodes['Shadow_Colour'].Text;
end;

procedure TXMLGantt_Chart_DetailsType.Set_Shadow_Colour(Value: WideString);
begin
  ChildNodes['Shadow_Colour'].NodeValue := Value;
end;

function TXMLGantt_Chart_DetailsType.Get_Gantt_Version: WideString;
begin
  Result := ChildNodes['Gantt_Version'].Text;
end;

procedure TXMLGantt_Chart_DetailsType.Set_Gantt_Version(Value: WideString);
begin
  ChildNodes['Gantt_Version'].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_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: WideString;
begin
  Result := ChildNodes['Gantt_Project_Resource1'].Text;
end;

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

function TXMLGantt_ProjectType.Get_Gantt_Project_Resource2: WideString;
begin
  Result := ChildNodes['Gantt_Project_Resource2'].Text;
end;

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

function TXMLGantt_ProjectType.Get_Gantt_Project_Items: IXMLGantt_Project_ItemsType;
begin
  Result := ChildNodes['Gantt_Project_Items'] as IXMLGantt_Project_ItemsType;
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_Days: Integer;
begin
  Result := ChildNodes['Item_Days'].NodeValue;
end;

procedure TXMLProject_ItemType.Set_Item_Days(Value: Integer);
begin
  ChildNodes['Item_Days'].NodeValue := Value;
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.