Вкладка Controls. Компонент TRxSwitch

   
На этом шаге мы рассмотрим компонент TRxSwitch.

   
Компонент TRxSwitch относится к набору "безделушек"
наряду с такими компонентами библиотеки, как TRxDice и
TRxClock, и представляет собой реализацию в виде компонента
Delphi двухпозиционного переключателя (аналогичен компоненту
TCheckBox), используется для того, чтобы пользователь мог
указать свое решение (например, да/нет) (рис.1).


Рис.1. Компонент RxSwitch1 в положении вкл. и
компонент RxSwitch2 в положении выкл.

   
Можно изменить изображения для двух положений переключателя с помощью свойств
GlyphOn и GlyphOff. Текущее состояние
переключателя определяется свойством StateOn.

   
Для определения "горячей" клавиши, переключающей состояние элемента,
служит свойство ToggleKey. Свойство TextPosition
управляет расположением текста Caption относительно изображения
переключателя.

   
Некоторые свойства компонента:

Таблица 1. Свойства и методы компонента TRxSwitch

Свойство Описание
property GlyphOn: TBitmap; Свойство определяет графическое изображение (битовый образ),
используемое для изображения переключателя в состоянии "On" (включено).
property GlyphOff: TBitmap; Свойство определяет графическое изображение (битовый образ), используемое для изображения
переключателя в состоянии "Off" (выключено).
property StateOn: Boolean; Свойство определяет текущее состояние перерключателя:

  • True - состояние "On" (включено),
  • False - состояние " Off " (выключено).
property ToggleKey: TShortCut; Свойство позволяет определить "горячую" клавишу, при нажатии на
которую происходит изменение состояния переключателя на противоположное (если переключатель в
данный момент имеет фокус ввода).
property TextPosition: TTextPos; Свойство TextPosition управляет расположением текста Caption
относительно изображения переключателя.
type
TTextPos = (tpRight, tpLeft, tpAbove, tpBelow, tpNone);
Тип задает возможные значения расположения текста для свойства
TextPosition.
property OnOff: TNotifyEvent; Событие происходит при изменении состояния переключателя с
"включено" (On) на "выключено"
(Off), то есть при "выключении" переключателя.
property OnOn: TNotifyEvent; Событие происходит при изменении состояния переключателя с
"выключено" (Off) на
"включено" (On), то есть при
"включении" переключателя.
property ShowFocus: Boolean; Свойство определяет, будет ли отображаться прерывистый прямоугольник
вокруг элемента управления, если у него находится фокус ввода.
Если это свойство установлено в значение True и элемент
имеет фокус ввода (при этом свойство TabStop должно также
иметь значение True), то прямоугольник отображается, в противном
случае - нет.
procedure ToggleSwitch; Метод вызывает изменение состояния переключателя на противоположное,
изменяя значение свойства StateOn.

   
Приведем пример: создадим приложение, которое позволит продемонстрировать работу компонента
TRxSwitch.

   
Поместим на форму компоненты RxSwitch1,
RxLabel1 (рис.2).


Рис.2. Форма с размещенными на ней компонентами
RxSwitch1, RxLabel1

   
Компонент RxSwitch1:
свойству Caption придадим значение ‘Выкл.',
свойству StateOn значение False, свойству
TextPosition значение tpBellow
(текст находится под изображением).

   
Компонент RxLabel1 изначально сделаем невидимым, т.е. свойству
Visible придадим значение False,
свойству Caption - ‘Работает!!!'.

   
Для компонента RxSwitch1 напишем обработчик события
OnOff:

procedure TForm1.RxSwitch1Off(Sender: TObject);
begin
            RxSwitch1.Caption:='Выкл.';
            RxLabel1.Visible:=False;
end;

   
Для компонента RxSwitch1 напишем обработчик события
OnOn:

procedure TForm1.RxSwitch1On(Sender: TObject);
begin
                     RxSwitch1.Caption:='Вкл.';
                     RxLabel1.Visible:=True;
end;

   
Работа программы показана на рис.3(а-б).


Рис.3а. Переключатель в положении выкл.


Рис.3б. Переключатель в положении вкл.

   
Текст этого примера можно взять здесь.
   
На следующем шаге мы рассмотрим компонент TRxDice.



Вы можете оставить комментарий, или Трекбэк с вашего сайта.

Оставить комментарий