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

DragFaq
В хелпе есть пример:

Код: var
I: Integer;
ARowIndex: Integer;
ARowInfo: TcxRowInfo;
begin
with tvOrders.DataController do
begin
BeginUpdate;
try
for I := 0 to GetSelectedCount - 1 do
begin
ARowIndex := GetSelectedRowIndex(I);
ARowInfo := GetRowInfo(ARowIndex);
//Test whether a row is a grouping row
if ARowInfo.Level < Groups.GroupingItemCount then
Continue
else
//unbound or provider mode
Values[ARowInfo.RecordIndex, tvOrdersSaleDate.Index] := Now();
end;
finally
EndUpdate;
end;
end;
end;

Dronton2
waik
вариант со скрытой колонкой, показывающий на поле, где формируется полная строка у меня реализован сейчас, но это удвоение занимаемой памяти... по требованию заказчика это всё должно работать при скажем 50тыс. строк... т.е. интересен вариант переопределения отрисовки (пока не вышло) или еще какой...
и еще не смог переопределить метод, дёргающий Properties.OnChange
кто-нибудь добирался до него?

Glukodel
А если сверху положить cxTextEdit оставив незакрытой кнопку вызова списка? Во времена программирования на фокспро частенько так выкручивались хехе

Glukodel

Странно что заказчик не потребовал работу в миллион строк при увеличении скорости работы. Ну да ладно...

Что касается Properties.OnChange попробуй создать свой наследник от того Properties, который требуется твоему компоненту и переопредели: class function GetPropertiesClass: TcxCustomEditPropertiesClass; virtual;

cxGridBandedView
Кто подскажет как в cxGridBandedView впихнуть быстро большое кол-во записей?
Кроме как

GBD2.DataController.BeginUpdate;
for i:=0 to j do begin
with GBD1.DataController do begin
Values[i,0]:=varDataRows_4[0,i];
end;
end;
GBD2.DataController.EndUpdate;

demonkot

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

Dennica
эээ... спасибо, конечно, за совет, но у меня всё еще не настолько плохо
jicoff
у TcxLookupComboBox есть DoOnChange, который как мне показалось должен дергать Properties.OnChange ... но не дергает
короче должен быть такой метод у TcxLookupComboBox... его и ищу

Здравствуйте люди! Вот всплыла проблемма при заполнении значений Unbound колонок в DBView.

На обработчик непривязанного поля (тип выставлен, но имя поля не задано) OnGetDataText вешаю расчет значения и делаю DataController.SetValue(ARecordIndex, Sender.Index, Value). Все проходит нормально, но при завершении заполнения всех строк выдается Access Violation, при чем где то на уровне самого компонента cxGrid, ибо Try..Except'ом не ловится.

Я знаю, что можно сделать и через Calculated Field, но все-таки интересно, где косяк - делаю по примеру с CheckBox'ами, расписанными в Knowledge Base, значения задаются нормально, но вываливается ошибка уже после завершения заполнения значений. Ясно, что намутил где-то с самим гридом/вью, но где не пойму.

Если кто работал с Unbound колонками или встречал подобную ситуацию, пожалуйста помогите с решением. Пока сделал через вычисляемое поле, но интересно, как это же реализовать через грид. Буду очень признателен...

Добавлено:
Glukodel
Делай Unbound колонку, задавай AText в OnGetDataText и используй ExtLookUpComboBox, в котором будешь выводить требуемые колонки при выпадении списка и нужную вычисляемой колонки при закрытии. Я так у себя вывернулся. Работает на порядок быстрее, чтом вычисляемое поле. Только не понял на счет памяти...

1) Как быстро очистить cxGridTableView от заполненных данных
2) Как привязать cxGridTableView к cxExtLookupComboBox, который находится отдельно на другой панели

Цитата:

"RecordIndex вышел за границы диапазона".

Есть такое. Что делать - непонятно

Alkatraz
Зачастую нужно проверять входные параметры процедур, например, RecordIndex в некоторых процедурах может быть равно -1, ARecord может быть равно nil и т.д.

George_Lucky

1. А GridView какой: DB или нет?

2. Тут совсем не понятен вопрос, а какие могут быть проблемы? Форма одна, на которой находятся компоненты?

jicoff не DB.
1) заполнение данными идет через cxGrdTableView.DataController.AppendRecord;
теперь нужна очистка и заполнение обновленными сведениями.

