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:
01365170
Vues:
32
>>>Yes, I did. You think it should be .T.?
>>
>>It should be .F.
>>
>>Maybe there's a line break in the memo after first 10 characters?
>
>No. I checked that. And I can scroll the editbox down but nothing is seen. I can see that the words longer than 10 characters are truncated. It must be something simple as I did pretty much the same approach on another project and it works there. The only thing is that the other project was done in VFP 6.

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
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform