Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Showing memo in grid
Message
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01365156
Message ID:
01365170
Views:
31
>>>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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform