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 |
|
