Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Another unexplained error
Message
From
30/08/2002 06:39:27
 
 
To
30/08/2002 05:50:33
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00695339
Message ID:
00695344
Views:
25
>It looks like it was my lucky month !!!
>To allow users to choose multiple filters on a table, i put a grid on a form.
>clicking on a command button i minimize it to the headerheight value
>
>.mygrid.height = .mygrid.headerheight + 1
>
>clicking on its header i maximize it
>
>.height = heightval
>
>It works fine, or better it works perfectly on all PC but one.
>On this bloody one it gives me the error that the object miagrid has evaluated an illegal value. This doesn't make sense to me.
>
>Alessio
>
>PS Thank you all once again

Alessio,

I suspect you have trouble with the minimum height of the grid
>.mygrid.height = .mygrid.MinimumHeight()

The minimum height for a grid is as follows (add a method to your grid class)
&& grid.MinimumHeight
return (  this.HeaderHeight ;
	+ this.GridLineWidth ;
	+ iif( inlist(this.ScrollBars,SCROLLBARS_HORIZONTAL,SCROLLBARS_BOTH), ;
		sysmetric(SYSMETRIC_HSCROLLBARHEIGHT), ;
		1 ;
	      ) ;
	)
for your info
&& grid.MinimumWidth
#define Grid_WIDTH_RecordMark	iif(this.Recordmark, 10, 0)
#define	Grid_WIDTH_DeleteMark	iif(this.DeleteMark, 8, 0)
#define	Grid_WIDTH_Scrollbar	iif(inlist(this.ScrollBars,SCROLLBARS_VERTICAL,SCROLLBARS_BOTH), ;
					sysmetric(SYSMETRIC_VSCROLLBARWIDTH), ;
					0 ;
				   )

#define	MIN_WIDTH	(Grid_WIDTH_RecordMark + Grid_WIDTH_DeleteMark + Grid_WIDTH_Scrollbar)

return MIN_WIDTH
Gregory
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform