Componente QScrollbar
QScrollBar é uma barra de rolagem, usada para rolar o conteúdo de uma paleta de
cores de
janela, um form, ou controle. Pode funcionar como um simples trackbar.
Demais componentes -
Click Barra lateral esquerda
Informações adicionais -
Click propriedades em azul
Propriedades de QScrollBar
| Campo |
Tipo |
R/W+ |
Padrão |
Suporte# |
Align
|
INTEGER |
RW |
alNone |
|
Cursor
|
INTEGER |
RW |
crDefault |
W |
Enabled
|
INTEGER |
RW |
True |
WX |
Handle
|
INTEGER |
R |
|
W |
Height
|
INTEGER |
RW |
|
WX |
Hint
|
STRING |
RW |
|
WX |
Kind
|
INTEGER |
RW |
sbHorizontal |
WX |
LargeChange
|
INTEGER |
RW |
1 |
WX |
Left
|
INTEGER |
RW |
0 |
WX |
Max
|
INTEGER |
RW |
100 |
WX |
Min
|
INTEGER |
RW |
0 |
WX |
PageSize
|
INTEGER |
RW |
1 |
W |
Parent
|
QFORM/QPANEL/QTABCONTROL |
W |
|
WX |
PopupMenu
|
QPOPUPMENU |
W |
|
W |
Position
|
INTEGER |
RW |
0 |
WX |
ShowHint
|
INTEGER |
RW |
False |
W |
SmallChange
|
INTEGER |
RW |
1 |
WX |
TabOrder
|
INTEGER |
RW |
|
W |
Tag
|
INTEGER |
RW |
|
WX |
Top
|
INTEGER |
RW |
0 |
WX |
Width
|
INTEGER |
RW |
|
WX |
Visible
|
INTEGER |
RW |
True |
WX |
+ R = Propriedade de
leitura W = Propriedade de escrita
#W = Windows X = Linux G = Solaris
Eventos de QScrollBar
| Evento |
Tipo |
Ocorre quando... |
Parâmetros |
Suporte# |
OnChange
|
VOID |
Mudança na rolagem |
0 |
WX |
OnKeyDown
|
SUB (Key AS Word, Shift AS INTEGER) |
Tecla sendo pressionada |
2 |
WG |
OnKeyPress
|
SUB (Key AS BYTE) |
Usuário pressiona tecla |
1 |
WG |
OnKeyUp
|
SUB (Key AS Word, Shift AS INTEGER) |
Tecla solta |
2 |
WG |
OnScroll
|
SUB (ScrollCode AS BYTE, AS LONG) |
Rolando a barra |
2 |
W |
#W = Windows X = Linux G = Solaris
QScrollBar exemplo:
'QScrollBar paleta de cores Rapid-Q por by William Yu
DECLARE SUB ColorChange
DECLARE SUB Paint
CONST False = 0
CONST True = NOT False
'Aqui está algo que irá converter o seu padrão RGB para Rapid-Q BGR.
'É completamente inútil, porque uma função RGB já está implementado!
FUNCTION ConvertRGB(R AS INTEGER, G AS INTEGER, B AS INTEGER) AS INTEGER
ConvertRGB = (B SHL 16) OR (G SHL 8) OR R
END FUNCTION
CREATE Form AS QForm
CREATE LabelRed AS QLabel
Left = 10
Top = 22
Caption = "Vermelho:"
END CREATE
CREATE LabelGreen AS QLabel
Left = 5
Top = 52
Caption = "Verde:"
END CREATE
CREATE LabelBlue AS QLabel
Left = 10
Top = 82
Caption = "Azul:"
END CREATE
CREATE LabelNum1 AS QLabel
Left = 270
Top = 22
Caption = "0"
END CREATE
CREATE LabelNum2 AS QLabel
Left = 270
Top = 52
Caption = "0"
END CREATE
CREATE LabelNum3 AS QLabel
Left = 270
Top = 82
Caption = "0"
END CREATE
CREATE ScrollRed AS QScrollBar
Left = 50
Top = 20
Width = 200
Height = 20
Min = 0: Max = 255
ShowHint = True
Hint = "Atributo vermelho"
OnChange = ColorChange
END CREATE
CREATE ScrollGreen AS QScrollBar
Left = 50
Top = 50
Width = 200
Height = 20
Min = 0: Max = 255
ShowHint = True
Hint = " Atributo verde"
OnChange = ColorChange
END CREATE
CREATE ScrollBlue AS QScrollBar
Left = 50
Top = 80
Width = 200
Height = 20
Min = 0: Max = 255
ShowHint = True
Hint = "Atributo azul"
OnChange = ColorChange
END CREATE
CREATE PaintBox AS QCanvas
Left = 50
Top = 110
Height = 90
Width = 200
OnPaint = Paint
END CREATE
Sinta-se à vontade
para dar sugestões e fazer críticas construtivas.