root/trunk/ULinkerList.pas

unit ULinkerList;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls;

type
  TLinkerListDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    GroupBox1: TGroupBox;
    linkerListbox: TListBox;
    addEdit: TEdit;
    AddButton: TButton;
    DeleteButton: TButton;
    procedure AddButtonClick(Sender: TObject);
    procedure DeleteButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

    { Edit a list of flags, returns true if they were modified }
    function EditList( list : TStringList ): boolean;
  end;

var
  LinkerListDlg: TLinkerListDlg;

implementation

{$R *.DFM}

function TLinkerListDlg.EditList( list:TStringList ) : boolean;
var
  r : Integer;
begin
  Self.linkerListbox.Items.Clear;
  Self.linkerListbox.Items.AddStrings( list );
  Self.DeleteButton.Enabled := list.Count > 0;
  Self.addEdit.Text := '';
  r := Self.ShowModal;
  Result := false;  
  if r <> mrOk then Exit;
  list.Clear;
  list.AddStrings( linkerListbox.Items );
  result:= true;
end;

procedure TLinkerListDlg.AddButtonClick(Sender: TObject);
var
  str : string;
begin
  str := Trim( addEdit.Text );
  if Length( str ) < 1 then Exit;
  if linkerListbox.Items.IndexOf( str ) >-1 then Exit;
  linkerListBox.Items.Add( str );
  addEdit.Text := '';
  Self.DeleteButton.Enabled := LinkerListbox.items.count > 0;
end;

procedure TLinkerListDlg.DeleteButtonClick(Sender: TObject);
var
  N : Integer;
  SL : TStringList;
begin
  if  linkerListbox.SelCount < 1 then Exit;
  SL := TStringList.Create;
  with( linkerListbox ) do
  for N:=0 to Items.Count-1 do begin
    if Selected[ N ]=false then SL.Add( Items[N] );
  end;
  linkerListbox.Clear;
  if SL.Count > 0 then linkerListbox.Items.AddStrings( SL )
  else DeleteButton.Enabled:= false;
  SL.Free;
  Self.DeleteButton.Enabled := LinkerListbox.items.count > 0;  
end;

end.