source: tags/1.0.0/Forms/UFormTargets.pas

unit UFormTargets;

{$mode objfpc}{$H+}

interface

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

type

  { TFormTargets }

  TFormTargets = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1KeyPress(Sender: TObject; var Key: char);
  private
    { private declarations }
  public
    procedure ReloadList;
  end; 

var
  FormTargets: TFormTargets;

implementation

{$R *.lfm}

uses
  UCore, UTarget, UFormTargetOptions;

{ TFormTargets }

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

procedure TFormTargets.FormCreate(Sender: TObject);
begin
  Core.CoolTranslator1.TranslateComponentRecursive(Self);
  Core.ThemeManager.UseTheme(Self);
end;

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

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

procedure TFormTargets.ListView1KeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then ListView1DblClick(nil);
end;

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

end.