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


QBUTTON Компонент

QButton это кнопка общего назначения.

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





AlignINTEGERRWalNoneW
Align определяет как компонент располагается на родительской форме
BMPSTRINGRWW
BMP файл для отображения на кнопке
Примерs:
DIM button AS QBUTTON
button.BMP = "whatever.bmp"
Детали :
Вы можете присвоить кнопке несколько изображений, но они должны быть одного размера и размещены друг за другом горизонтально.
Первый bitmap появлется когда кнопка отжата.
Второй bitmap показывается когда кнопка неактивна
Третий - когда кнопка нажата
Вы должны сообщить Rapid-Q сколько изображений в вашем битмапе присвоив это число NumBMPs.
BMPHandleRESOURCEWW
BMP ресурс для отображения на кнопке (Assign a BMP resource handle to appear on the selected button).
Пример:
$RESOURCE game_BMP AS "game.bmp"
DIM button AS QBUTTON
button.bmpHandle = game_BMP
CancelINTEGERRWFalseW
Если Cancel=true, кнопка срабатывает при нажатии клавиши Escape.
CaptionSTRINGRWWXG
Caption определяет текст надписи на кнопке. Для подчеркивания символа используйте амперсанд (&) перед символом. Подчеркнутый символ является хоткеем (при нажатии клавиш Alt-символ -кнопка нажимается)
ColorINTEGERRWX
CursorINTEGERRWcrDefaultW
DefaultINTEGERRWFalseW
Если Default = True, кнопка нажимается пи нажати клавиши Enter.
EnabledINTEGERRWTrueWXG
Если Enabled = 0, кнопка неактивна и ее нельзя нажать .
FontQFONTWW
HandleINTEGERRW
HeightINTEGERRWWXG
HintSTRINGRWWXG
KindINTEGERRWbkCustomW
Указывает тип кнопки. На кнопке появляется соответствующая картинка '-- Button Kind
CONST bkCustom = 0 '-- None
CONST bkOK = 1 '-- Check Bitmap
CONST bkCancel = 2 '-- X Bitmap
CONST bkHelp = 3 '-- ? Bitmap
CONST bkYes = 4
CONST bkNo = 5
CONST bkClose = 6
CONST bkAbort = 7
CONST bkRetry = 8
CONST bkIgnore = 9
CONST bkAll = 10

LayoutINTEGERRWblBMPLeftW
Layout указывает расположение картинки на кнопке.
0 = blBMPLeft -- слева от надписи
1 = blBMPRight -- справа от надписи
2 = blBMPTop -- сверху от надписи
3 = blBMPBottom -- снизу от надписи
LeftINTEGERRW0WXG
ModalResultINTEGERRWmrNoneW
'-- Default ModalResults
CONST mrNone = 0
CONST mrOK = 1
CONST mrCancel = 2
CONST mrAbort = 3
CONST mrRetry = 4
CONST mrIgnore = 5
CONST mrYes = 6
CONST mrNo = 7
CONST mrAll = 8
'CONST MB_YESNO
CONST mrNoToAll = 9
CONST mrYesToAll = 10

NumBMPsINTEGERRWW
NumBMPs определяет число картинок поставленных в сответствие кнопке
ParentQFORM/QPANEL/QTABCONTROLWWXG
PopupMenuQPOPUPMENUWW
ShowHintINTEGERRWFalseWXG
SpacingINTEGERRW4W
Зазор между надписью и картинкой в пикселях
TabOrderINTEGERRWW
TagINTEGERRWWXG
TopINTEGERRW0WXG
WidthINTEGERRWWXG
VisibleINTEGERRWTrueWXG

QButton Методы
МетодТипОписаниеПараметрыПоддерживается





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

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





OnClickVOIDПользователь кликнул на кнопке0WXG
OnKeyDownSUB (Key AS Word, Shift AS INTEGER)Нажата клавиша2W
OnKeyPressSUB (Key AS BYTE)Пользователь нажал на кнопку1W
OnKeyUpSUB (Key AS Word, Shift AS INTEGER)Клавиша отпущена2W
OnMouseDownSUB (Button%, X%, Y%, Shift%)Нажатие кнопки мыши4WXG
OnMouseMoveSUB (X%, Y%, Shift%)Движение мыши3WXG
OnMouseUpSUB (Button%, X%, Y%, Shift%)Кнопка мыши отпущена4WXG


QButton Примеры
  '-- A drag button

  DIM Form AS QForm
  DIM Button AS QButton

  SUB MouseDown
      Button.StartDrag
      SHOWMESSAGE STR$(Button.Left)+", "+STR$(Button.Top)
  END SUB

  Button.Parent = Form
  Button.OnMouseDown = MouseDown

  Form.ShowModal

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