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

Alex1978

Лучше думаю найти другой способ решить то что ты хочешь

Darl
Так ведь не получается. А исходники править под себя не люблю.

Alex1978

Ну напр.

void __fastcall TMainForm::cxTreeTypeCanSelectNode(TObject *Sender,
TcxTreeListNode *ANode, bool &Allow)
{
Allow = ANode->Level;
}

void __fastcall TMainForm::cxTreeTypeFocusedNodeChanged(TObject *Sender,
TcxTreeListNode *APrevFocusedNode, TcxTreeListNode *AFocusedNode)
{
cxTreeType->OptionsSelection->MultiSelect = !AFocusedNode->Level;
}

Darl
Списибо за помощь, но по последнему посту
Что толку то. Ты на окончание посмотри FocusedNodeChanged.
Implement the OnFocusedNodeChanged event handler to provide custom code after focus has switched to another node.

The Sender parameter specifies the TreeList control generated this event.
The APrevFocusedNode parameter specifies the node that has lost focus. This parameter returns nil value if there was no focused node before.
The AFocusedNode parameter specifies the node that has gained focus.

Прикинь если при смене узла серьезная операция? ты ее дважды отработаешь.
Нельзя в OnFocusedNodeChanged мультиселект менять - поздно уже.

Alex1978

Я к тому что ищи другие способы.... чем зацикливаться на одном CanSelectedNode, ну или пиши в аську(274055231).

Alex1978

Цитата:

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

1. Когда MultiSelect = False, понятия Selected и Focused становятся равнозначными. Только один node может быть selected (он становится focused), и, наоборот, focused node автоматически становится selected.
Поэтому, когда кодом:

procedure TMainForm.trlMainFocusedNodeChanged(Sender: TObject;
APrevFocusedNode, AFocusedNode: TcxTreeListNode);
begin
if APrevFocusedNode<> nil then
if (AFocusedNode <> nil) and (AFocusedNode.Level = 0) then
APrevFocusedNode.Focused := True;
end;

фокус возвращается на APrevFocusedNode, он (APrevFocusedNode) автоматически становится selected и других selected больше нет.
2. В самом факте того, что мы даем возможность кратковременно перевести фокус на "нежелательный" node и сразу же убираем его, ничего плохого нет. Для обработчика FocusedNodeChanged это штатная ситуация, то есть он предназначен, в том числе, и для этого. На производительности "нормальной" программы это не сказывается.

Помогите проинстоллить девки для D7,
скачал сорсы с китайского сайта h..p://www.softsky.com.cn/show.asp?id=426
т.к. там написано, что версия QuantumGrid 5.7.
Компилирую
dxThemeD7.dpk за тем
cxLibraryVCLD7.dpk, потом
dclcxLibraryVCLD7.dpk и когда стараюсь последний проинстоллить ошибка:
"The procedure entry point @Dxoffice11@initialization$qqrv could not be located in the dynamic link library dxThemeD7.bpl!"

В чем проблема и как ее решить или обойти?
rustam_d@mail.ru

Rustamd
Лучше поставить последнюю версию:
http://forum.ru-board.com/topic.cgi?forum=35&topic=26514

Alex47
Пока разберусь как качать неделя пройдет.
Можете последнюю версию "\XP Theme Manager\Sources" выслать?
на rustam_d@mail.ru.

Rustamd
смотри почту

Получил с обменника последнюю версию инсталляшки из 2 частей,
но там же пароль нужен?
Alex47 можете выслать?

Rustamd

Цитата:

но там же пароль нужен?

Конечно нужен...
Как без него?
Необходимое тебе здесь
#

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

procedure TMainForm.brcFileExportClick(Sender: TObject);
var
S: String;
I: Integer;
ARowIndex: Integer;
ARowInfo: TcxRowInfo;
begin
S := '';
with MainDM do
begin
tbZbur.DisableControls;
with tbvZbur.DataController do
for I := 0 to GetSelectedCount - 1 do
begin
ARowIndex := GetSelectedRowIndex(I);
ARowInfo := GetRowInfo(ARowIndex);
S := S + GetDisplayText(ARowInfo.RecordIndex,0) + ',';
end;
tbZbur.EnableControls;
end;
end;

