Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Showing memo in grid
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP1
Divers
Thread ID:
01365156
Message ID:
01365172
Vues:
27
>
>That works for me (but I can test it only on VFP9)
>
>oaladinform1=NEWOBJECT("form1")
>oaladinform1.Show(1)
>RETURN
>
>
>DEFINE CLASS form1 AS form
>
>
>    Top = 0
>    Left = 0
>    DoCreate = .T.
>    lbopenconfig = .F.
>    Name = "Aladinform1"
>
>
>    ADD OBJECT grid1 AS grid WITH ;
>        ColumnCount = 1, ;
>        Height = 200, ;
>        Left = 20, ;
>        Panel = 1, ;
>        RowHeight = 85, ;
>        Top = 26, ;
>        Width = 320, ;
>        Name = "Grid1", ;
>        Column1.Width = 278, ;
>        Column1.Sparse = .F., ;
>        Column1.Name = "Column1"
>
>
>    PROCEDURE Init
>           thisform.Grid1.Column1.RemoveObject([Text1])
>           thisform.Grid1.Column1.AddObject([Edit1],[EditBox])
>           thisform.Grid1.Column1.Edit1.Visible = .t.
>    ENDPROC
>           
>    PROCEDURE Load
>        CREATE CURSOR crsGrid (Fld1 M)
>        FOR asd = 1 TO 20
>            INSERT INTO crsGrid VALUES (REPLICATE([Test],asd*20))
>        NEXT
>        GO TOP
>    ENDPROC
>
>ENDDEFINE
>
Your test code works for me too. But the code in my program does not work. I did a test (in my code) of setting .Sparse to .T. Then I see the memo as just a Memo in the column. Then when I click on this Memo I see the entire text in the memo field. So the problem (in my code) must be the way I remove the Text1 and replace it with an EditBox. I will go through it again, step by step.

Thank you for your help.
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform