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

mdid
Я не везунчик......
Я так и не решил проблему с (DLL+cxGrid+MDIChild).
Передаю в DLL, TApplication от MDIMainForm... вроде всё ок и работает замечательно... но когда захотел из MainForm обратиться к Child то увидел что frMain.MDIChildCount = -1 =(((
Попытался передать Cursor в DLL но он не хочет дружить с dxInitialize;
Прешлось изобретать велосипед что-бы реализовать удобную панельку с открытыми MDIChild на MainForm...
Может кто знает как это красиво решить.....?

Baklan_vs
вам нужна панель для MDI окон? могу предложить свою наработку пример

mdid
у вас MDI в DLL лежат???

Baklan_vs
а не...пардон...я чего то подумал что обработка у вас в dll...и кстати в dll адресация другая...передавайте переменные в качестве pointer...должно помочь

mdid
Не вто дело, там проблемы с MDIChild и присутствием на форме cxGrid.
Но я всё решил =))))
У меня вопрос, не поделитесь реализацией поиска по гриду?
Можно в личку.

Цитата:

У меня вопрос, не поделитесь реализацией поиска по гриду?

это актуально многим, можно даже в шапку вынести
у меня есть реализация, но работает кривовато
http://forum.ru-board.com/topic.cgi?forum=33&topic=10123&start=2400#12

например, "не видит" первую запись, но если сделать по другому то вообще не ищет
у девок такой мощный грид, могли бы реализовать встроенный нативный поиск на частично совпадение

у нашего замечательного DC Reader`а есть встроенный поиск, не мог бы автор поделиться реализацией?

X11
а вы уверены что он ищет методами грида? я почему то нет...на сколько я понял у ридера есть своя БД и поиск скорее всего ведется путем передачи запроса.

лично я использую у себя 2 метода
1. это sql запрос... быстро удобно...не используя методы грида
2. фильтрация методами грида быстро но неудобно так как внизу грида появляется панель с условием отбора+изредка появляются AV....посему лично для себя выбрал исключительно sql запросы

X11
mdid
Я реализовал регистронезависимый поиск по нескольким колонкам методом Query:

Код:
procedure TfrContragents.utCon_viewFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := (pos(AnsiUpperCase(bStr), AnsiUpperCase(DataSet.Fields[1].AsString)) <> 0) or
(pos(AnsiUpperCase(bStr), AnsiUpperCase(DataSet.Fields[5].AsString)) <> 0) or
(pos(AnsiUpperCase(bStr), AnsiUpperCase(DataSet.Fields[6].AsString)) <> 0) or
(pos(AnsiUpperCase(bStr), AnsiUpperCase(DataSet.Fields[7].AsString)) <> 0) or
(pos(AnsiUpperCase(bStr), AnsiUpperCase(DataSet.Fields[8].AsString)) <> 0) or
(pos(AnsiUpperCase(bStr), AnsiUpperCase(DataSet.Fields[9].AsString)) <> 0) or
(pos(AnsiUpperCase(bStr), AnsiUpperCase(DataSet.Fields[10].AsString)) <> 0);
if bStr = '' then // проверка переменной содержащей строку поиска....
Accept := True;
end;

Интересует именно поиск по cxGrid, т.к. в базе может хранится другая информация физически, например шифрованная и поиск на частичное совпадение невозможен.
Второе. Бывает, что запрос слишком сложен или вообще берётся из разных таблиц, баз и т.д.
И третье. То, что выполняет SQL - это не поиск!!! Многие путают поиск и выборку. Я выбрал из базы 10-20-100 записей, а теперь мне нужно найти среди них какие-то определённые. В таблице видит пользователь ещё и дополнительно отсортированную, отфильтрованную информацию, в которой нужно что-то найти. Так что SQL тут не поможет.

Добавлено:

Цитата:

DC Reader`а есть встроенный поиск, не мог бы автор поделиться реализацией?

Это про что???

Это про DelphiComp Reader для копилки, написанный, пользователем 3SCrack. Но это программа не для данного раздела форума. Надо поиска, может где исходного он выложил.

