Arnaud, I took your code (I am using it in as a menu item rather then a button), so I separated the code into increase and decrease and made a small modification to include adjusting the row height as well to correspond the change in font size.
Decrease Code Follows (increase is trivial from this): //(m) menu_Decrease_Font_Size //decreases the font size for a listing listbox //and reduces the row height to coorespond // • Created 1/5/17 by Chip - 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) //End menu_Decrease_Font_Size On Wed, 4 Jan 2017 17:40:58 +0100, Arnaud de Montard wrote: >> >> Le 4 janv. 2017 à 16:14, Chip Scheide <[email protected]> a >> écrit : >> >> [...] >> Arnaud, >> This might work, at least for listboxes :) > > I use it on listboxes only. Old users like me. > > IMHO text size and window size are different matter: the 1st to help > reader while changing form size would act on objects size / > visibility. > >> I was thinking I would do something like Option/Alt + window resize >> [...] >> As to Cannon's GUI Anchor module I will have to fool around a bit to >> get it working as my machine at work (where I am now) can not run v15. > > I took a look, 10 methods and no code unable to work on v13… > > -- > Arnaud de Montard > > > > > ********************************************************************** > 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] **********************************************************************
