mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-25 18:17:48 +01:00
80 lines
1.7 KiB
ObjectPascal
80 lines
1.7 KiB
ObjectPascal
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 CreateWithActionButton(aCaption: TCaption; aResourceGlyphName: string = '');
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TGenericCheckListForm }
|
|
|
|
constructor TGenericCheckListForm.CreateWithActionButton(aCaption: TCaption;
|
|
aResourceGlyphName: string);
|
|
begin
|
|
inherited 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;
|
|
|
|
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.
|
|
|