1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
unit GenericCheckList;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
Forms, Controls, StdCtrls, Dialogs, ButtonPanel, CheckLst, Buttons,
// IdeIntf
IDEImagesIntf;
type
{ TGenericCheckListForm }
TGenericCheckListForm = class(TForm)
ButtonPanel1: TButtonPanel;
CheckListBox1: TCheckListBox;
InfoLabel: TLabel;
procedure CheckListBox1ItemClick(Sender: TObject; {%H-}Index: integer);
procedure FormShow(Sender: TObject);
private
fActionBtn: TBitBtn;
procedure UpdateButtons;
public
constructor Create(TheOwner: TComponent); override;
constructor CreateWithActionButton(aCaption: TCaption; aResourceGlyphName: string = '');
destructor Destroy; override;
end;
var
GenericCheckListForm: TGenericCheckListForm;
implementation
{$R *.lfm}
{ TGenericCheckListForm }
constructor TGenericCheckListForm.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
InfoLabel.Caption := '';
end;
constructor TGenericCheckListForm.CreateWithActionButton(aCaption: TCaption;
aResourceGlyphName: string);
begin
Create(Nil);
fActionBtn := TBitBtn.Create(ButtonPanel1);
fActionBtn.Caption := aCaption;
fActionBtn.ModalResult := mrYes; // ActionButton will return mrYes.
fActionBtn.Align := alRight;
fActionBtn.BorderSpacing.Left := 6;
fActionBtn.BorderSpacing.Right := 6;
if aResourceGlyphName <> '' then
IDEImages.AssignImage(fActionBtn, aResourceGlyphName);
fActionBtn.AutoSize := True;
fActionBtn.Parent := ButtonPanel1;
end;
destructor TGenericCheckListForm.Destroy;
begin
inherited Destroy;
end;
procedure TGenericCheckListForm.FormShow(Sender: TObject);
begin
UpdateButtons;
end;
procedure TGenericCheckListForm.CheckListBox1ItemClick(Sender: TObject; Index: integer);
begin
UpdateButtons;
end;
procedure TGenericCheckListForm.UpdateButtons;
var
i: Integer;
begin
if Assigned(fActionBtn) then
begin
for i := 0 to CheckListBox1.Count-1 do
if CheckListBox1.Checked[i] then
begin
fActionBtn.Enabled := True;
Exit;
end;
fActionBtn.Enabled := False;
end;
end;
end.
|
