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

Цитата:

подскажите, по сумированию колонки в View...

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

В событии OnGetText элемента футера (залезть в него можно через редактор футера)

Код:
procedure TFMoneyList.cxGrid3DBBandedTableView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems34GetText
...
for i:=0 to cxGrid3DBBandedTableView1.DataController.RecordCount-1 do begin
s0:=cxGrid3DBBandedTableView1.DataController.GetValue(i,cxGrid3DBBandedTableView1Name.Index);
If (not VarIsNull(s0)) then if s0=4 then s1:=s1+s0;
end;
AText:=IntToStr(s1);

sldaac
Используй события по обрабоке суммирования значений
FooterSummaryItemsSummary
DefaultGroupSummaryItemsSummary

что то типа

Код:
procedure TForm1.View1DataControllerSummaryFooterSummaryItemsSummary(
ASender: TcxDataSummaryItems; Arguments: TcxSummaryEventArguments;
var OutArguments: TcxSummaryEventOutArguments);
begin
if (View1.DataController.Values[Arguments.RecordIndex,Column1.Index]<>4)
then
OutArguments.Value := 0;
end;

Цитата:

Klaypeda
Цитата:
Подскажите, пожалуйста! В TreeList как выровнять ширину столбцов по содержимому? Все обшарила - не могу найти. Заранее благодарна!

Используй метод ApplyBestFit

Спасибо, попробую!




Добавлено:
Подскажите, можно как-нибудь узнать у RichEdit-а, редактировался ли в нем текст или просто открыли и ничего не трогали?
Заранее благодарю!

Klaypeda

Цитата:

Подскажите, можно как-нибудь узнать у RichEdit-а, редактировался ли в нем текст или просто открыли и ничего не трогали?
Заранее благодарю!

Только через обработку события OnEditValueChanged

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


Вот нашёл код, как отрисовать чекбоксы


Цитата:

Поразмыслив немного, нашел способ прикрутить CheckGroups к TcxDBTreeList
После загрузки дерева в <YourDBTreeList> выполните:

Код: var
vNode: TcxTreeListNode;
begin
vNode := <YourDBTreeList>.Root;
while vNode <> nil do
begin
vNode.CheckGroupType := ncgCheckGroup;
if (vNode.Level > -1) and (vNode.Index mod 2 = 0) then
vNode.CheckState := cbsChecked
else vNode.CheckState := cbsUnchecked;
vNode := vNode.GetNext;
end;
end;

X11

Цитата:

