source: trunk/Forms/FormCompileMultiple.pas

unit FormCompileMultiple;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
  Target, FormEx;

type

  { TFormCompileMultiple }

  TFormCompileMultiple = class(TFormEx)
    ButtonCompile: TButton;
    ButtonCancel: TButton;
    ListViewTargets: TListView;
    procedure ButtonCompileClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    FTargets: TTargets;
  public
    procedure ReloadList;
    property Targets: TTargets read FTargets write FTargets;
  end;


implementation

{$R *.lfm}

procedure TFormCompileMultiple.ButtonCompileClick(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ListViewTargets.Items.Count - 1 do
    TTarget(ListViewTargets.Items[I].Data).Selected :=
      ListViewTargets.Items[I].Checked;
end;

procedure TFormCompileMultiple.FormShow(Sender: TObject);
begin
  ReloadList;
end;

procedure TFormCompileMultiple.ReloadList;
var
  I: Integer;
  ListItem: TListItem;
begin
  if Assigned(Targets) then
  for I := 0 to Targets.Count - 1 do
  with Targets[I] do begin
    ListItem := ListViewTargets.Items.Add;
    ListItem.Caption := Name;
    ListItem.Checked := Selected;
    ListItem.Data := Targets[I];
  end;
end;

end.