X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, пожалуйста, почему стиль грида не восстанавливается?
На форме есть cxGrid, cxStyleRepository, там создан cxGridTableViewStyleSheet и cxStyle.
В дизайне всё настроил, связал. Работает нормально. Сохраняется с помощью SaveStyleSheetsToIniFile() тоже нормально.
Вызываю процедуру при создании формы, так же пробовал при показе. У таблицы остается стиль (шрифт, цвет) тот, который был назначен в дизайне (в IDE).
Код:
procedure RestoreStyleRepositoreToIni(cxStyleRepository: TcxStyleRepository; FormName: string; dbg: TcxGridDBTableView);
Var
d: string;
begin
d := fmMain.sAppPath + IncludeTrailingPathDelimiter(UserData.UserName);
if not DirectoryExists(d) then exit;
try
// cxStyleRepository.ClearStyleSheets;
if FileExists(d + FormName+'_'+cxStyleRepository.Name+'.ini') then
LoadStyleSheetsFromIniFile(d, cxStyleRepository, nil);
// количество показывает 1, значит StyleSheet грузится
if cxStyleRepository.StyleSheetCount <= 0 then exit;
dbg.Styles.StyleSheet := cxStyleRepository.StyleSheets[0];
except
on e: exception do
MessageBox(application.ActiveFormHandle, PAnsichar('Невозможно восстановить настройки стиля' + FormName+'_'+cxStyleRepository.Name+'.ini' + #13+e.Message), 'Ошибка', MB_ICONSTOP or MB_OK);
end;
end;
|
----------
/не мы такие, жизнь такая/ |
|
Всего записей: 3253 | Зарегистр. 24-11-2005 | Отправлено: 17:35 22-02-2010 | Исправлено: X11, 17:36 22-02-2010 |
|
