Rapid-Q Custom Component - 2004

-


QrPanel Component

QrPanel implements a generic container for your components just like QPanel, but this one has
round corners if you like. QrPanel can however completely replace QPanel since you can toggle
on and off the value which makes QrPanel have round corners.

QrPanel Properties

Field

Type

R/W

Default

Support






Align

INTEGER

RW

alNone

W

Alignment

INTEGER

RW

taCenter

W

BevelInner

INTEGER

RW

bvNone

W

BevelOuter

INTEGER

RW

bvRaised

W

BevelWidth

INTEGER

RW

1

W

BorderStyle

INTEGER

RW

bsNone

W

Caption

STRING

RW


W

ClientHeight

INTEGER

RW


WX

ClientWidth

INTEGER

RW


WX

Color

INTEGER

RW


W

Cursor

INTEGER

RW

crDefault

W

Enabled

INTEGER

RW

True

WX

Font

QFONT

W


W

Height

INTEGER

RW


WX

Hint

STRING

RW


W

Left

INTEGER

RW

0

WX

Parent

QFORM/QPANEL/QTABCONTROL

W


WX

RBorder

BYTE

RW

0

W ( X ? )

RndX

LONG

RW

20

W ( X ? )

RndY

LONG

RW

20

W ( X ? )

ShowHint

INTEGER

RW

False

W

TabOrder

INTEGER

RW


W

Tag

INTEGER

RW


WXG

Top

INTEGER

RW

0

WX

Width

INTEGER

RW


WX

Visible

INTEGER

RW

True

WX


QrPanel Methods

Method

Type

Description

Params

Support






Repaint

SUB

Refreshes panel and all contents

0

W


QrPanel Events

Event

Type

Occurs when...

Params

Support






OnClick

VOID

User clicked on open area of panel

0

WX

OnDblClick

VOID

User double clicked panel

0

W

OnMouseDown

SUB (Button%, X%, Y%, Shift%)

Mouse button held down

4

W

OnMouseMove

SUB (X%, Y%, Shift%)

Mouse moves over panel

3

W

OnMouseUp

SUB (Button%, X%, Y%, Shift%)

Mouse button is released

4

W



QrPanel Example

$INCLUDE "QRPANEL.INC"

$INCLUDE "RAPIDQ.INC"


CREATE Form AS QFORM

Caption = "QPANEL vs. QRPANEL"

Width = 401

Height = 233

Center

Borderstyle = 4

CREATE Panel1 AS QPANEL

Left = 5

Top = 5

Caption = "Corned Panel"

Height = 193

Width = 185

Color = &hFF0000

END CREATE

CREATE Panel2 AS QRPANEL

Left = 197

Top = 5

Caption = "Round Corner Panel"

Height = 193

Width = 185

TabOrder = 1

rBorder = 1

RndX = 25

RndY = 25

Color = &h0000FF

END CREATE

END CREATE


Form.ShowModal