ganttdatabinder5.pas

Gantt source file example to use in delphi 7

{***************************************************************************************}
{                                                                                       }
{                                Delphi XML Data Binding                                }
{                                                                                       }
{         Generated on: 21/06/2007 11:07:08                                             }
{       Generated from: D:\Fish Soft\Gantt Creator\Current Source Code\GanttModel.xml   }
{   Settings stored in: D:\Fish Soft\Gantt Creator\Current Source Code\GanttModel.xdb   }
{                                                                                       }
{***************************************************************************************}
unit GanttDataBinder5;

interface

uses xmldom, XMLDoc, XMLIntf;

type

{ Forward Decls }

  IXMLRoot_ElementType = interface;
  IXMLGantt_ChartType = interface;
  IXMLGantt_Chart_DetailsType = interface;
  IXMLChart_Date_BlocksType = interface;
  IXMLDate_BlockType = interface;
  IXMLGantt_ProjectsType = interface;
  IXMLGantt_ProjectType = interface;
  IXMLGantt_Project_Resource1Type = interface;
  IXMLGantt_Project_ItemsType = interface;
  IXMLProject_ItemType = interface;
  IXMLItem_BrushType = interface;
  IXMLItem_PenType = interface;
  IXMLItem_LinkType = interface;

{ IXMLRoot_ElementType }

  IXMLRoot_ElementType = interface(IXMLNode)
    ['{49283647-7C02-4865-838A-64A283819F73}']
    { Property Accessors }
    function Get_Gantt_Chart: IXMLGantt_ChartType;
    { Methods & Properties }
    property Gantt_Chart: IXMLGantt_ChartType read Get_Gantt_Chart;
  end;

{ IXMLGantt_ChartType }

  IXMLGantt_ChartType = interface(IXMLNode)
    ['{54B5906F-8259-498D-A850-F6E56F3CA16C}']
    { Property Accessors }
    function Get_Gantt_Chart_Details: IXMLGantt_Chart_DetailsType;
    function Get_Gantt_Projects: IXMLGantt_ProjectsType;
    { Methods & Properties }
    property Gantt_Chart_Details: IXMLGantt_Chart_DetailsType read Get_Gantt_Chart_Details;
    property Gantt_Projects: IXMLGantt_ProjectsType read Get_Gantt_Projects;
  end;

{ IXMLGantt_Chart_DetailsType }

  IXMLGantt_Chart_DetailsType = interface(IXMLNode)
    ['{0F701133-539F-4D55-886F-D1F4557D32D9}']
    { Property Accessors }
    function Get_Gantt_Title: WideString;
    function Get_Start_Month: Integer;
    function Get_Number_of_Months: Integer;
    function Get_Project_Title_Colour: WideString;
    function Get_Project_Height: Integer;
    function Get_Day_Width: Integer;
    function Get_Shadow_Colour: WideString;
    function Get_Gantt_Version: WideString;
    function Get_Gantt_Title_Box_Width: Integer;
    function Get_Gantt_Title_Box_Height: Integer;
    function Get_Grid_Lines_Colour: WideString;
    function Get_Grid_Weekend_Colour: WideString;
    function Get_Project_Grid_Lines_Colour: WideString;
    function Get_Show_Item_Length: Boolean;
    function Get_Show_Grid_Lines: Boolean;
    function Get_Show_Day_Text: Boolean;
    function Get_Show_Header_Weeks: Boolean;
    function Get_Show_Rounded_Titles: Boolean;
    function Get_Chart_Date_Blocks: IXMLChart_Date_BlocksType;
    procedure Set_Gantt_Title(Value: WideString);
    procedure Set_Start_Month(Value: Integer);
    procedure Set_Number_of_Months(Value: Integer);
    procedure Set_Project_Title_Colour(Value: WideString);
    procedure Set_Project_Height(Value: Integer);
    procedure Set_Day_Width(Value: Integer);
    procedure Set_Shadow_Colour(Value: WideString);
    procedure Set_Gantt_Version(Value: WideString);
    procedure Set_Gantt_Title_Box_Width(Value: Integer);
    procedure Set_Gantt_Title_Box_Height(Value: Integer);
    procedure Set_Grid_Lines_Colour(Value: WideString);
    procedure Set_Grid_Weekend_Colour(Value: WideString);
    procedure Set_Project_Grid_Lines_Colour(Value: WideString);
    procedure Set_Show_Item_Length(Value: Boolean);
    procedure Set_Show_Grid_Lines(Value: Boolean);
    procedure Set_Show_Day_Text(Value: Boolean);
    procedure Set_Show_Header_Weeks(Value: Boolean);
    procedure Set_Show_Rounded_Titles(Value: Boolean);
    { Methods & Properties }
    property Gantt_Title: WideString read Get_Gantt_Title write Set_Gantt_Title;
    property Start_Month: Integer read Get_Start_Month write Set_Start_Month;
    property Number_of_Months: Integer read Get_Number_of_Months write Set_Number_of_Months;
    property Project_Title_Colour: WideString read Get_Project_Title_Colour write Set_Project_Title_Colour;
    property Project_Height: Integer read Get_Project_Height write Set_Project_Height;
    property Day_Width: Integer read Get_Day_Width write Set_Day_Width;
    property Shadow_Colour: WideString read Get_Shadow_Colour write Set_Shadow_Colour;
    property Gantt_Version: WideString read Get_Gantt_Version write Set_Gantt_Version;
    property Gantt_Title_Box_Width: Integer read Get_Gantt_Title_Box_Width write Set_Gantt_Title_Box_Width;
    property Gantt_Title_Box_Height: Integer read Get_Gantt_Title_Box_Height write Set_Gantt_Title_Box_Height;
    property Grid_Lines_Colour: WideString read Get_Grid_Lines_Colour write Set_Grid_Lines_Colour;
    property Grid_Weekend_Colour: WideString read Get_Grid_Weekend_Colour write Set_Grid_Weekend_Colour;
    property Project_Grid_Lines_Colour: WideString read Get_Project_Grid_Lines_Colour write Set_Project_Grid_Lines_Colour;
    property Show_Item_Length: Boolean read Get_Show_Item_Length write Set_Show_Item_Length;
    property Show_Grid_Lines: Boolean read Get_Show_Grid_Lines write Set_Show_Grid_Lines;
    property Show_Day_Text: Boolean read Get_Show_Day_Text write Set_Show_Day_Text;
    property Show_Header_Weeks: Boolean read Get_Show_Header_Weeks write Set_Show_Header_Weeks;
    property Show_Rounded_Titles: Boolean read Get_Show_Rounded_Titles write Set_Show_Rounded_Titles;
    property Chart_Date_Blocks: IXMLChart_Date_BlocksType read Get_Chart_Date_Blocks;
  end;

{ IXMLChart_Date_BlocksType }

  IXMLChart_Date_BlocksType = interface(IXMLNodeCollection)
    ['{0276B6A1-D2C5-40A9-BAD7-92017473FA91}']
    { Property Accessors }
    function Get_Date_Block(Index: Integer): IXMLDate_BlockType;
    { Methods & Properties }
    function Add: IXMLDate_BlockType;
    function Insert(const Index: Integer): IXMLDate_BlockType;
    property Date_Block[Index: Integer]: IXMLDate_BlockType read Get_Date_Block; default;
  end;

{ IXMLDate_BlockType }

  IXMLDate_BlockType = interface(IXMLNode)
    ['{1DB1DFDB-8E71-478D-AD66-C90C80012234}']
    { Property Accessors }
    function Get_Block_Start: WideString;
    function Get_Block_End: WideString;
    function Get_Block_Length: WideString;
    function Get_Block_Title: WideString;
    function Get_Block_Colour: WideString;
    procedure Set_Block_Start(Value: WideString);
    procedure Set_Block_End(Value: WideString);
    procedure Set_Block_Length(Value: WideString);
    procedure Set_Block_Title(Value: WideString);
    procedure Set_Block_Colour(Value: WideString);
    { Methods & Properties }
    property Block_Start: WideString read Get_Block_Start write Set_Block_Start;
    property Block_End: WideString read Get_Block_End write Set_Block_End;
    property Block_Length: WideString read Get_Block_Length write Set_Block_Length;
    property Block_Title: WideString read Get_Block_Title write Set_Block_Title;
    property Block_Colour: WideString read Get_Block_Colour write Set_Block_Colour;
  end;

{ IXMLGantt_ProjectsType }

  IXMLGantt_ProjectsType = interface(IXMLNodeCollection)
    ['{0EED58D9-F1AA-4030-AE22-26A81A92B51F}']
    { Property Accessors }
    function Get_Gantt_Project(Index: Integer): IXMLGantt_ProjectType;
    { Methods & Properties }
    function Add: IXMLGantt_ProjectType;
    function Insert(const Index: Integer): IXMLGantt_ProjectType;
    property Gantt_Project[Index: Integer]: IXMLGantt_ProjectType read Get_Gantt_Project; default;
  end;

{ IXMLGantt_ProjectType }

  IXMLGantt_ProjectType = interface(IXMLNode)
    ['{58961B6A-B5E6-42D4-84AE-0320F0BE2DC4}']
    { Property Accessors }
    function Get_Gantt_Project_Name: WideString;
    function Get_Gantt_Project_Resource1: IXMLGantt_Project_Resource1Type;
    function Get_Gantt_Project_Resource2: IXMLGantt_Project_Resource1Type;
    function Get_Gantt_Project_Items: IXMLGantt_Project_ItemsType;
    procedure Set_Gantt_Project_Name(Value: WideString);
    { Methods & Properties }
    property Gantt_Project_Name: WideString read Get_Gantt_Project_Name write Set_Gantt_Project_Name;
    property Gantt_Project_Resource1: IXMLGantt_Project_Resource1Type read Get_Gantt_Project_Resource1;
    property Gantt_Project_Resource2: IXMLGantt_Project_Resource1Type read Get_Gantt_Project_Resource2;
    property Gantt_Project_Items: IXMLGantt_Project_ItemsType read Get_Gantt_Project_Items;
  end;



{ IXMLGantt_Project_Resource1Type }

  IXMLGantt_Project_Resource1Type = interface(IXMLNode)
    ['{BA863FB1-2F80-46E1-A184-BA8AA25444BE}']
    { Property Accessors }
    function Get_Resource_ID: WideString;
    function Get_Resource_Name: WideString;
    function Get_Resource_Dept: WideString;
    function Get_Resource_Email: WideString;
    function Get_Resource_Company: WideString;
    procedure Set_Resource_ID(Value: WideString);
    procedure Set_Resource_Name(Value: WideString);
    procedure Set_Resource_Dept(Value: WideString);
    procedure Set_Resource_Email(Value: WideString);
    procedure Set_Resource_Company(Value: WideString);
    { Methods & Properties }
    property Resource_ID: WideString read Get_Resource_ID write Set_Resource_ID;
    property Resource_Name: WideString read Get_Resource_Name write Set_Resource_Name;
    property Resource_Dept: WideString read Get_Resource_Dept write Set_Resource_Dept;
    property Resource_Email: WideString read Get_Resource_Email write Set_Resource_Email;
    property Resource_Company: WideString read Get_Resource_Company write Set_Resource_Company;
  end;  

{ IXMLGantt_Project_ItemsType }

  IXMLGantt_Project_ItemsType = interface(IXMLNodeCollection)
    ['{78E6096C-7E72-48FF-8DE5-3E0C4FBEC796}']
    { Property Accessors }
    function Get_Project_Item(Index: Integer): IXMLProject_ItemType;
    { Methods & Properties }
    function Add: IXMLProject_ItemType;
    function Insert(const Index: Integer): IXMLProject_ItemType;
    property Project_Item[Index: Integer]: IXMLProject_ItemType read Get_Project_Item; default;
  end;

{ IXMLProject_ItemType }

  IXMLProject_ItemType = interface(IXMLNode)
    ['{DF38290D-D866-4CC4-8D8D-EEABD2855F5B}']
    { Property Accessors }
    function Get_Item_Name: WideString;
    function Get_Item_Type: WideString;
    function Get_Item_Status: WideString;
    function Get_Item_Percent_Completed: Integer;
    function Get_Item_Colour: WideString;
    function Get_Item_Start_Date: WideString;
    function Get_Item_End_Date: WideString;
    function Get_Item_Days: Integer;
    function Get_Item_Brush: IXMLItem_BrushType;
    function Get_Item_Pen: IXMLItem_PenType;
    function Get_Item_Link: IXMLItem_LinkType;
    function Get_Item_TextData: WideString;
    procedure Set_Item_Name(Value: WideString);
    procedure Set_Item_Type(Value: WideString);
    procedure Set_Item_Status(Value: WideString);
    procedure Set_Item_Percent_Completed(Value: Integer);
    procedure Set_Item_Colour(Value: WideString);
    procedure Set_Item_Start_Date(Value: WideString);
    procedure Set_Item_End_Date(Value: WideString);
    procedure Set_Item_Days(Value: Integer);
    procedure Set_Item_TextData(Value: WideString);
    { Methods & Properties }
    property Item_Name: WideString read Get_Item_Name write Set_Item_Name;
    property Item_Type: WideString read Get_Item_Type write Set_Item_Type;
    property Item_Status: WideString read Get_Item_Status write Set_Item_Status;
    property Item_Percent_Completed: Integer read Get_Item_Percent_Completed write Set_Item_Percent_Completed;
    property Item_Colour: WideString read Get_Item_Colour write Set_Item_Colour;
    property Item_Start_Date: WideString read Get_Item_Start_Date write Set_Item_Start_Date;
    property Item_End_Date: WideString read Get_Item_End_Date write Set_Item_End_Date;
    property Item_Days: Integer read Get_Item_Days write Set_Item_Days;
    property Item_Brush: IXMLItem_BrushType read Get_Item_Brush;
    property Item_Pen: IXMLItem_PenType read Get_Item_Pen;
    property Item_Link: IXMLItem_LinkType read Get_Item_Link;
    property Item_TextData: WideString read Get_Item_TextData write Set_Item_TextData;
  end;

{ IXMLItem_BrushType }

  IXMLItem_BrushType = interface(IXMLNode)
    ['{523737CA-11D3-4586-B32D-19DA7FB38109}']
    { Property Accessors }
    function Get_Item_Brush_Colour: WideString;
    function Get_Item_Brush_Style: WideString;
    procedure Set_Item_Brush_Colour(Value: WideString);
    procedure Set_Item_Brush_Style(Value: WideString);
    { Methods & Properties }
    property Item_Brush_Colour: WideString read Get_Item_Brush_Colour write Set_Item_Brush_Colour;
    property Item_Brush_Style: WideString read Get_Item_Brush_Style write Set_Item_Brush_Style;
  end;

{ IXMLItem_PenType }

  IXMLItem_PenType = interface(IXMLNode)
    ['{3BB058E4-7241-4134-B9DC-48E4C89B7FC0}']
    { Property Accessors }
    function Get_Item_Pen_Colour: WideString;
    function Get_Item_Pen_Size: Integer;
    procedure Set_Item_Pen_Colour(Value: WideString);
    procedure Set_Item_Pen_Size(Value: Integer);
    { Methods & Properties }
    property Item_Pen_Colour: WideString read Get_Item_Pen_Colour write Set_Item_Pen_Colour;
    property Item_Pen_Size: Integer read Get_Item_Pen_Size write Set_Item_Pen_Size;
  end;

{ IXMLItem_LinkType }

  IXMLItem_LinkType = interface(IXMLNode)
    ['{D19A95AB-6C78-47BA-AE04-E061699FC80C}']
    { Property Accessors }
    function Get_Project_ID: Integer;
    function Get_Item_ID: Integer;
    function Get_Link_Type : String;
    procedure Set_Project_ID(Value: Integer);
    procedure Set_Item_ID(Value: Integer);
    procedure Set_Link_Type(Value : String);
    { Methods & Properties }
    property Project_ID: Integer read Get_Project_ID write Set_Project_ID;
    property Item_ID: Integer read Get_Item_ID write Set_Item_ID;
    property Link_Type: String read Get_Link_Type write Set_Link_Type;
  end;

