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

svs123456789
Я делаю так:

Код:
function GetFocusedRecKey: Variant;
var
L: TStringList;
I: Integer;
begin
Result := null;
if qryData.Active then
if Pos(';', View.DataController.KeyFieldNames) = 0 then begin
S := View.DataController.KeyFieldNames;
Result := qryData.FieldByName(S).Value;
end else begin
L := TStringList.Create;
try
L.StrictDelimiter := True;
L.Delimiter := ';';
L.DelimitedText := View.DataController.KeyFieldNames;
Result := VarArrayCreate([0, Pred(L.Count)], varVariant);
for I := 0 to Pred(L.Count) do begin
Result[I] := qryData.FieldByName(L[I]).Value;
end;
finally
L.Free;
end;
end;
end;

Кто-нибудь можете предположить почему при отношении master-detail у некоторых записей отображается не полная информация в таблице detail?
Записей в таблице detail для этого отношения именно 22, но показывается почему-то 18

Само отношение в гриде выставлено правильно. Вот ещё скрин из этого же приложения, но из раздела внесения данных

vcrank
скорее всего грид там там просто Partial load делает

ant0ni02004
Я забыл упомянуть, что есть и другие отношение с кол-вом записей 22 и более - они отображаются нормально
Есть отношение с 14 записями, а реально отображается только 8шт

Добавлено:
Разрулил проблему. Оказывается, что надо было связать Tquery между собой с помощью MasterSource

можно ли сделать шаблон(фрейм) TdxLayoutGroup и потом помещать его на разные TdxLayoutControl?

Подскажите, пожалуйста, как закрасить заголовок в cxGrid или даже точнее сменить стиль именно "заголовка"?

Есть вот такое:


А хочется вот так:

cxGrid 12.2.6


Пробовал хотя бы таким образом что-нибудь сделать с заголовком, но кроме изменившегося стиля шрифта ничего не происходит:


Код:
var
cxStyle1: TcxStyle;

procedure TForm1.FormCreate(Sender: TObject);
begin
// Стили
cxStyle1 := TcxStyle.Create(Self);
cxStyle1.Font.Style := [fsBold];
cxStyle1.Color := $0042D7FF;
end;

procedure TForm1.cxGrid1DBTableView1StylesGetHeaderStyle(
Sender: TcxGridTableView; AColumn: TcxGridColumn; out AStyle: TcxStyle);
begin
if Assigned(AColumn) then
if AColumn.SortOrder <> soNone then
AStyle := cxStyle1;
end;

NightSpawn
можно сделать так только через стили. шрифт там и стиль шрифта. Любой цвет работать в девэкспрессах не будет, если на форме какой-либо скин наложен. То есть цвет берется из скина и только из скина

Цитата:

Любой цвет работать в девэкспрессах не будет, если на форме какой-либо скин наложен.

Или NativeStyle:=True.

на грид наложен фильтр (средсвами самого грида)
как обойти все записи ? (за исключением отфильтрованных)

фильтр в гриде вероятно не фильтрует сам датасет

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

Код:
for i := 0 to DBTVList.DataController.FilteredRecordCount - 1 do
begin
tmpRecordIndex := DBTVList.DataController.FilteredRecordIndex[i];
tmpObjectID := nvl(DBTVList.DataController.GetValue(tmpRecordIndex, DBTVList_ObjectID.Index), -1);
tmpServerID := nvl(DBTVList.DataController.GetValue(tmpRecordIndex, DBTVList_ServerID.Index), -1);
tmpObjectNumber := nvl(DBTVList.DataController.GetValue(tmpRecordIndex, DBTVList_ObjectNumber.Index), -1);
if((tmpObjectID = 0) and AExcludeDefaultObject) then
Continue;
if(CheckObjectID(tmpObjectID) and CheckServerID(tmpServerID) and CheckObjectNumber(tmpObjectNumber)) then
tmpL.Add(FormatFullObjectNumber(tmpServerID, tmpObjectNumber));
end;

exteris
Спасибо, как раз NativeStyle то что нужно было

----

vcrank

Цитата:

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

