» Вопросы по Ehlib

exteris Спасибо тебе огромное! Вот так

Код:
for i:=0 to DBGrid5.Columns.Count-1 do
DBGrid5.Columns[i].Title.SortMarker:=smNoneEh;
DBGrid5.DefaultApplySorting;

Demonuka
И все равно, примите как правило: у каждого грида должен быть свой датасет и свой датасорс.
Потребление памяти - минимально, но читабельность и логика программы куда лучше

P.S.
не понял, почему слово "программа" стало линкой

Почему EhGrid так отвратно выглядит под Windows 7 ? Может поддержку тем надо где-то включить или что-то ещё ?

TuMOXA123
по сравнению с чем? скриншоты е?

Подскажите, как сделать чтобы в гриде можно было выбирать из выпадающего списка несколько вариантов. Эти варианты находятся в другой таблице и связаны с основной по id. DataSource под них заведен. В редакторе колонок грида для этого поля в DropDownBox выбираю в реквизите ListSource этот DataSource а что дальше не могу сообразить. Где-то надо имя поля видимо выбрать.

gorenski
Тебе нужно в твоём DataSet создать lookup поле (Fields Editor -> New Field) и задать у него соответствующие атрибуты в секции Lookup Definitions (Key Fields, DataSet, Lookup Keys, Result Field).

gorenski


Цитата:

из выпадающего списка несколько вариантов

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

Multiselect другими словами?

idiMAN
Огромное спасибо, всё получилось.

salexn1
Нет, мультивыбор не нужен, только 1 значение.

Уважаемые знатоки, может, кто сталкивался.
Имеется код:

Код:
procedure TForm1.grdReportTitleBtnClick(Sender: TObject; ACol: Integer; Column: TColumnEh);
begin
case Column.Title.SortMarker of
smNoneEh: Column.Title.SortMarker := smUpEh;
smUpEh: Column.Title.SortMarker := smDownEh;
smDownEh: Column.Title.SortMarker := smUpEh;
end; //case
end;

Grande
А зачем нужен этот код? Grid сам переключает сортировку колонок при нажатии на названия колонок.

Vladkyr
Переключает только значки, а сортировку-то ручками надо делать
У меня PostgreSQL, сортировка с помощью SQL.

Grande
А почему не делать этого по событию грида SortMarkingChanged?

Grande

Цитата:

Переключает только значки, а сортировку-то ручками надо делать
У меня PostgreSQL, сортировка с помощью SQL.

Ну есть событие OnSortMarkingChanged. А для универсальности посмотри организацию сортировки в модулях EhLib\DataService\Others\

Цитата:

Ну есть событие OnSortMarkingChanged.

Так ведь в том то и дело, что changed не происходит при попытке нагло присвоить
Код: Column.Title.SortMarker := smUpEh;

В чем проблема?
На событие OnSortMarkingChanged делаем:
r_Truck := SQL2Record_Truck (Q_Truck, oper_Select);
loc_Truck := r_Truck.Key; // запоминаем Key строки, чтобы маркер поставить туда-же после сортировки
pr_ReadSort; // строим строку ORDER BY в зависимости от нажатых заголовков
pr_AddSQL; // заново вызываем запрос
pr_ShowStatusBar; // обновляем статусбар

Всё.
-------------------------
procedure TForm_Truck.pr_ReadSort;
var i : Integer;
begin
sort_Truck := gc_NoChar;
for i := 0 to DBGrid.SortMarkedColumns.Count - 1 do
if DBGrid.SortMarkedColumns[i].Title.SortMarker = smUpEh then
sort_Truck := sort_Truck + DBGrid.SortMarkedColumns[i].FieldName + ' DESC , '
else
sort_Truck := sort_Truck + DBGrid.SortMarkedColumns[i].FieldName + ', ';
if sort_Truck <> gc_NoChar then sort_Truck := ' ORDER BY ' + Copy (sort_Truck, 1, Length (sort_Truck) - 2);
sort_Truck := fn_DeleteStrSort (sort_Truck, '1');
end;

PowerChute
Хм... Что-то не подумал я про такую возможность... Сейчас попробую.
И все-таки, почему не срабатывает Column.Title.SortMarker := smUpEh;? Глюк?

Grande
Я сильно не разбирался в сорцах EhLib, но при смене версий мой текст работает уже лет пять-шесть. Как сделал, так и работает.

PowerChute
Самое смешное то, что у меня в проекте ДВА грида DBGridEh, один ведет себя по-человечески, а второй ни в какую. Я уже голову сломал - не пойму, в чем дело.

Заметил интересную особенность.
Ежели написать так:

Код:
procedure TfrmManager.grdReportTitleBtnClick(Sender: TObject; ACol: Integer; Column: TColumnEh);
begin
grdReport.Columns.Items[Column.Index].Title.SortMarker := smUpEh;

exit;

grdReportOrder := #13#10 + 'order by ' + grdReport.Columns.Items[Column.Index].Title.Caption;
(grdReport.DataSource.DataSet as TUniQuery).SQL.Text := SQL_Temp + grdReportOrder;
(grdReport.DataSource.DataSet as TUniQuery).Open;
end;

Вообще-то строку сортировки собирают на событие OnSortMarkingChanged.
В примерах всё есть.

А есть тут кто нибудь из EhLib-ов русский?
Мне надо, я думаю что может лучше не писать сдесь по какой причине. Был бы очень рад в ПМ. Раньше контакты были, даже багофиксил чтото, но не помню. Мне совет нужен а не обсуждение.

Добрый день. Кто работал с группировкой грида?
Как с этим работать?
Есть группировка, выделяется название какой-либо группы. Как дальше можно пробежать по всем строчкам этой группы? Как получить данные из dataset'a, связанного с этим гридом по элементам группы?
В примерах ничего такого нет. В документации очень скупо описана работа с группировкой.

Спасибо контакт есть!

Vladkyr
так попробуйте напрямую в саппорт написать.
http://ehlib.com/RUS/registration.htm

Доброе время суток!

Есть ли какой-нибудь способ локализации (перевода на другие языки) диалога DBGridEhSimpleFilterDlg (Это когда фильтр по пользовательскому условию) во время выполнения программы ?

TuMOXA123
Судя по тому, что ресурсы из папки LangResources подключаются на этапе установки и чтобы изменить язык диалогов, приходится перекомпилировать EhLib - штатного способа нет. Разве что в лоб - менять Caption-ы всех контролов при необходимости. Ну и заодно строковые константы из EhLibConsts.pas

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

Для этого есть сторонние компоненты.

Есть XE2, EhLib 5.6, InterbaseExpress.

Данные: TIBQuery - TDataSetDriverEh - TMemTableEh - TDataSource.
STFilter: Local := true, InstantApply := true;

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

Никто решения не знает? Спасибо.

Sergey1970
через try except отследите и покажите хотя б что пишет