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

indapublic
Это все понятно. И как бы думаю уже каждый наступал на эти грабли и возможно кто-то уже писал что-то, чтобы обойти. Вот и надеялся найти дописанный класс.

mdid
в раних версиях девок можно было фильтр сохранять и выставлять через DataController.Filter.FilterText в паре с DataController.Filter.Active
на текущих не проверял.
также есть метотоды
DataController.Filter.SaveToStream
DataController.Filter.LoadFromStream

Cryogen2003
Странно, у меня описанных проблем нет.

Я в журналах документов (по сути - это 1 форма, которая заполняется динамически) делаю

Код:
View1.DataController.CreateAllItems();

// тут кусок кода скрыт

PropertiesStore.Components.BeginUpdate;
for i := 0 to View1.ColumnCount - 1 do
begin
AComponent := TcxPropertiesStoreComponent(PropertiesStore.Components.Add);
AComponent.Component := View1.Columns[i];
if View1.Columns[i].Width>400 then
View1.Columns[i].Width:=400;
AComponent.Properties.Add('Width');
AComponent.Properties.Add('Visible');
AComponent.Properties.Add('SortIndex');
AComponent.Properties.Add('SortOrder');
end;
PropertiesStore.Components.EndUpdate;

Скажите как узнать индекс у SelectedObject у компонента dxFlowChart не делая полный перебор всех объектов до ObjectCount и сравнивая тот ли это объект
к объекту можно обратиться по индексу так dxFlowChart1.Objects[i] значит и как-то индекс можно получить.

свою проблему решил так...сделал динамически создающиеся форма а в них убрал

Код:
cxGrid1DBTableView1.ClearItems;
cxGrid1DBTableView1.DataController.CreateAllItems(False);
и заменил на
cxGrid1DBTableView1.DataController.CreateAllItems(true);

а не пробовал KeyPress

Код: procedure TTest.GridDBTableView1KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key=#13 then ...

end;

не подходит по причине необходимости нажать enter 2 раза...первый OnValidate для колонки(при этом не срабатывает KeyPress повешанный для вьюхи)
и уже второй enter для KeyPress на вьюхе

mdid
А если так

procedure TForm1.cxGrid1DBTableView1EditKeyDown(Sender: TcxCustomGridTableView;
AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit; var Key: Word; Shift:
TShiftState);
begin
// Срабатывает если ячека в соостоянии редактирования
if Key = VK_RETURN then
cxGrid1TableView1.DataController.GotoNext;
end;

procedure TForm1.cxGrid1DBTableView1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
// Срабатывает если ячека в не в соостоянии редактирования
if Key = VK_RETURN then
cxGrid1TableView1.DataController.GotoNext;
end;

marser
в режиме редактирования такая штука

Код:
cxGrid1TableView1.DataController.GotoNext;

mdid
Я, из-за лени, проверял на обычном Гриде (TcxGridTableView). Прекрасно работает. А почему не работает на TcxGridDBTableView, х.з. Хотя принципиальной разницы между TcxGridTableView и TcxGridDBTableView не должно быть.

Есть DBTableView. На Column повешены события для GetPropertiesForEdit и GetProperties. Внутри в зависимости от типа записи делается, подменна Properies. Например, если тип 1 то редактируемый элемент это числовой редактор, для типа 2 это например LookupComboBox и т.д. Хочется добавить возможность переходить по клавише Enter на следующую запись в редакторе (не в DataController а ViewData) и ту же колонку где была нажата клавиша, а также переводить ее в состояние Edit для последующего ввода данных. Для операторов это очень удобно, редактируют значения подряд без ручного перехода на следующую запись.

tanaseduard

Цитата:

Хочется добавить возможность переходить по клавише Enter на следующую запись в редакторе (не в DataController а ViewData)

Переходить на следующую запись не в DataController а ViewData? Не совсем понятно. Поясните, пожалуйста.

DataController это записи из DataSet в порядке как они поступили из БД, а в ViewData так как отображаются на экране , включая фильтр, сортировку и группировку.

cxGrid, одно сгруппированное поле. Необходимо сфокусироваться на последней строке записи. DataController.GotoLast сфокусируется на первом уровне, а необходимо встать еще и на последний Child. Туплю, не могу сообразить. Подскажите

tanaseduard

Цитата:

DataController это записи из DataSet в порядке как они поступили из БД, а в ViewData так как отображаются на экране , включая фильтр, сортировку и группировку.

Заблуждаетесь! Обратите внимание, например, на DataController.FocusedRowIndex,
DataController.Groups и т.д и т.п. Во-вторых, даже в TcxGridTableView есть DataController, но нет никакой связи с DataSet.