уважаемого vladman`a

За уважаемого, спасибо )).

Цитата:

Неужели без специального кода нельзя отобразить дерево чекбоксами или радиокнопками? Если можно, то как? (доп. колонку использовать не хочется)

Ну а как без специального кода и без доп. колонки компонент будет знать который из нодов пометить чекбоксом?

Цитата:

Ну а как без специального кода и без доп. колонки компонент будет знать который из нодов пометить чекбоксом?

Я думал, что есть спец. свойство, которое может отобразить перключатели или радиокнопки.

А есть ещё способ, чтобы пройтись циклом по дереву с возможностью оперировать чекбоксами?

Подскажите, а можно ли в cxGrid'e на задний фон кинуть картинкую.
Пробую через BackgroundBitmaps, но там картинка замощает собой всю заднюю область, а хотелось чтоб картинка выводилась справа внизу..

Примеры:
http://s2.ipicture.ru/uploads/20110307/zUyknY6s.png ,
http://s2.ipicture.ru/uploads/20110307/VcDL7ERp.png

Можно. См. свойство Styles. Можно создать стиль, в котором определить картинку:


А потом этот стиль присвоить в гриде:

X11

Вот что получается - http://s1.ipicture.ru/uploads/20110307/YSNf11RR.png

Хотелось бы чтоб так - http://s2.ipicture.ru/uploads/20110307/WWJC7niM.png . Спасибо.

X11

Цитата:

Я думал, что есть спец. свойство, которое может отобразить перключатели или радиокнопки.

Конечно есть -

var
vNode: TcxTreeListNode;
...
vNode.CheckGroupType := ncgCheckGroup;

т.е.
TcxTreeListNodeCheckGroupType = (ncgNone, ncgCheckGroup, ncgRadioGroup);
property CheckGroupType: TcxTreeListNodeCheckGroupType;

Цитата:

А есть ещё способ, чтобы пройтись циклом по дереву с возможностью оперировать чекбоксами?

Так вы же сами его привели выше.

Цитата:

Конечно есть -

var
vNode: TcxTreeListNode;
...
vNode.CheckGroupType := ncgCheckGroup;

Не нашёл
http://i17.fastpic.ru/big/2011/0307/01/4e4b1b8036d35fdbc74f587851a1d001.png

или это свойство только во время исполнения программы доступно?


Добавлено:
А, понял, не у Column, а у Node и поэтому доступно только во время исполнения и включить у всех записей можно только с помощью цикла, так?

X11

Цитата:

А, понял, не у Column, а у Node и поэтому доступно только во время исполнения и включить у всех записей можно только с помощью цикла, так?

Для TcxDBTreeList именно так.

Добавлено:
Для любознательных
The Developer Express 2011 Roadmap

Необходимо программно в зависимости от выбора пользователя установить параметры фильтра для вьюшки грида.
Данные загружаются из flt-файлов.
Пробую использовать несколько TcxFilterControl, каждый из которых загружает данные из своего файла.
При загрузке данных использую LoadFromFile.
Выдается ошибка: "Невозможно построить фильтр из источника".
Причём flt-файл был ранее создан из редактора FilterControl-а, и в редакторе это контрола нормально загружается.

Заранее большое спасибо!

Извините, переспрошу.
Как можно организовать цикл по дереву TcxDBTreeList? И при это оперировать чекбоксами. Как минимум - это определять состояние переключателя.

Hydrolisk

Цитата:

Необходимо программно в зависимости от выбора пользователя установить параметры фильтра для вьюшки грида.
Данные загружаются из flt-файлов.
Пробую использовать несколько TcxFilterControl...

Зачем же так сложно, попробуйте использовать <Your>cxGridTableView.DataController.Filter.ReadData(); т.е.

Код: var
vStream: TFileStream;
...
vStream := TFileStream.Create('YourSavedFilter.flt', fmOpenRead);
<Your>cxGridTableView.DataController.Filter.BeginUpdate;
try
<Your>cxGridTableView.DataController.Filter.ReadData(vStream);
finally
<Your>cxGridTableView.DataController.Filter.EndUpdate;
<Your>cxGridTableView.DataController.Filter.Active := True;
vStream.Free;
end;

Вопрос по TcxCheckListbox и автоматической ширине колонки.
Есть ли у TcxCheckListbox что-то вроде column autowidth?
И как устанавливать ширину колонки?

X11

Цитата:

Извините, переспрошу.
Как можно организовать цикл по дереву TcxDBTreeList? И при это оперировать чекбоксами. Как минимум - это определять состояние переключателя.

Код: var
vNode: TcxTreeListNode;
begin
vNode := <YourDBTreeList>.Root;
while vNode <> nil do
begin
if vNode.CheckGroupType = ncgCheckGroup then
begin
if vNode.CheckState = cbsChecked then ShowMessage('Checked');
if vNode.CheckState = cbsUnchecked then ShowMessage('Unchecked');
if vNode.CheckState = cbsGrayed then ShowMessage('Grayed');
end;
vNode := vNode.GetNext;
end;
end;

Этот код я уже видел и использую. Я имел ввиду, есть ли другой способ пройтись циклом по дереву?

vladman

Спасибо огромное! Всё заработало.

X11
А чем этот плох?

Добавлено:

Цитата:

Вопрос по TcxCheckListbox и автоматической ширине колонки.
Есть ли у TcxCheckListbox что-то вроде column autowidth?

Так поведение TcxCheckListbox при значении поля Columns > 0 и реализовано как column autowidth.

Цитата:

Так поведение TcxCheckListbox при значении поля Columns > 0 и реализовано как column autowidth.

Но снимок показывает обратное


Добавлено:

Цитата:

А чем этот плох?

Я не сказал, что плох. Всё работает.
Ну во первых хотелось бы ещё один способ.
Например, без объявления дополнительной переменной, а также с использованием FOR

X11

Цитата:

Но снимок показывает обратное

Для начала - в общем случае, ColumnAutoWidth определяет, должна ли автоматически меняться ширина колонок в зависимости от ширины контрола для исключения появления горизонтального скролинга.
Так вот, у TcxCheckListbox именно так и реализовано при Columns > 1.
Поэтому и происходит обрезание текста из вашего примера, т.е. из-за того, что свойство Columns установлено в 2. Попробуйте установить его в 0.


Цитата:

Ну во первых хотелось бы ещё один способ.
Например, без объявления дополнительной переменной, а также с использованием FOR

Действительно, интересно, чем вызвано такое желание?

Цитата:

Поэтому и происходит обрезание текста из вашего примера, т.е. из-за того, что свойство Columns установлено в 2. Попробуйте установить его в 0.

У меня одна колонка. И на снимке видна одна колонка.

Добавлено:

Цитата:

Попробуйте установить его в 0.

Установил в ноль. Проблема не исчезла.

Вот значение свойств:


Вот код заполнения:

Код:
procedure TfmMain.FeelCxCheckListBox(clb: TcxCheckListBox; fibds: TpFibDataSet);
begin
clb.EditValueFormat := cvfCaptions;

if not fibds.Active then
fibds.Open
else
fibds.First;

fibds.DisableControls;
clb.Items.BeginUpdate;
try
While not fibds.Eof do
begin
with TcxCheckListBoxItem.Create(clb.Items) do
begin
Text := fibds.FBN('NAME').AsString;
Tag := fibds.FBN('ID').AsInteger;
end;//with
fibds.Next;
end;//while
finally
clb.Items.EndUpdate;
fibds.EnableControls;
end;
end;

Подскажите, пожалуйста, как ограничить список колонок, который выпадает в диалоге задания характеристик фильтра (TcxFilterControl)? Т е как оставить в этом списке только нужные колонки, по которым должна происходить фильтрация?

Hydrolisk

Цитата:

Подскажите, пожалуйста, как ограничить список колонок, который выпадает в диалоге задания характеристик фильтра (TcxFilterControl)? Т е как оставить в этом списке только нужные колонки, по которым должна происходить фильтрация?

У "ненужных" колонок установите свойство Options.Filtering в False.

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

mdid
Под рукой нет среды чтобы точно написать, смотрите у cxLookupComboBox.Properties свойство вроде EditStyle, ну точно начинается с Edit и там выбираете Edit, а не Fixed, после этого можно вводить значения, которые отсуствуют в выпадающем списке. Если надо контролировать новые значения, чтобы, например добавлять их в выпадающий набор значений, то в обработчиках событий - Properties.OnNewLookup ... что-то такое ...

FunCode
пасиб нашел...а свойство DropDownListStyle

Добрый день. Подскажите как можно динамически всем компонентам поменять скин? dxSkinController меняет только саму форму. DevExpress 52.