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

marser

Спасибо за указание нужного направления! Это то, что надо

На Form1 настроил Quick Access Toolbar (QAT), следом на Form2 сделал то же самое. Но при вызове Form2 идентично настроенная QAT почему-то съезжает вниз (условно - на место Main Menu). Это фича? Или QAT может использоваться только на одной форме?



Добавлено:
Хм... После некоторых экспериментов нашёл решение (но, скорее всего, не самое правильное). Добавлять уже готовую форму:



Тогда QAT работает как надо на всех формах вне зависимости от их количества.

reenoip
а у Form2 какой класс? должен быть TdxRibbonForm

regkz
вот в этом-то и была моя ошибка.

Нужно организовать цикл по дереву TcxDBTreeList. Но в новых версиях уже не рекомендуют использовать vNode := tree.Root;



Код: Procedure HideNodes(Tree: TcxDBTreeList);
Var
vNode: TcxTreeListNode;
begin
if not Tree.DataController.DataSource.DataSet.Active then Tree.DataController.DataSource.DataSet.Open;

vNode := tree.Root;

while vNode <> nil do
begin
vNode.Visible := vNode.HasChildren;
vNode := TcxDBTreeListNode(vNode.GetNext);
end;//While

end;

X11
а что именно делает цикл? у вас же DB дерево, и гораздо быстрее будет поиск/фильтрация sql запросом.

Кто-нибудь ещё может подсказать?

Добавлено:
Нужен цикл по узлам дерева.

Добавлено:
Код показывает "-1", а по идее должен показывать 1

tree.GotoBOF;
vNode := TcxDBTreeListNode(tree.root);
ShowMessage(vNode.Level);


Добавлено:
Вернее 0

X11
ProcessChildren
_http://www.devexpress.com/Support/Center/Question/Details/A973

Можно ли в TcxDBTreeList обратиться напрямую к конкретной Cell по индексу Column и индексу Node, т.е. по "координатам" Cell ?

Ребята, посмотрите на дату сообщений. 9 лет назад

а я написал:

Цитата:

в новых версиях

Добавлено:
Мало того, TopNode возвращает NIL

Добавлено:

Цитата:

Можно ли в TcxDBTreeList обратиться напрямую к конкретной Cell по индексу Column и индексу Node, т.е. по "координатам" Cell ?

Задай вопрос по другому, может нужно что-то вроде FocusedNode.Values[ColumnIndex]?

[more]
Цитата:

Цитата:
Можно ли в TcxDBTreeList обратиться напрямую к конкретной Cell по индексу Column и индексу Node, т.е. по "координатам" Cell ?

Задай вопрос по другому, может нужно что-то вроде FocusedNode.Values[ColumnIndex]?

Не совсем так. Как мне здесь подсказали уже, я по событию MouseMove через cxDBTreeList.HitTest запомнил индексы колонок и веток дерева для каждой обработанной (закрашиваемой по обработке события OnCustomDrawDataCell) Cell и выделил цветом эти Cell-ы.

Собственно мне это необходимо для реализации "своего" селекта, который позволял бы выделять область не целыми ветками. Дальше значения выделенной области ячеек пишутся в буфер (для дальнейшей выгрузки в Excel). Ранее значения из ячеек читались как Selections(i).Value[ColumnIndex]. Теперь в качестве опознавательных знаков нужных ячеек будут использоваться индексы (либо цвет/стиль).

Мне необходимо также очищать выделенную область перед следующим нажатием левой кнопки мыши и новым выбором некоторой области. Как быстро обратить цвета (стиль) всех ячеек в дефолтный цвет (стиль)?

Вот есть событие StylesGetContentStyle, в аргументах которого содержатся как раз индексы Column и Node перерисовываемой ячейки. Через это событие можно поменять стиль у конкретной ячейки.

У меня просто незнание всех свойств и событий этого компонента, поэтому не знаю как обращаться вот к конкретным ячейкам в моем случае. Возможно ли это не в рамках события StylesGetStyleContent?
[/more]

X11
В новых, старых - один черт - без рекурсии дерево не обежишь. Доберусь до работы, попытаюсь сделать.

в старых можно было начинать от ROOT, а в новых уже по другому

X11
Проверил. Код прекрасно работает. Все что понадобилось - заменить TdxTreeListNode на TсxTreeListNode.

Pint pot

Цитата:

Можно ли в TcxDBTreeList обратиться напрямую к конкретной Cell по индексу Column и индексу Node, т.е. по "координатам" Cell ?

Что значит к Cell? Если к значениям ячейки, то
cxDBTreeList1.Items[Index].Values[Index]
cxDBTreeList1.AbsoluteItems[Index].Values[Index]

Добавлено:
X11
Элементарно пишется и без Root. cxTreeList1.Items - ноды верхнего уровня.

Добавлено:
Pint pot

Цитата:

Вот есть событие StylesGetContentStyle, в аргументах которого содержатся как раз индексы Column и Node перерисовываемой ячейки. Через это событие можно поменять стиль у конкретной ячейки.

Конечно можно. В качестве опознавательных знаков выделенных ячеек можно использовать свойства Node.ImageIndex и Column.Tag, например, Node.ImageIndex := -100 и Column.Tag := 1, а в обработчике события OnCustomDrawDataCell написать:

Код: procedure TForm1.cxTreeList1CustomDrawDataCell(Sender: TcxCustomTreeList; ACanvas: TcxCanvas; AViewInfo: TcxTreeListEditCellViewInfo; var ADone: Boolean);
begin
if (AViewInfo.Node.ImageIndex = -100) and (AViewInfo.Column.Tag = 1) then
begin
ACanvas.Brush.Color := clHighlight;
ACanvas.Font.Color := clHighlightText;
end;
end;

Хорошо, у вас есть работающий пример получения ключевых значений (KeyValue) отмечанных чекбоксами узлов?

Пользователь отметил несколько узлов чекбоксами, нужно пройтись по дереву и получить у отмеченных узлов значения ключевого поля ID.
Дерево привязано к НД.

X11

Код: procedure TForm1.cxButton1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to cxDBTreeList1.AbsoluteCount - 1 do
begin
if cxDBTreeList1.AbsoluteItems[I].HasChildren and (cxDBTreeList1.AbsoluteItems[I].CheckState = cbsChecked) then
ShowMessage(VarToStr(cxDBTreeList1.AbsoluteItems[I].Values[0]));
end;
end;

Есть cxDBCardView.
И вот забавная с ним фишка. Если не помещается на экран то показывает свои скролы, но если хоть 1 поле имеет значение False для BeginsLayer то скроллы пропадают намертво.
Как лечить?

marser

Благодарю за помощь! Всё получилось (маркировку ячеек дерева делал всё же через StylesGetContentStyle)

Eсли положить на dxBar кнопки с картинками, то картинки выглядят монохромными, пока не наведешь на любую из них мыша. Как вернуть им жизнерадостный вид подобно стандартным VCL-ским собратьям?

X11

Цитата:

нужно пройтись по дереву и получить у отмеченных узлов значения ключевого поля ID

Это две не связанные друг с другом задачи.
eddoc
AutoGrayScale свойство кнопки.

Цитата:

Это две не связанные друг с другом задачи.

очень даже связанные

makz
спасибки

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

X11
Связанные они только в том случае, если надо обойти ветвь, а не дерево целиком, как у тебя.

Добавлено:
eddoc
Да мне и в личку ни к чему, и тут необязательно . Просто пиши если не сработало.

Как-то странно себя cxDBMemo ведёт, блин, никак не могу его приручить
Прикрутил к нему скин Office2010Silver, и выглядит с ним компонент отлично ровно до тех пор, пока к cxDBMemo не подключишь DataSource:




Страшно выглядит что в XP, что в Windows 7 (и с Aero, и без него).


Подключение других скинов не помогает - со всеми комплектными скинами наблюдаются те же самые... как бы их назвать... "графические артефакты".

Добавлено:
Чёрная полоска на компоненте в левом верхнем углу - не фотошоп, если что. У меня прямо так и выглядит компонент после подключения к нему DataSource и определения поля.

makz, мне нужно обойти все узлы, и собрать в список все отмеченные галочками. В датасете этой информации нет. Мало того, дерево может быть отфильтровано как-то. В общем в датасете и в дереве визуально могуть быть немного разные данные.

X11
marser привел способ собрать все галочки не обходя дерево, что не так?

всё так

Использую TcxPivotGrid для отображения информации по количеству товара (rb_count: TcxPivotGridField) и сумме (rb_price: TcxPivotGridField ). Оба поля лежат в области faData. Можно ли как-нибудь отобразить рядом столбец с "ценой за штуку"? Т.е. по сути нужно отобразить поле, аналогичное rb_price, но безо всякого суммирования.

И еще один вопрос про TcxPivotGrid. Сейчас очищаю таблицу так:
Код:
PivotGrid.BeginUpdate;
while PivotGrid.DataController.RecordCount > 0 do PivotGrid.DataController.DeleteRecord( 0 );
PivotGrid.EndUpdate;

Вопросы по планировщику:
1. Как в cxScheduler перекрыть/обработать самому срабатывание напоминалки?
2. Нашел код как создавать событие:

Код: var AEvent: TcxSchedulerEvent;
begin
AEvent := cxStorage.CreateEvent;
with AEvent do
begin
    Caption := 'Встреча';
    Start := Date + 10 * HourToTime;
Duration := 30 * MinuteToTime;
State := tlsBusy;
Post;
end;
end;