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

svs123456789

cxDBRichEdit не пройдет?

prand1
Событие DataController.OnCompare.

возникла идея:
пользователь интерактивно применяет к таблице DevExp фильтр,
а затем я уже программно обрабатываю записи запросом select whearе

вопрос как получить имя поля и значение ? (из фильтра таблицы cx)

Prot_XT В событии OnEditValueChanged - ставь фокус куда угодно... вроде так

svs123456789

Цитата:

пользователь интерактивно применяет к таблице DevExp фильтр,
а затем я уже программно обрабатываю записи запросом select whearе

Давно все это уже сделано на уровне пакета Oracle,
причем при работе гридины от курсора возвращается курсор,
в противном случае возвращается сформированный стейтмент 'select ... ' с соответствующим фильтру 'where ...'.

[more] Использую cxGrid (unbound mode).
Вопрос: как лучше сделать нумерацию строк, наподобие мс эксель?
Сейчас делаю так:
procedure TForm1.NumGetDisplayText(Sender: TcxCustomGridTableItem;
ARecord: TcxCustomGridRecord; var AText: string);
var
Row: Integer;
begin
inherited;
Row := Sender.GridView.DataController.GetRowIndexByRecordIndex(ARecord.RecordIndex, False) + 1;
AText := IntToStr(Row);
end;
,но:
1. выглядит этот столбец как остальные строки, а надо в стиле хедеров
2. даже если у этого столбца запретить перемещение, то все равно другой столбец можно засунуть в первую позицию

PS. Еще подскажите где черпать знания?? Захожу на сайт девок.саппорт.документация в поиске набираю:
Technology:vcl, Product:ExpressQuantumGrid Suite Keywords: cxGrid. В результате ничего не найдено!!!
В комплекте с девками у меня очень старые неудобные .hlp (по cxMemData, там вообще пару строк)

Вопрос 2: Как добавить тень у ComboBox'а в гриде (TcxGridColumn.Properties = ComboBox), а то вываливающийся список сливается с гридом. [/more]

prand1
Как вариант - использовать BandedTableView.
В бэнд засунуть колонку с нумерацией и сделать его FixedKind:=fkLeft. Под хидер колонку можно стилизовать.

в cxGrid у Tcx...TableView независимо DB это или нет есть Controller и есть DataController в чем их отличие?? особенности использования??

в cxGrid каждый столбец это отдельный объект, если у меня две одинаковых внешне, но разных по содержанию таблицы могу ли я столбцы одного грида добавить в другой?

Форумчане посоветуйте как распечатать cxGrid - в том числе сгруппированный, есть экспорт в Excel но у меня почему то иконки группировки - знак "-" в Excel не сворачивают узел, можт есть возможность что они работали? И еще как распечатать PivotGrid , ну или экспортировать куда нить его например в тот же Excel...

Andryshok
Есть такая компонента - TdxComponentPrinter. И cxGrid, и PivotGrid печатает на ура.

PowerChute А PivotGrid в Excel случайно нельзя выгрузить?

Andryshok
Можно.

exteris Ну а пример кода можно в студию? Интересуют только встроенные средства.

uses cxExportPivotGridLink
...

cxExportPivotGridToExcel(...);

Цитата:

знак "-" в Excel не сворачивают узел

Возможно, отключены макросы. Посмотри параметры безопасности Excel.

Установил DevExpress 13.1.2 на RAD XE4 Upd 1 (всё делалось начисто.)

При установке в списке Wizard Control был, а в самой IDE и в папке после установки, ни самого контрола ни его исходников, вообще ничего.

Подскажите куда копать? #

При использовании BandTableView появляется возможность разместить хедеры(заголовки колонок) в несколько рядов. Как от этого избавиться?

Господа есть еще вопросик - имеется cxGrid , одна колонка в нем с кнопкой (cxButtonEditColumn), кнопка всегда видна , возможно ли при определенных значениях в гриде/датасете эту кнопку скрывать/ показать
или дисаблить на записях грида где сравниваемое значение , копал в сторону CustomDrawCell но что то не нашел там таких опций... помогайте

Цитата:

Prot_XT В событии OnEditValueChanged - ставь фокус куда угодно... вроде так

Да нет, не все так просто там... а хотелось бы разобраться. Вот, что там есть:
procedure TdxBarWinControl.KeyDown(var Key: Word; Shift: TShiftState);

function IsWindowDistroyed: Boolean;
begin
Result := Handle = 0;
end;

var
ALinkSelf: TcxObjectLink;
begin
if IsSysKeyDown(Key, Shift) then
SysKeyDown(Key, Shift)
else
begin
ALinkSelf := cxAddObjectLink(Self);
try
Item.KeyDown(Key, Shift);
if (ALinkSelf.Ref = nil) or IsWindowDistroyed then
Key := 0;
case Key of
VK_ESCAPE:
begin
DoEscape;
Key := 0;
end;
VK_RETURN:
begin
DoEnter;
Key := 0;
end;
VK_TAB:
begin
DoNavigation(Shift);
Key := 0;
end;
end;
finally
cxRemoveObjectLink(ALinkSelf);
end;
end;
end;

