Login
`
Templates, Tools and Utilities
|
||
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
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
Today is November 21, 2024, 3:30 am This article has been viewed 35216 times.
|
|