Rapid-Q Documentation by William Yu (c)1999-2000 Appendix A: QCOOLBTN


QCOOLBTN Компонент

QCoolbtn это расширение QButton, с возможностью плоских кнопок и переключаемых кнопок (как GroupIndex)

QCoolbtn Свойства
ПолеТипR/WПо умолчаниюПоддерживается





AlignINTEGERRWalNoneW
Align определяет как компонент располагается на родительской форме
AllowAllUpINTEGERRWFalseW
AllowAllUp - позволяет снять выделение со всех кнопок за один раз.
BMPSTRINGWWX
Добавить новый BMP файл или использовать BMP в процедуре отрисовки
Примерs:
DIM coolbutton AS QCOOLBTN
coolbutton.BMP = "whatever.bmp"
Детали:
Вы можете присвоить кнопке несколько изображений, но они должны быть одного размера и размещены друг за другом горизонтально.
Первый bitmap появлется когда кнопка отжата.
Второй bitmap показывается когда кнопка неактивна
Третий - когда кнопка нажата
Вы должны сообщить Rapid-Q сколько изображений в вашем битмапе присвоив это число NumBMPs.
BMPHandleRESOURCEWW
CaptionSTRINGRWWXG
CursorINTEGERRWcrDefaultW
DownINTEGERRWFalseWX
Down определяет выбрана ли кнопка (нажата) и не выбрана (не нажата)
EnabledINTEGERRWTrueWXG
FlatINTEGERRWFalseWX
Flat определяет имеет ли кнопкабордюр или имеет плоский вид.
FontQFONTWW
GroupIndexINTEGERRW0W
GroupIndex=1 позволяет работать кнопкам как зависимый выкючатель. Если нажать одну кнопку, она остается в нажатом положении, а остальные кнопки выключаются.
HeightINTEGERRWWXG
HintSTRINGRWWXG
LayoutINTEGERRWblBMPLeftW
Layout указывает расположение картинки на кнопке.
0 = blBMPLeft -- слева от надписи
1 = blBMPRight -- справа от надписи
2 = blBMPTop -- сверху от надписи
3 = blBMPBottom -- снизу от надписи
LeftINTEGERRW0WXG
NumBMPsINTEGERRWW
NumBMPs определяет число картинок поставленных в сответствие кнопке.
ParentQFORM/QPANEL/QTABCONTROLWWXG
ShowHintINTEGERRWFalseWXG
SpacingINTEGERRW4W
Зазор между надписью и картинкой в пикселях.
TabOrderINTEGERRWW
TagINTEGERRWWXG
TopINTEGERRW0WXG
WidthINTEGERRWWXG
VisibleINTEGERRWTrueWXG

QCoolbtn Методы
МетодТипОписаниеПараметрыПараметры





StartDragSUBЕсли 1, то кнопку можно перетаскивать мышкой0W

QCoolbtn События
СобытиеТипПроисходит когда...Параметры




OnClickVOIDПользователь кликнул on the button0WXG
OnMouseDownSUB (Button%, X%, Y%, Shift%)Нажатие кнопки мыши4WX
OnMouseMoveSUB (X%, Y%, Shift%)Движение мыши3WX
OnMouseUpSUB (Button%, X%, Y%, Shift%)Кнопка мыши отпущена4WX


QCoolbtn Примеры
  '-- Пример с переключаемыми кнопками (via GroupIndex)

  CONST False = 0: CONST True = 1

  DIM Form AS QForm
  DIM Cool1 AS QCoolbtn
  DIM Cool2 AS QCoolbtn

  Cool1.Parent = Form
  Cool1.GroupIndex = 1       '' Must be > 0
  Cool1.Down = True          '' Button initially down
  Cool2.Parent = Form
  Cool2.GroupIndex = 1       '' Same group as Cool1
  Cool2.Left = 40

  Form.ShowModal

Предыдущий Компонент Содержание Следующий Компонент