Использование DevExpress 2 - [19] :: Прикладное программирование :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Использование DevExpress 2

Модерирует : ShIvADeSt
ShIvADeSt (07-02-2009 14:53): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=10123#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122

ShIvADeSt

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

DevExpress

Обмен опытом, обсуждение нюансов и решение проблем возникающих при использовании библиотеки компонент Developer Express

Сами прирученные компоненты частенько приходят на водопой сюда

DLL со скинами из библиотеки dxSkins, автор Ziltoid Подробнее... линк обновлен
Продолжение, начало тут

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 03:16 29-01-2007 | Исправлено: VitaliM, 15:47 24-11-2008

Garrett Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору saltmi1 Chm-хелпы можно скачать с сайта. Качество очень хорошее.
	Всего записей: 2736 \| Зарегистр. 16-10-2003 \| Отправлено: 21:08 21-05-2007

Barsakov

Newbie

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Великие Гуру нужна Ваша помощь!
Погибаю, уже сил нету (
Как в PivotGride при наводке на определенную ячейку получить её родителей, т.е. получить заголовок колонки и все заголовки по строке.

ПЫ.СЫ. На Devexpress.com вроде смотрел, но ничего похожего не нашел.

Всего записей: 8 | Зарегистр. 11-05-2007 | Отправлено: 07:42 22-05-2007

Dronton2

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Barsakov
На devexpress.com есть пример:

Код:

procedure TForm1.DBPivotGridClick(Sender: TObject);
var
ACrossCell: TcxPivotGridCrossCell;
begin
with DBPivotGrid.HitTest do
if HitAtDataCell then
Caption := TcxPivotGridDataCellViewInfo(HitObject).DataField.Name;
end;

Можно попробовать эту процедуру использовать в OnMouseMove.

В хэлп-файле по pivotGrid нужно посмотреть свойство Parent, например, TcxPivotGridViewDataItem.Parent

Всего записей: 460 | Зарегистр. 27-06-2005 | Отправлено: 12:26 22-05-2007

Z_E_T

Newbie

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Привет всем!!!!
У меня вопрос по компоненту cxGrid. Есть табл в нём обно поле типа DateTime, в cxGrid в Properties ставлю значение DateEdit, при редактировании этого поля возникает ошибка:
Overflow while converting varian of type(integer) into type(Data). Я не пойму почему она возникает, как от неё избавится?

Всего записей: 8 | Зарегистр. 03-04-2007 | Отправлено: 13:41 22-05-2007

ArtemiyUO Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Поле БД (датасета) наверно integer, сделайте его datetime.
	Всего записей: 539 \| Зарегистр. 12-12-2005 \| Отправлено: 17:39 22-05-2007

Z_E_T Newbie	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору ArtemiyUO Добавлено: Пардон, в том то дело что в БД тоже datetime
	Всего записей: 8 \| Зарегистр. 03-04-2007 \| Отправлено: 08:12 23-05-2007

Truncate

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Если Вас незатруднит ответить на вот такой вопрос.

Как всетаки заставить при фильтрации первого поля списка, во втором, поле в списке, были данные только те которые уже отфильтрованы и присуще первому значению ???????

типа distinct where

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

И тут

onGetFilterValues(Sender: TcxCustomGridTableItem; AValueList: TcxDataFilterValueList);

if Sender.Index=MyColumn.Index then
... заполняем для колонки MyColumn
else
... заполняем для других колонок

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

ПЛЗ научите !!!!! Покажите.

В дальнейшем обещаю выложить далее чтоб все такие как я могли воспользоваться вашим советом.

СПАСИБО.

Всего записей: 8 | Зарегистр. 22-05-2007 | Отправлено: 09:20 23-05-2007

Z_E_T Newbie	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Truncate Попробуй на уровне SQL запроса сделать
	Всего записей: 8 \| Зарегистр. 03-04-2007 \| Отправлено: 10:51 23-05-2007

Truncate

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Z_E_T

Нашел пример в демках cxGrid1DBTableView1DataControllerFilterGetValueList

Код:

var
AColumn: TcxGridDBColumn;
ADataSet: TDataSet;
AProperties: TcxLookupComboBoxProperties;
AValue: Variant;
AIsLookupColumn: Boolean;
begin
ADataSet := TcxGridDBTableView(Grid.FocusedView).DataController.DataSet;
AColumn := TcxGridDBTableView(Grid.FocusedView).Columns[AItemIndex];
AIsLookupColumn := AColumn.PropertiesClass = TcxLookupComboBoxProperties;
with GridModeDemoDataDM do
try
Screen.Cursor := crHourGlass;
qryHelper.SQL.Clear;
qryHelper.SQL.Add(
'Select DISTINCT ' + AColumn.DataBinding.FieldName + ' From ' +
GetTableNameByDataSet(ADataSet));
qryHelper.SQL.Add(
GetSQLCondition(TcxGridDBTableView(Grid.FocusedView), False));
qryHelper.Open;
qryHelper.First;
while not qryHelper.Eof do
begin
AValue := qryHelper.Fields[0].Value;
if AIsLookupColumn then
begin
AProperties := TcxLookupComboBoxProperties(AColumn.GetProperties);
ADataSet := AProperties.ListSource.DataSet;
AValue := ADataSet.Lookup(
AProperties.KeyFieldNames,AValue, AProperties.ListFieldNames);
end;
if VarIsNull(AValue) then Exit;
AValueList.Add(fviValue, qryHelper.Fields[0].Value, AValue, False);
qryHelper.Next;
end;
qryHelper.Close;
finally
Screen.Cursor := crDefault;
end;
end;

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

Как устранить ошибку непойму.

Может кто кинет свой пример как он делает.

Всего записей: 8 | Зарегистр. 22-05-2007 | Отправлено: 11:36 23-05-2007

Dronton2

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Truncate

Цитата:

у меня вылетает ошибка что выхожу за пределы памяти

На какой строке кода вылетает ошибка? Какие значения переменных, участвующих в этой строке? Дебагером пользуешься?

Всего записей: 460 | Зарегистр. 27-06-2005 | Отправлено: 12:27 23-05-2007

Truncate

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Dronton2[\b]
У меня ошибка на выходе из процедуры после end; непойму почему

Я поспрашивал у Друзей значит у меня стоит 5я версия

[b]Добавлено:
Упс прастите нажал Enter

Dronton2

У меня ошибка на выходе из процедуры после end; не пойму почему

Я поспрашивал у Друзей значит у меня стоит 5я версия

У них шестая

Так вот чтоб добиться грамотной фильтрации необходимо проста в свойстве

Код:

cxGridDBTableView. Filtering.ColumnFilterefItemsList:=True;

И нет Вообще проблем елы палы что ж такое надо Где то раздобыть 6ю.

Несправедливость.

Всего записей: 8 | Зарегистр. 22-05-2007 | Отправлено: 16:11 23-05-2007

onyxhall

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Подскажите пожалуйста:
при создании базы данных в Access в таблице в одном из полей использовался мастер подстановок и там задан фиксированный набор значений. При работе c этой таблицей в Access (например заполнении ее данными) это поле видно как ComboBox с этими заданными значениями.
Как сделать так, чтобы это поле выглядело так же при просмотре этой таблицы в QuantumGrid(в cxGridDBTableView) и в DBVerticalGrid?

Всего записей: 51 | Зарегистр. 06-11-2006 | Отправлено: 14:25 26-05-2007 | Исправлено: onyxhall, 16:09 26-05-2007

xitsmex

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:

Подскажите пожалуйста:
при создании базы данных в Access в таблице в одном из полей использовался мастер подстановок и там задан фиксированный набор значений. При работе c этой таблицей в Access (например заполнении ее данными) это поле видно как ComboBox с этими заданными значениями.
Как сделать так, чтобы это поле выглядело так же при просмотре этой таблицы в QuantumGrid(в cxGridDBTableView) и в DBVerticalGrid?

Использовать для этой колонки ImageComboBox.

Всего записей: 58 | Зарегистр. 31-08-2005 | Отправлено: 16:23 27-05-2007

onyxhall

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

xitsmex
Мог бы ты немного подробнее объяснить? И почему именно IMAGEComboBox, данные то - текст?

После соединения с БД (ConnectionString формируется динамически)
попробовал вот так

Код:

cxGridDBTableView1.DataController.CreateAllItems(false);
cxGridDBTableView1.GetColumnByFieldName('ВидВалюты').PropertiesClass := TcxComboBoxProperties;
TcxComboBoxProperties(cxGridDBTableView1.GetColumnByFieldName('ВидВалюты').Properties).DropDownListStyle := lsEditList;

и вот так

Код:

cxGridDBTableView1.DataController.CreateAllItems(false);
cxGridDBTableView1.GetColumnByFieldName('ВидВалюты').RepositoryItem:=cxEditRepositoryComboBoxItem;

В обоих случаях в нужной колонке cxGridDBTableView1 никаких ComboBox -ов не появляется. В чем дело? Вроде бы все по help -у делаю.

Всего записей: 51 | Зарегистр. 06-11-2006 | Отправлено: 19:35 27-05-2007 | Исправлено: onyxhall, 03:18 28-05-2007

radm1

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Что то я так и не смог найти ответ - как подружить грид с баром?
Скачал у китайцев грид 6.25 - встал нормально всё Ок
Скачал там -же бар 6.25 - не встаёт зараза ни в какую !
ошибка при попытке установки модуля бара -
The procedure entry point @Dxuxtheme@..... и Т.Д.
Короче не находит точки входа в своей же библиотеке GDIplus.
Кто знает что делать ?

Всего записей: 3 | Зарегистр. 31-05-2006 | Отправлено: 01:05 28-05-2007

Bol970

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Здравия желаю All.

Трабла постигла меня, второй день немогу найти решенья.
Вроде все просто Grid с данными, сортировка по одной колонке и событие
OnGetContentStyle.

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

Помогите, ткните носом куда копать, пожалуйста.

Всего записей: 94 | Зарегистр. 05-10-2004 | Отправлено: 08:11 28-05-2007 | Исправлено: Bol970, 08:19 28-05-2007

Dennica Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Bol970 покажи содержимое OnGetContentStyle
	Всего записей: 235 \| Зарегистр. 19-12-2005 \| Отправлено: 09:07 28-05-2007

Bol970

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Dennica

Приблизительно вот так.

Код:

procedure TForm.TableViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin
if (ColumnType.Index = AItem.Index) and
(Sender.DataController.GetDisplayText(ARecord.Index, AItem.Index) = 'Type1')
then
AStyle := StyleType1
else
AStyle := StyleType2;
end;

Всего записей: 94 | Зарегистр. 05-10-2004 | Отправлено: 09:25 28-05-2007

Dennica

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Bol970
Замени строчку

Код:

(Sender.DataController.GetDisplayText(ARecord.Index, AItem.Index) = 'Type1')

на

Код:

(Sender.DataController.GetDisplayText(ARecord.RecordIndex, AItem.Index) = 'Type1')

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

Код:

ARecord.Values[AItem.Index] = 'Type1'

Всего записей: 235 | Зарегистр. 19-12-2005 | Отправлено: 10:13 28-05-2007

Bol970

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Dennica

ОГРОМНОЕ СПАСИБО!

Вот так, все сработало как надо.

Код:

procedure TForm.TableViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin
if ARecord.Values[ColumnType.Index] = 'Type1' then
AStyle := StyleType1
else
AStyle := StyleType2;
end;

Всего записей: 94 | Зарегистр. 05-10-2004 | Отправлено: 10:29 28-05-2007

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Использование DevExpress 2
ShIvADeSt (07-02-2009 14:53): Продолжаем тут
http://forum.ru-board.com/topic.cgi?forum=33&topic=10123#1

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC