>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)
return ( this.HeaderHeight ;
+ this.GridLineWidth ;
+ iif( inlist(this.ScrollBars,SCROLLBARS_HORIZONTAL,SCROLLBARS_BOTH), ;
sysmetric(SYSMETRIC_HSCROLLBARHEIGHT), ;
1 ;
) ;
)
for your info
#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