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

И всё-таки это не работает. Помогите пожалуйста!

Код вот такой:

Код:
IBQueryNoStock.first;
tvNorm.BeginUpdate;
tvNorm.DataController.ClearSorting(true);
tvNormColumnID.SortOrder:=soAscending;
i:=tvnorm.DataController.GetFocusedRecordIndex;
n:=tvnorm.DataController.RecordCount;
while i<=n do begin
if tvrnom.DataController.Values[i,4]=IBQueryNoStock.FieldByName('id').AsInteger then begin
tvrnom.DataController.Values[i,3]:=true;
inc(cnt);
IBQueryNoStock.Next;
end;
tvnorm.DataController.GotoNext;
i:=tvnorm.DataController.GetFocusedRecordIndex;
if IBQueryNoStock.Eof then break;
end;
tvnorm.EndUpdate;

brookson
а точно

Цитата:

inc(cnt);

?

ну да, увеличивает на 1. там всё проверил, i изменяется правильно. а вот сам индекс таблицы - не идёт по возрастанию, как хотелось бы

brookson

Цитата:

И всё-таки это не работает. Помогите пожалуйста!

Правильно ли я понимаю что IBQueryNoStock - это НЕ источник данных для tvNorm?
И, собственно, какую задачу вы пытаетесь решить этим кодом?

vladman
Я пытаюсь отметить галочкой (tvrnom.DataController.Values[i,3]:=true) строки, значения ключа в которых (столбец 4) есть среди записей IBQueryNoStock.
Чтоб было быстрее, сортирую оба набора данных и сравниваю, начиная с начала.
Квери сортируется нормально, а с сортировкой данных в гриде загвоздка вот такая... Саму таблицу посортировать не проблема, но как тогдапометить столбец? он не привязан к таблице. А если идти по Datacontroller, то проблема с сортировкой.

brookson
Попробуйте выполнить пересортировку
tvNorm.DataController.ClearSorting(true);
tvNormColumnID.SortOrder:=soAscending;
за пределами BeginUpdate/EndUpdate

Добавлено:
brookson
Если я правильно понял, выборка IBQueryNoStock содержит подмножество записей присутствующих в tvNorm, и tvNorm тоже опирается на некий датасет, который получает данные из той же базы данных что и IBQueryNoStock. Если так, то не проще ли сформировать запрос (выборку) для tvNorm, которая уже будет содержать признак наличия или отсутствия записи в IBQueryNoStock.

Переставил, вот так

Код:
tvNorm.DataController.ClearSorting(true);
tvNormColumnID.SortOrder:=soAscending;
tvNorm.BeginUpdate;

У cxVericalGrid есть строка типа TcxLookupComboBox. Как заставить принудительно выпасть cxLookupComboBox при открытии или показе окна?

Этот код поставил в OnShow формы. Но толку нет. Хотя ошибок и исключений тоже нет.
colOperation - это та самая строка типа TcxLookupComboBox
vgClientsAdd - это TcxVericalGrid


Код: (colOperation.Properties.EditProperties as TcxLookupComboBoxProperties).ImmediatePopup := true;
vgClientsAdd.SetFocus;
vgClientsAdd.FocusRow(fmClientAdd.colOperation, 0);

X11

Цитата:

У cxVericalGrid есть строка типа TcxLookupComboBox. Как заставить принудительно выпасть cxLookupComboBox при открытии или показе окна?

Попробуйте вот этот код

Код: type
TcxCustomEditAccess = class(TcxCustomEdit);
....
var
vEdit: TcxCustomEditAccess;
vKey: Word;
begin
vKey := VK_DOWN;
<YourcxDBVerticalGrid>.FocusRow(<YourcxDBVerticalGridColumn>, 0);
<YourcxDBVerticalGrid>.ShowEdit;
vEdit := TcxCustomEditAccess(<YourcxDBVerticalGrid>.InplaceEditor);
if Assigned(vEdit) then vEdit.DoEditKeyDown(vKey, [ssAlt]);
end;

Фокусируется следующая строка.

X11

Цитата:

Фокусируется следующая строка.

Не должно. Проверено. Давайте пример вашего кода.

Добавлено:
Попробуйте в приложении на этой (с lookup) строке вашего vgClientsAdd нажать Alt+Down когда редактор находится в состоянии Edit. Что происходит при этом?

Стоп, я понял. По электронке в письме мне пришло вот так
f Assigned(vEdit) then vEdit.DoEditKeyDown(vKey, );

Добавлено:
Всё равно не выпадает. Вот код.


