Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Any setting that controls the behavior?
Message
From
18/04/2019 19:29:56
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01668198
Message ID:
01668199
Views:
72
>Hi everybody,
>
>Do you know if there is any way to not display 'This control is read-only' wait window when trying to type in read-only column? Set NOTIFY is OFF, what else could it be?
>
>Thanks in advance.

Naomi, are you sure? SET NOTIFY OFF should do the trick.
SET NOTIFY ON

CREATE CURSOR C1 (COL1 Int, Col2 Int)

INSERT INTO C1 VALUES (1, 2)

LOCAL FT AS F1

m.FT = CREATEOBJECT("F1")
m.FT.Show(1)

DEFINE CLASS F1 AS Form

	ADD OBJECT Chk1 AS Checkbox WITH Autosize = .T., Caption = "SET NOTIFY OFF", Value = .F.
	ADD OBJECT G1 AS Grid WITH Top = 30, Recordsource = "C1", ColumnCount = 2

	FUNCTION G1.Init
		This.Columns(1).ReadOnly = .T.
	ENDFUNC

	FUNCTION Chk1.InteractiveChange
		IF This.Value
			SET NOTIFY OFF
		ELSE
			SET NOTIFY ON
		ENDIF
	ENDFUNC

ENDDEFINE
----------------------------------
António Tavares Lopes
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform