unit_frmcoldefine.pas

影院售票系统完整源码

unit Unit_frmcoldefine;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, CyberXPMenu;

type
  TFrmColdefine = class(TForm)
    GroupBox1: TGroupBox;
    ListViewCol: TListView;
    BtnOk: TBitBtn;
    BtnExit: TBitBtn;
    BtnAllSel: TBitBtn;
    BtnClear: TBitBtn;
    CyberXPMenu1: TCyberXPMenu;
    procedure BtnOkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnAllSelClick(Sender: TObject);
    procedure BtnClearClick(Sender: TObject);
  private
    lstv:TListView;
    { Private declarations }
  public
    constructor MyCreate(AOwner: TComponent; _lstv: TListView);
    { Public declarations }
  end;

var
  FrmColdefine: TFrmColdefine;

implementation
{$R *.dfm}

procedure TFrmColdefine.BtnOkClick(Sender: TObject);
var
  i     :integer;
  item0 :TListItem;
begin
  {publicinfo.ReturnItem.Clear ;
  for i:=0 to listviewcol.Items.Count-1 do
  begin
    item0       := listviewcol.Items[i];
    if item0.Checked then publicinfo.ReturnItem.Add(inttostr(i));
  end;}
end;

procedure TFrmColdefine.FormShow(Sender: TObject);
var
  i     :integer;
  item0 :TListItem;
  tmpstr:string;
begin
  if lstv.Columns.Count<=0 then exit;
  for i:=0 to lstv.Columns.Count-1 do
  begin
    item0:=ListViewCol.Items.Add ;
    tmpstr:=lstv.Column[i].Caption;
    if (pos('▲',tmpstr)>0)
       or (pos('▼',tmpstr)>0) then
    tmpstr:=copy(tmpstr,1,length(tmpstr)-1);
    item0.Caption :=tmpstr ;
    item0.Checked :=True;
  end;
end;

procedure TFrmColdefine.BtnAllSelClick(Sender: TObject);
var
  i     :integer;
  item0 :TListItem;
begin
  for i:=0 to  listviewcol.Items.Count-1 do
  begin
    item0       :=listviewcol.Items[i];
    item0.Checked :=True;
  end;
end;

procedure TFrmColdefine.BtnClearClick(Sender: TObject);
var
  i     :integer;
  item0 :TListItem;
begin
  for i:=0 to  listviewcol.Items.Count-1 do
  begin
    item0       :=listviewcol.Items[i];
    item0.Checked :=false;
  end;
end;

constructor TFrmColdefine.MyCreate(AOwner: TComponent; _lstv: TListView);
begin
  Inherited Create(AOwner);
  lstv:=_lstv;
end;

end.