qwertEHOK
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Подскажите пожалуйста Создаю в runtime (XE7) TCategoryPanelGroup далее делаю запрос к БД и сколько строк столько и TCategoryPanel одновременно с этим в каждый TCategoryPanel пихаю TValueListEditor В зависимости от опций в TValueListEditor выставляю vle.ItemProps[q.Fields[5].AsString].EditStyle:=esEllipsis; Все отлично работает. У нужный строк появляется кнопка с "...". Далее в обработчике этих кнопок создаю панель (TPanel) Так как у меня темы в винде (Windows7) отключены - у меня все работает. Если включены темы, то панель создается полупрозрачная - видны только границы. Или создается наполовину темная. Затем когда я создаю на этой панели нужные кнопки и другие элементы - начинают валится ошибки. Без тем все работает ОТЛИЧНО. Пробовал уже готовую панель показывать, пробовал разные parent'ы. Repaint. ни чего не помогает. вот так создаю компоненты Код: cp:=TCategoryPanel.Create(cpg); cp.Parent:=cpg; cp.PanelGroup:=cpg; cp.Name:='cp_'+IntToStr(i); cp.Caption:=q.Fields[0].AsString; cp.Visible:=true; | Код: vle:=TValueListEditor.Create(cp); vle.Parent:=cp; vle.Name:='vle_'+IntToStr(i); vle.Align:=alClient; vle.TitleCaptions.Text:='Параметр'; vle.TitleCaptions.Add('Значение'); vle.Visible:=true; vle.OnEditButtonClick:=MyEditButtonClick; vle.OnClick:=MyClick; | Код: pn:=TPanel.Create(vle); pn.Parent:=(vle); pn.Caption:=''; pn.Name:='my_panel_'+IntToStr(i); pn.Width:=vle.ColWidths[1]; pn.Left:=vle.ColWidths[0]; pn.Visible:=False; | далее на OnEditButtonClick пробую уже существующую панель показать Код: Panel1.Parent:=(sender as TValueListEditor); Panel1.Top:=18*(sender as TValueListEditor).Row; Panel1.Width:=(sender as TValueListEditor).ColWidths[1]; Panel1.Left:=(sender as TValueListEditor).ColWidths[0]; Panel1.Visible:=True; | ни фига - работает только если темы выключены. пробовал на нескольких компах. | Всего записей: 454 | Зарегистр. 13-09-2006 | Отправлено: 16:06 08-09-2015 | Исправлено: qwertEHOK, 16:08 08-09-2015 |
|