General information
Category:
Forms & Form designer
>I'm using a memvar as the source.
>I also tried taking the result of a REPLICATE() call and storing it
>directly to the "Value" property. It didn't help.
>
I tried this simple example using REPLICATE - and it works..
Arnon
PUBLIC ooteform1
SET CLASSLIB TO d:\vfpwork\otecontrols.vcx ADDITIVE
ooteform1=CREATEOBJECT("oteform1")
ooteform1.Show
RETURN
**************************************************
*-- Form: oteform1 (d:\vfpprojects\experiments\stam.scx)
*-- ParentClass: oteform (d:\vfpwork\otecontrols.vcx)
*-- BaseClass: form
*
DEFINE CLASS oteform1 AS oteform
DoCreate = .T.
DrawStyle = 5
LockScreen = .F.
Name = "Oteform1"
prop = .F.
ADD OBJECT edit1 AS editbox WITH ;
Height = 121, ;
Left = 24, ;
Top = 36, ;
Width = 301, ;
ControlSource = "", ;
Name = "Edit1"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 192, ;
Left = 24, ;
Height = 27, ;
Width = 84, ;
Caption = "Command1", ;
Name = "Command1"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 192, ;
Left = 156, ;
Height = 27, ;
Width = 84, ;
Caption = "Command2", ;
Name = "Command2"
PROCEDURE Init
this.prop=replicate("x",2300)+"y"
ThisForm.Edit1.controlsource="thisform.prop"
ENDPROC
PROCEDURE command1.Click
thisform.prop=replicate("a",2290)+"b"
ThisForm.Edit1.refresh()
ENDPROC
PROCEDURE command2.Click
thisform.prop=replicate("w",3360)+"z"
ThisForm.Edit1.refresh()
ENDPROC
ENDDEFINE
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only