ufieldselection.pas

来自「AbsDataBase5.16 最新版」· PAS 代码 · 共 94 行

unit uFieldSelection;

interface

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

type
  TfrmFieldSelection = class(TForm)
    ButtonsPnl: TPanel;
    MainPnl: TPanel;
		FieldList: TCheckListBox;
		SelectAllBtn: TButton;
		UnselectAllBtn: TButton;
		OkBtn: TButton;
		CancelBtn: TButton;
		ExportLimitCB: TComboBox;
		Label1: TLabel;
		OptionsMenu: TPopupMenu;
		Invertselection1: TMenuItem;
		procedure FormCreate(Sender: TObject);
		procedure FormClose(Sender: TObject; var Action: TCloseAction);
		procedure SelectAllBtnClick(Sender: TObject);
		procedure UnselectAllBtnClick(Sender: TObject);
		procedure Invertselection1Click(Sender: TObject);
	private
		{ Private declarations }
		procedure SetChecks( status : integer );
	public
		{ Public declarations }
	end;

var
	frmFieldSelection: TfrmFieldSelection;

//----------------------------------------------------------------------------

implementation

{$R *.DFM}

//Uses
//	KrqAppInfoUnit;


procedure TfrmFieldSelection.FormCreate(Sender: TObject);
begin
	// read application settings
	try
//		KrqGetFormPosition(self, fp_ALL);
	 except
	end;
end;

procedure TfrmFieldSelection.FormClose(Sender: TObject;
	var Action: TCloseAction);
begin
//	KrqSetFormPosition(self, fp_ALL);
end;

procedure TfrmFieldSelection.SetChecks( status : integer );
var
	HlpCnt : integer;
	Stat : boolean;
begin
	for HlpCnt := 0 to FieldList.Items.Count-1 do begin
		Stat := FieldList.Checked[HlpCnt];
		case status of
			0 : Stat := True;
			1 : Stat := False;
			2 : Stat := not(Stat);
		end;
		FieldList.Checked[HlpCnt] := Stat;
	end;
end;

procedure TfrmFieldSelection.SelectAllBtnClick(Sender: TObject);
begin
	SetChecks(0);
end;

procedure TfrmFieldSelection.UnselectAllBtnClick(Sender: TObject);
begin
	SetChecks(1);
end;

procedure TfrmFieldSelection.Invertselection1Click(Sender: TObject);
begin
	SetChecks(2);
end;

end.