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

korobovmax

по первому вопросу:

TimeTableScheduler.ActiveHitTest.Time, а у час ты, наверное, сам оттуда вытащишь...

по второму вопросу:

В момент клика событие становится выделенным => попадает в массив SelectedEvents, поэтому я вылавливаю ID события так:

if TimeTableScheduler.SelectedEventCount<>1 then exit;
Module.TimeTableDataSet.Locate('ID',TimeTableScheduler.SelectedEvents[0].ID,[]);

Первое понял. Всё великолепно.

Со вторым стормозил, извиняюсь.

Спасибо огроменное

korobovmax

Па-а-ажалста, мне ж не жалко!

А вот ещё задачка. Под силу ли она будет?
Так как форма-редактор эвентов своя собственная, то и поля события надо заполнять вручную. А что надо заполнить, чтобы сработало напоминание о событии?
Какая-то там мудрёна с полем Options.

Добавлено:
Хи-хи. Сам всё сделал.
В поле Options надо писать 6 (3 - для событий "на целый день", остальные - не понял).
Далее надо у SchedulerDBStorage в событие OnRemindersAlertReminder добавить строчки:
if AReminder.Event.ID <> NULL then begin
// БЛА-БЛА-БЛА
ShowMessage(AReminder.Event.Caption);
end;
Это нужно, чтобы напоминание не срабатывало в момент, когда событие только что создали.

korobovmax
>BarManager.LockUpdate
Thanks

korobovmax
Если так и дальше пойдет, то мы с тобой станем ведущими специалистами по шедулеру в России

Внимание, вопрос знатокам шедулера
экспорт в Excel возможен только в стандартном виде, переделать его как либо возможно? хочется получить расписание в виде таблички, в которой колонки - даты, строки - события (заранее определенный список), соответственно на пересечении нужна отметина, есть событие либо нет

PetrovD, а то! Думаю ещё, что не только по шедулеру


golkanavt! Возможен экспорт в "собственном" формате или нет определяет наличие исходников. У нас, благо, есть
Как переделать - просто переколбасить cxExportSchedulerToExcel (которая сама вызывает cxExportSchedulerToFile) в модуле cxExportSchedulerLink.pas.

Понимаю, непросто. Но возможно. На крайний случай можно всегда самому сделать.

korobovmax,
golkanavt
Можно шедулер не переколбашивать (ух какое слово красивое получилось ), а выбирать данные из базы и в экселевский документ их ручками складывать - так по-моему проще получится.
Или еще один вариант - собирать данные в гриду через memorytable или сложным sql-запросом и экспортить ее в Excel стандартными средствами.

korobovmax, PetrovD

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

Народ, кто может помочь со следующей проблемой: имеется таблица с кард виевом, у карточки есть свойство Кард Експандинг, установленное в Труе. Требуется разворачивать карточку по двойному клику на каптионе карточки, как это сделать?

Есть 2 вопроса по ExpressQuantumGrid 4:
1) как сделать cxGrid неактивным, обычно это делается просто: Grid.enabled:=false;
2) установил свойство cxGrid.OptionsBehavior.CellHints в true, получил хинт с содержимым ячейки при наведении курсора, а хотелось бы, чтобы хинт появлялся только для тех данных, которые не помещаются в ячейку. Пытался сам проверять и выводить хинт, но не смог получить значение ячейки под курсором...

Народ, а тут обсуждаются ли грабли и все такое ActiveX компонент devexpress?

GodOfWine
Цитата: "1) как сделать cxGrid неактивным, обычно это делается просто: Grid.enabled:=false;"

У меня это работает. В чем проблема?

Цитата:

2) установил свойство cxGrid.OptionsBehavior.CellHints в true, получил хинт с содержимым ячейки при наведении курсора, а хотелось бы, чтобы хинт появлялся только для тех данных, которые не помещаются в ячейку. Пытался сам проверять и выводить хинт, но не смог получить значение ячейки под курсором...

