lardecristo
Programmer
I read this thread, and I like it...
But, I have problem for this method in my class.
I make a class Control and put in 4 objects.
1 - Command
1 - Container
and beside the container 2 Lines
in Command1.Click this code.
THIS.Parent.Container1.SetAll("BorderColor", RGB(255,0,0), "Line")
but this code don´t execute.
When I change Class Control to Class Container, this code run OK.
But, I have problem for this method in my class.
I make a class Control and put in 4 objects.
1 - Command
1 - Container
and beside the container 2 Lines
in Command1.Click this code.
THIS.Parent.Container1.SetAll("BorderColor", RGB(255,0,0), "Line")
but this code don´t execute.
When I change Class Control to Class Container, this code run OK.
Code:
DEFINE CLASS teste AS control
Width = 65
Height = 416
Name = "teste"
ADD OBJECT line1 AS line WITH ;
Height = 181, ;
Left = 7, ;
Top = 18, ;
Width = 1, ;
Name = "Line1"
ADD OBJECT line2 AS line WITH ;
Height = 195, ;
Left = 38, ;
Top = 6, ;
Width = 9, ;
Name = "Line2"
ADD OBJECT container1 AS container WITH ;
Top = 205, ;
Left = 3, ;
Width = 59, ;
Height = 200, ;
Name = "Container1"
ADD OBJECT teste.container1.line1 AS line WITH ;
Height = 181, ;
Left = 7, ;
Top = 14, ;
Width = 1, ;
Name = "Line1"
ADD OBJECT teste.container1.line2 AS line WITH ;
Height = 195, ;
Left = 38, ;
Top = 2, ;
Width = 9, ;
Name = "Line2"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 62, ;
Left = 12, ;
Height = 27, ;
Width = 84, ;
Caption = "Command1", ;
Name = "Command1"
PROCEDURE command1.Click
THIS.Parent.Container1.SetAll("BorderColor", RGB(255,0,0), "Line")
ENDPROC
ENDDEFINE