CheckListBox

type
  TFormMain = class(TForm)
    PanelBottom: TPanel;
    Button: TButton;
    CheckListBox: TCheckListBox;
    SpeedButtonAdd: TSpeedButton;
    procedure ButtonClick(Sender: TObject);
    procedure SpeedButtonAddClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { вставь сюда кусочек говнокода :)) }
  public
    procedure AppIdle(Sender: TObject; var Done: Boolean);
  end;
 
var
  FormMain: TFormMain;
 
implementation
 
{$R *.dfm}
 
procedure TFormMain.AppIdle(Sender: TObject; var Done: Boolean);
var
  idx, chcount: int32;
begin
  chcount:= 0;
 
  for idx:= 0 to CheckListBox.Count - 1 do
    begin
      inc(chcount, int32(CheckListBox.Checked[idx]));
      if chcount > 2
        then break;
    end;
 
  Button.Enabled:= chcount in [1, 2];
end;
 
procedure TFormMain.ButtonClick(Sender: TObject);
begin
  Close();
end;
 
procedure TFormMain.FormShow(Sender: TObject);
begin
  Application.OnIdle:= Self.AppIdle;
end;
 
procedure TFormMain.SpeedButtonAddClick(Sender: TObject);
begin
  CheckListBox.Items.Add(format('Строка %d', [CheckListBox.Count + 1]));
end;

procedure TFormMain.DoIdle;
var
  online: Boolean;
  lastpanel: TStatusPanel;
  kind: TTechCheckItemKind;
  state: TTechCheckState;
  results: TTechCheckResults; // результаты проверки ТУ
begin
  inherited;
 
  kind:= SelectedCheckKind;
  online:= FEngine.Online;
 
  // действия ActionList
  ActionFileUploadFirmware.Enabled:=  online;
  //ActionSettingsPort.Enabled:=        not online;
 
  // меню "интерфейс"
  ActionInterfaceOpen.Enabled:=       not online;
  ActionInterfaceClose.Enabled:=      online;
  ActionInterfaceSend.Enabled:=       online and (PageControl.ActivePageIndex = 0);
  ActionInterfaceAbort.Enabled:=      online and (FEngine.PendingCount <> 0);
 
  // меню "правка"
  ActionEditClearLog.Enabled:=        not GlobalLogHelper.Empty;
  ActionEditCopyLog.Enabled:=         GlobalLogHelper.CanCopy;
  ActionEditSelectAll.Enabled:=       ActionEditClearLog.Enabled;
 
  // меню "вид"
  ActionViewRegUART.Checked:=         FormRegUARTExists();
  ActionViewRegDiag.Checked:=         FormRegDiagExists();
  ActionViewRegFlags.Checked:=        FormRegFlagsExists();
  ActionViewUpdateVisible.Enabled:=   online;
  ActionViewResetVisible.Enabled:=    online;
 
  // меню "поиск"
  ActionSearchBarOpen.Checked:=       ToolbarLogSearch.Visible;
  ActionSearchNext.Enabled:=          ComboBoxSearch.Text <> '';
  ActionSearchPrevious.Enabled:=      ComboBoxSearch.Text <> '';
 
  // меню "проверка"
  ActionCheckSelectedStage.Enabled:= kind = tcikStage;
  ActionCheckSelectedParam.Enabled:= kind = tcikParam;
  ActionCheckModeDebug.Checked:=     FProg.Mode = cmDebug;
  ActionCheckModeTech.Checked:=      FProg.Mode = cmTechChecks;
  ActionCheckModeCurrents.Checked:=  FProg.Mode = cmCurrents;
 
 
 
  PanelCommands.Tag:=                 int32(online);
 
  // statusbar
  with StatusBar do
    begin
      lastpanel:= Panels[Panels.Count - 1];
 
      if online
        then begin
               //Panels[0].Text:= FEngine.Port.CommPort;
               Panels[1].Text:= IntToStr(FEngine.Port.BaudRate);
               Panels[2].Text:= FEngine.Port.SettingsAsString;
             end
        else begin
               //Panels[0].Text:= 'N/A';
               Panels[1].Text:= '';
               Panels[2].Text:= '';
             end;
 
      lastpanel.Text:= FEngine.Port.TimeOuts.AsString;
    end;
 
  // ---- контролы на StatusBar'e ----
  // панель порта
  //PanelIndicatorCOM.Color:=   Self.StyleColor[scButtonNormal];
  PanelIndicatorCOM.Enabled:= FEngine.Port.CommPort <> '';
  if PanelIndicatorCOM.Enabled
    then PanelIndicatorCOM.Caption:= ' ' + FEngine.Port.CommPort
    else PanelIndicatorCOM.Caption:= ' N/A ';
 
  // панель CRC32
  LEDComConnected.Status:=    online;
  //PanelIndicatorCRC32.Color:= PanelIndicatorCOM.Color;
 
  // индикатор очереди
  ProgressBarQueue.Visible:=    FEngine.PendingCount <> 0;
  PanelIndicatorQueue.Caption:= FEngine.StatusAsText;
  PanelIndicatorQueue.Color:=   PanelIndicatorCOM.Color;
 
  // высота PageControl в зависимости от актиной вкладки
  if PageControl.ActivePageIndex > -1
    then PageControl.ActivePage.Tag:= PageControl.Height;
 
  // экспериментально. проверить, не грузит ли ядро процессора
  CorrectControlLeft(Splitter1st, ComboBoxCommand);
  CorrectControlLeft(SplitterSearch, ComboBoxSearch);
  {if Abs(Splitter1st.Left - ComboBoxCommand.BoundsRect.Right) > 10
    then Splitter1st.Left:= ComboBoxCommand.BoundsRect.Right;}
 
  LabelMessageTypeIcon.Font.Color:= Self.FontColor[sfButtonTextNormal];
 
  // Табло результатов проверки
  case kind of
    tcikParam,
    tcikStage,
    tcikProgram:
      begin
        //LabelConditions.Caption:= SelectedCheckItem.ConditionStr;  //TTechCheckParam(SelectedCheckItem).ConditionStr;
        results:= SelectedCheckItem.ParamResults(state); //:= SelectedCheckItem.State; //TTechCheckParam(SelectedCheckItem).State;
        LabelConditions.Caption:= CHECK_STATES_RU[state];
        GradientParamResult.StartColor:= GRADIENT_COLORS[state].BC;
        GradientParamResult.EndColor:=   GRADIENT_COLORS[state].EC;
        LabelCheckItemName.Caption:= SelectedCheckItem.Name;
        LabelConditions.Font.Color:= CHECK_STATE_COLORS[state];
      end;
 
    else begin
           LabelCheckItemName.Caption:= '';
           LabelConditions.Caption:= ' ';
           GradientParamResult.StartColor:= clBtnFace;
           GradientParamResult.EndColor:=   clBlack;
           ZeroMemory(@results, SizeOf(results));
         end;
  end; //case
 
  UpdatePanelItemState(results);
 
  // панель с часами
  TimerClock.Enabled:= ToolbarClock.Visible;
end;