Какой-то непонятный DoEnter;

Andryshok
Должно помочь OnGetEditProperties, по идее.

Добавлено:
Prot_XT
Через сообщение пробовал ?

Через сообщение - это костыль, даже если что-то будет получаться...
Все равно отработает этот DoEnter; Затем курсор улетит, потом его возвращать, причем залетит он в Edit в другое место, а не там где был... его опять что-ли запоминать и возвращать посимвольно, где он был?
Можно либо отключить в исходниках DoEnter - ну это слишком радикально - ампутация, либо все таки понять нахрена этот баян, и что с ним делать. Для чего-то же это сделали...

Prot_XT
90% кода запросто можно назвать "костылями".
Хозяин-барин.

Я тут на досуге попробовал, все вроде получилось... И без всяких событий.
http://www.sendspace.com/file/cayvjj

Добавлено:
Andryshok
Насчет подмены едитов в гриде на лету. Есть там одни грабли...
Нужно было мне поменять динамически, от данных, цвет и всякое в прогресс-баре, происходило это все в гриде. Поменял, менялось, но полетели массовые экцепшены. Оказалось, даже в хелпе прописано - динамически менять едиты в гриде можно, но способ такой:
1. создаешь репозиторий едитов
2. создаешь в нем нужные тебе едиты с нужными тебе свойствами
3. в событии получения эдита только присваиваешь уже созданный в репозитории едит
Работает, причем я в рамках одной хитрости динамически создавал в репозитории нужные едиты, потом их присваивал - все ровно.

Такие дела. Мож, пригодится...

Почему если в TcxGridBandedTablesView разместить одну колонку над другой то не меняется высота колонки и высота строки,
меняю в свойстве OptionsView.DataRowHeight и OptionsView.HeaderHeight результат без изменений.

Цитата:

Prot_XT
90% кода запросто можно назвать "костылями".
Хозяин-барин.

Я тут на досуге попробовал, все вроде получилось... И без всяких событий.
http://www.sendspace.com/file/cayvjj

Не спорю получилось... но только именно так как я и описывал...
Во первых попробуй набрать что-то в эдите... после отработки что получается? Правильно... весь текст выделяется, как будто ты только что перепрыгнул на новый контрол... это нужно опять обрабатывать.
Во вторых приглядись... видно, что на форме моргает Edit1 еще.

Кстати какая версия у тебя среды и DevExpress?


Добавлено:
Кстати в DoEnter вот что живет:

procedure TdxBarWinControl.DoEnter;
var
AHandle: HWND;
AParent: TCustomdxBarControl;
begin
AHandle := Handle;
AParent := Parent;
if (ItemLink.RealItemLink <> nil) then
ItemLink.RealItemLink.BringToTopInRecentList(True);
StoreDisplayValue;
if IsWindowVisible(AHandle) then
begin
AParent.SetKeySelectedItem(nil);
KillBeep(AHandle);
AParent.HideAll;
end;
end;


Добавлено:
Что за ItemLink.RealItemLink такой?

Prot_XT
Убрать выделение - элементарно. Хотя бы через Properties.AutoSelect := False; К тому же есть соответствующий метод. Моргающий контрол чем мешает ? Ну убери у всего на форме, кроме риббона и его содержимого, возможность участия в переходах (TabStop := False)...

И при чем тут метод DoEnter?

Пример сделан на XE6, DevExperess 2013.2.5.

Добавлено:
G787
Насколько я помню, там есть минимум высоты, зависящий по ходу от размера шрифта... 18 по умолчанию. Может, указываешь меньше ?

dred2k
Моргающий контрол просто говорит всего-лишь о том, что фокус прыгает тем не менее... все компоненты не поставишь TabStop := False.

А метод DoEnter, как раз и заставляет прыгать курсор - это исходники...
Я же выкладывал ранее:

procedure TdxBarWinControl.KeyDown(var Key: Word; Shift: TShiftState);
.....
VK_RETURN:
begin
DoEnter;
Key := 0;
end;
.....

Проще говорю мне DoEnter закоментировать в исходниках... просто хочу разобраться сообща чего оно делает то?

Prot_XT

DoEnter как раз передает фокус следующему элементу. Разве нет?
Насчет прыжка - поверь, он будет совершенно незаметен. Юзер будет сосредоточен на поиске, диалогов не будет. Вот попробуй, закомменти в моем примере показ сообщения - вообще не видно прыжка...

Насчет изменения девок. Признаться, при всей мощи кое-чего порой не хватает. Я как-то задавал вопрос - кто знает, как запретить рисование тени на кнопке тулбара, если тулбар в стиле Flat. Оказалось, никак. Я раскопал в исходниках это место, вшито намертво. Пришлось изменить модуль (dxBars.pas), положить рядом, включить в проект, поставить путь на сырцы бара и собирать проект уже с измененным модулем. В принципе, не особо и гиморно. Единственное - грамотно вносить изменения при смене версии, ну и за версией для сборки следить...

dred2k

Цитата:

DoEnter как раз передает фокус следующему элементу. Разве нет?

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

dred2k
наоборот больше, ставлю 21

Вообще кто знает... что такое ItemLink.RealItemLink ?