source: branches/test1/Client/Forms/UFormItemList.pas

unit UFormItemList;

{$mode delphi}

interface

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

type

  { TItemListForm }

  TItemListForm = class(TForm)
    AClose: TAction;
    AItemClone: TAction;
    AItemView: TAction;
    AItemEdit: TAction;
    AItemAdd: TAction;
    AItemDelete: TAction;
    ActionList1: TActionList;
    ListView1: TListView;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    PopupMenu1: TPopupMenu;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    procedure ACloseExecute(Sender: TObject);
    procedure AItemAddExecute(Sender: TObject);
    procedure AItemDeleteExecute(Sender: TObject);
    procedure AItemEditExecute(Sender: TObject);
    procedure AItemViewExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure ListView1KeyPress(Sender: TObject; var Key: char);
    procedure ListView1Resize(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  private
    Report: TReport;
  public
    SelectedObject: TChronisObject;
    SelectedItem: Integer;
    procedure Reload;
    procedure UpdateInterface;
  end;

var
  ItemListForm: TItemListForm;

implementation

uses
  UCore, UFormItemView, UFormItemEdit, UFormItemAdd, UFormMain;

{$R *.lfm}

{ TItemListForm }

procedure TItemListForm.Reload;
var
  NewColumn: TListColumn;
  I: Integer;
begin
  with ListView1 do begin
    Visible := True;
    //SelectedObject.Load(SelectedObject.Id);
    Report.Load(SelectedObject);

    Report.FillListColumns(Columns);
    Items.Count := Report.Count;
    Refresh;
  end;
  ListView1Resize(Self);
  ListView1SelectItem(Self, nil, False);
end;

procedure TItemListForm.UpdateInterface;
var
  I: Integer;
begin
  AItemDelete.Enabled := Assigned(ListView1.Selected);
  AItemView.Enabled := Assigned(ListView1.Selected);
  AItemEdit.Enabled := Assigned(ListView1.Selected);
  AItemClone.Enabled := Assigned(ListView1.Selected);

  for I := 0 to ToolBar1.ButtonCount - 1 do
    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
end;

procedure TItemListForm.AItemViewExecute(Sender: TObject);
var
  NewItemViewForm: TItemViewForm;
begin
  if Assigned(ListView1.Selected) then begin
    NewItemViewForm := TItemViewForm.Create(nil);
    NewItemViewForm.SelectedObject.Assign(SelectedObject);
    NewItemViewForm.SelectedItemId := Integer(ListView1.Selected.Data);
    NewItemViewForm.Caption := NewItemViewForm.Caption + ' ' + SelectedObject.Name;
    NewItemViewForm.ShowModal;
    //MainForm.SetMainPanelForm(NewItemViewForm);
    NewItemViewForm.Free;
  end;
end;

procedure TItemListForm.FormCreate(Sender: TObject);
begin
  Report := TReport.Create;
  Report.Base := Core.System;
  SelectedObject := TChronisObject.Create;
  SelectedObject.Base := Core.System;
end;

procedure TItemListForm.FormDestroy(Sender: TObject);
begin
  ListView1.Items.Clear;
  SelectedObject.Free;
  Report.Free;
end;

procedure TItemListForm.FormShow(Sender: TObject);
begin
  Reload;
end;

procedure TItemListForm.AItemEditExecute(Sender: TObject);
var
  NewItemEditForm: TItemEditForm;
begin
  if Assigned(ListView1.Selected) then
  try
    NewItemEditForm := TItemEditForm.Create(nil);
    NewItemEditForm.SelectedObject.Assign(SelectedObject);
    NewItemEditForm.SelectedItemId := Integer(ListView1.Selected.Data);
    NewItemEditForm.Caption := NewItemEditForm.Caption + ' ' + SelectedObject.Name;
    NewItemEditForm.ShowModal;
  finally
    NewItemEditForm.Free;
  end;
end;

procedure TItemListForm.AItemAddExecute(Sender: TObject);
var
  NewItemAddForm: TItemAddForm;
begin
  try
    NewItemAddForm := TItemAddForm.Create(nil);
    NewItemAddForm.SelectedObject.Assign(SelectedObject);
    //NewItemAddForm.SelectedItemId := Integer(ListView1.Selected.Data);
    NewItemAddForm.Caption := NewItemAddForm.Caption + ' ' + SelectedObject.Name;
    NewItemAddForm.ShowModal;
  finally
    NewItemAddForm.Free;
  end;
end;

procedure TItemListForm.ACloseExecute(Sender: TObject);
begin
  Close;
end;

procedure TItemListForm.AItemDeleteExecute(Sender: TObject);
begin
  if MessageDlg(SItemDeletion, SReallyWantToDelete, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
  end;
end;

procedure TItemListForm.ListView1Data(Sender: TObject; Item: TListItem);
var
  I: Integer;
begin
  if Item.Index < Report.Count then
  with TReportLine(Report[Item.Index]) do begin
    Item.Caption := Items[0];
    Item.Data := Pointer(Id);
    for I := 1 to Report.Columns.Count - 1 do
    if not TReportColumn(Report.Columns[I]).VirtualItem then begin
      Item.SubItems.Add(Items[I]);
    end;
  end;
end;

procedure TItemListForm.ListView1DblClick(Sender: TObject);
begin
  AItemView.Execute;
end;

procedure TItemListForm.ListView1KeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then AItemViewExecute(Self);
end;

procedure TItemListForm.ListView1Resize(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ListView1.Columns.Count - 1 do
    ListView1.Columns[I].Width := ListView1.Width div ListView1.Columns.Count;
end;

procedure TItemListForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  UpdateInterface;
end;

end.