Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Super column headings
Message
From
05/05/2008 10:43:08
 
 
To
05/05/2008 10:01:37
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01315101
Message ID:
01315111
Views:
24
Hi James,

I'd create a container class with all those fields, that you need to display in one single column. Then I'd remove the default textbox and use the before defined container control.

You can try this out by creating a new form with a grid that contains two columns. Within form.load just create a cursor with three field like this:
CREATE CURSOR crsTest (cfield1 c(30), ifield2 i, dfield3 d)
INSERT INTO crsTest(cfield1, ifield2, dfield3) VALUES ([lots of aaaaaaaaaaaaaaaaaa],1,DATE() + 1)
INSERT INTO crsTest(cfield1, ifield2, dfield3) VALUES ([lots of bbbbbbbbbbbbbbbbbb],2,DATE() + 2)
GO TOP
Now exchange the textbox for a container. Within container.init put this code:
This.AddObject([text1],[Textbox])
This.AddObject([text2],[Textbox])
This.Text1.Width = 200
This.Text2.Top = This.Text1.Top
This.Text2.Left = This.Text1.Left + This.Text1.Width + 10
This.Text1.ControlSource = [crsTest.cField1]
This.Text2.ControlSource = [crsTest.iField2]
This.Text1.Visible = .T.
This.Text2.Visible = .T.
Set Grid.RowHeight to 22 and Grid.Column1.Sparse to .F.

Last but not the least, in Grid.Column2.Text1.init put this line of code
This.ControlSource = [crsTest.dField3]
This should give you a rough impression.
Best Regards
-Tom

Debugging is twice as hard as writing the code in the first place.
Therefore, if you write the code as cleverly as possible, you are,
by definition, not smart enough to debug it.

Oh, and BTW: 010101100100011001010000011110000101001001101111011000110110101101110011
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform