source: trunk/IDE/Forms/FormProjectNew.pas

unit FormProjectNew;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls;

type

  { TFormProjectNew }

  TFormProjectNew = class(TForm)
    ButtonOk: TButton;
    ButtonCancel: TButton;
    ListView1: TListView;
    procedure FormShow(Sender: TObject);
    procedure ListView1Change(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  public
    procedure UpdateInterface;
  end;


implementation

uses
  Core, FormMain, Project;

{$R *.lfm}

{ TFormProjectNew }

procedure TFormProjectNew.FormShow(Sender: TObject);
begin
  UpdateInterface;
end;

procedure TFormProjectNew.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin

end;

procedure TFormProjectNew.ListView1DblClick(Sender: TObject);
begin
  ButtonOk.Click;
end;

procedure TFormProjectNew.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  ButtonOk.Enabled := Assigned(ListView1.Selected);
end;

procedure TFormProjectNew.UpdateInterface;
var
  NewItem: TListItem;
  I: Integer;
begin
  try
    ListView1.BeginUpdate;
    ListView1.Items.Clear;
    with Core.Core do
    for I := 0 to ProjectTemplates.Count - 1 do
    with TProjectTemplate(ProjectTemplates[I]) do
    if (not Assigned(Core.Core.Project) and IsProject) or
    Assigned(Core.Core.Project) then begin
      NewItem := ListView1.Items.Add;
      NewItem.Caption := Name;
      NewItem.Data := ProjectTemplates[I];
    end;
    if ListView1.Items.Count > 0 then
      ListView1.Selected := ListView1.Items[0];
  finally
    ListView1.EndUpdate;
  end;
end;

end.