Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to use an Editbox in a grid?
Message
From
01/07/2003 17:30:53
 
 
To
01/07/2003 17:24:35
Henry Ravichander
RC Management Systems Inc.
Saskatchewan, Canada
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00805774
Message ID:
00805851
Views:
43
>>What's being done in the InteractiveChange? I've never seen an editbox cut off text like you're describing if it's tall enough to show scrollbars (at least 3 lines high).
>
>Fred:
>
>Here is code from the Interactivechange of RaviCbo1.
>
>
SELECT HealthCond,RecordDate,ResolvDate FROM OngoingHealth INTO CURSOR CurOnGoingHealth NOFILTER ;
>	WHERE OngoingHealth.HealthNum = mHealthNum
>
>mCondition = CurOnGoinghealth.HealthCond
>mRecordDate = CurOnGoingHealth.RecordDate
>mDateResolved = CurOnGoingHealth.ResolvDate
>
>thisform.pageframe1.page4.grid1.RecordSource = "CurOnGoingHealth"
>
>thisform.pageframe1.page4.Grid1.ColumnCount = 3
>thisform.pageframe1.page4.grid1.RowHeight = 100
>thisform.pageframe1.page4.grid1.column1.sparse = .f.
>
>thisform.pageframe1.page4.grid1.column1.header1.Caption = "Condition"
>thisform.pageframe1.page4.grid1.column1.header1.FontName = "Tahoma"
>thisform.pageframe1.page4.grid1.column1.header1.FontSize = 8
>thisform.pageframe1.page4.grid1.column1.Width = 300
>
>thisform.pageframe1.page4.grid1.column2.header1.Caption = "Date Recorded"
>thisform.pageframe1.page4.grid1.column2.header1.FontName = "Tahoma"
>thisform.pageframe1.page4.grid1.column2.header1.FontSize = 8
>thisform.pageframe1.page4.grid1.column2.Width = 80
>
>thisform.pageframe1.page4.grid1.column3.header1.Caption = "Date Resolved"
>thisform.pageframe1.page4.grid1.column3.header1.FontName = "Tahoma"
>thisform.pageframe1.page4.grid1.column3.header1.FontSize = 8
>thisform.pageframe1.page4.grid1.column3.Width = 80
>
>thisform.pageframe1.page4.grid1.Refresh()
A grid doesn't refresh unless it has focus.

I'd suggest you just try a simple example with a plain grid and a plain editbox and see if you can see it correctly at all first. I usually play around with everything directly from the command window first, so the feedback is instantaneous.
CREATE CURSOR temp (test M)
INSERT INTO temp VALUES ("this is a test of an editbox in a grid")
INSERT INTO temp VALUES ("you should be able to see multiple lines with no problem")
_screen.AddObject('x','grid')
x=_screen.x
x.column1.AddObject('eb','editbox')
x.column1.CurrentControl='eb'
x.Visible=.t.
x.column1.Sparse=.f.
x.column1.Width=100
x.RowHeight=42
It may be something in your grid code, but I have no idea what.
Fred
Microsoft Visual FoxPro MVP

foxcentral.net
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform