Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Edit box in grid only shows first 40 chars
Message
 
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01096588
Message ID:
01096611
Views:
16
My editbox is a subclass, but I haven't changed any of the default settings.
Like I said it works fine on this test form I created. (I did try using the baseclass directly too though).
I even deleted the whole container and created a new one only with some basic settings.
Again it does the same thing. It will not run on my production form.
Funny thing. I decided to enter 6 lines of text in the memo, hitting enter after each one.
The first line in the edit box shows correct, until it is longer than 40 characters.
the second line only show 15 characters after which the line is cut off.
the third line doesn't show at all. (I just noticed that if first line is 40 chars then it doesn't display other lines at all)

Yet again, in my testform it displays correctly.

Here is the code in setNotes()in the ctnrNotes Container:
WITH this.grdNotes
	.AllowCellSelection = .T.
	.RecordSourceType = 1
	.RecordSource = SPACE(0)

	
	SELECT cnotes.note_date, cnotes.name, cnotes.note_type, cnotes.note, cnotes.note_key ;
		FROM cnotes ;
		WITH (buffering = .t.) ;
		INTO CURSOR grdNotes
	
		
	.RecordSource = 'grdNotes'
	.column1.controlsource = 'grdNotes.note_date'
	.column2.controlsource = 'grdnotes.name'
	.column3.controlsource = 'grdnotes.note_type'
	.column4.controlsource = '(grdnotes.note)'
ENDWITH
scan
messagebox(MEMLINES(grdNotes.note)) &&gives 1 line if line is 40 chars, 2 if 1st line < 40 chars
MESSAGEBOX(ALINES(atest,grdNotes.note)) &&gives 6 lines
ENDSCAN
I just don't get it.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform