itemdetailsunit.pas

Gantt source file example to use in delphi 7

{-----------------------------------------------------------------------------
 Unit Name: ItemDetailsUnit
 Author:    paul fisher
 Purpose:
 History:
-----------------------------------------------------------------------------}


unit ItemDetailsUnit;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls, Spin, GanttUnit, ComCtrls, ExtDlgs;

type
   TItemDetailsForm = class(TForm)
      Panel1: TPanel;
      Panel2: TPanel;
      Button1: TButton;
      Button2: TButton;
      ItemNameEdit: TEdit;
      Label1: TLabel;
      Label2: TLabel;
      StyleComboBox: TComboBox;
      Label3: TLabel;
      ItemColorBox: TColorBox;
      Label4: TLabel;
      FillComboBox: TComboBox;
      Label5: TLabel;
      Label6: TLabel;
      PenColorBox: TColorBox;
      Label7: TLabel;
    StatusComboBox: TComboBox;
    Label8: TLabel;
    OpenPictureDialog1: TOpenPictureDialog;
    GroupBox1: TGroupBox;
    hardCheckBox: TCheckBox;
    Label10: TLabel;
    linktypeCombo: TComboBox;
    StartTimeedit: TDateTimePicker;
    StartDateEdit: TDateTimePicker;
    EndTimePicker: TDateTimePicker;
    EndDatePicker: TDateTimePicker;
    Label11: TLabel;
    Memo1: TMemo;
    Label9: TLabel;
    percentSpinEdit: TSpinEdit;
   private
    { Private declarations }
   public
    { Public declarations }
      function EditDetails(var Item: TGanttItem): Boolean;
   end;

var
   ItemDetailsForm: TItemDetailsForm;

implementation

{$R *.dfm}

uses MiscHelpFunctions;




function TItemDetailsForm.EditDetails(var Item: TGanttItem): Boolean;
Var
  SelectDate : TDateTime;

begin
   Result := False;
   ItemNameEdit.Text := Item.ItemName;
   StyleCombobox.Text := ItemTypeToComboString(Item.ItemType);
   StatusCombobox.Text := StatusTypeToString(Item.ItemStatus);
   PercentSpinEdit.Value := Item.PercentCompleted;
   ItemColorBox.Selected := Item.ItemBrush.Color;
   PenColorBox.Selected := Item.ItemPen.Color;
   FillComboBox.Text := BrushStyleToComboString(Item.ItemBrush.Style);
   SelectDate := Item.StartDate;
   StartDateEdit.DateTime := SelectDate;
   StartTimeEdit.DateTime := SelectDate;
   SelectDate := Item.EndDate;
   EndDatePicker.DateTime := SelectDate;
   EndTimePicker.DateTime := SelectDate;
   Hardcheckbox.Checked := Item.ItemHardLink;
   LinkTypeCombo.ItemIndex := LinkTypeCombo.Items.IndexOf(LinkTypeToString(Item.ItemLinkStyle));
    Memo1.Text := item.ItemTextData;

   if showmodal = mrOK then
   begin
      Item.ItemName := ItemNameEdit.Text;
      Item.ItemType := ComboStringToItemType(StyleCombobox.Text);
      Item.ItemStatus := StringToStatusType(StatusCombobox.Text);
      Item.PercentCompleted := PercentSpinEdit.Value;
      Item.ItemBrush.Color := ItemColorBox.Selected;
      Item.ItemPen.Color := PenColorBox.Selected;
      Item.ItemBrush.Style := ComboStringToBrushStyle(FillComboBox.Text);
      StartDateEdit.Time := StartTimeEdit.Time;
      Item.StartDate := StartDateEdit.DateTime;
      EndDatePicker.Time := EndTimePicker.Time;
      Item.EndDate := EndDatePicker.DateTime;
      Item.ItemHardLink := Hardcheckbox.Checked;
      Item.ItemLinkStyle := StringToLinkType(LinkTypeCombo.Text);
      Item.ItemTextData := Memo1.Text;
      Result := True;
   end;
   close;
end;



end.