vcrank
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
try
cxPropertiesStore1.StorageName := path + 'options.ini';
AStoreComponent := TcxPropertiesStoreComponent(cxPropertiesStore1.Components.Add);
AStoreComponent.Component := fmMain;
AStoreComponent.Properties.Add('top');
AStoreComponent.Properties.Add('left');
AStoreComponent.Properties.Add('height');
AStoreComponent.Properties.Add('width');
AStoreComponent.Properties.Add('WindowState');
cxPropertiesStore1.StoreTo(false);
AStoreComponent.Properties.Clear;
AStoreComponent.Component := cxGridDBTableView1ID;
AStoreComponent.Properties.Add('SortIndex');
AStoreComponent.Properties.Add('SortOrder');
cxPropertiesStore1.StoreTo(false);
finally
FreeAndNil(AStoreComponent);
end; |
Всего записей: 1067 | Зарегистр. 24-10-2005 | Отправлено: 09:57 19-05-2010 | Исправлено: vcrank, 10:12 19-05-2010 |
|
