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

Подскажите, пожалуйста, как в TcxRTTIInspector отображать имена свойств объекта не из их названий в классе, а из массива строк. Например property ObjectName чтобы отображалась не 'ObjectName', а 'Имя Объекта'. Там так намудрили, что только для того, чтобы True, False (это уже не в именах свойств, а в их значениях) отображались как Да, Нет, пришлось написать класс с кучей методов. В инете про локализацию RTTIInspector ничего путного не нашел.

ЗЫ В C# просто пишется
[DisplayName("Имя Объекта")]
public string ObjectName { get { return FObjectName; } set { FObjectName = value; } }
А в Delphi не знаю как.

Всем доброй ночи!

Помогите решить проблему.
Есть таблица, на неё смотрит вьюшка. Нужно, чтоб пользователь мог получить список записей из этой таблицы, которых нет в связанной таблице.
Нужный список ключевых полей получаю из запроса.

Идея такова. Есть столбец типа Checkbox, не привязанный к полям таблицы. Сортирую запрос и DataController по ключу, DataController и запрос становятся на первую запись и сравниваются поля с ключами, двигаясь к концу. Если поля равны - помечаем столбец.
View изначально сортирован по другому столбцу.

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

Код:
tvNom.DataController.ClearSorting(true);
tvnom.DataController.ChangeSorting(4,soAscending);
( или
tvNomColumnNOM_ID.SortOrder:=soAscending; )
tvNom.DataController.GotoFirst;

а если
tvNom.DataController.ClearSorting(true);
tvNomColumnNOM_ID.SortOrder:=soAscending; )
tvNom.DataController.GotoFirst;

Было и так и так - никакого результата.
Забыл написать - к значению я обращаюсь следующим образом (и кажется неправильно)

Код: tvnom.DataController.Values[tvnom.DataController.GetFocusedRecordIndex,4]

False

Что False? У тебя устновлено в False? Так установи в True.

Добавлено:
А у тебя группирование есть?

Может так
tvNom.DataController.ClearSorting(FALSE);

Добавлено:

Цитата:

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

Цитата:

я стою на первой записи с той сортировкой, которая задана во View изначально, а не с заданной мною сортировкой.

Я не понимаю, как взаимосвязано то, что ты обращаешься к записи с тем, что у тебя не сбрасывается (не применяется твоя) сортировка?

вот блин! заработало %)
спасибо!
хм.... получается, что моё tvNom.DataController.GotoFirst; не работало?

В cxGrig после импорта данных пропадает возможность прокрутки строк мышкой. Это возможность возвращается после переключения между окнами.
Каким оператором можно вернуть эту возможность?

Aleksandr N

Цитата:

В cxGrig после импорта данных пропадает возможность прокрутки строк мышкой. Это возможность возвращается после переключения между окнами.
Каким оператором можно вернуть эту возможность?

Зависит от того как вы импортируете и что происходит при переключении между окнами (окна одного приложения?)
Может у вас где-то при импорте не везде парные Begin/EndUpdate.

vladman
Begin/EndUpdate везде. cxGrig в рабочем состоянии. Для импорта использую SMImport. При переключении между окнами (MDI) операций с cxGrig нет. Думаю это либо глюк самой cxGrig или наложение при взаимодействии. Вот может есть какой-то оператор для восстановления, может не из самой cxGrig?

ppkp

Цитата:

Подскажите, пожалуйста, как в TcxRTTIInspector отображать имена свойств объекта не из их названий в классе, а из массива строк.

Попробуйте обработать событие onDrawRowHeader. Например

Код: if AHeaderViewInfo.CaptionsInfo[0].Caption = 'Name' then
AHeaderViewInfo.CaptionsInfo[0].Caption := 'Имя Объекта';

vladman
Да, нет. Всё в рабочем состоянии. Вероятно где-то блокируется событие от прокрутки мыши. Наверняка в IDE есть какой-то способ обновления событий, в частности от мышки. А в операции импорта совсем нет кода, только Диалог.Выполнить...

Aleksandr N

Цитата:

Да, нет. Всё в рабочем состоянии.

Тогда остается посоветовать вам почитать вот этот Question Details: Scrolling by mouse does not always work on Windows 7. Может это как раз ваш случай, и методы решения проблемы, предложенные в нем помогут и вам.

vladman
Да, вероятно оно, разберусь. Спасибо!

Хотя здесь про другую проблему.

vladman

Цитата:

Попробуйте обработать событие onDrawRowHeader. Например

Спасибо, получилось, наконец-то. Только как правильно сделать для всех полей класса?

if AHeaderViewInfo.CaptionsInfo[0].Caption = 'Property1' then
AHeaderViewInfo.CaptionsInfo[0].Caption := 'Свойство 1'
else if AHeaderViewInfo.CaptionsInfo[0].Caption = 'Property2' then
AHeaderViewInfo.CaptionsInfo[0].Caption := 'Свойство 2'
else if AHeaderViewInfo.CaptionsInfo[0].Caption = 'Property3' then
AHeaderViewInfo.CaptionsInfo[0].Caption := 'Свойство 3'
смотрится неуклюже, очевидно и неправильно

