andyhill Posted April 10, 2020 Share Posted April 10, 2020 n:= (dbGridGroups.Height div (StartUpFontHeight * 2)); dbGridGroups.WebOptions.PageSize:= n-4; // Paints Footer row even when there are no summaries or footers TAccessGrid(dbGridGroups).Columns.EndUpdate; //////////////////////////////////////////////////////////////////////////// pMain.Height:= (n * (StartUpFontHeight * 2)) + 4; //fMain.BeginUpdate; // uniAlignmentClient (needed for mobile emulation) //fMain.ClientHeight:= pMain.Height + 10; // FAILS TO CHANGE //fMain.EndUpdate; UniSession.AddJS('ajaxRequest(fMain.form, ''setHeight'', '+IntToStr(pMain.Height + 10)+');'); // FAILS TO CHANGE Quote Link to comment Share on other sites More sharing options...
Sherzod Posted April 10, 2020 Share Posted April 10, 2020 Hi Andy, Please explain briefly what you want. Quote Link to comment Share on other sites More sharing options...
andyhill Posted April 10, 2020 Author Share Posted April 10, 2020 I thought it was very clear, change height of Form at runtime, my temporary Desktop work around below. BeginUpdate; Height:= (n * (StartUpFontHeight * 2)) + 14; EndUpdate; Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.