» Использование DevExpress 2

X11

[ ??????? ] = Номер колонки

может индекс (cxDBTreeList1NAME.index)?
vgAreasID_TYPE.Properties.Value := cxDBTreeList1.FocusedNode.Values[ cxDBTreeList1NAME.index ];

только нет свойства index

Добавлено:
мне нужно присвоить значение KeyField дерева, а присваивается текст ноды ((((((

X11
Что-то типа
dbTreeList.DataController.KeyField ?
В ДБ вариантах многое делается через ДатаКонтролер.
И свойство Index, тоже есть, только доступ подлинее
Выглядит это, примерно так:
cxTreeList.FocusedNode.Values[cxTreeList.FocusedColumn.ItemIndex]

Добавлено:
PS С последним, кажется, прогнал.
Ответил на автомате. Но все равно посмотри.

Цитата:

Что-то типа
dbTreeList.DataController.KeyField

нет, KeyField - это имя поля, а мну нужно что-то вроде KeyValue

Добавлено:

Цитата:

Выглядит это, примерно так:
cxTreeList.FocusedNode.Values[cxTreeList.FocusedColumn.ItemIndex]

не то, т.к. присваивается текстовое значение, а мну требуется получить ID (KeyValue)


Добавлено:
Разобрался


Код:
Var
vKeyVal: variant;
begin
vKeyVal := cxDBTreeList1.DataController.GetKeyFieldsValues;
ShowMessage(vKeyVal);

как программно закрыть PopupEditor в cxVerticalGrid?

PopupEditor - нет такого, есть TcxCustomPopupEdit, у которого есть PopupWindow, для закрытия которого:

if PopupWindow.HandleAllocated and IsWindowVisible(PopupWindow.Handle) then
PopupWindow.ClosePopup();

PopupWindow где-то в иерархии:

TcxCustomEditPopupWindow
TcxCustomPopupWindow
TcxPopupWindow
TForm

VadimLou, подскажи, что в этом коде не так? Почему AV на первой строке?

vgAreasID_TYPE - TcxEditorRow, EditProperties := PopupEdit


Код:
if (TcxCustomPopupEdit(vgAreasID_TYPE).PopupWindow.HandleAllocated) and
IsWindowVisible(TcxCustomPopupEdit(vgAreasID_TYPE).Handle)
then
TcxCustomPopupEdit(vgAreasID_TYPE).PopupWindow.ClosePopup;

Есть VerticalGrid. В ней есть 2 строки (cxEditorRow), у которых EditProperties := PopupEdit.
Значение свойства Value заносим из ноды дерева. Да, вобщем-то, не обязательно из дерева, можно как угодно.
Проблема в том, что Value получает значение, но визуально оно отображается только когда строка грида теряет фокус, а не по нажатию кнопки.



Код:
procedure TfmAreas.btnSelTypeValueClick(Sender: TObject);
Var
PopupWnd: TcxPopupEditPopupWindow;
begin
//присваиваем значение
vgAreasID_TYPE.Properties.Value := dbTreeType.DataController.Values[dbTreeType.DataController.FocusedRecordIndex, dbTreeType.FocusedColumn.ItemIndex];

//прячем панель с деревом и кнопками
PopupWnd := TcxPopupEditPopupWindow(cxTabControl1.Parent);
PopupWnd.ClosePopup();
end;

Уважаемые!
Есть ли компоненты от DevEx для BDS 2007 .NET ?
если есть, где бы их найти?

на сайте производителя поискать на тему VCL.NET

Добавлено:
а может даже и нету таких

Добавлено:
http://www.devexpress.com/Products/Index.xml

X11

Цитата:

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

Попробуй программно установить фокус на ячейку.

всмысле.... на другую? т.е. спрыгивать с текущей?

Добавлено:
Нашё-оооооооол!

// выходим из режима редактирования
vgAreas.HideEdit();

Вопрос по DevExpress+RxLib
При использовании мастер-детайл cxGrid(источники данных - два RxMenoryData) любое действие, вызывающее событие Post в дочерней таблице, приводит к тому, что дочерний грид начинает отображать записи начиная с текущей, предыдущие просто не видны. При использовании обычных квери или таблиц, этого не происходит.

1. а может лучше использовать свой "родной" dxMemData?
2. а DataController.RefreshExternalData;

смотря как дочерняя таблица привязана к основной

X11

Цитата:

Почему AV на первой строке?

Можно и через Parent.

по поводу AV:
Если в AV сообщении маленькая циферь - то это признак отсутствия проверки на nil (а цифра - это смещение поля относительно базового адреса обьекта).

В твоем случае AV потомучто:

TcxEditorRow = class(TcxCustomEditorRow)
TcxCustomEditorRow = class(TcxCustomRow)
TcxCustomRow = class(TComponent

т.е. приведение к типу TcxCustomPopupEdit неверно.
Если не уверен в типе , то пиши хотя бы через as - тогда получил бы ошибку на этапе компиляции в данном случае (и вообще в рантайме).

Я назначил 2 стиля для cxGridDBTableView, первый для Background, второй для Content, вопрос в том, что код:
dbgReklama.StoreToIniFile(sAppPath+'dbgReklama.ini');
не сохраняет изменённые параметры шрифта контента. Как правильно сохранять стили грида или что нужно вообще сохранять/восстанавливать?

X11
Стили где делал?
Если в стайл-менеджере, то его и сохраняй.

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

Цитата:

X11
Стили где делал?
Если в стайл-менеджере, то его и сохраняй.

делал в репозитарии стилей, но там нет чего наподобие StoreToIni или SaveToini

Цитата:

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

а грид случайно не в режиме GRIDMode?

Как можно убрать из Ribbon приложения ненужные втроенные скины? А то приложение очень много весит=(

что-то я торможу....
есть строка в ExpressVerticalGrid типа LookupCombobox, как её программно вывалить?


Код:
(vgAreasID_INFOSOURCE.Properties.EditProperties as TcxLookupComboBoxProperties). .....

X11

see: property TcxCustomDropDownEdit.DroppedDown: Boolean
and method (cxDropDownEdit.pas):
procedure TcxCustomDropDownEdit.SetDroppedDown(Value: Boolean);

А ващетадлятакого рода задач достаточно алгоритма:
- делаешь событие OnPoup, ставишь в нём точку останова
- запускаеш свою прогу
- вручную инициируешь вываливание - в результате попадаешь в точку останова
- далее смотришь стек вызова и думаешь

Или просто аналишь сорцы:

type
TcxCustomDropDownEditAccess = class(TcxCustomDropDownEdit);
...
begin
...

TcxCustomDropDownEditAccess(vgAreasID_INFOSOURCE).DropDown;

Есть ещё св-во Properties.ImmediateDropDown.

Притормаживает приложения на слабых машинах. Формы подвисают(белеют, контролы исчезают), особенно где есть bar-ы. Как уменьшить потребление в ресурсах?
Код: LookAndFeelController.Kind:=lfStandart;
LookAndFeelController.NativeStyle:=false;
Begin..EndUpdate используется везде.

VadimLou, прости не доходят до меня пока ещё всё, что связано с девками:

Код:
TcxCustomDropDownEdit(vgAreasID_INFOSOURCE.Properties.EditProperties).DroppedDown := True;

X11
if vgAreas.InplaceEditor is TcxCustomDropDownEdit then
TcxCustomDropDownEdit(vgAreas.InplaceEditor).DroppedDown := True;

та нет, мну нужно вывалить несфокусированную строку или сначала сфокусировать, а потом вывалить

Вопрос по вертикальному гриду. В гриде есть 10 строк. часть из них типа LookupCombobox, так вот, как можно реализовать так, чтобы при получении фокуса список сам вываливался?

Добавлено:
ImmediateDropDown равен True, но список выпадает только по нажатию на кнопку мышкой

Добавлено:
к сожалению у строки с EditProperties типа lookupcombobox нет события OnEnter ((

Цитата:

делал в репозитарии стилей, но там нет чего наподобие StoreToIni или SaveToini

В PropertiesStore доступны свойства View.Style для сохранения. Понимаю, что криво, но что поделать.

Добавлено:
X11

Цитата:

Вопрос по вертикальному гриду

Код: procedure TPermitionList.cxDBVerticalGrid1InitEdit(Sender, AItem: TObject;
AEdit: TcxCustomEdit);
begin
inherited;
(AEdit as TcxLookupComboBox).Properties.ImmediatePopup:=true;
end;

Отлично, спасибо, работает.


Добавлено:
Как вы думаете, почему пустое сообщение?
vgAreas - TcxVerticalGrid
[/code]
procedure TfmAreas.vgAreasInitEdit(Sender, AItem: TObject;
AEdit: TcxCustomEdit);
begin
inherited;

if (AEdit is TcxTextEdit) then ShowMessage(TcxTextEdit(AEdit).Name);
[/code]

и как можно идентифицировать эдиты, еслт даже имя узнать нельзя?