Вот такой код если выделен заголовок группы и три записи с номерами 1,2,3 возвращает
1,1,2,3 как этого избежать? В хелпе отчего-то натыкаюсь на "дополнительные сведения отсутсвуют".

You can try:
...
<aRow>.IsData - to determine whether a particular row is a data row or a group row;
...

Maybe it will help...

tibotaka

Alex1978
либо классически:

Код: ViewData.Rows[RowIndex].ClassName = 'TcxGridGroupRow'

Как запретить BandClick и HeaderClick v Gride??? Спасибо!

vmr90
Один из вариантов - поставить (к примеру, для HeaderClick) в обработчике соответствующей колонки OnHeaderClick:
sysutils.Abort;

Alex47
спасибо так и сделаю а есть и 2-вариант?

vmr90
Если нужен запрет для всех колонок, то можно таким же образом использовать обработчик View OnColumnHeaderClick

Столкнулся со следующей проблемой (использую последних девок в BCB 6):
cxGrid - 2 уровня с 2 таблицами (контракты и операции по ним) - на нижнем уровне отображается только часть записей. БД на аксессе. Кто-нибудь знает как вылечить?

mln141
у датасета соотнесенного к детали данные должны быть отсортированы по ключу мастера ну и ессно должны быть выставлены ключевые опции во вьюхах:

DataController->DetailKeyFieldNames
DataController->KeyFieldNames
DataController->MasterKeyFieldNames

golkanavt
Это понятно, я все это проверил, но из 8 соответствующих записей показывает только 6.

golkanavt
Вобщем решить проблему удалось, но через ж. Вместо таблицы подключил источником данных очередь (все поля + сортировка по ключу связи с верхним уровнем).

А никто не сталкивался, где находится свойство, возвращающее версию компонентов?
Хочу сделать в окошке About версию используемых Баров, Гридов и пр., ибо компоненты обновляются довольно часто, а по бинарнику не всегда поймешь на какой версии он откомпилен
Нашел например в dxBarReg есть
const
dxBarVersion = '5.4';
но с ней не компилится, ругается на DesignIntf.

Мож кто сталкивался, поможите. Не критично но интересно

stalker780
1. Версию в design-time, как известно, можно узнать по правой кнопке в
контекстном меню через Delphi property editor, который не доступен в run-time.
2. Если инсталляция DevExpress была штатная, то информация о версиях пишется в
HKEY_LOCAL_MACHINE\SOFTWARE\Developer Express Inc\AProductName (AIDEName AIDEVersion). Есть утилита VersionCheck, которая "Checks and displays the version numbers of the installed DevExpress components". Она создает и сохраняет отчет, который можно было бы использовать (http://www.freedevexpressaddons.com).
Но, поскольку, информацию она берет из registry, то, видимо, будет работать только со штатным инсталлятором (я не проверял).
3. По поводу наличия соответствующих свойств - информации нет, можно поискать в исходниках.

Есть, что-то типа DBGrid, связанное с базой данных из линейки DevExpress только умеющего делать поиск по каждому столбцу задавая условия, имеющего автофильтр по каждому столбцу и выделения строк по заданным условиям ...

Возникла такая проблема, при использовании devexpress winforms в моей программе, я не могу её запустить на другой машине и вылетает ошибка. Я так подозреваю это из за того что я использую не стандартные контролы (Devexpress в данном случае).
Как можно решить эту проблему?

pit77
ExpressQuantumGrid (текущая версия 5.9)
Информация на //www.devexpress.com

Alex47
Спасибо за информацию.

Необходимо при некотором условии, объединить в одной строке две ячейки грида. Это реально? Эсли да то плз. подскажите как реализовать сабж.