{ Forward Decls }

  TXMLRoot_ElementType = class;
  TXMLGantt_ChartType = class;
  TXMLGantt_Chart_DetailsType = class;
  TXMLChart_Date_BlocksType = class;
  TXMLDate_BlockType = class;
  TXMLGantt_ProjectsType = class;
  TXMLGantt_ProjectType = class;
  TXMLGantt_Project_ItemsType = class;
  TXMLProject_ItemType = class;
  TXMLItem_BrushType = class;
  TXMLItem_PenType = class;
  TXMLItem_LinkType = class;

{ TXMLRoot_ElementType }

  TXMLRoot_ElementType = class(TXMLNode, IXMLRoot_ElementType)
  protected
    { IXMLRoot_ElementType }
    function Get_Gantt_Chart: IXMLGantt_ChartType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLGantt_ChartType }

  TXMLGantt_ChartType = class(TXMLNode, IXMLGantt_ChartType)
  protected
    { IXMLGantt_ChartType }
    function Get_Gantt_Chart_Details: IXMLGantt_Chart_DetailsType;
    function Get_Gantt_Projects: IXMLGantt_ProjectsType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLGantt_Chart_DetailsType }

  TXMLGantt_Chart_DetailsType = class(TXMLNode, IXMLGantt_Chart_DetailsType)
  protected
    { IXMLGantt_Chart_DetailsType }
    function Get_Gantt_Title: WideString;
    function Get_Start_Month: Integer;
    function Get_Number_of_Months: Integer;
    function Get_Project_Title_Colour: WideString;
    function Get_Project_Height: Integer;
    function Get_Day_Width: Integer;
    function Get_Shadow_Colour: WideString;
    function Get_Gantt_Version: WideString;
    function Get_Gantt_Title_Box_Width: Integer;
    function Get_Gantt_Title_Box_Height: Integer;
    function Get_Grid_Lines_Colour: WideString;
    function Get_Grid_Weekend_Colour: WideString;
    function Get_Project_Grid_Lines_Colour: WideString;
    function Get_Show_Item_Length: Boolean;
    function Get_Show_Grid_Lines: Boolean;
    function Get_Show_Day_Text: Boolean;
    function Get_Show_Header_Weeks: Boolean;
    function Get_Show_Rounded_Titles: Boolean;
    function Get_Chart_Date_Blocks: IXMLChart_Date_BlocksType;
    procedure Set_Gantt_Title(Value: WideString);
    procedure Set_Start_Month(Value: Integer);
    procedure Set_Number_of_Months(Value: Integer);
    procedure Set_Project_Title_Colour(Value: WideString);
    procedure Set_Project_Height(Value: Integer);
    procedure Set_Day_Width(Value: Integer);
    procedure Set_Shadow_Colour(Value: WideString);
    procedure Set_Gantt_Version(Value: WideString);
    procedure Set_Gantt_Title_Box_Width(Value: Integer);
    procedure Set_Gantt_Title_Box_Height(Value: Integer);
    procedure Set_Grid_Lines_Colour(Value: WideString);
    procedure Set_Grid_Weekend_Colour(Value: WideString);
    procedure Set_Project_Grid_Lines_Colour(Value: WideString);
    procedure Set_Show_Item_Length(Value: Boolean);
    procedure Set_Show_Grid_Lines(Value: Boolean);
    procedure Set_Show_Day_Text(Value: Boolean);
    procedure Set_Show_Header_Weeks(Value: Boolean);
    procedure Set_Show_Rounded_Titles(Value: Boolean);
  public
    procedure AfterConstruction; override;
  end;

{ TXMLChart_Date_BlocksType }

  TXMLChart_Date_BlocksType = class(TXMLNodeCollection, IXMLChart_Date_BlocksType)
  protected
    { IXMLChart_Date_BlocksType }
    function Get_Date_Block(Index: Integer): IXMLDate_BlockType;
    function Add: IXMLDate_BlockType;
    function Insert(const Index: Integer): IXMLDate_BlockType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLDate_BlockType }

  TXMLDate_BlockType = class(TXMLNode, IXMLDate_BlockType)
  protected
    { IXMLDate_BlockType }
    function Get_Block_Start: WideString;
    function Get_Block_End: WideString;