X11
я переписывал форму поиска от EhLib для этого. если хочешь, могу дать исходники (правда там слишком много допов идет ко всему этому)

так в DC Reader используются ТМС, а не девки

как присвоить значение customfield при создании евента в SchedulerDBStorage?
Код: with cxSchedulerDBStorage1.CreateEvent do
begin
cxSchedulerDBStorage1.CustomFields.ItemByFieldName('status')...

а кто как борется с отрисовкой девовских скинов...просто на средних фофисных машинах это происходит весьма долго

NativeStyle включается и всё
ну или вообще без шкурок

X11
так это ж так фэ...ну совсем не кузяво выходит...все на столько не красиво((

Ты лично себе делаешь приложение?

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

Baklan_vs, X11
Поиск по cxGridTableView по частичному совпадению
[more]
Код:
...
uses
...
cxGridTableView,
cxCustomData,
...
cxGridTableView: TcxGridTableView;
cxColumn: TcxGridColumn;
ASearhText: string;
...
begin
...
ASearhText := ...
cxGridTableView.Controller.CancelIncSearching;
//cxGridTableView.Controller.GoToFirst; // ищем с начала или с текущей позиции
cxGridTableView.DataController.Search.Locate(cxColumn.Index, ASearhText, {AForward}True);
// cxDataUtils.DataCompareText(..., {APartialCompare:}True);

поставил 2.5 с русскими ресурсами. как их включить?

neznayka3

Цитата:

поставил 2.5 с русскими ресурсами. как их включить?

cxLocalizer1.FileName := ExtractFilePath(Application.ExeName) + 'RusDev.ini';

Senpai07
если в дизайн-тайме установить - работает. в ран-тайме нет

Код: l1.FileName := ExtractFilePath(Application.ExeName) + 'RusDev.ini';
l1.Locale:=1049;
l1.Active:=true;

Выглядит строки и прятно между прочим. Большинстве, если не всем, нравится.
Ну и решать за пользователя, что именно ему должно нравится - не очень хорошо.
Всё, тема скатывается во флейм, замолкаю.

neznayka3
проверьте путь
и чем черт не шутит поменяйте местами

Код:
l1.Locale:=1049;
l1.Active:=true;

mdid
спасибо. поменял - заработало)

вначале Active:=true; а потом уже меняй параметры

как переопределить удаление у Scheduler? надо при удалении просто изменить статус записи, а не удалять. AHandled:=true; в onEventDeleted не работает для повторяющихся событий.

upd. почему id не вставляется?
Код: procedure TfmScheduleExplore.cxSchedulerDBStorage1EventInserted(Sender: TObject;
AEvent: TcxSchedulerEvent; var AHandled: Boolean);
begin
AEvent.ID := getSequence('schedule_schedule_id_seq');
...

Подскажите какой размер выставлять в БД Firebird 2.5 (d3) для полей RecurrenceInfo, ReminderResourcesData, TaskLinksField типа BLOB, используемых Scheduler?

Здравсвуйте!
Использую cxgrid для DElphi:
в режиме работы программы создаю новые поля:

Var
ADBColumn: TcxGridDBColumn;
....
ADBColumn:=cxGrid1DBTableView1.CreateColumn;
ADBColumn.DataBinding.FieldName := 'Col'+INttostr(i);
ADBColumn.Name := 'Col'+INttostr(i);
ADBColumn.Caption:= 'Col'+INttostr(i);
ADBColumn.HeaderAlignmentHorz := taCenter;
ADBColumn.HeaderAlignmentVert:=vaCenter;

Так вот, вертикальное выравнивание заголовков в центру не работает! Заголовки все-равно выравнены по верхнему краю. А как сделать по центру?

simplecs

Цитата:

вертикальное выравнивание заголовков в центру не работает!

cxGrid1DBTableView1.OptionsView.HeaderEndEllipsis что стоит? Если True, то попробуйте поставить False.

как в TdxDbOrgChart задать форму/цвет/выравнивание текста по умолчанию?