source: trunk/IDE/Forms/FormTargets.pas

unit FormTargets;

interface

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

type

  { TFormTargets }

  TFormTargets = class(TForm)
    ATargetOptions: TAction;
    ActionList1: TActionList;
    ListView1: TListView;
    PopupMenu1: TPopupMenu;
    procedure ATargetOptionsExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
  private
    { private declarations }
  public
    procedure ReloadList;
  end; 


implementation

{$R *.lfm}

uses
  Core, FormMain, Compiler, Producer, Target, FormTargetOptions;

resourcestring
  SCompilerOptions = 'Compiler options';
  SCompilerPath = 'Compiler path';

{ TFormTargets }

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

procedure TFormTargets.ATargetOptionsExecute(Sender: TObject);
var
  FormTargetOptions: TFormTargetOptions;
begin
  if Assigned(ListView1.Selected) then begin
    FormTargetOptions := TFormTargetOptions.Create(nil);
    FormTargetOptions.LoadControls(TTarget(ListView1.Selected.Data));
    if FormTargetOptions.ShowModal = mrOk then begin
      FormTargetOptions.SaveControls(TTarget(ListView1.Selected.Data));
      ReloadList;
    end;
    FormTargetOptions.Free;
  end;
end;

procedure TFormTargets.ListView1Data(Sender: TObject; Item: TListItem);
begin
  if (Item.Index >= 0) and (Item.Index < Core.Core.Compiler.Targets.Count) then
  with TTarget(Core.Core.Compiler.Targets[Item.Index]) do begin
    Item.Caption := Name;
    Item.Data := Core.Core.Compiler.Targets[Item.Index];
    //Item.SubItems.Add(Producer.CompilerPath);
  end;
end;

procedure TFormTargets.ReloadList;
begin
  ListView1.Items.Count := Core.Core.Compiler.Targets.Count;
  ListView1.Refresh;
end;

end.