QCanvas

Componente QCanvas (Tela em branco)

QCanvas é uma imagem vazia para pintar. Em vez de carregar suas
imagens, você precisa desenhá-las em QCanvas.

Demais componentes - Click Barra lateral esquerda
Informações adicionais - Click propriedades em azul

Propriedades de QCanvas

Campo	Tipo	R/W+	Padrão	Suporte#
Align	INTEGER	RW	alNone	W
ClientHeight	INTEGER	RW		W
ClientWidth	INTEGER	RW		W
Color	INTEGER	RW		WXG
CopyMode	INTEGER	RW	cmBlackness	W
Cursor	INTEGER	RW	crDefault	W
Enabled	INTEGER	RW	True	WXG
Font	QFONT	W		W
Height	INTEGER	RW		WXG
Hint	STRING	RW		W
Left	INTEGER	RW	0	WXG
Parent	QFORM/QPANEL/QTABCONTROL	W		WXG
Pixel	2D ARRAY of INTEGER	RW		WXG
PopMenu	QPOPMENU	W		W
ShowHint	INTEGER	RW	False	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étodos de QCanvas

Método	Tipo	Descrição	Parâmetros	Suporte#
Circle	SUB (x1%, y1%, x2%, y2%, c%, fill%)	Desenha & preenche um Circulo.	6	WXG
CopyRect	SUB (D, Image, S)	D e S são QRECTs, Imagem pode ser QImage, QCanvas ou QBitmap.	3	W
Draw	SUB (x1%, y1%, x2%, u2%, c%)	Desenha Bitmap no Canvas.	3	WG
FillRect	SUB (x1%, y1%, x2%, y2%, c%)	Desenha e preenche um retângulo.	5	WXG
Line	SUB (x1%, y1%, x2%, y2%, c%)	Desenha uma linha.	5	WXG
Paint	SUB (x%, y%, c% borderc%)	Preenche uma região.	4	WXG
Pset	SUB (x%, y%, c%)	Plota Pixel.	3	WXG
Rectangle	SUB (x1%, y1%, x2%, y2%, c%)	Desenha um retângulo.	5	WXG
Repaint	SUB	Força a repintura.	0	W
Rotate	SUB (xOrigin%, yOrigin%, Angle%)	Rotaciona o inteiro canvas numa specifica origem.	3	W
RoundRect	SUB (x1%, y1%, x2%, y2%, x3%, y3%, c%)	Desenha e preenche um retângulo arredondado.	7	W
StretchDraw	SUB (Rect AS QRECT, BMP)	Desenha uma imagem e expande-a para encher um retângulo.	2	W
TextHeight	FUNCTION (Text$) AS WORD	Retorna a altura em pixels, da string Text$.	1	W
TextWidth	FUNCTION (Text$) AS WORD	Retorna a largura em pixels, da string Text$.	1	W
TextRect	SUB (Rect AS QRECT, x%, y%, S$, fc%, bc%)	Escreve texto, e monta-o dentro da região do retângulo.	6	W
TextOut	SUB (x%, y%, S$, fc%, bc%)	Escreve texto na imagem.	5	WXG

#W = Windows X = Linux G = Solaris

Eventos de QCanvas

Evento	Tipo	Ocorre quando...	Parâmetros	Suporte#
OnClick	VOID	Usuário clicou no canvas	0	WXG
OnDblClick	VOID	Usuário clicou 2 vezes no canvas.	0	W
OnMouseDown	SUB (Button%, X%, Y%,Shift%)	Botão do mouse pressionado.	4	WXG
OnMouseMove	SUB (X%, Y%, Shift%)	Mouse movido.	3	WXG
OnMouseUp	SUB (Button%, X%, Y%, Shift%)	Botão do mouse foi solto.	4	WXG
OnPaint	VOID	Recebe mensagem WM_PAINT.	0	WXG

#W = Windows X = Linux G = Solaris

QCanvas exemplo:

' Scroll pixel a pixel em Rapid-Q por William Yu

DIM Canvas AS QCanvas
DIM Form AS QForm
DIM Timer1 AS QTimer
DIM Font AS QFont
DIM Y AS INTEGER
    Y = -20

SUB Resize
    Canvas.Height = Form.ClientHeight
    Canvas.Width = Form.ClientWidth
END SUB

SUB Paint
    Canvas.Textout (65,Y-30,"Beware the power of Rapid-Q!", &H00FF00, 0)
    Canvas.Textout (30,Y,"Credit Scroller written in Rapid-Q by William Yu", &HFFFFFF, 0)
END SUB

SUB TimerOver
    Timer1.Interval = 1 'Não pode ser mais baixo!
    Y = Y + 1              'Pixel a pixel!
    Paint
END SUB

Form.Width = 400
Form.Height = 200
Form.Center
Form.Color = 0

Font.Name = "Arial"
Font.Size = 12
Font.Color = &H00FF00
Canvas.Parent = Form
Canvas.Font = Font
Canvas.Color = 0
Canvas.OnPaint = Paint

Timer1.Interval = 1
Timer1.OnTimer = TimerOver

Form.Onresize = Resize
Form.ShowModal

Sinta-se à vontade para dar sugestões e fazer críticas construtivas.

Anterior Alto da página Página Inicial Próxima