Componente QCoolBtn (Botão melhorado)
QCoolBtn é uma extensão de QButton, mas possibilita
melhorias, e associa um grupo de botões (via GroupIndex).
Demais componentes -
Click Barra lateral esquerda
Informações adicionais -
Click propriedades em azul
Propriedades de QCoolBtn
Campo |
Tipo |
R/W+ |
Padrão |
Suporte# |
Align
|
INTEGER |
RW |
alNone |
W |
AllowAllUp
|
INTEGER |
RW |
False |
W |
BMP
|
STRING |
W |
|
WX |
BMPHandle
|
RESOURCE |
W |
|
WX |
Caption
|
STRING |
RW |
|
WXG |
Cursor
|
INTEGER |
RW |
crDefault |
W |
Down
|
INTEGER |
RW |
False |
WX |
Enabled
|
INTEGER |
RW |
True |
WXG |
Flat
|
INTEGER |
RW |
False |
WX |
Font
|
QFONT |
W |
|
W |
GroupIndex
|
INTEGER |
RW |
0 |
W |
Height
|
INTEGER |
RW |
|
WXG |
Hint
|
STRING |
RW |
|
WXG |
Layout
|
INTEGER |
RW |
blBMPLeft |
W |
Left
|
INTEGER |
RW |
0 |
WXG |
NumBMPs
|
INTEGER |
RW |
|
W |
Parent
|
QFORM/QPANEL/QTABCONTROL |
W |
|
WXG |
ShowHint
|
INTEGER |
RW |
False |
WXG |
Spacing
|
INTEGER |
RW |
4 |
W |
TabOrder
|
INTEGER |
RW |
|
W |
Tag
|
INTEGER |
RW |
|
WXG |
Top
|
INTEGER |
RW |
0 |
WXG |
Width
|
INTEGER |
RW |
|
WXG |
Visible
|
INTEGER |
RW |
True |
WXG |
+ R = Propriedade de
leitura W = Propriedade de escrita
#W = Windows X = Linux G = Solaris
Método de QCoolBtn
Método |
Tipo |
Descrição |
Parâmetros |
Suporte# |
StartDrag
|
SUB |
Permite arrastar o botão |
0 |
W |
#W = Windows X = Linux G = Solaris
Eventos de QCoolBtn
Evento |
Tipo |
Ocorre quando... |
Parâmetros |
Suporte# |
OnClick
|
VOID |
Usuário clicou no botão |
0 |
WXG |
OnMouseDown
|
SUB (Button%, X%, Y%, Shift%) |
Botão do mouse pressionado |
4 |
WX |
OnMouseMove
|
SUB (X%, Y%, Shift%) |
Mouse movido |
3 |
WX |
OnMouseUp
|
SUB (Button%, X%, Y%, Shift%) |
Botão do mouse foi solto |
4 |
WX |
#W = Windows X = Linux G = Solaris
QCoolBtn exemplo:
'-- Botões alternados (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
'' Precisa ser >0
Cool1.Down = True
'' Botão inicialmente baixo
Cool2.Parent = Form
Cool2.GroupIndex = 1 '' Mesmo grupo de Cool1
Cool2.Left = 40
Form.ShowModal
Sinta-se à vontade
para dar sugestões e fazer críticas construtivas.