actually this works very well.
Each row changes in height by 1 pixel, which is also the change in the font size 10 -> 11 -> 12, or 10 -> 9 -> 8 an the bottom of the text (size 8 -> 24) never is cut off On Thu, 5 Jan 2017 16:35:09 -0500, Charles Miller wrote: > On Thu, Jan 5, 2017 at 1:25 PM, Chip Scheide <[email protected]> > wrote: > >> C_LONGINT($Font_Size;$Row_Height) >> >> $Font_Size:=OBJECT Get font size(ptr_Output_Form_LB->) >> $Row_Height:=LISTBOX Get rows height(ptr_Output_Form_LB->) >> >> If ($Font_Size<=8) >> $Font_Size:=8 >> Else >> $Font_Size:=$Font_Size-1 >> $Row_Height:=$Row_Height-1 >> End if >> OBJECT SET FONT SIZE(ptr_Output_Form_LB->;$Font_Size) >> LISTBOX SET ROWS HEIGHT(ptr_Output_Form_LB->;$Row_Height) >> > > OK this looks great, but why not use object get best size for each detail > object on list box. You can then adjust row height in what I think might be > a better manner. At least in v15 I am not sure if command exists in v13 > > Regards > > > Chuck > > > -- > ----------------------------------------------------------------------------------------- > Chuck Miller Voice: (617) 739-0306 Fax: (617) 232-1064 > Informed Solutions, Inc. > Brookline, MA 02446 USA Registered 4D Developer > Providers of 4D, Sybase & SQL Sever connectivity > http://www.informed-solutions.com > ----------------------------------------------------------------------------------------- > This message and any attached documents contain information which may be > confidential, subject to privilege or exempt from disclosure under > applicable law. These materials are intended only for the use of the > intended recipient. If you are not the intended recipient of this > transmission, you are hereby notified that any distribution, disclosure, > printing, copying, storage, modification or the taking of any action in > reliance upon this transmission is strictly prohibited. Delivery of this > message to any person other than the intended recipient shall not > compromise or waive such confidentiality, privilege or exemption > from disclosure as to this communication. > ********************************************************************** > 4D Internet Users Group (4D iNUG) > FAQ: http://lists.4d.com/faqnug.html > Archive: http://lists.4d.com/archives.html > Options: http://lists.4d.com/mailman/options/4d_tech > Unsub: mailto:[email protected] > ********************************************************************** ********************************************************************** 4D Internet Users Group (4D iNUG) FAQ: http://lists.4d.com/faqnug.html Archive: http://lists.4d.com/archives.html Options: http://lists.4d.com/mailman/options/4d_tech Unsub: mailto:[email protected] **********************************************************************
