unitstdother1.pas

I mComputermaster programmisDelphi+pascal

unit UnitStdOther1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  sAlphaListBox, sCheckListBox, StdCtrls, sFrameAdapter, ExtCtrls,
  sCheckBox, sButton, ComCtrls, sTreeView;

type
  TFrameStdOther1 = class(TFrame)
    sCheckListBox2: TsCheckListBox;
    sFrameAdapter1: TsFrameAdapter;
    sCheckListBox1: TsCheckListBox;
    sListBox1: TsListBox;
    sCheckBox1: TsCheckBox;
    sCheckBox2: TsCheckBox;
    sTreeView1: TsTreeView;
    procedure sCheckBox1Click(Sender: TObject);
    procedure sCheckBox2Click(Sender: TObject);
    procedure FrameResize(Sender: TObject);
  end;

implementation

uses acntUtils, MainUnit;

{$R *.DFM}

procedure TFrameStdOther1.sCheckBox1Click(Sender: TObject);
const
  cba : array[boolean] of TCheckBoxState = (cbUnchecked, cbGrayed);
begin
  sCheckListBox1.State[3] := cba[sCheckBox1.Checked];
  sCheckListBox1.State[5] := cba[sCheckBox1.Checked];
  sCheckListBox1.State[6] := cba[sCheckBox1.Checked];
end;

procedure TFrameStdOther1.sCheckBox2Click(Sender: TObject);
begin
  sCheckListBox1.ItemEnabled[2] := not sCheckBox2.Checked;
  sCheckListBox1.ItemEnabled[6] := not sCheckBox2.Checked;
  sCheckListBox1.ItemEnabled[12] := not sCheckBox2.Checked;
end;

procedure TFrameStdOther1.FrameResize(Sender: TObject);
begin
  sTreeView1.Items[0].Expand(True);
end;

end.