Делаешь TcxCustomGridView.GetHitTest от Mouse.CursorPos только не забудь преобразовать глобальные координаты в локальные через ScreenToClient. И в полученном TcxGridHitTest ищи ту самую ячейку

vadson6666, начинай поиски отсюда:
__http://devexpress.com/Support/KnowledgeBase/ShowArticle.xml?kbid=1453&prod=ExpressQuantumGrid&tech=&kbss=card

GodOfWine,
про 1: может "не активный" грид - это грид "не в фокусе"? Тогда достаточно передать ффокус любому другому контролу.
про 2: выводить хинты только "при надобности" умеют выводить колонки грида. Можно там посмотреть.

borodavolga, попробовать пообсуждать можно. Есть вопрос?

GodOfWine,
xokc,
а если выводить хинт самому, как можно узнать, что в ячейке действительно не хватило места для вывода всего содержимого?

Цитата:

vadson6666, начинай поиски отсюда:
__http://devexpress.com/Support/KnowledgeBase/ShowArticle.xml?kbid=1453&prod=ExpressQuantumGrid&tech=&kbss=card

Это, конечено, хорошо, только я эту ссылку уже видел и весь форум ДевЭкспресса уже просмотрел, однако, вопрос до сих пор остается открытым, вот если бы какой нибудь небольшой кусочек кода... Хотя бы понять, в каком направлении рыть и к чему вязаться.

vadson6666, да всё просто.

Опишу то, как получил решение:
Идём по ссылке на DevExpress и узнаём оттуда метод ViewData.Expand у TcxGridDBCardView.
Смотрим реализацию и видим, что у ViewData есть массив Record'сов, каждый из которых умеет Expand'ить только себя (нам ведь именно это нужно ).

Остаётся одна подзадача - узнать индекс текущей записи. При беглом просмотре свойств не нашлось нужного индекса, поэтому приведу приём, которым пользуюсь в случаях, когда неочевидно, откуда взять ID записи:

1. Объявляем глобальную переменную RecID: Integer;
2. (Так как мы используем CardView, то) у CardView в событии OnFocusedRecordChanged:
RecID := AFocusedRecord.Index;

Всё - в RecID у нас всегда хранится индекс текущей записи (при этом не надо забывать про поведение с включённым MultiSelect ).

Далее уже можно, например, в CardView OnDblClick:
CardView.ViewData.Records[RecID].Expand(False);
CardView.ViewData.Records[RecID].Collapse(False);

------------------------

Не лишним будет сказать, что можно работать не с массивом ViewData.Records, а с ViewData.Cards. В рамках решения данного вопроса - никакой разницы. Но, просто Card'сы умеют чуть-чуть побольше - например, Visible := False .

Всё .

PetrovD, как выделить эвент в шедулере, зная его ID?
Сначала - Scheduler.GoToDate. А дальше?

Пробовал напрямую присвоить Scheduler.SelectedEvents[0].ID своему значению, но свойство оказалось read-only.

Пробовал так:
Scheduler.SelectEvent((SchedulerDBStorage.GetEventByID(RecID) as TcxSchedulerControlEvent));

Тоже облом - вылетает ошибка преобразования типов, что странно ибо TcxSchedulerControlEvent, который нужен для SelectEvent - прямой наследник TcxSchedulerEvent, и которому ничего "своего личного" в реализации SelectEvent не нужно.

korobovmax

Огромное спасибо за полный и развернутый ответ: все получилось!!!

Alex47

Цитата:

У меня это работает. В чем проблема?

Да, видимо я сам тормозил.

xokc

Цитата:

Делаешь TcxCustomGridView.GetHitTest от Mouse.CursorPos только не забудь преобразовать глобальные координаты в локальные через ScreenToClient. И в полученном TcxGridHitTest ищи ту самую ячейку

Через TcxGridSite получаю TcxCustomGridHitTest, только как по нему найти ячейку?