Для того чтобы добиться мастер-дитейла лишь средствами грида (без связывания датасетов) необходимо чтобы подчиненный датасет был отсортирован по внешнему ключу. Подчиненный град просто пробегает по датасету и перестает выводить записи как только значение поля с ключём меняется.

Cryogen2003 Ну почему же не будет - просто к гриду прикрутить cxStyle Controler в которм настроить необходимые стили и потом присоединить их например к хедеру , контенту... это же можно прямо в дизайнтайме сделать
Я имею в виду не снимать скин со всего приложения, а только настроить сам грид, вот например скрины...там только грид с кастомным стилем, остальные элементы формы со скином

Andryshok
если скин красочный, то мне не дает цветом раскрашивать как я хочу. Стало быть что я делаю не так?

Cryogen2003 поставь настройки грида как на скрине, все должно быть норм, если все равно не получится - выложу маленький пример

Andryshok
Нееее, я немного по другое. У меня на форме валяется еще skin controller и в skinname валяется имя выбранного скина (например Office 2013 White). Так после этого любое изменение цвета - это игнор, работают только шрифт и его атрибуты.

Cryogen2003 Я понимаю, так к форме скин применяй, почему бы нет..., а грид настрой согласно скрину

Люди, а DEvExpress под FMX случайно не работает?

asutp2
Нет, а вот к счастью или сожалению, даже затрудняюсь сказать

Цитата:

Люди, а DEvExpress под FMX случайно не работает?

Все вкатце, пока не планируется. Но возможность не исключают.
http://www.devexpress.com/Support/Center/Question/Details/Q428652

Здравствуйте.
Подскажите, пожалуйста, в следующем вопросе:
Хочу обработать событие GetCellHint компонента cxDBTreeList. Как мне получить id записи, для которой надо показать подсказку?
Набрел на следующее: Документация
Пытаюсь делать аналогично:

Код:
var
ANode: TcxTreeListNode;
AColumn: TcxTreeListColumn;
id : integer;
begin
if (ACell is TcxTreeListEditCellViewInfo) then
Begin
ANode:=TcxTreeListEditCellViewInfo(ACell).Node;
id := ANode.AbsoluteIndex;
AText := VarToStr( cxDBTreeList1.DataController.GetRecordId( id ) );
End;
end;

Roman85R31
ANeedShow в OnGetCellHint?

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

vcrank
Довольно странный вопрос, без деталей во всяком случае.
Что может быть очевидней, чем вставить запись в нужную таблицу...
Подозреваю, используется режим Edit ?
Предлагаю не гимороиться и просто завести нулевую запись "<Добавить новое значение>". Удобно и программеру, и юзеру. Адекватность ценится.
А потенциальные извращения с изменением текста на лету - чреваты, со всех сторон.

Кстати, а при чем здесь DevExpress ?

Цитата:

DBLookupComboBox

StredaX

Цитата:

ANeedShow в OnGetCellHint?

Спасибо!
В самом деле, не обратил внимания, что этот параметр можно изменить в обработчике.

dred2k
Конечно же это TcxDBLookupComboBox
Пока ждал ответа - написал свой вариант:
На событие onValidate повесил обработчик такого типа: проверяем, есть ли введённое значение в дочерней таблице (откуда черпается сам список для TcxDBLookupComboBox)
Если этого значения там нет, то добавляем, делаем Refresh и всё работает


Цитата:

Предлагаю не гимороиться и просто завести нулевую запись "<Добавить новое значение>"

Предлагаете завести такую запись в таблице, откуда черпается список для TcxDBLookupComboBox ? Потому что в самом компоненте не вижу свойства Items

vcrank

Цитата:

Предлагаете завести такую запись в таблице, откуда черпается список для TcxDBLookupComboBox ? Потому что в самом компоненте не вижу свойства Items

Дело в том, что я обычно справочные таблицы использую через таблицы в памяти. Соответственно, при этом можно сделать всякое.
Коли решение найдено и работает, а главное - устраивает, то гут. Практика - критерий истины.

Подскажите поддержка XE6 есть в 13.2.4 или она с 13.2.5 началась?

Prot_XT
Говорят так:
http://forum.ru-board.com/topic.cgi?forum=35&topic=52634&start=940#19