2) в том-то и дело, что на одной форме и не видит.

George_Lucky
1) cxGrdTableView.DataController.RecordCount := 0;
2) св-ва view и listfielditem выбраны ?

в Деффках имеется компонент, исполняющий роль Панели? Че-т не найду

Добавлено:
greenpc
1) а разве cxGrdTableView.DataController.RecordCount не ReadOnly ?
2) так во View и не отображается

George_Lucky
1) проверь
2) а если так
cxExtLookupComboBox1.view :=cxGrdTableView;
cxExtLookupComboBox1.listfielditem :=<поле из cxGrdTableView>;

у cxButtonEdit можно создавать не одну, а несколько кнопок. как обрабатывать нажатие на одну или другую кнопку?


Извиняюсь. вопрос снимается. нашел сам. если кому интересно:

procedure TForm1.cxButtonEdit1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin

if AButtonIndex = 0 then
ShowMessage('кнопка 1')
else
ShowMessage('кнопка 2');
end;

удалено

George_Lucky
Нету такого

Как убрать отступ в cxDBVerticalGrid?

VikLabel
красивая ссылка на рисунок _c:\777.jpg
George_Lucky
cxGroupBox без заголовка как вариант

посмотрел демку с GridMode ничего не понял.
может кто подскажет как в GridMode фильтровать и сортировать можно?

Есть вопрос по мартовскому релизу, а именно PrintingSystem. В предыдущих версиях был компонент TdxComponentPrinter для печати грида и прочих компонентов, соответственно были ReportLink'и для коннекта движка печати с конкретными обработчиками печати для каждого из визуальных виджетов. Внимание, вопрос - куда они пропали в мартовской версии? TdxComponentPrinter есть, ставлю в РепортЛинк для грида(dxPScxGrid6LnkD6.dpk), но в палитре компонентов он не появляется! В чем дело?

Извеняюсь!

как увеличить у всплывающих подсказок в гриде?
как оказалось оно не связано с Application.HintHidePause и т.п.

На форме 6 компонентов cxGrid
Делаю экспорт в XLS вот таким способом

if SaveDialog1.Execute then
ExportGridtoExcel(SaveDialog1.FileName,cxGrid1,true,true,true);

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

Widoms
var
myControl : TComponent;
i : Integer;
begin
for i := 0 to MainForm.ComponentCount - 1 do
begin
myControl := MainForm.Components[I];
if myControl is TcxGrid then with myControl as TcxGrid do if Active then
if SaveDialog1.Execute then
ExportGridtoExcel(SaveDialog1.FileName,myControl ,true,true,true);

Типа такого
если названия грида cxGrid1, cxGrid2
то myControl :=nil;
myControl :=MainForm.FindComponent('cxGrid'+ IntToStr(i));
if (myCotrol<>nil) and ( myControl as TcxGrid).Active then ......

Народ, подскажите, для ExpressQuantumGrid 6 в крайнем мартовском релизе есть ReportLink или где? Посмотрел оф. сайт, 6го грида я там не нашел, посему терзают смутные сомнения, его что, совсем похерили разрабы или же он просто не попал в релиз? Заранее спасибо за ответ.

Widoms
Может поможет (Только если вешать на нажатие кнопки то кнопка становится ActiveControl):

if ActiveControl is TcxGridSite then
if SaveDialog1.Execute then ExportGridtoExcel(SaveDialog1.FileName,TcxGridSite(ActiveControl).parent,true,true,true);

Не сталкивался ли кто со следующей ситуацией:
Есть cxGrid (5 или 6 версии). Если строки не перекрашивать, то нормально обрабатывается группировка записей перетаскиванием заголовка колонки на поле группировки.
Но если перекрашивать строки по какому-нибудь условию, например так:
в обработчике GetContentStyle

if ARecord.Values[cxGridDBBandedTableView1RowColor.Index]= clWhite then
AStyle := cxStyle2 else
begin
cxStyle5.Color:=ARecord.Values[cxGridDBBandedTableView1RowColor.Index];
AStyle := cxStyle5;
end;
то группировка по колонкам, содержащим строковые данные, завершается сообщением "Could not convert variant of type (String) into type (Double).

Как это можно побороть?
Может быть красить надо как-то иначе?