Сохранение настроек грида пользовательской формы
Материал из GedeminWiki
(Различия между версиями)
Kaa (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) |
||
| Строка 1: | Строка 1: | ||
| − | При создании | + | При создании экранных форм в '''Редакторе форм''', визуальные настройки гридов (видимость, порядок, ширина колонок и др.) помещенных на форму, автоматически не сохраняются и, соответственено, не восстанавливаются при повторном открытии формы. |
| − | (видимость, порядок, ширина колонок и др.) помещенных на форму автоматически не сохраняются | + | |
| − | при повторном | + | |
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| + | Допустим, на пользовательскую форму '''usrf_MY_FORM''' мы разместили компонент '''usrg_gsIBGrid1: TgsIBGrid'''. В событиях '''OnLoadSettingAfterCreate''' и | ||
| + | '''OnSaveSetting''' данной формы необходимо прописать следующий код для восстановления/сохранения визуальных настроек: | ||
| + | <syntaxhighlight lang="vbnet"> | ||
option explicit | option explicit | ||
sub usrf_MY_FORMOnLoadSettingsAfterCreate(ByVal Sender) | sub usrf_MY_FORMOnLoadSettingsAfterCreate(ByVal Sender) | ||
| Строка 31: | Строка 27: | ||
end if | end if | ||
end sub | end sub | ||
| + | </syntaxhighlight> | ||
| + | |||
| + | ''Статья подготовлена по консультации с Александром.'' | ||
| − | + | [[Category:Документация]] | |
Версия 12:29, 9 ноября 2011
При создании экранных форм в Редакторе форм, визуальные настройки гридов (видимость, порядок, ширина колонок и др.) помещенных на форму, автоматически не сохраняются и, соответственено, не восстанавливаются при повторном открытии формы.
Допустим, на пользовательскую форму 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
Статья подготовлена по консультации с Александром.
