fdadd.pas.svn-base

TFormDesigner allows you move and resize any control on your form. You need not prepare your form to

(*  GREATIS FORM DESIGNER PRO                 *)
(*  unit version 3.50.001                     *)
(*  Copyright (C) 2001-2003 Greatis Software  *)
(*  http://www.greatis.com/formdes.htm        *)
(*  [e-mail]                        *)

unit FDAdd;

interface

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

type
  TfrmFDAdd = class(TForm)
    btnOk: TButton;
    btnCancel: TButton;
    btnSelectAll: TButton;
    lsbAddControls: TListBox;
    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 TfrmFDAdd.lsvAddJobsEditing(Sender: TObject; Item: TListItem;
  var AllowEdit: Boolean);
begin
  AllowEdit:=False;
end;

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

procedure TfrmFDAdd.FormShow(Sender: TObject);
begin
  with lsbAddControls,Items do
    if Count>0 then ItemIndex:=0;
end;

end.