Компонент tСheckListBox

Этот компонент представляет собой список выключателей и позволяет размещать на панели, функционально объединенные выключатели.

Названия выключателей создаются с помощью свойства Items. Если все выключатели не умещаются на панели, то их можно расположить в несколько колонок, используя свойство Columns. В том случае, когда выключателям не хватает места, автоматически появляется вертикальная полоса скроллинга.

Для работы с выключателями, расположенными на панели TСheckListBox используются также следующие свойства:

AllowGrayed – типа Boolean, который определяет наличие нейтрального состояния.

Checked[Index] – это свойство представляет собой булевский массив, с помощью которого можно определить или установить состояние ’включено’, ‘выключено’. Если Checked = true, то галочка есть Index>=0

State[Index]—это массив, определяющий состояние выключателя:

сbChecked – вкл.,

сbUnСhecked - выкл.,

bGrayed - нейтральное.

В классе данного компонента наряду со стандартными событиями определено и собственное событие: OnClickCheck/

Например, чтобы запретить работу какой либо кнопки можно в обработчике CheckListBox1ClickCheck записать следующую строку.

If CheckListBox1.Checked[0] then Button1.Enable:= false;

Компонент tPanel

Э тот компонент позволяет группировать отдельные компоненты управления. Он представляет собой контейнер общего назначения и имеет ряд стандартных свойств. Компонент TPanel имеет свойства Color и Caption.

К омпонент tScrollBar

Это управляющий элемент, похожий на полосу скроллинга окна и используемый для изменения числовой величины визуальным изменением положения бегунка компоненты.

Свойствами этого компонента являются:

Kind = (sbHorisontal, sbVertical);

С помощью этого свойства можно менять положение TScrollBar.

Min, Max : Integer – можно задавать минимальное и максимальное значения изменяемой величины.

Position : Integer – в этом свойстве находится текущее значение числа.

LargeChange : TScrollBarInс, SmallChange :TScrollBarInc;

С помощью стих свойств соответственно можно устанавливать малый и большой сдвиг бегунка. При изменении положения бегунка возникает событие OnScroll. Чтобы программным образом устанавливать положение бегунка в заданное место используется метод:

SetParams(Aposition, Amin, Amax : integer);

Пример.

u nit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

ScrollBar1: TScrollBar;

Panel2: TPanel;

Label1: TLabel;

Button1: TButton;

procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure ScrollBar1Change(Sender: TObject);

private

Color : TColor;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);

begin

Panel2.Color := ScrollBar1.Position;

Label1.Font.Color := ScrollBar1.Position;

Label1.Caption := IntToStr(ScrollBar1.Position);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Label1.AutoSize := false;

Label1.Alignment := taCenter;

Label1.Color := clYellow;

ScrollBar1.Min := 1;

ScrollBar1.Max := 255;

ScrollBar1.SmallChange := 1;

ScrollBar1.LargeChange := 10;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ScrollBar1.SetParams(200,1,255);

Panel2.Color := ScrollBar1.Position;

Label1.Font.Color := ScrollBar1.Position;

Label1.Caption := IntToStr(ScrollBar1.Position);

end;

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

Panel1.Color :=ScrollBar1.Position;

end;

end