X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет. Вопрос по TcxPropertiesStore.
Проблема с сохранением динамических свойств девовских компонент.
В частности в вертикальной сетке есть колонка, где в свойстве EditProperties выбрано Popup.
Нужно сохранять и восстанавливать высоту и ширину выпадающего окна.
PopupAutoSize отключил.
Код: procedure RestorePropertiesStream(const Form: TForm; const AComponent: TComponent; const AProps: TStrArray);
Var
i: integer;
cxPropertiesStore1: TcxPropertiesStore;
q: TpFibQuery;
stream: TMemoryStream;
begin
// создем q: TpFibQuery и заполняем SQL
cxPropertiesStore1 := TcxPropertiesStore.Create(Application);
stream := TMemoryStream.Create;
try
cxPropertiesStore1.StorageName := Form.ClassName;
cxPropertiesStore1.StorageType := stStream;
with TcxPropertiesStoreComponent(cxPropertiesStore1.Components.Add) do
begin
Component := AComponent;
for I := 0 to Length(AProps) - 1 do
Properties.Add(AProps[i]);
end;//with
try
...
...
q.ExecQuery;
q.FieldByName('STREAM').SaveToStream(stream);
if stream.Size > 0 then
begin
stream.Position := 0;
cxPropertiesStore1.StorageStream := Stream;
cxPropertiesStore1.RestoreFrom;
end;
...
... |
Код:| RestorePropertiesStream(self, rowType, VarArrayOf(['Properties.EditProperties.PopupWidth', 'Properties.EditProperties.PopupHeight'])); |
Процедура сохранения похожая.
Вижу, что данные в стрим сохраняются и читаются оттуда.
Нет ошибок, предупреждение и исключений. Просто после выполнения RestorePropertiesStream() всё равно старые значение ширины и высоты.
Добавлено:
Цитата:| Но если-бы проблема была из-за цвета, то тогда никакие символы не должны быть видны, а там есть точка, ковычки, которые видны, а полностью текст виден если встать курсором на ячейку-выделить |
Стили есть подключенные? Может там проблема?
----------
/не мы такие, жизнь такая/ |
|
