Сохранение настроек грида пользовательской формы

При создании "своих" пользовательских форм в "Редакторе форм", настройки гридов (видимость, порядок, ширина колонок и др.) помещенных на форму автоматически не сохраняются при повторном запуске формы.

Допустим, на пользовательскую форму usrf_MY_FORM мы разместили компонент отображения грида usrg_gsIBGrid1: TgsIBGrid. В событиях OnLoadSettingAfterCreate и OnSaveSetting нашей формы необходимо прописать следующий код для восстановления/сохранения настроек грида:

 option explicit
 sub usrf_MY_FORMOnLoadSettingsAfterCreate(ByVal Sender)
 '*** Данный код необходим для вызова встроенного обработчика ***
 '*** В случае его удаления возможно нарушение работы системы ***
   call   Inherited(Sender, "OnLoadSettingsAfterCreate", Array(Sender))
 '*** конец кода поддержки встроенного обработчика ***
   dim usrg_gsIBGrid1
   set usrg_gsIBGrid1 = Sender.OwnerForm.GetComponent("usrg_gsIBGrid1")
   Sender.LoadGrid(usrg_gsIBGrid1)
 end sub

 option explicit
 sub usrf_MY_FORMOnSaveSettings(ByVal Sender)
 '*** Данный код необходим для вызова встроенного обработчика ***
 '*** В случае его удаления возможно нарушение работы системы ***
   call   Inherited(Sender, "OnSaveSettings", Array(Sender))
 '*** конец кода поддержки встроенного обработчика ***
   dim usrg_gsIBGrid1
   set usrg_gsIBGrid1 = Sender.OwnerForm.GetComponent("usrg_gsIBGrid1")
   if usrg_gsIBGrid1.SettingsModified then
     Sender.SaveGrid(usrg_gsIBGrid1)
   end if
 end sub

Статья подготовлена по консультации с Александром