Пытаюсь установить QuantumGrid из DexExpress'а...

Цитата:

[Hint] cxDBData.pas(3986): Value assigned to 'TcxDBDataController.FindRecordIndexByKey' never used
[Error] cxScrollBar.pas(886): Incompatible types: 'Integer' and 'PRect'
[Error] cxScrollBar.pas(886): Incompatible types: 'Integer' and 'tagSIZE'
[Error] cxScrollBar.pas(889): Incompatible types: 'Integer' and 'PRect'
[Error] cxScrollBar.pas(889): Incompatible types: 'Integer' and 'tagSIZE'
[Fatal Error] cxControls.pas(56): Could not compile used unit 'cxScrollBar'

Откопал где-то в инете, что нада дельфи заставить в tools-enviroment добавить в библиотеку папки с сорцами и packages.
Сделал, но ошибки остались..
Что делать?

PetrovD, сам догадался

Выделяю запись по ID так:

Scheduler.SetFocus; // надо-евдо
for i := 0 to Scheduler.VisibleEventCount - 1 do
if Scheduler.VisibleEvents[i].ID = RecID then
Scheduler.VisibleEvents[i].Selected := True;


Добавлено:
Всё, Мастер Шедулера (), научился ручками делать с напоминалками всё, что угодно: и открывать записи (с переходом шедулера на неё), и прекращать напоминание, и переносить напоминание на будущее (Snooze'ить).

DroN_S

Цитата:

Откопал где-то в инете, что нада дельфи заставить в tools-enviroment добавить в библиотеку папки с сорцами и packages.

Достаточно указать пути к исходникам
А ты какую версию устанавливаешь? Случайно хвостов от предыдущей не осталось?
У меня на D7 Quantum Grid 5.11 установилась без проблем

gpi
может и остались, я не смотрел...
сейчас пороюсь, посмотрю, раньше было такое, помогла переустановка...

gpi, дело не в путях. Если пишется ошибка несовместимости типов, значит дельфи находит реализацию этих типов (и файлы с ними соответственно).

GodOfWine

Цитата:

Через TcxGridSite получаю TcxCustomGridHitTest, только как по нему найти ячейку?

Ну дальше мне казалось очевидно - UnboundModeDemoIntMinerField.pas из Demos:

AHitTest := ViewInfo.GetHitTest(X, Y);
if AHitTest is TcxGridRecordCellHitTest then
begin
ACol := TcxGridRecordCellHitTest(AHitTest).Item.Index;
ARow := TcxGridRecordCellHitTest(AHitTest).GridRecord.Index;
end;

korobovmax

Цитата:

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

Ну я думаю примерно так:
1. Получив номер ячейки узнаешь ее ширину
2. Получешь через GetTextWidth ширину вывоимого текста
3. Сравниваешь величины и принимаешь решение

сожалея о моем плохом русском я использую переводчика.
Я видел эту статью http://forum.ru-board.com/topic.cgi?forum=33&topic=2214&start=360, и я имею ту же самую проблему, я использую devExpress Quantum Grid Suite 5.11 и BCB6, я пробовал копировать кодекс, который VladimLou объявлял, и это не работало бы, так интересно, мог ли бы любой помочь мне.
спасибо очень.

Nuwalli
Write about you problem in english. Translator to russian is very bad.

korobovmax
А я и не говорил, что это из-за путей. Просто пути к packages указывать не нужно.
DroN_S
Обычно с новой версией Quantum Grid идут и новые версии ExpressEditors, ExpressLibrary и т.д. Можно предположить несовместимость версий оставшихся компонентов и вновь устанавливаемых, хотя cxScrollBar.pas не менялся (по размеру) с версии 5.5, а может быть, и более ранней. Поудаляй bpl и dcp-файлы предыдущих версий Quantum Grid в системной папке и папке Delphi\Projects\Bpl. И посмотри, чтобы не были указаны пути к старым исходникам