Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Txt Box truncates a long string
Message
De
19/04/1997 11:37:26
 
 
À
18/04/1997 15:21:44
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00028875
Message ID:
00028972
Vues:
38
>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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform