» Использование DevExpress (часть 3)

Версия х.40
Кусок не смогу - очень много всего.
Настройки вью и правда связаны мастер-деталь. Но оно работало очень долгое время, я там ничего не менял.
Мастер tvServ (смотрит на dxMemServ), деталь TvPrep (смотрит на dxMemPrep).
tvServ.KeyFieldNames=RecId;
tvPrep.KeyFieldNames=RecId;
tvPrep.MasterKeyFieldNames=RecId;
tvPrep.DetailKeyFieldNames=servkey;

dxMemDataPrep.FieldByName('servkey').AsInteger:=dxMemDataServ.FieldByName('RecId').AsInteger;
Остальные настройки стандартные.
Данные в dxMemPrep добавляются не всегда, т.е. деталь не всегда имеет записи. Но глюк всё равно появляется.

Не понимаю даже, в ком проблема: в датасете или во вью. Уже подумываю отказаться от него, сделать в базе таблички....

brookson
я бы посоветовал (да и сам бы сделал) отказаться от использования поля RecID, а создал бы поля и писал бы туда значения которые мне нужны...

f3ka
То есть индексы сделать самому?

brookson
ну с индексами тут тоже надо решить, нужны ли они... если объемы данных не большие то зачем?

brookson
для начала убери все связи, и проверь добовление данных и обновление их во view
посмотри view - gridmode -? SyncMode- ?

gridmode = false; syncmode = true

Убрал связи и ключи - всё то же самое, на 3-й раз вылетел. Возвращаю назад, мне же нужно, чтоб к мастер-записи показывалась detail, если есть.
Щас попробую пересоздать оба датасета.

brookson

Цитата:

gridmode = false

сделай = true,
будет как простой грид...

а вообще попробуй kbmMemTable, я когда-то смотрел девовские мемдата, не помню что, но проблемы было.

brookson
Если бы выложили пример, уверен, получили бы решение проблемы намного быстрее.

создаю дерево в run-time:

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Node: TcxTreeListNode;
ChildNode: TcxTreeListNode;
begin

Node := cxTreeList1.Add;
Node.Values[tlc_name.Position.ColIndex] := 'Все';
Node.Values[tlc_id.Position.ColIndex] := -1 ;
Node.CheckGroupType:=ncgCheckGroup;
with ADOQuery1 do
begin
open;
while not eof do
begin
ChildNode := Node.AddChild;
ChildNode.Values[tlc_name.Position.ColIndex] :=fieldvalues['groups_name'] ;
ChildNode.Values[tlc_id.Position.ColIndex] := fieldvalues['id_groups'];
ChildNode.CheckGroupType:=ncgCheckGroup;
Next;
end;
close;
end;
end;

vladman
Да я понимаю. Но не могу вот так ВЕСЬ проект выложить куда-то.
Сейчас попытаюсь как-то "вырезать" эту форму.

neznayka3

Цитата:

у корня дерева "Все" нет checkbox-a. как его получить?

Попробуйте указать <YourcxTreeList>.OptionsView.CheckGroups := True;

Добавлено:
brookson
Зачем весь проект. Сделайте новое приложение и в нем попытайтесь воспроизвести то что не работает. Если все делается с нуля иногда это помогает более быстро локализовать проблему.

http://www.speedyshare.com/files/19355627/test.rar
Вот линк.
Суть: добавить в счёт хотя бы одну услугу и сохранить. И так до 3-х раз попробовать.

brookson

Цитата:

Вот линк.

Честно говоря, достаточно трудно было понять ваш код и всю логику, которую вы на него возложили, но решить проблему именно с

Цитата:

Суть: добавить в счёт хотя бы одну услугу и сохранить. И так до 3-х раз попробовать.

вам поможет очистка dxMemDataPrep перед очисткой dxMemDataServ в процедуре
TF_ORD.AcClearCtrlsExecute. Хотя эти очистки совершенно лишние, исходя из того что вы потом выполняете dxMemDataServ.Close; и dxMemDataPrep.Close;

Мое мнение, что-то вы перемудрили в ваших подходах. Весь видимый функционал явно не стоит 1000 строк кода.

brookson

Цитата:

Суть: добавить в счёт хотя бы одну услугу и сохранить. И так до 3-х раз попробовать.

Ну добавляется,... правдя что касается интербйса я выкинкл, по сам код добавленя оставил.... и ни разу ошибки небыло и комбик я один убрал, свой набор значений для номера счета сделал

vladman
Понимаю Вашу критику. Но всё же - у Вас работал пример?
Я пробовал избавляться от записей просто
dxMemDataPrep.Close;
dxMemDataServ.Close;
Пробовал удалять по одной, начиная с dxMemDataPrep. У меня всё равно на 3-й раз не отображаются записи в гриде.

Добавлено:
Вобщем, закончилось тем, что взял датасеты, смотрящие на таблицы из базы. И всё работает, как надо.
Спасибо за советы и за помощь

Кто знает, есть ли у TcxCheckComboBox свойство или функция, возвращающая количество отмеченных элементов?

brookson

Цитата:

Понимаю Вашу критику

Да я, собственно, не критиковал, а выражал свое мнение.
Ваш пример у меня вызывал ошибку List index out of bounds при попытке сохранить в счете три услуги. После мелких правок, описанных в прошлом посте, больше ошибок в аналогичном случае не было.

Добавлено:
X11

Цитата:

Кто знает, есть ли у TcxCheckComboBox свойство или функция, возвращающая количество отмеченных элементов?

Насколько мне известно - нет. Но это легко узнать из его свойства Value.
Например

Код: function GetCheckedCount(AValue: Variant): Integer;
var
i: Integer;
begin
Result := 0;
if VarIsNull(AValue) then Exit;
for i := 7 downto 0 do //думаю, больше 256 чекбоксов у вас не будет
if AValue and (1 shl i) <> 0 then Result := Result + 1;
end;

vladman

Цитата:

Попробуйте указать <YourcxTreeList>.OptionsView.CheckGroups := True;

Стоит. если в дизайн-тайм создавать дерево, то работает. а так нет:

Код: procedure TForm1.Button2Click(Sender: TObject);
var
Node: TcxTreeListNode;
ChildNode: TcxTreeListNode;
i: Integer;
begin
Node := cxTreeList2.Add;
Node.Values[cxTreeList2Column1.Position.ColIndex] := 'Все';
Node.CheckGroupType:=ncgCheckGroup;
for i:=0 to 10 do
begin
ChildNode := Node.AddChild;
ChildNode.Values[cxTreeList2Column1.Position.ColIndex] :=inttostr(i) ;
ChildNode.CheckGroupType:=ncgCheckGroup;
end;
end;

vladman

Цитата:

Код:
function GetCheckedCount(AValue: Variant): Integer;
...
for i := 7 downto 0 do //думаю, больше 256 чекбоксов у вас не будет
...

Небольшая неточность - 8, а не 256.

vladman

Цитата:

Ваш пример у меня вызывал ошибку List index out of bounds при попытке сохранить в счете три услуги. После мелких правок, описанных в прошлом посте, больше ошибок в аналогичном случае не было.

Хм... В программировании чудес не бывает. Если у Вас еще остался этот работающий пример, нетрудно выложить куда-нибудь?
Буду очень признателен.

Chukotka

Цитата:

Небольшая неточность - 8, а не 256.

Нет, все-таки 256
brookson

Цитата:

Если у Вас еще остался этот работающий пример, нетрудно выложить куда-нибудь?

Нет, не трудно, смотрите ПМ.

vladman

Цитата:

Нет, все-таки 256

Таки 8.
Для отображения состояний 256 checkbox'ов (0\1) по определению требуется 256 бит.

Chukotka

Цитата:

Таки 8.

Подумав еще раз, соглашаюсь, таки 8 . Вы правы, считать же нужно уметь, этому еще в школе учат .
Тогда моя функция GetCheckedCount не совсем корректна в общем случае. Сейчас что-то придумаю.

Добавлено:
Резюме по вопросу подсчета выбранных Itmes в cxCheckComboBox следующее.
Хотелось сделать универсальную процедуру такого подсчета вне зависимости от значения свойства Properties.EditValueFormat, т.е. основываясь на значение <YourcxCheckComboBox>.Value.
Но, оказывается, <YourcxCheckComboBox>.Value также зависит от Properties.EditValueFormat, а не является всегда целочисленным представлением, как написано в справке.
Более того, если использовать Properties.EditValueFormat = cvfInteger, то количество Items ограничено 64 (больше - не помещается в Int64), об этом просто нужно помнить.
Поэтому, для решения вопроса в общем случае, необходимо анализировать не значение <YourcxCheckComboBox>.Value, а воспользоваться функцией TcxCustomCheckComboBox.GetItemState, например:

Код: function GetCheckedCount(ACheckComboBox: TcxCheckComboBox): Integer;
var
i: Integer;
begin
Result := 0;
for i := 0 to ACheckComboBox.Properties.Items.Count - 1 do
if ACheckComboBox.GetItemState(i) = cbsChecked then inc(Result);
end;

vladman
а ПМ - это что?

brookson

Цитата:

а ПМ - это что?

Personal messanger
http://forum.ru-board.com/messanger.cgi

Подскажтие как оптимизировать ширину колонок "по данным", в этих колонках.
То есть чтобы сразу при запуске был эффект, который мы получаем при двойном клике между header колонок.
нашел только автовыравнивание по всей ширине .. это не то

ApplyBestFit()

TreeList 5.47 глючит. Если поставлен CellSelect=False, то при скролле стрелками клавиатуры фокус переходит по нодам, но сам TreeList не скроллится до фокусного нода.
Кто нибудь сталкивался с этим глюком? Как лечить?

PS: NOde.MAkeVisible в OnFocusedNodeChanged пробовал - не помогает.

JDEE

Цитата:

TreeList 5.47 глючит. Если поставлен CellSelect=False, то при скролле стрелками клавиатуры фокус переходит по нодам, но сам TreeList не скроллится до фокусного нода.

Исправят в следующей (5.48) версии.
Bug Report Details: Navigating with keyboard up/down does not trigger FocusedNodeChanged event when CellSelect is False

Вопрос по одному из примеров, которые идут с DevExpress:
исходник тут - Components\Demos\XtraTreeList\CS\TreeListMainDemo\Modules\ExplorerNew.cs.

Там создается дерево каталогов.
При инциализации создается объект для DataSource


Код: treeList1.DataSource = new object();