setprop.pas

数据属性设置控件

unit SetProp;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, CheckLst, Buttons;

type
  TSetPropForm = class(TForm)
    CheckListBox1: TCheckListBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
  private
    { Private declarations }
  public
    CheckItems, VisibleItems: TStrings;
    procedure SetItems(Items: TStrings);
  end;

implementation

{$R *.DFM}

procedure TSetPropForm.BitBtn4Click(Sender: TObject);
begin
  if Edit1.Text <> '' then
  begin
    CheckListBox1.Items.Insert(CheckListBox1.ItemIndex, Edit1.Text);
    Edit1.Text := '';
  end;
end;

procedure TSetPropForm.BitBtn1Click(Sender: TObject);
var
  I: Integer;
begin
  CheckItems.Clear;
  VisibleItems.Clear;
  for I := 0 to CheckListBox1.Items.Count - 1 do
  begin
    if CheckListBox1.ItemEnabled[I] then
    begin
      CheckItems.Add(CheckListBox1.Items[I]);
      VisibleItems.Add(CheckListBox1.Items[I]);
    end
    else
      CheckItems.Add(';' + CheckListBox1.Items[I]);
  end;
end;

procedure TSetPropForm.FormCreate(Sender: TObject);
begin
  CheckItems := TStringList.Create;
  VisibleItems := TStringList.Create;
end;

procedure TSetPropForm.FormDestroy(Sender: TObject);
begin
  CheckItems.Free;
  VisibleItems.Free;
end;

procedure TSetPropForm.BitBtn3Click(Sender: TObject);
begin
  if Edit1.Text <> '' then
  begin
    CheckListBox1.Items[CheckListBox1.ItemIndex] := Edit1.Text;
    Edit1.Text := '';
  end;
end;

procedure TSetPropForm.BitBtn5Click(Sender: TObject);
begin
  CheckListBox1.Items.Delete(CheckListBox1.ItemIndex);
end;

procedure TSetPropForm.BitBtn6Click(Sender: TObject);
begin
  CheckListBox1.ItemEnabled[CheckListBox1.ItemIndex] :=
    not CheckListBox1.ItemEnabled[CheckListBox1.ItemIndex]; 
end;

procedure TSetPropForm.SetItems(Items: TStrings);
var
  I: Integer;
  Str: string;
begin
  CheckListBox1.Items.Assign(Items);
  for I := 0 to Items.Count - 1 do
    if CheckListBox1.Items[I][1] = ';' then
    begin
      CheckListBox1.ItemEnabled[I] := False;
      Str := CheckListBox1.Items[I];
      Delete(Str, 1, 1);
      CheckListBox1.Items[I] := Str;
    end;
end;

end.