Par2: Saving and restoring listbox formatting -- Template 2000-01-12 -- James Cooke Here is a quick 'n dirty template I use for that:
#Extension(ColumnDefaults,'Save browse column width'), PROCEDURE
#Prompt('Select Listboxes',Control), %ListBox, Multi('Listboxes to default')
#AT(%WindowManagerMethodCodeSection,'Init','(),BYTE'),LAST
#FOR(%ListBox)
If getini('%Procedure','%ListBox',,'%Application.INI') <> ''
%ListBox{prop:format}=getini('%Procedure','%ListBox',,'%Application.INI')
END
#EndFor
#ENDAT
#AT(%WindowManagerMethodCodeSection,'Kill','(),BYTE'),FIRST
#FOR(%ListBox)
Putini('%Procedure','%ListBox',%ListBox{prop:format},'%Application.INI')
#EndFor
#ENDAT
Printed May 5, 2024, 10:17 pm This article has been viewed/printed 35120 times. |