Текущий архив: 2003.10.30;
Скачать: CL | DM;

Вниз

Кто работал с ExpressBar?   Найти похожие ветки 

← →
kosm   (2003-10-21 11:24) [0]

Есть парочка вопросиков?

---

← →
vuk ©   (2003-10-21 12:36) [1]

В два захода вопросы задавать - это теперь модно? Чего бы сразу прямо не спросить?

---

← →
kosm   (2003-10-21 12:56) [2]

2vuk
Сори, просто по поиску совсем ничего по этой теме нет :)
Больше не буду... :)

Решил глянуть что за штука - вроде интересная. Столкнулся с такой проблемой.

Создаю динамически док-панели (TdxDockPanel), вкладываю их в одну, чтобы получить TdxTabContainerDocPanel...

procedure TfmMain.CreateChildForm(AChildForm: TChildFormClass);
var
DP: TdxDockPanel;
F: TChildForm;
begin
DP := TdxDockPanel.Create(self);
try
if dpHome.DockState = dsHidden then dpHome.AutoHide:=false;
DP.DockTo(dpHome, dtClient, -1);
F := ChildFrm.CreateChildForm(AChildForm, DP);
DP.OnClose := DockPanelClose;
DP.Caption := F.Caption;
DP.Tag := integer(F);
// active docked new panel
if dpHome.TabContainer <> nil then
dpHome.TabContainer.ActiveChildIndex := dpHome.TabContainer.ChildCount-1;
except // wrap up
FreeAndNil(F);
FreeAndNil(DP);
end; // try/finally
end;

Все нормально создается, вкладывется и тд. Вобщем все красиво, пока не начинаю закрывать эти панели. При закрытии - Access violation. При чем, ошибка происходит не постоянно :(
Дело в том, что у меня у DockingManager стоит doFreeOnClose, для уничтожения экземпляров TdxDockPanel. Если эту опцию отключить, то все в порядке.

Пробовал просто создавать панели, без привязки форм к ней (для чистоты эксперимента)...


procedure TfmMain.EmptyBBClick(Sender: TObject);
var
DP: TdxDockPanel;
begin
inherited;
DP := TdxDockPanel.Create(self);
try
if dpHome.DockState = dsHidden then dpHome.AutoHide := false;
DP.DockTo(dpHome, dtClient, -1);
DP.Caption := "Empty Tab";
except // wrap up
FreeAndNil(DP);
end; // try/finally
end;

та же история :(

Такое впечатление, что что-то не так делаю при динамическом создании Dock-панелей...

---

← →
vuk ©   (2003-10-21 13:02) [3]

DockPanel? Это какая версия ExpressBars, 5.x? Если да, то увы, помочь не смогу, пока что на 5.x не проапгрейдились...

---

← →
kosm   (2003-10-21 13:31) [4]

Ага, 5-я триал, у них брал. Жаль, похоже не много народу тут эту вещь пробовали :(

Тогда еще вопрос. Как сделать возможность докинга тулбара на дочернюю форму (SDI, форму, положенную на участок главной формы)? Предполагаю что это делается с помощью TdxBarDockControl. Так ли это? Просто ручками при создании этой (дочерней) формы, подтягивать тулбар на BarDockControl?

СПАСИБО!

---

← →
kosm   (2003-10-21 17:57) [5]

2vuk
Так по ToolBar"у можешь чего-нить сказать или ты с ним тоже не работал?

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.042 c