Кажется dxBarManager1 на форму То свойство Form1.AutoSize=true идет лесом ((

Добавлено:
На сайте даже есть родном вопрос

When add barmanager(for toolbar) component on form, my form autosize
true property isn't work. If remove toolbar on my form, form autosize true
property work good. Did you know this problem?

Добавлено

Создание и показ кнопки на панели. Этот код вызывается при создании каждой дочерней формы

Но почему так сложно . Создаем TdxBarButton , потом к ней прикручиваем TdxBarItemLink ?????



Код: procedure TfmMain.CreateFormButton(form1:TForm);
var
ABar : TdxBar;
NewButton : TdxBarButton;
NewItemLink : TdxBarItemLink;
begin
inc(iButtonsCount);
ABar := Bar1;
NewButton := TdxBarButton.Create(self);
NewItemLink := ABar.ItemLinks.Add;
NewItemLink.Item := NewButton;
NewItemLink.Item.Tag := form1.Handle;
NewButton.Tag := form1.Handle;
NewButton.Name := 'dxButton'+IntToStr(NewButton.Tag);
NewButton.Caption := form1.Caption + '[' + IntToStr(iButtonsCount) + ']';
NewButton.Hint := form1.Caption;
NewButton.OnClick := dxBarButtonClick;
NewButton.ButtonStyle := bsChecked;
NewButton.Down := true;
NewButton.PaintStyle := psCaptionGlyph;
NewButton.GroupIndex := 1;
NewButton.Glyph.Width := 16;//GetSystemMetrics(SM_CXSMICON);
NewButton.Glyph.Height := 16;//GetSystemMetrics(SM_CYSMICON);
NewButton.Glyph.Canvas.Draw(0,0,form1.Icon);
ABar.Control.RepaintBar;
end;

+

Уважаемые подскажите плиз!
Есть программа.....

Спасибо! Вопрос решён!

CAD_tester, property MergeCells
JohnSilver182, что сложного в создании Линка? Линк нужен для того, чтобы привязать одну и ту же кнопку к различным контейнерам (главное меню, панель инструментов, контекстное меню)

indapublic

Цитата:

cxGrid, одно сгруппированное поле. Необходимо сфокусироваться на последней строке записи. DataController.GotoLast сфокусируется на первом уровне, а необходимо встать еще и на последний Child. Туплю, не могу сообразить. Подскажите

Попробуйте так:

Код: <Your>cxGridDBTableView.DataController.GotoLast;
if <Your>cxGridDBTableView.Controller.FocusedRow.Expandable then
begin
<Your>cxGridDBTableView.Controller.FocusedRow.Expand(False);
<Your>cxGridDBTableView.Controller.GoToLast(True);
end;

А если IF заменить на WHILE, то будет работать для любого количества группировок.

afiget

Цитата:

А если IF заменить на WHILE, то будет работать для любого количества группировок.

Да, точно. И элегантно получается. )

Использую ExpressSkins Library и ExpressBars 6 (49 версия).
Юзаю Tdxbarmanager c несколькими тулбарами (обычные, не риббон). Стиль стоит bmsUseLookAndFeel, все иконки на тулбаре слегка осветленные, нормально отображается только та на которую наводишь мышкой. Мне надо, что иконки отображались все как нарисованы, а не только активная. Если стиль выставить bmsStandard, то они такие как мне нужно, но теряется поддержка скинов на тулбаре.
Наверное есть где-то какое то свойство где это задается, но я не нашел.
P.S. Для управления скинами использую TdxSkinController.

А нет ли у скинов в стиле Office 2010 -> на сайте смотрел, вроде как есть, скачал демо - > там нема, кто может подсказать

Hi All
Событие у cxLookupComboBox на EditValueChanged срабатывает если кликать на разные записи , а если кликать на одну то нет. Как это побороть ????

Цитата:

Событие у cxLookupComboBox на EditValueChanged срабатывает если кликать на разные записи , а если кликать на одну то нет. Как это побороть ????

Можт залесть в исходник и дописать...

Цитата:

Можт залесть в исходник и дописать...

Смешно .

Цитата:

Как это побороть ????

Зачем же это побороть, если оно соответствует названию? Что вы хотите получить в итоге?

Цитата:

Зачем же это побороть, если оно соответствует названию? Что вы хотите получить в итоге?

Да юзеры иногда приеб...ся . Например экспериментируют :добавляют Иванова , удаляют ,
снова добавляют .

Цитата:

А нет ли у скинов в стиле Office 2010 -> на сайте смотрел, вроде как есть, скачал демо - > там нема, кто может подсказать

Если вы о VCL компонентах, то пока нет таких. А где вы на сайет видели скин Office 2010? По-моему нет таких и для .Net Winform компонент.