Код: procedure TfmClientAdd.DropDownComboBox(Col: TcxEditorRow; vg: TcxVerticalGrid);
var
vEdit: TcxCustomEditAccess;
vKey: Word;
begin
(col.Properties.EditProperties as TcxLookupComboBoxProperties).ImmediateDropDown := true;
vKey := VK_DOWN;
vg.FocusRow(col);
vg.ShowEdit;
vEdit := TcxCustomEditAccess(vg.InplaceEditor);
if Assigned(vEdit) then vEdit.DoEditKeyDown(vKey, [ssAlt]);
end;


procedure TfmClientAdd.FormShow(Sender: TObject);
begin
DropDownComboBox(colOperation, vgClientsAdd);
end;

X11

Цитата:

Не уверен, что это сможет отработать на onShow

Не зря сомневался. Как быть? Замените его обработкой OnActivate, и все заработает.
Для справки Understanding the Birth, Life and Death of a Delphi Form

Цитата:

Birth
OnCreate -> OnShow -> OnActivate -> OnPaint -> OnResize -> OnPaint ...

vladman, да так работает. Спасибо.

Добавлено:
К сожалению событие OnPaint срабатывает каждый раз, как форму активирует пользователь. Придётся при показе формы запускать таймер, и в нём через секунду открывать список
Ну почему в дельфи до сих пор не придумали событие AfterShow

X11

Цитата:

К сожалению событие OnPaint срабатывает каждый раз, как форму активирует пользователь.

А чем не угодило
Цитата:

Замените его обработкой OnActivate, и все заработает.

Я перепутал. Я имел ввиду именно OnActivate.

Добрый день!
Появилась необходимость на форме использовать повёрнутый текст на 90 градусов, но вот ведь не задача: У компонента label вроде есть свойство Angle, но при введении туда любого угла, поворота текста не происходит , а у компонента Textedit вообще нет такого свойства как угол поворота текста

Может подскажет кто-нибудь как можно выйти из положения?

PS: Поиском прошёл предыдущие страницы похожего ничего не нашел.
Девки 4.9.

CAD_tester
cxLabel так поварачивается

linker_2009
Ссори я cxLabel и имел ввиду

Цитата:

CAD_tester
cxLabel так поварачивается

Так это как? Я менял свойство Angle.

И ещё, а схTextEdit можно повернуть?

CAD_tester
создаешь новый проект, кидешь cxLabel на форму, у него в Properties.Angel ставишь 90
должен сразу повернуться на 90 градусов

в схTextEdit нельзя, да и не зачем, как ты будешь редактировать значение

X11

Цитата:

Я перепутал. Я имел ввиду именно OnActivate.

Если ваша форма с VerticalGrid отображается модально, то OnActivate сработает только один раз, если не модально, то, вы правы, OnActivate будет срабатывать каждый раз как форма будет получать фокус ввода. Это легко обработать введя счетчик срабатываний OnActivate, т.е. вызывайте вашу процедуру DropDownComboBox только при значении этого счетчика равным нулю.

Удалил! Так как повторил вопрос ниже.

CAD_tester

Цитата:

Может в версии 4.9 такой баг появился?

Нет в версии 6.49 такого бага. Давайте пример где не поворачивается посмотрим.

Поставил DevExpress v48. Все ровна стало, только скинов не вижу, кроме одного - UserSkin. Project -> Modify Skin Options тоже ничего нету. Подскажите пож что делать?

Man_Without_Face
Не установил пакеты со скинами.

CAD_tester
я проверил, а потом отписал. У меня 2009 delphi, а у тебя по скрину кажется семерка - возможно баг только в 7-ой версий.

У tcxMaskEdit (6.48) пытаюсь задать маску (regular expr) "[а-я]+" - русские буквы вводить в поле не даёт, впрочем английские и цифры тоже . А если пишу "[a-z]+" - то английские нормально вводятся. Можно ли сделать шаблон только для русских букв?

Granmer

Цитата:

У tcxMaskEdit (6.48) пытаюсь задать маску (regular expr) "[а-я]+" - русские буквы вводить в поле не даёт

Уже обсуждалось - http://forum.ru-board.com/topic.cgi?forum=33&topic=10884&start=340#6 и http://forum.ru-board.com/topic.cgi?forum=33&topic=10884&start=340#9

vladman
понял, спасибо!

Извиняюсь что повторюсь, но может у кого нибудь на Delphi 6 или 7
работает функция поворота текста cxLabel? Если да то скажите с какой версией Девок?

У меня установлена версия 6.49.

Делаю следующее....
Создаю новый проект, кидаю cxLabel на форму, у него в Properties.Angel ставлю 90градусов, текст должен сразу повернуться на 90 градусов, см. картинку ниже

Выполняю эти действия, но текст у меня не поворачивается !

Заранее благодарен сочувствующим