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

unit UFormItemSelect;

{$mode delphi}

interface

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

type

  { TItemSelectForm }

  TItemSelectForm = class(TForm)
    ButtonSelect: TButton;
    ButtonCancel: TButton;
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure ListView1Resize(Sender: TObject);
  private
    function GetSelectedId: Integer;
    { private declarations }
  public
    Report: TReport;
    ObjectId: Integer;
    ListObject: TChronisObject;
    procedure LoadList;
    property SelectedId: Integer read GetSelectedId;
  end;

var
  ItemSelectForm: TItemSelectForm;

implementation

{$R *.lfm}

uses
  UCore;

{ TItemSelectForm }

procedure TItemSelectForm.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 Items.Count - 1 do
    if not TReportColumn(Report.Columns[I]).VirtualItem then
      Item.SubItems.Add(Items[I]);
  end;
end;

procedure TItemSelectForm.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;

function TItemSelectForm.GetSelectedId: Integer;
begin
  if Assigned(ListView1.Selected) then Result := Integer(ListView1.Selected.Data)
    else Result := -1;
end;

procedure TItemSelectForm.LoadList;
begin
  // SelectedObjectId := 0;
  with ListView1 do begin
    ListObject.Load(ObjectId);
    Report.Load(ListObject); //, '`' + PropertyName + '`=' + IntToStr(TabObjectList[TabControl1.TabIndex]));

    Report.FillListColumns(Columns);
    Items.Count := Report.Count;
    Refresh;
  end;
  ListView1Resize(Self);
end;

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

procedure TItemSelectForm.FormDestroy(Sender: TObject);
begin
  Report.Free;
  ListObject.Free;
end;

procedure TItemSelectForm.FormShow(Sender: TObject);
begin
  LoadList;
end;

end.