pjmultiadd.pas

来自「GREATIS Print Suite Pro for Delphi (3-7,」· PAS 代码 · 共 61 行

(*  GREATIS PRINT SUITE PRO                          *)
(*  unit version 1.85.001                            *)
(*  Copyright (C) 2001-2007 Greatis Software         *)
(*  http://www.greatis.com/delphicb/printsuite/      *)
(*  http://www.greatis.com/delphicb/printsuite/faq/  *)
(*  http://www.greatis.com/bteam.html                *)

unit PJMultiAdd;

interface

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

type
  TfrmMultiAdd = class(TForm)
    lsvAddJobs: TListView;
    btnOk: TButton;
    btnCancel: TButton;
    btnSelectAll: TButton;
    procedure lsvAddJobsEditing(Sender: TObject; Item: TListItem;
      var AllowEdit: Boolean);
    procedure btnSelectAllClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

procedure TfrmMultiAdd.lsvAddJobsEditing(Sender: TObject; Item: TListItem;
  var AllowEdit: Boolean);
begin
  AllowEdit:=False;
end;

procedure TfrmMultiAdd.btnSelectAllClick(Sender: TObject);
var
  i: Integer;
begin
  with lsvAddJobs,Items do
    for i:=0 to Pred(Count) do Items[i].Selected:=True;
end;

procedure TfrmMultiAdd.FormShow(Sender: TObject);
begin
  with lsvAddJobs,Items do
    if Count>0 then
    begin
      Selected:=Items[0];
      Selected.Focused:=True;
    end;
end;

end.