PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 291
	Width = 573
	ShowWindow = 2
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT label2 AS label WITH ;
		WordWrap = .T., ;
		BorderStyle = 1, ;
		Caption = "Move on the button, LOOK the 1 pixel border of the button not transparent,      click and it disappears", ;
		Height = 188, ;
		Left = 246, ;
		Top = 8, ;
		Width = 222, ;
		Name = "Label2"


	ADD OBJECT label1 AS label WITH ;
		WordWrap = .T., ;
		BorderStyle = 1, ;
		Caption = "CLICK 10 TIMES on the button              LOOK the Left/Top 1 pixel of the button", ;
		Height = 188, ;
		Left = 10, ;
		Top = 6, ;
		Width = 212, ;
		Name = "Label1"


	ADD OBJECT shape1 AS shape WITH ;
		Top = 43, ;
		Left = 101, ;
		Height = 126, ;
		Width = 86, ;
		BackColor = RGB(255,255,0), ;
		Name = "Shape1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 44, ;
		Left = 102, ;
		Height = 124, ;
		Width = 84, ;
		Caption = "3D", ;
		BackColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT shape2 AS shape WITH ;
		Top = 66, ;
		Left = 341, ;
		Height = 126, ;
		Width = 86, ;
		BackColor = RGB(255,255,0), ;
		Name = "Shape2"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 67, ;
		Left = 342, ;
		Height = 124, ;
		Width = 84, ;
		Caption = "PLAIN BUG", ;
		SpecialEffect = 2, ;
		BackColor = RGB(255,0,0), ;
		Name = "Command2"


	PROCEDURE Unload
		WAIT CLEAR
	ENDPROC


	PROCEDURE command1.MouseUp
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		* workaround
		*this.VisualEffect = 0
	ENDPROC


ENDDEFINE