source: trunk/StudioPackage/Forms/UFormNewFile.pas

unit UFormNewFile;

{$mode delphi}

interface

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

type

  { TFormNewFile }

  TFormNewFile = 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 ListView1KeyPress(Sender: TObject; var Key: char);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  private
    { private declarations }
  public
    procedure UpdateInterface;
  end;

var
  FormNewFile: TFormNewFile;


implementation

uses
  UDataModule, UFormMain, USource;

{$R *.lfm}

{ TFormNewFile }

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

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

end;

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

procedure TFormNewFile.ListView1KeyPress(Sender: TObject; var Key: char);
begin
  if (Key = #13) and Assigned(ListView1.Selected) then ButtonOk.Click;
end;

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

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

end.