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

makz

Код: Код не проверял, допилите если что

В TcxPivotGrid добавляю записи через AppendRecord из датасета в событии AfterOpen. Поскольку добавление записей происходит в несколько этапов, то вижу, что число записей в гриде (DataController.RecordCount) увеличивается. Но после завершения этапов грид почему-то остается пустым. Ни в одном поле ничего нет. Все фильтры состоят из двух строк: (Show All) и пустая строка. Поля созданы в дизайнтайме. Заполнение происходит так:

Код:
DataSet.First;
with PivotGrid.DataController do
begin
while not DataSet.Eof do
begin
AppendRecord;
vRowId := RecordCount - 1;
Values[ vRowId, FieldIndexByName( 'dc_date_p' ) ] := DataSet.FieldValues[ 'dc_date' ];

makz
спасибо, там самое оно:


Код: procedure TForm1.cxComboBox1PropertiesDrawItem(AControl: TcxCustomComboBox;
ACanvas: TcxCanvas; AIndex: Integer; const ARect: TRect;
AState: TOwnerDrawState);
begin
if AControl.Properties.Items[AIndex] = '-' then
ACanvas.FillRect(ARect, clWindowText)
else
begin
ACanvas.DrawTexT(AControl.Properties.Items[AIndex], ARect, 0);
end;
end;

procedure TForm1.cxComboBox1PropertiesMeasureItem(
AControl: TcxCustomComboBox; AIndex: Integer; ACanvas: TcxCanvas;
var AHeight: Integer);
begin
if AControl.Properties.Items[AIndex] = '-' then
AHeight := 1;
end;

[deleted]

reenoip
procedure TForm1.cxComboBox1PropertiesDrawItem(AControl: TcxCustomComboBox;
ACanvas: TcxCanvas; AIndex: Integer; const ARect: TRect;
AState: TOwnerDrawState);
begin
if AControl.Properties.Items[AIndex] = '-' then
ACanvas.FillRect(ARect, clWindowText)
else
begin
if odSelected in AState then begin
ACanvas.FillRect(ARect, clBlue);
ACanvas.Font.Color:=clWhite;
end
else
begin
ACanvas.FillRect(ARect, clWhite);
ACanvas.Font.Color:=clBlack;
end;
ACanvas.DrawTexT(AControl.Properties.Items[AIndex], ARect, 0);
end;
end;

makz
благодарю, самое оно!

А cxGrid поддерживает ZoomIn / ZoomOut? А то колонок - тьма, хотелось бы, чтобы у пользователя была возможность увеличивать/уменьшать масштаб грида.

reenoip

Цитата:

А cxGrid поддерживает ZoomIn / ZoomOut? А то колонок - тьма, хотелось бы, чтобы у пользователя была возможность увеличивать/уменьшать масштаб грида.

Нет, не поддерживает. Уменьшайте или увеличивайте размер шрифта и пропорционально изменяйте ширину колонок. Высота строк изменится автоматом.

Ок, понятно, спасибо, буду знать.







А как реализовать в cxGrid независимый от регистра поиск по всем видимым колонкам? Т.е. проще говоря нужен некий аналог Ctrl+F: на форме есть Edit + cxGrid, при теста вводе в Edit, к примеру "нов", моментально отсеять ненужное и отобразить только содержащие эти три буквы строки (т.е. в колонке "ФИО" останутся только "Иванов", "Новиков", "Голованов", и т.д., в колонке "Профессия" останутся только "Специалист по внедрению инновационных технологий", и т.п.).


p.s.
Поиски и вдумчивое чтение на эту тему в официальном ЦП, увы, не помогло. Но, может, тут кто-то уже сделал подобное.

Добавлено:
Искал так и так. Может, фильтровал неверно? Просто как-то маловероятно, что мне первому понадобился такой поиск.

reenoip
не знаю как в делфи компоненты девок, вот девки под VS - там есть AdvBandedGridView: позволяет вывести в несколько строк одну запись (как раз когда целая куча колонок) и еще разбить эти колонки по группам

Возможно, я не совсем точно раскрыл свой вопрос, за что приношу свои извинения. Минут через 10-15 опубликую в картинках, для уточнения.

reenoip
Это называется "фильтр", а не поиск.

Вот как-то так...




Добавлено:
Т.е. мне нужен некий "глобальный фильтр"? Ок, тогда буду искать такой. Спасибо.

reenoip
Ну "глобального" нет в природе, но сделать, пожалуй не слишком сложно. Только вот какой смысл искать что-либо сразу во всех колонках?

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

makz
таблица (грид) у меня имеет более сложную структуру, чем я накидал на скорую руку для демонстрации. Конечно, фильтр в каждой отдельно взятой колонке - это гуд, но что делать пользователю, если он знает лишь одно ключевое слово (да и то не целиком, а лишь его некоторую часть)? Заставить пользователя шерстить каждую колонку - не проблема, заставлю, но хотелось бы сжалиться над ним и минимизировать потерю рабочего времени на поиск (а поиск в таблице с десятками тысяч строк и почти тремя десятками колонок - уже не роскошь, а очень важная необходимость).

Добавлено:
Кажется, нашёл то, что надо, но фильтр в примере зависим от регистра. Может кто-нибудь помочь совладать с ним?

mdid
http://www.devexpress.com/Support/Center/Question/Details/Q422760

reenoip
Ну назначить программно один фильтр на нужные колонки не проблема вроде.

reenoip
а в чем проблема запрос сгенерировать?

Добавлено:
makz
в обычный TcxRichEdit я в курсе. А у TcxRichEditProperties нет ничего похожего на стрим. А EditValue стрим не ест.

Таки да, фильтровать НД непосредственно значительно продуктивнее, в случае с десятками тысяч записей-то.

Добавлено:
mdid
Имеется ввиду репозиторий?
Вообще не очень понятно о чем речь; то ли текст загрузить надо, то ли сами проперти? А откуда взялось EditValue в TcxRichEditProperties?

makz
нужно загрузить текст в TcxBarEditItem типа RichEdit через поток. Свойства мне не нужны. Текст хранится в базе.

Цитата:

но фильтр в примере зависим от регистра. Может кто-нибудь помочь совладать с ним?

DataController.Filter.Options.fcoCaseInsensitive := True

X11
благодарю! А то, обложившись всякими мануалами, слона-то я, к сожалению, и не приметил



Осталось теперь filterbuilder задизаблить (чтобы его вообще не было) и всё:



Добавлено:
Хм... Поиски ни по "hide filterbuilder", ни по "disable filterbuilder" результатов не дают. Мне эта панель глаза не особо мозолит (хотя, нет же её в том же Excel после применения фильтров - и ничего, жить можно), но пользователи мои (прелюбопытные личности) задолбают меня лишними вопросами.

ты можешь его только скрыть
Fiterbox.visible := fvNever;

mdid

Код:
cxBarEditItem1.SetFocus;
TcxRichEdit(TcxBarEditItemControl(cxBarEditItem1.Links[0].Control).Edit).Lines.LoadFromStream(...)

exteris
спасибо, но
TcxBarEditItemControl(fmMain.ImageSelectionDescr.Links[0].Control).Edit - nil
fmMain.ImageSelectionDescr.Links[0].Control - not nil

reenoip
Прислушайтесь к советам фильтрации на сервере: проще и "дешевле" по трафику.

Кстати, СУБД какая?

eddoc
MySQL. Выделенный сервер в локальной гигабитной сети. Нагрузка на него, если честно, настолько мизерная (от 1 до 5% в пике), что оптимизацией можно пренебречь.

reenoip
о какой оптимизации идет речь? вы считаете что поиск на клиенте это оптимизация?это ведь смешно.

mdid
вы, кажется, меня не так поняли. Сообщением выше мне предложили сделать "фильтрацию на сервере" - дескать, так "проще и дешевле". А я ответил, что мне эта "оптимизация" (в целом ведь перенос "фильтрации на сервер" с клиентов является в каком-то смысле оптимизацией, не так ли?) в принципе не особо-то и нужна: "толстые" клиенты весьма производительные, сетевая инфраструктура позволяет, поэтому перекладывать вычисления с них на сервер нет нужды, хотя сервер и так ничем особо не загружен.


Про то, что "оптимизация - это поиск на клиенте" речи, если что, вообще не было, это же априори абсурд...
Поиск на клиенте меня в данный момент устроит полностью (если это будет нормальным и полноценным поиском), но это не является оптимизацией. Это, по идее, в большинстве случаев является наплевательским отношением к вычислительным ресурсам. Но т.к. их у меня в избытке (и даже более чем), тратить время на поиск решения для их экономии в данный момент - не совсем рационально, именно это и послужило основной причиной выбора "удобство, красота, скорость", а не "удобство, красота, скорость".

Народ, прекращайте флудить. Развели тут ромашка (с)!