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

mdid
А что это за демо? Может и не summary, а просто поле. Там цифири редактируются?

makz
...\Demo\ExpressQuantumTreeList\Demos\Delphi\SummariesDemo
в дизайн тайме заполнил датасет...актив=тру...и вуаля

mdid
Ну так это просто содержимое поля, никак само не суммируется, что введем, то и напишет.

makz
где оно вводится? я же писал что закомментил весь код
про событие дисплейтекст иль как оно там..я в курсе...но код же я закомментировал

mdid
В базе оно лежит. Редактировать можно в runtime, прямо в трилисте. Только это вовсе не то, что требуется. Если надо, чтобы сумму само считало, то придется руками или обойтись summary.

печально((...лана...тогда придется переписать процедурку на сервере...пасиб

Господа, помогите с русификацией девок для Delphi 7
Взял с копилки DevExpress.v2011.2.6.Rus.Lib, там куча .pas файлов и rus.ini файл.
Что куда ложить?
Положил с архива source в папку, куда у меня девки установлены с заменой исходных файлов - так делфа ругаться на них начала.
При установке девок был замечен пункт - русская локализация, поставил галочку напротив "русский", но по итогу установки все равно все компоненты на английском..

SevereK20
используй ini файл в компоненте cxLocalizer в свойстве FileName укажи его и всё

regkz
то что надо, спасибо

подсобите с таким вопросом - опять же есть cxGrid в одной колонки Пропетис установлено в ImageComboBox -
как , желательно для билдера,для выбранного елемента вытащить свойство Items->Description??


Добавлено:
Накопал - мож кому пригодится
TcxImageComboBoxItems* Items = ((TcxImageComboBoxProperties*)cxGrid1DBTableView1ProgramType->Properties)->Items;
ShowMessage(Items->Items[cxGrid1DBTableView1ProgramType->EditValue]->Description);

MagistrAnatol
Ну в delphi как-то так:
TcxImageComboBoxProperties(<column>.Properties).FindItemByValue(<column>.EditValue).Description
а в билдере я не знаю как typecast сделать.
---
Опоздал

makz
всеравно пасиб

про cxPopupEdit. надо при вводе в popupedit формировать запрос типа "name like 'иван%'" и вываливать cxGrid со данными. но после того как устанавливаю Properties.PopupControl=<grid> - в popupedit нельзя вводить значения. как реализовать такое?

Несколько раз возникал вот такой вопрос:
Ссылка
Кто-нибудь знает как решить такую задачу?

neznayka3
Options.Focusing = True?
А точно нужен целый грид? может хватит ExtLookupComboBox?

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

andreybear
http://www.devexpress.com/Support/Center/Question/Details/S413

X11
Насколько я понимаю, часть таблицы "Расход за сутки" влияет на отображение части таблицы "Кол-во контейнеров". Как правильно построить эту зависимость бэндов? Можете пояснить на приведенном мной примере как это можно реализовать?
makz
Как изменение толщины линий повлияет на решение поставленной задачи?..

andreybear
Элементарно: лепим добавочные банды, потом убираем лишние линии.

makz
Если ввести "добавочные банды" и убрать "лишние линии" по-вашему заголовок "Кол-во контейнеров" отобразиться посредине образовавшейся области?

Что помешает написать "Кол-во контейнеров" в средней ленте?

http://imageshack.us/photo/my-images/835/13845119.jpg/
http://imageshack.us/photo/my-images/819/18236820.jpg/


Код:
procedure TForm1.cxGrid1BandedTableView1CustomDrawBandHeader(
Sender: TcxGridBandedTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridBandHeaderViewInfo; var ADone: Boolean);
begin
if not AViewInfo.IsPressed then
begin
if (AViewInfo.Band.VisibleIndex = 1) or (AViewInfo.Band.VisibleIndex = 5) then begin
AViewInfo.Borders := AViewInfo.Borders - [bBottom];
end;
end
else
AViewInfo.Borders := [bLeft .. bBottom];
end;

makz

Цитата:

Что помешает написать "Кол-во контейнеров" в средней ленте?

Логично!)
А если будет не 3, а 4 бэнда? Какой принимать за средний?
Может есть другой способ?

У вьюхи колонка SomeColumn ExtLookupComboBox. Её обработчик OnInitPopup:

Код: procedure TMyForm.SomeColumnPropertiesInitPopup(Sender: TObject);
begin
if not Assigned(TcxCustomExtLookupComboBox(Sender).Properties.DataController.OnFilterRecord) then
TcxCustomExtLookupComboBox(Sender).Properties.DataController.OnFilterRecord := DoFilter;
end;

andreybear
Ну можно с высотой бандов поиграться, там же - onCustomDrawBandHeader

Код:
aViewInfo.Height:=40;

Ребята, подскажите, сделал задачу, теперь как подтянуть Print System.
Я поместил на grid cxGrid tdxComponent Printer и никак не вспомню, с чем его соединить,
чтобы заработало? Прошу подсказки, заранее благодарен.

там нужно добавить связку CurrentLink

Добавлено:
картинко

Вот спасибо! Ну а как же его активизировать теперь. Тоже задачка...
Никак не вспомню, хотя у меня есть листов 10 описания, написанных мною 7 лет назад.

makz

Цитата:

А почему TcxCustomExtLookupComboBox, а не TcxDBExtLookupComboBox?

А, и так, и так результат одинаковый.

Добавлено:
Вот кое-что: это всё происходит если TcxDBExtLookupComboBox(Sender).Properties.FocusPopup := True. Если FocusPopup := False, то без AV, но мне-то надо править данные в этой вьюхе.

AlexCoRu
А без обработчиков нет AV?

Без обработчиков - нет.

Добавлено:
Какое-то подозоение, но пока не пойму: если без обработчиков изменить запись в выпадающей ExtLookupComboBox вьюхе и не сделать Post и выбрать эту запись (двойной щелчёк) - выскакивает точно такое же AV.

Добавлено:
Кстати, будет интересно выглядить эффект затенения, может кому и пригодится:

Код: procedure TMyForm.InvoiceViewPropertiesCloseUp(Sender: TObject);
begin
InvoiceGrid.EndLockedStatePaint;
end;

procedure TMyForm.InvoiceViewPropertiesPopup(Sender: TObject);
begin
InvoiceGrid.BeginLockedStatePaint(lsimImmediate);
end;