'QColorButton
'By Achilles B. Mina
'Uploaded 7/5/03
TYPE QCOLORBUTTON EXTENDS QPANEL
SndFreq AS INTEGER
SndDur AS SINGLE
CONSTRUCTOR
Height = 26
Width = 26
BevelInner = 2
Color = &HEEEEEE
Cursor = -21
END CONSTRUCTOR
EVENT OnMouseDown
QCOLORBUTTON.BorderStyle = 1
QCOLORBUTTON.Caption = " " + QCOLORBUTTON.Caption
IF QCOLORBUTTON.SndFreq = 0 AND QCOLORBUTTON.SndDur = 0 THEN ' XP compatibles
' SOUND(5000,.5)
ELSE
' SOUND(QCOLORBUTTON.SndFreq,QCOLORBUTTON.SndDur)
END IF
END EVENT
EVENT OnMouseUp
QCOLORBUTTON.BorderStyle = 0
QCOLORBUTTON.Caption = QCOLORBUTTON.Caption - " "
END EVENT
END TYPE
CREATE Form AS QFORM
Center
CREATE Fake AS QCOLORBUTTON
Left = 40
Top = 40
'SndFreq = 500
'SndDur = .5
Caption = "A"
END CREATE
END CREATE
Form.ShowModal