Огромное спасибо.

ppkp

Цитата:

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

Да, есть немного.
Можно предложить написать функцию, что-то вида
GetRusPropNameByPropOrigName(AOrigPropName: string): string;
Тогда решение вашей проблемы может выглядеть примерно так:
[more]
Код: ...
private
FObjPropNameMapping: TStringList;
function GetRusPropNameByPropOrigName(AOrigPropName: string): string;
end;
....

procedure <YourForm>.FormDestroy(Sender: TObject);
begin
FreeAndNil(FObjPropNameMapping);
end;

procedure <YourForm>.FormCreate(Sender: TObject);
begin
FObjPropNameMapping := TStringList.Create;
FObjPropNameMapping.LoadFromFile('MyObjRusPropNames.ini');
end;

procedure <YourForm>.<YourcxRTTIInspector>DrawRowHeader(Sender: TObject; ACanvas: TcxCanvas; APainter: TcxvgPainter;
AHeaderViewInfo: TcxCustomRowHeaderInfo; var Done: Boolean);
begin
AHeaderViewInfo.CaptionsInfo[0].Caption := GetRusPropNameByPropOrigName(AHeaderViewInfo.CaptionsInfo[0].Caption);
end;

function <YourForm>.GetRusPropNameByPropOrigName(AOrigPropName: string): string;
begin
Result := FObjPropNameMapping.Values[AOrigPropName];
if Result = '' then Result := AOrigPropName;
end;

Hi All
В dxBarManagerBar можно запретить таскать менюшку по экрану ??
Есть свойство Border Style=bbNone , но после него менюшка плоская становиться (

посмотри свойства, которые начинаются с Allow

Добавлено:

Цитата:

Есть свойство Border Style=bbNone

А какое отношение может иметь стиль к возможности для перемещения??

Цитата:

В dxBarManagerBar можно запретить таскать менюшку по экрану ??

не знаю как в dxBarManagerBar, но в dxBarManager, который является сборником Баров это сделать нельзя, но можно в конкретном Баре
В dxBar есть свойство NotDocking - ставишь те положения в которых нельзя быть, в твоем случае dxBar.NotDocking:=[dsNone]

Цитата:

Есть свойство Border Style=bbNone
А какое отношение может иметь стиль к возможности для перемещения??

Это свойство вобще прячет все DRUG and DROP фичи для таскания по экрану


Цитата:

В dxBar есть свойство NotDocking - ставишь те положения в которых нельзя быть, в твоем случае dxBar.NotDocking:=[dsNone]

Хмм непомогло . Запихал заразу в dxBarDockControl . По вертикали уже не рыпается . По горизонтали сволоч катается (((

Так и не нашел ответа на свой вопрос, но уверен что его задавали.
Необходима русификация DevExpress, есть в наличии русские ресурсы в pas-файле, которые отлично работали со сборкой. Но вот с новыми Девками (DeveloperExpressVCLProducts49) компилиться не хотят, а нужны именно они.

Кто-нибудь может чем-то помочь?

DockedLEft=0 по умолчанию у dxBarManagerBar1 , как бы прибить кувалдой это дело

indapublic
Ссылка

vladman
Спасибо, но проблема в том, что оригинальные properties в RTTIInspector упорядочены по алфавиту, и я не знаю как отключить это в RTTIInspector. Из-за этого возникает несоответсвие между properties и их псевдонимами.

ppkp

Цитата:

проблема в том, что оригинальные properties в RTTIInspector упорядочены по алфавиту

Ну и что что упорядочены. Это не оказывает никакого влияния на Result := FObjPropNameMapping.Values[AOrigPropName];

Вечер добрый .
Начал осваивать PivotGrid... возникли вопросы
1. как сделать поля которые используются в качестве строк "многострочными"
2. как сделать чтобы можно было использовать несколько полей в качестве строк без группировки
вот так должно примерно выглядеть

Можете кто-нибудь подсказать,

у меня при экспорте нескольких колонок в Excel или Pdf
происходит такая штука - ширина всех колоное становится маленькой.

Можно ли так сделать, чтобы колонки с данными всегда были видны полностью?

я использую для экспорта - VisualDataNodeLink

Добрый день!

Столкнулся с неожиданной проблемой - у меня в TdxMemData не работает FindFirst()!!! Вроде нашел, что один человек на офиц. сайте уже жаловался на это проблему в 47м патче. У меня щас стоит 48 версия. Может кто здесь сталкивался с подобной проблемой? И еще - если кто пользуется 49 версией, не подскажете, работает ли там FindFirst() там??

asi81

Цитата:

Столкнулся с неожиданной проблемой - у меня в TdxMemData не работает FindFirst()!!!

Если вы пытаетесь это использовать "with the filter function in TdxMemData", то "The ExpressMemData doesn't implement the Filter property and the FindFirst, FindLast, FindNext, FindPrev methods. This is the designed behavior. "